VB语言程序设计试题库
VB程序设计一、判断题1. 同一 Form窗体中的各控件可以相互重叠，其显示的上下层次的次序不可以调整X ）2. 一个对象的若能识别多个事件，我们只能对其中一个事件编程（x ）3. 单选按钮与复选框对象的Value属性类型不同，且只能取值True和False V ）4. 事件过程由某个用户事件或系统事件触发执行，它不能被其他过程调用 x ）5. 图片框的Move方法不仅可以移动图片框，而且还可以改变该图片框的大小，同时也会改 变该图片框有关属性的值 V ）6. “A=B=C” 是一个合法的 Visual Basic 语句x ）7. 当在一个简单组合框的文本框中输入一个它的列表框中没有的条目时，组合框会自动把 这一条目添加到它的列表框中 x ）8. Visual Basic程序的运行可以从Main （）过程启动，也可以从某个窗体启动V ）9. 在图片框中放置的控件既可以在该图片框内移动，也可以移出该图片框外x ）10. 对于文件系统控件，当驱动器控件Drivel中的驱动器符改变时，文件夹列表控件Dirl 中显示的文件夹也作相应的改变，可以在Drivel中的Change事件中使用如下命令Dirl. Path= Drivel. Drive （V ）11. 滚动条控件可作为用户输入数据的一种方法。
V ）12. 单选按钮控件和复选框控件都具有Value属性，它们的作用完全相同x ）13. 静态变量是一种局部变量，当原过程再次被执行时，静态变量的初值是上一次过程调用 后的值 V ）14. Visual Basic提供的几种标准坐标系统的原点都是在绘图区域的左上角，如果要把坐标 原点放在其他位置，则需使用自定义坐标系统 V ）15 .注释语句REM可自成一语句V ）16. 用鼠标选中某菜单控件时，触发Click事件;而用键盘选中该菜单控件时，触发KeyPress （ x）17. 组合框兼有文本框和列表框两者的功能，用户可以通过键人文本或选择列表中的项目来 进行选择 V ）18. 当定时器控件的Interval属性值设置为0时，会连续不断地激发Timer事件x ） 19•执行程序 x=0:for I=2 to 10 step -2:x=x+10:next I 后 x 的值为 0 V ）2.句“ Fon tN ame="宋体""与“ Form1.Fon tN ame="宋体""的作用完全相同，无一例外 x）21局变量只能在窗体的通用区内用Public或global定义x ）22.在盘驱动器列表框Drivel的Change事件过程中，代码Dirl. Path = Drivel . Drive 的作用是：当Drivel的驱动器改变时，Dirl的目录列表随不同驱动器作相应改变。
V ）23•直到型循环至少能执行一次循环体V ）24. Variant是一种特殊的数据类型，Variant类型变量可以存储除定长字符串数据及自定 义类型外的所有系统定义类型的数据Variant类型变量还可具有Empty、Error和Null等 特殊值 V ）25. 如果一个菜单项的Visible属性为False,则它的子菜单也不会显示V ）26•运行程序后在同一窗体上不可能同时选中两个单选钮x ）27. 窗体的Enabled属性值为False时，该窗体上的按钮、文本框等控件就不会对用户的 操作做出反应 V ）28. 定时器的interval属性值为0时，不会发生timer事件V ）29. 框架控件和形状控件都不能响应用户的鼠标的单击事件 x ）30. 在一个窗体的代码中不能使用Unload语句来卸载本窗体，即一个窗体只能由其他窗体 卸载 x ）31•移动图片框时，以该图片框为载体的各控件的Left和Top属性值不变V ）二. 单选题32. 组合框的Change （）事件在下列那种情况下发生？（ C ）A、在程序改变控件的大小时发生 B、用户在下拉列表中改变选项时发生C、用户在编辑文本区内容时发生 D、当程序改变组合框的Style属性时发生33. 为了使标签框的中的文字能自动折行，必须同时设置下面两个属性为True°（ D ）A、 Caption 和 AutoSize B、 AutoSize 和 AligmentC、 Visible 和 Enable D、 AutoSize 和 WordWarp34. 如果希望文件列表框只显示可执行文件，应该修改（ B ）属性。
A、Pattern B、Filter C、Path D、FileName35. 为了使某个命令按钮处于不可用状态，应该设置该命令按钮的 属性 B ）A、Default B、Enabled C、Cancel D、TabIndex36•通用对话框控件的返回值FileName表示所选择文件的（B ）A、路径名 B、全名 C、文件主名 D、文件扩展名37. 关于单选按钮和复选框，下列说法正确的是：（ C ）A、 单选按钮和复选框的Value属性值可能是0或1B、 同一窗体上的单选按钮只能有一个处于选中状态C、 复选框不支持DblClick事件D、 单选按钮选中状态的改变只能由用户进行，而不能由程序设置38. 下列控件中哪个控件没有Change事件（D ）A、滚动条 B、目录列表框 C、标签 D、单选按钮39•菜单项显示分隔线是通过设置（A ）属性来实现的A、Caption B、Visible C、Checked D、Enabled40.运行时组合框控件Comb 1中所选择的表项，可以表示为（C ）A、Comb1.Text B、Comb1.List C、Comb1.ListIndex D、Comb1.ListCount41•要使Shape控件以实心方式填充，应该设置其（B ）属性。
A、FillColor B、FillStyle C、BackStyle D、Shape42. 向文本框中输入一个字符，下列 事件不会发生 C )A、Change B、KeyPress C、GotFocus D、KeyDown43. 下面关于框架、复选框和单选钮的叙述，正确的是 B )A、 框架没有Caption属性，而复选框和单选钮都有Caption属性B、 一个框架中的复选框有可以多个被选中C、 一个窗体中单选钮有且只有一个可以被选中A、可以把窗体中已存在的单选钮拖到框架中，成为框架中的一员44. 用户在窗体上单击时，将先后触发该窗体的( D )A、 MouseDown 事件、Click 事件、MouseMove 事件、MouseUp 事件B、 Click 事件、MouseDown 事件、MouseUp 事件、MouseMove 事件C、 MouseDown 事件、Click 事件、MouseUp 事件、MouseMove 事件D、 MouseDown 事件、MouseUp 事件、Click 事件、MouseMove 事件45. 下面 方法不属于列表框和组合框 A )A、Cls B、AddItem C、GetFocus D、RemoveItem46. 在图片框控件Picturel上坐标(x,y)处画一个绿色点，写作(D )。
A、Pset(x,y),Rgb(0,255,0) B、Picture1.Pset(x,y),GreenC、Pset(x,y),vbGreen D、Picturel.Pset(x,y),vbGreen47. 下面关于滚动条和计时器控件的叙述，其中错误的是 B)A、 当滚动条的Value值改变时，发生Change事件B、 当拖动滚动条时，释放鼠标时发生Scroll事件C、 计时器控件在运行时是不可见的D、 计时器和滚动条控件都有Enable属性48. 单击滚动条两端的任一个滚动箭头，将触发该滚动条的 ( C )事件A、Scroll B、KeyDown C、Change D、Dragover49. 设置某子菜单项的Caption (标题)属性为“画图(&D)”，ShortCut (快捷键)属性为 “Ctrl+L”启动工程时，下面 不会触发该子菜单的Click事件D )A、打开主菜单，按D键 B、直接按Ctrl+L键C、用鼠标单击该子菜单项 D、打开主菜单，按Alt+D50. 要改变控件的宽度，应修改该控件的 ( C ) 属性A、Top B、Left C、Width D、Height51•顺序文件有三种打开方式，下面 种不是。
A)A、Random B、Input C、Output D、Append52．( C )对象不能作为控件的容器A、Form B、PictureBox C、Shape D、Frame53.将命令按钮Command 1设置为不可见，应修改命令按钮的(A )属性A、Visible B、Value C、Caption D、Enabled54．下列数据类型中，占用内存最小的是( B )A、Boolean B、Byte C、Integer D、Single55. ( D )对象具有Clear方法A、图片框 B、窗体 C、复选框 D、列表框56．一个对象可以执行的动作和可被对象识别的动作分别称为（ B ） A、事件、方法 B、方法、事件C、属性、方法 D、过程、事件57. 已知A、B、C中C最小，则判断A、B、C可否构成三角形3条边长的逻辑表达式是（B ）A、A>二B And B>二C And C>0 B、A+C>B And B + C>A And C>0C、（A+B>=C Or A — CV=C） And C>0 D、A+B>C And A-B>C And C>058. 将通用 对话框CommonDialog 1的类型设置成“另存为”对话框，可调用该控件的的（B ） 方法。
A、ShowOpen B、ShowSave59．下面( C )是日期型常量A、“12/19/99” B、12/19/99C、ShowColorC、#12/19/99#D、ShowFontD、{12/19/99}60. 重新定义图片框控件的坐标系统，可采用该图片框的 （ A ） 方法A、Scale B、ScaleXC、ScaleYD、SetFocus61. D__ 对象不具有Caption属性DA、Label B、Option C、Form D、Timer62. Integer类型的变量可存的最大整数是（D ）A、255 B、256 C、32768 D、3276763. 要改变控件的宽度，应修改该控件的（ C ）属性A、Top B、Left C、Width D、Height64. 对于窗体级变量，以下说法错误的有： （ B ）A、 所在窗体的各子程序都可以访问B、 其他窗体的子程序不能访问C、 所在窗体的子程序能访问用Private定义的窗体级变量D、一定要在所在窗体的通用区内定义65. 在窗体Forml的Click事件过程中有以下语句：（C ）“Label1. Caption=”“Visual Basic”若本语句执行之前，标签控件的Caption属性 为默认值，则标签控件的Name属性和Caption属性在执行本语句之前的值分别为。
A、“Label”、 “Label” B、“Labei1” 、 “Visual Basic”C、“Label1” 、“Label1” D、Caption 、“Label”66. 下面关于变量的作用域和生存周期的描述正确的是（ C ）A、 全局变量可在窗体的通用区内定义B、 窗体级变量与静态变量具有相同的作用域和生存周期C、 同一过程中用“Dim ”定义的局部变量和用“ Static ”定义的局部变量具有相同的 作用域D、 同一过程中用“Dim ”定义的局部变量和用“ Static ”定义的局部变量具有相同的 生存周期67. 一个菜单项是不是一个分隔条，由（ B ） 属性决定D、 VisibleA、Name （名称） B、Caption C. Enabled68.Integer类型的变量可存的最大整数是D ）A、25569.A、70.A、71.A、72.A、73.A、B、256）对象在运行时一定不可见B、 Timer下面（BLine形状控件所显示的图形不可能是（ 圆 B、椭圆C、 32768D、 32767C、 Text）C、圆角正方形以下（A ）方式打开的文件只能读不能写B、 OutputD ）Inp ut 对象不具有Caption属性。
Label B、 Option由 For k = 35 TO 0 St ep 3： 0C、 RandomB、12D、 OptionD、等边三角形D、 AppendC、Nex t kForm D、 Timer循环语句控制的循环次数是（A ）C、-11D、-10D、 AppendA )B、12A、076.想要改变控件在窗体中的左右位置，可以修改该控件的（A、TopB、 LeftC、-11C、 Width77•要在文件列表框中显示不同类型的文件可以通过设置（D、-10B ）属性D、 RightA ）属性D、 Listlndex ）属性会失去作用A、 Pattern B、 Path C、 Filename78. 窗体的DrawWidth属性值设置为大于1时，下列（CA、 Backcolor B、 FillStyle C、 Drawstyle D、 Fillcolor79. 如果在图片框上使用绘图方法绘制一个圆，则图片框的（A ）属性不会对该圆的外 观产生影响A、 BackcolorB、 ForeColorC、 DrawWidthD、 Drawstyle74. 以下（A ）方式打开的文件只能读不能写。
C、 RandomA、 Input B、 Output75. 由For k = 35 TO 0 St ep 3： Nex t k循环语句控制的循环次数是（80. 菜单编辑器中呈现以下状态，程序运行后下列（D ）操作无法执行“复制”功能Arm ctri+cB、 直接按下Ct rl+CC、 鼠标单击“复制”菜单项D、 “ Alt+E ” ——〉“ Alt+C ”三. 填空题81. VB的字符串运算符有__+__和— 两种，其中运算符两边的表达式类型必须为字符型的运算符是 &_82. 设 x=6,y=4,z=7,下面表达式的值是 true _x>y and y>x-z or x
87. 在代码设计中，为了给某控件的BackColor属性赋一个颜色值，可以有三种方法获得颜色，它们分别是QBColor()函数、颜色常数和__ RGB()函数 88. a1和a2之中有且只有一个与a3的值相等,相应的Visual Basic逻辑表达式是a1=a3 Xora2二a3 (或 a1二a3 And a<>a3 Or a1<>a3 And a2二a3) 89. 以图片框Picture1的中心为圆心，以1000为半径在Picture1上画一个圆的方法是_pictu re1.circle (picture1.width/2,picture1.height/2),1000 90. 设init的初值为10，则由下列循环语句控制的循环次数是旦Do While init >=5Init=init-1Loop91. 窗体的Enabled属性值为—False 时，该窗体上的按钮、文本框等控件就不会对用户的操作做出反应92. 在Visual Basic中，变量从它的作用范围来看可分为全局变量、模块级变量和局部 变量3种93. Visual Basic提供了对文件的三种存取方式,分别是 「Input —、__out put 和_ Append _ 。
94. 8 语句 Picture1.Circle(800,1000),500 的含义是以图片框 Picture1 中的(800，1000) 为圆心，以500为半径画一个圆95•用Visual Basic开发应用程序的〃三步曲〃是：—界面设计—、—属性设置 和—代码设计 96. 在VB中，若要产生一消息框，则可用函数__ msgbox 来实现97. 已知n为一个三位正整数，写出求n中十位数的Visual Basic表达式―(n\10) mod10 98. 若要获得用户在驱动器列表控件中所选择的驱动器,可通过访问该对象的_ Drive _ 属性来实现99. 表达式(4.8\2)*7 Mod 3.14的运行结果是___2 100. 目录列表框(DirListBox)中，当前文件夹对应项目的Listlndex属性值为_ T 101. 利用Line方法可以画 直线 、 矩形 和 实心矩形 102. Visual Basic的菜单可分为—下拉式—菜单和 弹出式 菜单两种103. 在Visual Basic中， 文件列表框 和 通用对对话框 控件具有Filename属性104. 在VB中，用于产生输入对话框的函数是―Inputbox ,其返回值类型为__字符型 ,若要利用该函数接收数值型的数据，则可利用___Val_—_函数对其返回值进行转换而得 到。
105. 用Pic tureBox和I mage控件装载图形图像时，为了使图形图像与所在的控件大小相等, 可以改变106. 形状的Shape属性可以取___6____个值，分别代表各种不同的形状107. 如果在图片框上使用绘图方法绘制一个圆，则图片框的__B0£k£2l0I一属性不会对该圆 的外观产生影响PictureBox的 stretch 属性和Image的—autosize _ 属性108. 求d与b之积除以c的余数，用VB表达式为 mod((a*b)/c) 109. Visual Basic常见控件中可以作为其他控件容器的控件有__框架__和―图片框—110. Visual Basic的菜单可在_菜单编辑器一中设计完成若要使某项菜单在运行时不可 见,可设置该菜单对象的 Visible 属性为False来实现；若要使某项菜单在运行 时失效，则应设置菜单项对象—Enabled ____属性为False111. 在代码设计中，为了使定时器Timer1能处于关闭状态，使系统不响应它的Timer ()事 件，可以设置 Timer1.Enabled二False 或 _ timer1.Interval=0 _。
112. 表达式 Chr(Asc(“R”)- Asc(“A”)+Asc(“a”))的值是__ 匚__113. Print Mid$(Str$(-1234),3, 2)的结果为_23 程序阅读题四、阅读下列程序，写出运行结果1、 程序1Private Sub Command1_Click()Dim x As Integer, s As Integerx = Val(Inp ut Box("请输入一个正整数二"))If x < 5 ThenElses = s + xEnd Iftext1.Text = "s=" + Str(s)End Sub程序运行时连续3次单击Commandl,且设输入的数是5,2和4时，分别写出文本框Textl.Text 的值2、 程序2Private Sub Form_Click()Forml.Clsw = 3For k = 2 To 6 Step 2Forml.Print "w="; w, "k="; kw = w + lNext kForml.Print "w="; w, "k="; kEnd Sub写出程序运行时单击窗体后，Form1上的输出结果3、 程序3Private Sub Form_Click()Dim x As StringDim i As Integer, n As IntegerForml.Clsx = "ABCDEFGHKL"n = Len(x)For i = n To l Step -2Forml.Print Tab(20 - i); Mid(x, i, l)Next iEnd Sub写出程序运行时单击窗体后，Form1上的输出结果。
4、 程序4Dim a As Integer, y As IntegerPrivate Sub Form_Load()Open "c:\a1.dat" For Output As #1Close #1End SubPrivate Sub Command1_Click()Open "c:\a1.dat" For Append As #1Call aa(5)y = y + aPrint #1, "y="; y, "a="; aClose #1End SubSub aa(i As Integer)x = 1 Do Until x > ia = a + xx = x + 3LoopEnd Sub写出程序运行时连续3次单击Commandl后，al.dat文件的最终结果 程序阅读题答案:1.s=5s=10s=402.w=3 k=2w=4 k=4w=5 k=6w=6 k=8DB4.y=5 a=5y=15 a=10y=30 a=15五. 程序填空题 仔细阅读下列各小题的程序说明和相应的程序，在每小题提供的若干可选答案中，挑选一个 正确答案1. 【程序说明】本程序求3〜100之间的所有素数(质数)并统计个数，同时将这些素数从小到大依次写入顺序文件e： \dataout.txt，素数的个数显示在窗体Form1上。
程序】Private Sub Command1_Click()Dim count As Integer, flag As BooleanDim ti As Integer, t2 As Integer(1)count = 0For ti = 3 To 100flag = TrueFor t2 = 2 To Int(Sqr(t1))If (2) Then flag= FalseNext t2(3)count = count + 1Write #1, t1End IfNext t1(4) Close #1End Sub(1) A、Open e:\dataout.txt For Output As #1B、Open e:\dataout.txt For Input As #1C、Open e:\dataout.txt For Output As #2D、Open e:\dataout.txt For Output As #1(2) A、t2\t1=0 B、t1 Mod t2=0 C、t1\t2=0 D、t2 Mod t1=0(3) A、If flag Then B、If t2>t1 ThenC、If t1>t2 Then D、If t2>int(sqr(t1)) Then(4) A、Forml.Prin t"素数个数："；countB、 Print #l "素数个数："；CountC、 Forml.Prin t"素数个数："；countD、 Form1.Prin t"素数个数："：Count2. ［程序说明］由输入对话框输入(设n为大于零且小于30的自然数),计算下列表达式并在标签框Label1 上显示。
1/(1*2)+1/(2*3)+1/(3*4)+……+1/(n *(n+1))【程序】Private Sub Form_Click()Dim n As Integer, sum As Double, k As IntegerDo (5)n = Val(InputBox("n=", "请重输"))Loopsum = 0(6)Dok = k + lsum= (7)Loop Until k >= nLabell.Caption = "Sum" + Str(sum)End Sub(5) A、While n<=O or n>=30 B、While n<=O And n>=30C、Until n>0 Or n< 30 D、Until n> =0 and n<= 30(6) A、k=2 B、k=1 C、K=-1 D、k=0(7) A、1/(k*(k+1)) B、l/(k-1)*kC、sum+1/(k*(k+1)) D、sum+1/k*(k+1)3. 【程序说明】本程序用于处理文本框Textl.Text中的内容，假设文本框中有偶数个字符要求将文本框 从头尾至中间依次各取字符，组成一个新的字符串str2，并在窗体上输出。
如：Textl.Text = 〃12345678 〃，则 Str2 = 〃18273645 "【程序】Private Sub Form_Click()Dim Str1 As String, Str2 As StringStr1 = TeXt1.TextStr2 = 〃〃m = 0 Do(8)Str2= Str2+ (9)Str2= Str2+ (10)m = m + lLoopforml.Print Str2End Sub(8) A、While m C、Until m> Len(Str1)/2 D、Until m< Len(Str1)/2(9) A、Mid(str1,m,1) B、 Mid(str1,len(str1)-m,1)C、Mid(m,Strl,l) D、Mid(Str1,m+l,1)(10) A、Mid(str1,len(str1)-m+1,1)B、 Mid(str1,m,1)C、 Mid(str1,len(str1)-m,1)D、 Mid(str1,len(str1)-m+1,1)程序填空题答案：DBACADCADC六、程序填空题1. 下面是一个求n!的自定义函数代码Private Function JC(n As Integer) As LongDim Result As LongIf p = 1 ThenResult = 1ElseResult =(1)End IfJC =(2)End Function2. 下面的程序完成以下功能：单击窗体上的“测试"(Commandl)按钮，出现一个输入框, 要求输入一串字符，将该字符串中的非字母字符删除后，显示在窗体中的一个文本框(Text1) 中。
Private Sub Command1_Click()Dim St1, St2 As StringDim Ch As (3)Dim L As IntegerSt1 = Inpu tBox(〃请输入一串字符〃，〃字符串输入〃)L =(4)St2 = 〃〃For i = 1 To LCh = Mid(St1， i， 1)If (Ch > 〃A〃 And(5) ) Or (Ch > 〃a〃 And Ch < 〃z〃) ThenSt2 = St2 + ChEnd IfNext iText1.Text =(6)End Sub3. 下面的程序完成以下功能：窗体上有两个命令按钮“产生”(Commandl)和“排序” (Command2)单击“产生”按钮时，随机产生10个［1, 20］范围内的整数放在数组A中，并在窗体上输出单击“排序”按钮时，用选择法排序这10个数并输出Dim A(l0) As IntegerPrivate Sub Command1_Click()Dim i As IntegerRandomizePrint "排序前的数列："For i = 1 To 10A(i) =(7)Print Str(A(i)) + " ";Next iPrintEnd SubPrivate Sub Command2_Click()Dim i, j, Min, Temp As IntegerPrintPrint "选择排序后的数列："For i = 1 To 9Min = A(i)For j = (8) To 10If A(j) < Min ThenTemp = A(j)A(j) =(9)Min = TempEnd IfNext jA(i) = Min(10)For i = 1 To 10Print Str(A(i)) + " ";Next iPrintEnd Sub程序填空题答案 ：(1) n*Jc(n-1) (2) result (3) string (4) len(str) (5) ch<"z" (6) st2 (7) int(Rnd*20)+1 (8) I+1 (9) min (10) next i七、程序填空题1.程序说明：利用一个计时器，一个标签框和两个命令按钮制作一个动态秒表， 单击“结束”命令按钮，秒表结束计时，并在标签框显示运行时间，如“运行 了0小时2分10秒”。
假设对象的属性都在程序代码中设定)一个动态秒 程序代码如下Dim x As LongDim h As Integer, m As Integer, s As IntegerPrivate Sub Form_Load()Form1. Caption = "动态秒表(小时:分:秒)"Commandl. Cap tion 二"开始[&S]"Command2. Cap tion 二"结束[&E]"Labell. Alignment = 2Labell. Caption = "0:0:0"Timerl. Interval = (l)Timerl. Enabled = Falsex = 0End SubPrivate Sub Commandl_Click()(2)End SubPrivate Sub Command2_Click()Timerl. Enabled = Falsex = (3)Labell. Caption = "运行了" + Str(h) + "小时" + Str(m) + "分" + Str(s)+ "秒"End SubPrivate Sub Timerl_Timer()x = x + lh = (4)m = (x Mod 3600) \60s = (5)Labell. Caption = Str(h) + ":" + Str(m) + ":" + Str(s)End Sub2.程序说明：己知自然对数的底数e的级数表示如下：e=l+l/(l!)+l/(2!)+...+l/(n!)+...本程序利用函数过程fact ()求e，其中的绝对值小于IE-8的项被忽略。
程序代码如下Private Function fact(m As Integer) As Single '求 m!的函数Dim x As Single, i As IntegerFor i = 1 To mX= (6)Next ifact = xEnd FunctionPrivate Sub Form_Click()Dim e As Single, item As SingleDim n As Integere = 1: n= (7)Don = n + 1item= (8)e = e + itemLoop While(9)程序填空题答案:⑴、1000 ⑵、Timerl. Enabled二 True 或 Timel= True⑶、0 ⑷、x\ 3600 ⑸、x Mod 60 (6)、x*I(7)、0 ⑻、1/fact(n) (9)、Abs(item)>=0. 00000001八、 1.分别写出下面两段程序执行三次后的结果Private Sub Form_Click() Dim i As Integer StaticjAsInteger j = j + 1 i = i + 1 Print"i=";Str(i), "j="; Str(j)End SubDim i, j As Integer Private Sub Form_Click() j = j + 1i = i + 1Print"i=";Str(i), "j="; Str(j)End Sub参考答案:1 左: 右:I=1 j=1 I=1 j=11=11=1j=2j=31=21=3j=2j=3九. 写出下面程序执行后的结果(其中在Form_Click ()事件中调用了子过程Proc)。
Priva te Sub Form_Click()Dim x, y As IntegerDim u, v As Integerx = 1y = 2u = 3Proc x, yu = u + x + yPri nt 〃x二〃；St r(x), 〃y二〃；St r(y), ""u二〃；St r(u)End SubPrivate Sub Proc(ByVal a As Integer, ByRef b As Integer)Dim u As Integera = a + 1b = b + 1u = u + a + bPri nt ""a二〃；St r(a), ""b二〃；St r(b), ""u二〃；St r(u)End Sub程序阅读题答案：2a=2 b=3 u=5x=1 y=3 y=5十.用输入对话框输入x,根据下式计算对应的y,并在窗体上输出y的值o x=10注：程序写在命令按钮Commandl的Click事件中答案程序如下:Private Sub Command1_Click()Dim x As Singlex = Val(Inpu tBox(""x二〃，〃请输入数据""))Select Case xCase Is > 10 y = Sqr(x) + Sin(x)Case 10y = 0Case Elsey = 2 * x 八 3 + 6End SelectPrint 〃y二〃；yEnd Sub十一.共用户界面如下图所示，用于实现左右两个组合框中数据的左移和右移功能。
程序开 始运行时，在左边组合框中生成10个由小到大排列的随机3位正整数(假设在设计阶段该组合框的Sorted属性值已设置为True, 现要求完成：⑴、单击“>>”按钮，左边组合框中的10个数全部移到右边组合框中，并由大到小排列， 同时使“VV”按钮能响应，“>>”按钮不能响应⑵、单击“VV”按钮，右边组合框中的10个数全部移到左边组合框中，并由小到大排列， 同时使“>>”按钮能响应，“VV”按钮不能响应⑶、单击“结束”按钮，结束程序运行用户界面部分程序代码如下:Private Sub Form_load()Dim i As IntegerLabel1.Caption ="组合框 1"Label2.Caption ="组合框 2"CmdRight.Caption=〃＞＞〃CmdRight.Enabled= TrueCmdLeft.Caption =〃vv〃CmdLeft.Enabled =FalsecmdExit.Caption =〃结束〃ComboLeft.Text =〃 〃For i = 1 To 10ComboLeft.AddItem Int(Rnd * 900) + 100 Next iComboRight.Text = ""End Sub请分别编写3个命令按钮的单击事件。
答案程序如下：Private Sub cmdExit_Click()EndEnd SubPrivate Sub CmdLeft_Click()Dim i As Integer, last As Integerlast = ComboRight.ListCount - 1For i = 0 To lastComboLeft.AddItem ComboRight.List(0) ComboRight.RemoveItem 0Next iCmdLeft.Enabled = FalseCmdRight.Enabled = TrueEnd SubPrivate Sub CmdRight_Click()Dim i As Integer, last As Integerlast = ComboLeft.ListCount - 1For i = 0 To lastComboRight.AddItem ComboLeft.List(last - i)ComboLeft.RemoveItem last - iNext iCmdLeft.Enabled = TrueCmdRight.Enabled = FalseEnd Sub。
