vb习题
一.选择题
1．在Visual Basic 6.0集成开发环境中, 功能键F5的功能是_____.
(A) 进入帮助窗口(B) 进入编辑状态
(C) 进行上下窗口的切换(D) 运行程序
2. 下面四个选项不是事件的是_____.
(A) Load (B) Enabled
(C) Unload (D)Activate
3. 在Visual Basic中，称对象的数据为_____.
(A)属性(B) 方法(C) 事件(D) 封装
4. 下列操作不能打开属性窗口的是_____.
(A) 执行【视图】菜单中的【属性窗口】命令
(B) 按F4键
(C) 按Ctrl+T
(D) 单击工具拦上的属性窗口按钮
5. MsgBox函数返回值的类型是_____.
(A) 数值(B) 字符串
(C) 变体(D) 数值或字符串(视输入的数据而定)
6. 在Visual Basic 6.0中, 常量12.12!的数据类型是_____.
(A) 整型(B)单精度实型
(C) 双精度型(D) 长整型
7. 表达式FIX(-23.87)+INT(24.56)的值为_____.
(A) -1 (B) 0
(C) 1 (D) 2
8. 四个字符“D”，“Z”，“A”，“9”的ASCII码值最大的是_____.
(A)“D”(B)“Z”
(C)“A”(D)“9”
9. m , n是整数, 且n>m, 在以下四个语句中, 能将y赋值为一
个m～n之间(含m, n)任意整数即满足m≤y≤n的是_____.
(A)y = INT(RND*(n-m+1))+m (B) y = INT(RND*n)+m
(C) y = INT(RND*m)+n (D) y = INT(RND*(n-m))+m
10. 下面的四项叙述中错误的是_____.
(A) 在子程序中, 有多个形参时逗号“，”可作为形参间的
分隔符
(B) 在PRINT语句中，有多个输出项时逗号“，”可作为
输出项间的分隔符
(C) 一个DIM语句定义多个数组时，逗号“，”作为数组
间的分隔符
(D)在一行中有多条语句时，逗号“，”可作为语句间的
分隔符
11. 下列选项中为字符串常量的是_____.
(A) 6/12/2001 (B)“6/12/2001”
(C) #6,12,2001# (D) 6,12,2001#
12. 执行下列语句时，st$=InputBox(“请输入字符串”，“字符
串对话框”，“字符串”)，当用户输入完毕，按回车按钮
后，st$变量的内容是_____.
(A) 字符串(B) 请输入字符串
(C) 字符串对话框(D) 用户输入内容
13．确定复选框是否选中，可访问的属性是_____.
(A) Checked (B) Selected
(C) Caption (D) Value
14. 使图形能自动随控件大小而改变的控件是_____.
(A) 标签框(B) 框架
(C) 图片框(D)图像框
15. “按相同大小制作”多个控件时，_____是制作的基准.
(A)被锁定的控件(B) 第一个控件
(C) 最后一个控件(D) 主控件
16. 下列叙述不正确的是_____.
(A)一个目标程序所需的所有文件的集合称为工程
(B)VB的工程文件的扩展名为.vbp
(C)工程文件中可包括窗体文件、标准模块文件
（D）工程文件中除了窗体文件是可选的外，其他文件都是必须的
17. 假定程序中有以下语句：
I = MsgBox（“String1”,,“String2”，“String3”，2）
执行该语句后，将显示一个信息框，此时如果单击“确定”按钮，则I的值为_____.
(A) String1 (B) String2
(C) String3 (D) 1
18. 以下选项中, 不是Visual Basic 6.0默认控件名称的是_____.
(A) Command1 (B) Text1
(C) Labell (D)Change
19. 下面控件中不能接收焦点的是_____.
(A) 命令按钮 (B)标签框
(C) 文本框(D) 单选按钮
20. 复选框的Value取值不包括_____.
(A) 2 (B) 3 (C) 0 (D) 1
21. 为了使标签框的内容靠右显示, 应把Alignment属性设置为_____.
(A) 0 (B) 2 (C) 1 (D) 3
22. 获得随机文件记录长度, 应使用_____进行计算.
(A) FileLen函数和FrreFile函数
(B)Lof函数和Len函数
(C) Eof函数和Len函数
(D) Lof函数和Lof函数
23. 使窗体、图片框或图像框装入图形所使用的函数是_____.
(A) Pictureload (B) LoadPicture
(C) LoadImage (D) ImageLoad
24. 计算a的自然对数使用的Visual Basic表达式是_____.
(A)Log (a) (B) Lg (a) (C) Ln (a) (D) Lge
(a)
25. 方法Print 6 Mod-5输出结果是_____.
(A)“6 Mod-5”(B) 6 Mod-5
(C) -1 (D) 1
26．假定Bln1是列表框, 给列表框增加一个列表项正确的方法是_____.
(A) Bln1 = Add“计算机”(B) Bln1.Add“计算机”
(C) Bln1 = Additem“计算机”(D) Bln1.Additem“计算机”
27. 返回当前日期的函数是_____.
(A) Day(Now) (B) Date(Now)
(C) Dat(Now) (D) …Day(Now)
28. 若要将某命令按钮设置为默认命令按钮, 则应设置为True的属性为_____.
(A) Value (B) Cancel (C) Default (D) Enabled
29. 以下叙述正确的是_____.
(A)组合框包含了列表框的功能
(B) 列表框包含了组合框的功能
(C) 列表框和组合框的功能无相近之处
(D) 列表框和组合框的功能完全相同
30. 设置命令按钮的标题文字时, 应改变的属性是_____.
(A) Text (B) Name (C) Caption (D) (名称)
31. 在设计菜单时, 如果要在菜单中加入一个菜单分隔项, 则
菜单分隔项的标题必须设
置为_____.
(A) 加号(＋)(B)减号(－) (C) 星号(*) (D) 叹号(! )
32. 可决定窗体的左上角是否有控制菜单的属性是_____.
(A) ControlBox (B) MinButton
(C) MaxButton (D) BorderStyle
33. 若要获得滚动条的当前值, 可访问的属性是_____.
(A) Text (B) Value (C) Max (D) Min
34. 使图形能自动按控件大小而改变的控件是_____.
（A）图片框(B) 图像框(C) 标签框(D) 框架
35. 若要设置文本框中所显示的文本颜色, 使用的属性为_____.
(A) BackColor (B) FillColor (C) ForeColor (D) BackStyle
36. 可用Print方法在窗体中显示文本信息, 若想清除这些信息, 可用的方法是_____.
(A) Cls (B) Clear
(C) RemoveItem (D) Delete
VB补充题库
37. 设置组合框的风格, 重要的属性是_____.
(A) Backstyle (B) Borderstyle
(C)Style (D) Sorted
38. 若要获得滚动条的当前值, 可访问的属性是_____.
(A) Text (B) Value
(C) Max (D) Min
39. 在Select Case结构中, 使用“to表达式”来指定一个范围
时，必须把_____的值写在前面.
（A）随便（B）0 （C）较大（D）较小
40. 要禁用计时器控件，需要将_____属性设置为False.
（A）Enabled （B）Visible （C）Timer （D）Interval
41. 图像框中的Stretch属性为True时, 其作用是_____.
(A) 只能自动设置图像框长度
(B) 图形自动调整大小以适应图像控件
(C) 只能自动缩小图像
(D) 只能自动扩大图像
42. 当一个工程含有多个窗体时, 其中的启动窗体是_____.
(A) 启动Visual Basic时建立的窗体
(B) 第一个添加的窗体
(C) 最后一个添加的窗体
(D) 在“工程属性”对话框中指定的窗体
43. 图像框(Image)和图片框(PictureBox)在使用时有所不同, 以下叙述中正确的是_____.
(A) 图片框比图像框占内存少
(B) 图像框内还可以包括其他控件
(C) 图片框有Stretch属性而图像框没有
(D) 图像框有Stretch属性而图片框没有
44. 用下面的语句在窗体上建立一个名为CommonDialog1的通用对话框，语句为：
CommonDialog1.Action = 2
则以下语句与之等价的是_____.
(A) CommonDialog1.ShowOpen
(B) CommonDialog1.ShowSave
(C) CommonDialog1.ShowColor
(D) CommonDialog1.ShowFont
45. 下列各组变量声明正确的是_____.
(A) Dim abx as integer, num as single
(B) Dim I%，n$ as integer
(C) Dim a%，b%，c%，a$
(D) Public dim n%
46. 以下关于选项按钮的说法，正确的是_____.
(A) 选项按钮的Enabled属性用于决定该按钮是否被选中
(B) 选项按钮的Value属性用于决定该按钮是否被选中
(C)选项按钮的Checked属性用于决定该按钮是否被选
中
(D) 选项按钮的Visible属性用于决定该按钮是否被选中
47. 如果想在程序中反复使用一个数据“01/01/2000”，为了
避免在编写程序时反复输入这个数据，也为了一次能够修
改程序中所有用到这个数据的语句，可以采用_____.
(A) 将这个数据声明为字符串常量, 用一个常量标志符代
表它
(B) 将这个数据声明为字符串变量, 用一个常量标志符代
表它
(C) 将这个数据声明为日期型常量, 用一个常量标志符
代表它
(D) 将这个数据声明为日期型变量, 用一个常量标志符代表它
48. 如果要显示Visual Basic中的预定义输入对话框, 需要调
用Visual Basic提供的_____函数.
(A) MsgBox (B) Open
(C) OutPut (D) InputBox
49. 如果要求设置定时器时间间隔为0.5秒, 那么它的Interval 属性值应该等于_____.
(A) 5000 (B) 500
(C) 50 (D) 5
50. 不能作为容器使用的对象是_____.
(A) Frame (B) Form
(C) Picture (D) Image
51. 下列关于Do…Loop语句的叙述不正确的是_____.
(A) Do…Loop语句采用逻辑表达式来控制循环体执行的
次数
(B)当Do While…Loop或Do Until…Loop语句中While
或Until后的表达式的值为true时, 循环继续
(C) Do…Loop while语句与Do…Loop until语句都至少执
行一次循环体
(D) Do while…Loop语句与Do until…Loop语句可能不执行循环体
52. 当条件为5 (A) If 5 (B) If 5 (C) If 5 (D) If 5 53．设有数组声明语句 Option Base 1 Dim A（-3 to -1，2）As Integer 则数组A中定义的数组元素有_____. (A) 6个(B) 9个(C) 12个(D) 15个 54. 有如下程序, 该程序执行后, 在输入框中输入数字15.875, 则执行结果为_____. I = InputBox(“请输入一个数据”) j = InStr(I,“.”) Print j (A) 3 (B) 15 (C) 0.275 (D) 16 55. 有如下程序, 运行该段程序后将_____. Private Sub Command1_Click( ) For I = 1 To 10 Step 0 k = k + 2 Next I End Sub (A)形成无限循环(B) 循环体执行一次后结束循环 (C) 语法错误(D) 循环体不执行即结束循环 56. “x是小于100的非负数”，用VB表达式表示正确的是_____. (A) 0≤x<100 (B) 0<=x<100 (C) x>=0 and x<100 (D) 0<=x or x<100 57. 在Sub过程与Function过程的描述中正确的是_____. (A) Sub过程可以使用Call语句或直接使用过程名调用, 而Function过程不能 (B) Function过程可以有参数, 而Sub过程没有 (C) 两种过程的参数传递及返回方式相同 (D)Sub过程不能直接返回值，而Function过程可以通过过程名直接返回值 58. 窗体存在文本框Text1, 下面4条语句中, 能在窗体的文 本框中显示“等级考试”的语句是_____. (A) Text=“等级考试”(B) Text1.Text=“等级考试” (C) Print“等级考试”(D) Print Text.Text1=“等级考试” 59. 决定窗体标题条显示内容的属性是_____. (A) Name (B) Text (C) Caption (D) Top 60. 默认值是Value的控件是_____? (A)单选框(B) 文本框(C) 标签框(D) 列表框 61．调用Windows的应用程序使用的函数是_____. (A) Function (B) Call (C) Shell (D) Sub 62. 下列程序： Private Sub Text1_KeyPress(KeyAscii As Integer) Print Ucase (Chr (KeyAscii)) End Sub 运行后在文本框中输入a不按回车键, 窗体上的输出结果是_____. (A) A (B) a (C) 65 (D) 没有输出 63. 关于Exit For的使用说明正确的是_____. (A) Exit For语句可以退出任何循环 (B) 一个循环中只能有一个这样的语句 (C) Exit For表示返回For语句去执行 (D)一个For循环中可以有多条Exit For语句 64. 对以下过程不正确的调用语句是_____. Pubiic Sub add( ) …… End Sub (A) Call add (B) add( ) (C) add (D) Call add( ) 65．下列关于KeyDown事件的参数的说法错误的是_____. (A) Shift参数是KeyDown事件发生时, Shift, Ctrl和Alt三个键的状态 (B)参数KeyCode与KeyPress事件的参数KeyAscii是一样的 (C) KeyDown事件的参数与KeyUp事件的参数一致 (D) KeyDown事件的参数不能省略 66. 同用对话框中能打开“颜色对话框”的方法是_____. (A) ShowOpen (B) ShowSave (C) ShowColor (D) ShowPrinter 67. 能对顺序文件进行输出的语句是_____. (A) Put (B) Get (C) Write (D) Read 68. 给文件改名的VB语句正确的是_____. (A) Name原文件名to新文件名 (B) Rename原文件名to新文件名 (C)Name原文件名as新文件名 (D) Rename原文件名as新文件名 69. 下面叙述中不正确的是_____. (A) 对顺序文件中的数据操作只能按一定的顺序执行 (B) 顺序文件结构简单 (C) 能同时对顺序文件进行读写操作 (D) 顺序文件的数据是以字符(ASCII码)的形式存储的 70. 下列程序： Private Sub Command1_Click( ) x1 = InputBox (“请输入”) Print x1 & 123 End Sub 运行时，若输入123, 将输出_____. (A) 123123 (B) 246 (C) 123 (D) 显示出错信息 71. 下列程序： Private Sub Form_Click( ) For j = 10 To 6 Step -1 k = j Next j Print k；j End Sub 运行时输出的结果是_____. (A) 5 5 (B) 5 6 (C) 6 5 (D) 6 6 72. 下列程序： DefStr X-Z Private Sub Form_Click( ) x =“a”：y =“b”：z =“c” x =“X”：y =“Y”：z =“Z” x = y ：y = z：z = x Print x；y；z End Sub 运行时输出的结果是_____. (A) bcb (B) XYZ (C) abc (D) YZY 73. 下列程序执行的结果为_____. Private Sub Form_Click( ) x = Int(Rnd + 4) Select Case x Case 5 Print“优秀” Case 4 Print“良好” Case 3 Print“通过” Case Else Print“没有通过” End Select End Sub (A) 优秀(B)良好(C) 通过(D) 没有通过 74. 有如下程序, 该程序执行的结果为_____. Private Sub Form_Click( ) Dim I, j As Integer Dim a, b As Integer I = 1472.25 j = 1472.55 a = Clnt(I) b = Clnt(j) Print a,b End Sub (A) 1472 1473 (B) 1472 1472 (C) 1473 1473 (D) 1472.25 1472.55 75. 下列程序： Private Sub Form_Click( ) a = 100 Do s = s + a a = a + 1 Loop While a>111 Print a End Sub 运行时输出的结果是_____. (A) 100 (B) 120 (C) 201 (D) 101 76. 下列程序： Private Sub Form_Click( ) x = -5 s = InputBox (“请输入一个整数”) Select Case s Case Is > 0 y = x + 1 Case Is = 0 y = x + 2 Case Else y = x + 3 End Select Print x；y End Sub 运行时，从键盘输入5，输出的结果是_____. (A) -5 -2 (B) -5 -4 (C) -5 -3 (D) -5 -5 77. 下列程序： Private Sub Form_Click( ) Dim z1 As Integer, z2 As Integer z1 = 15.6 z2 = 15.6 Print z1；z2 End Sub 运行后输出的结果是_____. (A) 15.6 15.6 (B) 16 15.6 (C) 15.6 16 (D) 16 16 78. 下列程序： Private Sub Form_Click( ) For i = 1 To 5 For j = i To 5 k = k + 1 Next j Next i Print k End Sub 运行后输出的结果是_____. (A) 5 (B) 10 (C) 15 (D) 25 79. 下列程序的执行结果为_____. Private Sub Command1_Click( ) k = 0 For I = 1 To 3 a = I ^ I ^ k Print a； Next I End Sub （A）111 （B）123 （C）000 （D）149 80. 下列程序： Private Sub Form_Click( ) A = 0 For j = 1 To 10 A = A + j \ 3 + j Mod 3 Next j Print A End Sub 运行后输出的结果是_____. (A) 20 (B) 25 (C) 30 (D) 35 81. 下列程序： Private Sub Form_Click( ) s = 0 i = 1 Do While i <= 10 If ( i \ 5 ) *5 = i Then s = s + i i = i + 1 Else i = i + 1 End If Loop Print s End Sub 运行后输出的结果是_____. (A) 10 (B) 15 (C) 20 (D) 25 82. 下列程序： Option Base 1 Private Sub Form_Click( ) d = 0 c = 10 x = Array (10, 22, 15, 20, 20, 25, 40, 40, 50, 55) For i = 1 To 10 If x( i )>c Then d = d + x( i ) c = x( i ) Else d = d – c End If Next i Print d End Sub 运行后输出的结果是_____. (A) 48 (B) 62 (C)76 (D) 82 83. 下列程序段的执行结果为_____. Private Sub Command1_Click( ) Dim a（3，3） For m = 1 To 3 For n = 1 To 3 If n = m Or n = 3－m + 1 Then a（m，n）= m + n Else a（m，n）= 0 End If Next n Next m For m = 1 To 3 For n = 1 To 3 Print a（m，n）； Next n Print Next m End Sub （A）111 （B）204 （C）000 （D）101 111 040 000 010 111 406 000 101 84．下列程序： Private Sub Form_Click( ) score = Val (InputBox (“40”，“60”，“80”)) Select Case score Case Is< 60：a$ =“F” Case 60 To 69：a$ =“D” Case 70 To 79：a$ =“C” Case 80 To 89：a$ =“B” Case Else：a$ =“A” End Select Print a$ End Sub 运行时单击窗体后，按回车键，输出的结果是_____。 (A) 错误信息(B) D (C) C (D) B 85. 下列程序： Private Sub Form_Click( ) t = Val (InputBox (“请输入一个数：”)) x = t – 1 Select Case t Case 1, 3, 5, 7, 9 y = t ^ 2 Case 2, 4, 6, 8, 10 y = t ^ 3 Case Else y = 2 * t End Select Print x；y End Sub 运行时从键盘输入5.5, 输出的结果是_____. (A) 4.5 11 (B) 4.5 25 (C) 3.5 11 (D) 3.5 25 86．下列程序： Private Sub Form_Click( ) A$ =“1234512345123451234512345” k = InStr (A$，“3”) Do While k>0 b = b + 1 A$ = Mid (A$, k+1) k = InStr (A$，“3”) Loop Print b End Sub 运行后输出的结果是_____. (A) 3 (B) 4 (C) 5 (D) 6 87. 下列程序： Private Sub Form_Click( ) k = 1 For i = 5 To 1 Step -1 t = t *10 + k s = s + t Next i Print s End Sub 运行后输出的结果是_____. (A) 11111 (B) 54321 (C) 12345 (D) 55555 88. 下列程序： Private Sub Form_Click( ) Dim str1 As String * 1 Dim str2 As String str1 =“A” For i = Asc (str1) To Asc (str1) +3 Str2 = Str2 + Chr( i ) Next i Print Str2 End Sub 运行后输出的结果是_____. (A) DCBA (B) ABCD (C) CBA (D) ABC 89. 下列程序： Private Sub Form_Click( ) a$ =“等级考试” b$ =“＋－* /” For j = 1 To 4 c$ = c$+Mid$(a$, j, 1)+Right$(b$, 1) Next j Print c$ End Sub 运行时输出的结果是_____. (A) 等-级-考-试- (B) 等*级*考*试- (C) 等/级/考/试/ (D) 出错 90．下列程序： Private Sub Form_Click( ) For j = 1 To 3 Print Tab(3 * j)；(2 * j -1)*( 2 * j -1)； Next j Print End Sub 运行时输出的结果是_____. (A) 1 (B) 1 6 10 6 10 (C) 1 9 25 (D) 1 9 25 91. 下列程序运行后, 整型变量n的值为_____. Private Sub Command1_Click( ) n = 0 For I = 1 To 100 If I Mod 4 = 0 Then n = n + 1 Next I End Sub （A）5050 （B）25 （C）26 （D）33 92. 下列是一个循环结构的程序, 循环体内的语句将执行_____次. Private Sub Command1_Click( ) K = 0 For I = 1 To 10 For j = 1 To 100 K= K + 1 Next j Next I End Sub （A）0 （B）10 （C）100 （D）1000 93. 有如下语句, 执行后该段语句的循环次数是_____. Private Sub Command1_Click( ) Dim s, I, j As Integer For I = 1 To 3 For j = 3 To 1 Step－1 s = s + 1 Next j Next I Print s End Sub （A）9 （B）10 （C）3 （D）4 94. 下列程序执行后, 变量s的值为_____. Private Sub Command1_Click( ) Dim s As Long , x As Integer s = 0 For x = 1 To 10 Step 2 s = s + x Next x End Sub （A）10 （B）25 （C）50 （D）100 95. 下列程序： Private Sub Form_Click( ) Dim a As String Dim b As String Dim c As String Dim d As String a$ =“124”：b =“123” b$ =“123”：d =“123” Print a + b$ + c +d$ End Sub 运行时输出的结果是_____. (A) 124123123 (B) 4*123 (C) 492 (D) 显示出错信息 96. 该段程序执行后, 变量a的值为_____. Private Sub Command1_Click( ) For I = 1 To 2 For j = 1 To 2 For k = 1 To 2 a = a + 2 Next k Next j Next I End Sub （A）4 （B）8 （C）16 （D）32 97. 有如下程序, 该程序执行的结果为_____. Private Sub Command1_Click( ) Dim k As Integer n = 5 m = 1 k = 1 Do While k<= n m = m * 2 k = k + 1 Loop Print m End Sub (A) 1 (B) 5 (C) 32 (D) 40 98. 有如下程序: For i = 1 to 3 For j = 5 to 1 step－1 Print i + j Next j Next i 其循环执行的次数为_____. (A) 12 (B) 13 (C) 14 (D) 15 99. 以下程序输出的结果为_____. Private Sub Command1_Click( ) X = 1 Y = 4 Do Until Y>4 X=X*Y Y=Y+1 Loop Print X End Sub (A) 4 (B) 8 (C) 12 (D) 16 100. 在窗体上添加一个按钮(Command1), 然后编写如下事件过程: Private Sub Command1_Click( ) For I = 1 To 4 X = 4 For j = 1 To 4 X = 3 For k = 1 To 2 X = X+5 Next k Next j Next I Print X End Sub 该程序的执行结果为_____. (A) 13 (B) 26 (C) 30 (D) 40 102. 以下列程序段执行后, 整形变量n的值为_____. n = 0 For I = 1 to 20 step 5 n = n + 1 Next I (A) 50 (B) 4 (C) 15 (D) 210 103. 以下列程序段中Do…Loop循环执行的次数为_____. Private Sub Form_Click( ) n = 5 Do If n Mod 2 = 0 Then n = n \ 2 Else n = n*3 +1 End If Loop Until n = 1 End Sub (A) 4 (B) 3 (C) 5 (D) 2 104. 下列程序在执行时, 在输入框中输入15, 则运行结果是_____. Private Sub Command1_Click( ) Dim Number As Single Number = InputBox(“请输入一个数字”) Select Case Number Case 1 To 5 Form1.Print“你使用了to关键字” Case 6，7，8，9，10 Form1.Print“你使用了列表的方式” Case Is>10 Form1.Print“你使用了Is关键字” Case Else Form1.Print“其他数值显示” End Select End Sub (A) 你使用了to关键字(B) 你使用了列表的方式 (C)你使用了Is关键字(D) 其他数值显示 105. 下列程序段执行结果是_____. Private Sub Command1_Click( ) Dim M(10) For I = 0 To 10 M(I ) = 2*I Next I Print M(M(3)) End Sub (A) 12 (B) 6 (C) 0 (D) 4 106. 在窗体上添加一个命令按钮, 其名为Command1, 然后编写代码如下： Private Sub Command1_Click( ) Dim arr(5 ) As Integer Dim arr1(5 ) As Integer n = 3 For I = 1 To 5 arr(I ) = I arr1(n ) = 2*n+i Next I Print arr1(n)；arr(n) End Sub 程序运行结果为_____. (A) 3 11 (B) 11 3 (C) 13 3 (D) 3 13 107. 下列程序： Private Sub Form_Click( ) x = Val(InputBox(“x=”)) Print fny（x） End Sub Private Function fny（x） If x>0 Then fny = 1 Else fny = -1 End If End Function 运行时从键盘为变量x输入数据5，输出的结果是_____. (A) -1 (B) 0 (C) 1 (D) 5 108. 下列程序： Private Sub Form_Click( ) a%= 40 b%= 30 Call abcd(a%, b%, c%, d%) Print c%；d% End Sub Sub abcd(x%, y%, z%, w%) z% = x% + y% w = x% - y% End Sub 运行后输出的结果是_____. (A) 0 0 (B) 10 70 (C) 70 10 (D) 显示出错信息 109. 下列程序： Private Sub Form_Click( ) Dim a As Integer For i = 1 To 10 Call abcd(a) Next i Print a End Sub Sub abcd(x) x = x + 1 End Sub 运行后输出的结果是_____. (A) 1 (B) 1 2 3 4 5 6 7 8 9 10 (C)10 (D) 显示出错信息 110. 下列程序： Private Sub Form_Click( ) Dim a As Integer For i = 1 To 10 Call abcd(a) Next i Print a End Sub Sub abcd (ByVal x) x = x + 1 End Sub 运行后输出的结果是_____. (A) 0 (B) 1 (C) 10 (D) 显示出错信息 111. 有如下一个Sub过程： Sub mlt(ParamArray numbers( )) n = 1 For Each X In numbers n = n*X Next X Print n End Sub 在一个事件过程中调用该Sub过程： Private Sub Command1_Click( ) Dim a As Integer Dim b As Integer Dim c As Integer Dim d As Integer a = 1 b = 2 c = 3 d = 4 mlt a，b，c，d End Sub 运行该程序，结果为_____. (A) 12 (B) 24 (C) 36 (D) 48 112. 以下程序的功能是由随机函数产生10个在100 ~ 600之间的整数, 然后找出其中最大者, 并记下是第几个数. 程序不完整, 程序空白处应填入的内容是_____. Option Base 1 Private Sub Form_Click( ) Dim a(10) As Integer For j = 1 To 10 a( j ) = Int(501*Rnd +10) Print a( j ) Next j Print p = 1 Max = _______ For j = 2 To 10 If a( j )>Max Then Max = a( j ) p = _______ End If Next j Print“最大值是：”；Max Print“最大值的下标是：”；p End Sub (A) 0 j (B) a(1) j (C) a(1) max (D) 0 max 113. 有如下函数过程： Function gys(ByVal x As Integer, ByVal y As Integer) As Integer Do While y<>0 reminder = x Mod y x = y y = reminder Loop gys = x End Function 以下是调用该函数的事件过程, 该程序的运行结果为_____. Private Sub Command1_Click( ) Dim a As Integer Dim b As Integer a = 100 b = 25 x = gys(a, b) Print x End Sub (A) 0 (B) 25 (C) 50 (D) 100 114. 下列程序： Private Sub Form_Click( ) a = 3： b = 4 For i = 1 To 1 y = cacl（a，b） Next i End Sub Public Static Function cacl（x，y） a = a + 1 cacl = x * y * a End Function 单击窗体后，输出的结果是_____. (A) 10 (B) 11 (C) 12 (D) 13 115. 下列程序： Private Sub Form_Click( ) a = 3： b = 4 Call cacl (A, b) Print A, b End Sub Public Sub cacl (x, ByVal y) x = x + y：y = y + x End Sub 运行时输出的结果是_____. (A) 3 4 (B) 3 11 (C) 7 11 (D) 7 4 116．下列程序： Private Sub Form_Click( ) Dim load As Integer load = InputBox（“请输入一个整数：”） fee = wei（load） Print fee End Sub Function wei（load） If load<20 Then Money = load / 2 Else Money = 20 + load End If Wei = Money End Function 运行时从键盘为变量load提供的数据为20, 输出的结果为_____. (A) 10 (B) 20 (C) 40 (D) 显示出错信息 117. 有如下函数： Private Function firstfunc(x As Integer, y As Integer) As Integer Dim n As Integer Do While n<= 4 x = x + y n = n + 1 Loop firstfunc = x End Function 调用该函数的事件过程如下： Private Sub Command1_Click( ) Dim x As Integer Dim y As Integer Dim n As Integer Dim z As Integer x = 1 y = 1 For n = 1 To 3 z = firstfunc(x, y) Next n Print z End Sub 该事件过程的执行结果为_____. （A）1 （B）3 （C）16 （D）9 118. 下列程序： Dim b Private Sub Form_Click( ) a = 1： b = 1 Print“A=”；a；“,B=”；b Call mult（a） Print“A=”；a；“,B=”；b End Sub Sub mult（x） x = 2 * x b = 3 * b End Sub 运行后输出的结果是_____. (A) A=1, B=1 (B) A=1, B=1 A=1, B=1 A=1, B=3 (C)A=1, B=1 (D) A=1, B=1 A=2, B=3 A=2, B=1 119. 窗体中有如下事件过程: Private Sub Form_MouseDown(Button as Integer,Shift as Integer,X as Single,Y as Single) If Button = 2 then Print“XXXXX” End If End Sub Private Sub Form_MouseUp(Button as Integer,Shift as Integer,X as Single, Y as Single) Print“YYYYY” End Sub 程序运行后，如果在窗体上按下并放开鼠标，则窗体上输出的结果是_____. (A) XXXXX (B) YYYYY (C) 没有任何输出(D) XXXXX，YYYYY 120. 下列程序： Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) If Button = 2 Then Print“Visual Basic”； End If End Sub Private Sub Form_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) Print“程序设计” End Sub 运行后在窗体中单击右键，则输出的结果是_____. (A) Visual Basic (B) Visual Basic程序设计 (C)程序设计(D) Visual Basic 程序设计 121. 下列程序： Option Base 1 Private Sub Form_Click( ) Open“d:\ goods.txt”For Output As #1 a = Array(101,“pen”，“b”，20.5, 103,“book”，“a”， 98.4, 104,“paper”，“a”， 10.3, 105,“knife”，“c”，78.6, 0, , , 0) no = a（1） i = 1 Do Until no = 0 Write # 1，a（i），a（i+1），a（i+2），a（i+3） i = i + 4 no = a（i） Loop Close End Sub 运行后，在文件goods.txt中写入的记录共有_____. (A) 1个 (B) 4个 (C) 5个(D) 显示出错信息 122. 下列程序： Option Base 1 Dim a( ) As Integer, n As integer Private Sub Command1_Click( ) n = InputBox (“请输入数组的下界”) ReDim a (n) s = 0 For j = 1 To n a ( j ) = 2 * j s = s + a ( j ) Next j av = s / n For j = 1 To n If a ( j )>av Then lag = lag + 1 Else sma =sma + 1 End If Next j Print n；“个数的平均值是”；av；“大于平均值的个数 是”；lag；“小于平均值的个数是”；sma End Sub 运行程序后，当用户在输入对话框中输入3，按“确定”按钮后，输出的结果是_____. (A)3个数的平均值是4 大于平均值的个数是1 小于 平均值的个数是2 (B) 3个数的平均值是5 大于平均值的个数是1 小于平 均值的个数是2 (C) 3个数的平均值是4 大于平均值的个数是2 小于平 均值的个数是1 (D) 3个数的平均值是5 大于平均值的个数是2 小于平 均值的个数是1 123. 在窗体上画一个命令按钮(Commdna1)和一个文本框(Text1), 然后编写如下程序： Function fun (ByVal x As Integer, ByVal y As Integer) As Integer fun = Iif (x End Function Private Sub Command1_Click( ) a = 5 b = 10 Text1.Text = Str(fun(a, b)) End Sub （A）5 （B）10 （C）20 （D）15 124. 有如下一个函数过程： Function f (a As Integer) b = 0 Static c b = b + 1 c = c + 1 f = a + b + c End Function 在窗体上添加一个命令按钮, 事件过程如下： Private Sub Command1_Click( ) Dim a As Integer a = 2 For I = 1 To 3 Print f ( a )； Next I End Sub 运行该程序, 单击命令按钮, 输出结果为_____. （A）4 4 4 （B）4 5 6 （C）6 7 8 （D）4 7 9 125. 在窗体上添加一个命令按钮, 名为Command1, 事件过程如下： Option Base 1 Private Sub Command1_Click( ) Dim a(4, 4) As Variant For I = 1 To 4 For j = 1 To 4 a ( I, j ) = ( I-1 )*3 + j Next j Next I For I = 3 To 4 For j = 3 To 4 Print a ( I, j )； Next j Print Next I End Sub 该程序执行后，结果为_____. （A）4 10 （B）7 10 （C）9 10 （D）8 11 12 13 12 13 12 13 9 12 126. 下列程序： Dim x Private Sub Form_Click( ) x = 2 For k = 3 To 5 ab s = s + x Next k Print s End Sub Private Sub ab( ) Dim x x = x + 2 End Sub 运行后输出的结果是_____. (A) 3 (B) 6 (C) 9 (D) 12 127. 下列程序： Private Sub Form_Click( ) x = 3：y = 5 For k = 3 To 5 Call ab (a:=y, b:=x) Next k Print x, y End Sub Private Sub ab (a, ByVal b) w = a a = b b = w End Sub 运行程序后, 输出的结果是_____. (A) 3 3 (B) 3 5 (C) 5 3 (D) 5 5 128. 下列程序： Private Sub Form_Click( ) Open“d:\ goods.txt”For Input As #1 n = 1 Do Until EOF(1) Line Input #1, lines Loop Close #1 Print lines End Sub 数据文件goods.dat的内容： HIF 003 12 16 A TC 005 15 18 运行程序后，输出的结果是_____. (A) 18 (B) A TC 005 15 18 (C) 16 (D) 空 129．Private Sub Command1_Click( ) I = 4 a = 5 Do I = I+1 a = a+2 Loop Until I>=7 Print“A=”；a End Sub 二. 填空题 1. 由Visual Basic系统事先设定的, 能被对象识别和响应的动作称为__ __事件过程 2. 在属性窗口中为对象设置属性值, 应在程序的__ __阶段进行.窗体设计 3. 通用对话框ConnonDialog1,若属性赋值 ConnonDialog1.Action = 1,执行后将弹出.打开对话 框 4. 用Dim abc, cba As integer定义的abc变量类型是整型. 5. 逻辑运算参与运算的两个量都是False时, 结果才为False 的逻辑运算是__ __运算. and 6. a=7, b=3, c=4, 则表达式 a mod 3+b^3/c\5的值为__ __.2 7. 在随机文件中, 增加一条记录所使用的语句是__ __.Put # 8. 控件的名称相同但索引号不同, 称为__ __.控件数组 9. 设置计时器的时间间隔的属性是__ __.Interval 10. 用Line Input语句从顺序文件中读出数据时, 每次读出一 行数据, 所谓一行是指遇到__ __分隔符, 即一行的结束. 回车符 11. 若a=20,b=80, c=70,d=30,则表达式a+b>160 Or (b*c>200 And Not d>60)的值是__ _ _ .Ture 12.双数用字母__ __将尾数与指数分开.E 13. 下列程序段的执行结果为__ __.A=11 14 在Select Case结构中应至少包含一个___ ___子句.CASE 15. 窗体的属性可在属性窗口中设置, 也可在程序中用 ______语句动态设置. 程序代码 16. VB中控件分为ActiveX控件和______两类. 内部控件 17. VB 6.0的对象是__ __和__ __的总称.窗体、控件 18. 下列程序的作用是将三个数按从大到小进行排序，请补充完整. Private Sub Command1_Click( ) a = 4： b = 5：c= 2 If a d = a：a = b：b = d End If If a d = a：a = c：c = d End If If b ______D=B:B=C:C=D End If Print a,b,c End Sub 19. 以下程序用来输出20个在开区间[10, 87)中的随机整数 R, 每行输出4个整数. Private Sub Command1_Click( ) For I = 1 To 20 R = __ __INT(Rnd*77+10) Print R; If __ __ Then Print I MOD 4=0 Next I End Sub 20. 下列过程的功能是：在对多个文本框进行输入时，对第一 个文本框(Text1)输入完毕后用回车键使焦点跳到第二个文本框(Text2)而不是用TAB键来切换. 请填空. Private Sub Text1_KeyDown (KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then ______text2.setfocus End If End Sub 21. 当一个窗体被其他窗体覆盖后, 又要回到该窗体里, 如果自动刷新或重画该窗体上 的所有图形, 应将______属性设置为True. Autoredraw 22. 下列程序段的运行结果为______.3 Sub sele( ) Dim n As Integer I = 21：n = 3 Do While I>n I = I－n Loop Print I End sub Private Sub Command1_Click( ) Call sele End Sub 23. 下列程序： Private Sub Form_Click( ) For k = 1 To 3 If k<=1 Then a=2 * k If k<=2 Then a=2 * k +1 If k<=3 Then a=k Next k Print a End Sub 运行后输出的结果是__ __3 24. 给定程序其功能为：建立并打印除主、副对角线上的元素 为1外，其余元素都为0 的方阵。 Option Base 1 Dim A（5，5） Private Sub Command1_Click( ) For i = 1 To 5 For j = 1 To 5 If __ __ Then A(i, j) = 1 Else __ __I=j or I=6-j a(I,j)=0 Print A(i, j)； Next j print Next i End Sub 25．下列程序的功能是交换两个列表框中的项目。运行程序后，当双击某个项目时，该项目从一个列表框中消失，并出现在另一个列表框中，列表1的名称为L1，列表2的名称为L2，请填空： Private Sub L1_DblClick( ) L2. AddItem__ __L1.Text L1.RemoveItem L1.ListIndex End Sub Private Sub L2_DblClick( ) L1. AddItem__ ___L1.Text L2.RemoveItem L2.ListIndex End Sub Private Sub Form_Activate( ) L1. AddItem“IBM” L1. AddItem“Compaq” L1. AddItem“AST” L1. AddItem“Intel” End Sub 26. 运行下面的程序, 单击窗体后, 在窗体上显示的第1行输 出结果是3, 第2行输出结果是__ __.2 Private Function digit (n As Integer, k As Integer) As Integer digit = 0 Do While k>0 digit = n Mod 10 n = n \ 10 k = k -1 Loop End Function Private Sub Form_Click( ) Print digit (1234, 2 ) Print digit (1234, 3 ) End Sub 27. 运行下面的程序, 单击窗体后在窗体上显示的第1行输出 结果是Aa, 第3输出结果是__ __.AaBbCc Private Sub Form_Click( ) Dim mst As String, mst1 As String, mst2 As String Dim I As Integer mst1 =“CcBbAa” For I = Len (mst1) To 1 Step-2 mst2 = Mid (mst1, I -1, 2 ) mst = mst & mst2 Print mst Next I End Sub 28. 下列程序执行的结果为______ 120 Private Sub Form_Click( ) m1= 1 m2= 1 Do While m2<>6 m1= m1* m2 m2= m2+1 Loop Print m1 End Sub 29. 编写如下代码： Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) If Button = 1 And Shift = 2 Then Print“Multiple Choice” End If End Sub 程序运行后, 要在窗体上输出“Multiple Choice”，则应 在按下______的同时单击鼠标左键.ctrl 30. 对于任意一个自然数, 若为偶数, 把它除以2; 若为奇数, 把它乘以3后加1, 如此经过有限次运算后, 最终得到自然数1, 请将程序补充完整. Private Sub Form_Click( ) Dim II As Boolean Dim n As Integer, n1 As Integer Dim i As Integer n = InputBox (“验证角谷猜想，请输入一个数”) II = True i = 0 Do While II If __ _ Then n MOD 2=0 n1= n n = n / 2 Print n1；“/ 2=”，n If n = 1 Then __ __EXIT DO __ __ELSE n1= n n= 3 * n +1 Print n1；“3 * n +1=”，n End If i = i + 1 Loop Print“共计算”；i；“次” End Sub 31．有一个分数序列 2/1 3/2 5/3 8/5 13/8 … 求这个序列20项的和，请将程序补充完整。 Private Sub Form_Click( ) Dim s As Single Dim t1 As Integer，t2 As Integer，t As Integer Dim i As Integer s = 0 t1 = 2 t2 = 1 i = 0 Do While __ __I<=20 s = s + t1 / t2 t = t1 + t2 __ __t2=t1 __ __t1=t i = i + 1 Loop Print s End Sub 32．建立一个通讯录的随机文件phonBook.txt, 内容包括姓名、电话、地址及邮编，用文本框输入数据. 单击“添加记录” 按钮Command1时，将文本框数据写入文件，单击“显示” 按钮Command2时，将文件中所有记录内容显示在立即窗口。 Type PersData Name As String Phon As String Address As String PostCd As String End Type Dim xData As PersData Private Sub Form_Load( ) Open“C:\phonBook.txt”For______ As # 1Random End Sub Private Sub Command1_Click( ) https://www.wendangku.net/doc/3014404597.html, = Text1.Text xData.Phon = Text2.Text xData. Address = Text3.Text xData.PostCd = Text4.Text ______put #1,, xData Text1.Text =“”：Text2.Text =“” Text3.Text =“”：Text4.Text =“” End Sub Private Sub Command2_Click( ) reno = LOF( 1 )/Len( xData) I = 1 Do While I<= reno ______show Debug.Print https://www.wendangku.net/doc/3014404597.html,, xData.Phon, xData.Address, xData.PostCd I = I + 1 Loop End Sub 33. 设窗体中已经加入了文件列表框(File1), 目录列表框(Dir1), 驱动器列表框(Drive l),完成下列程序使这三个控件可以同步变化. Private Sub Drivel_Change( ) __ __ Drive l. Drive= Drive l End Sub Private Sub Dirl_ Change( ) __ __ Dir1.path=Drive1.Drive End Sub Private Sub Filel_ Click( ) MsgBox File1.FileName End Sub 窗体中有两个命令按钮, “显示”（Name为CmdDisplay）和“测试”（Name为 CmdTest）。单击“测试”按钮时，执行如下事件过程，此事件过程的功能是：当在窗体中出现消息框并选中“确 定”按钮时，隐藏“显示”按钮，否则退出，请在空白 处补充完整。 Private Sub CmdTest _Click( ) answer = Msgbox（“隐藏按钮”,65） If answer = vbok then ______CmdDisplay.visible=false Else ______end End If End Sub 34. 设有一个10个元素的数组, 下列程序将该数组的第一个 元素与第十个元素交换, 第二个元素与第九个元素交换……,第五个与第六个交换, 请补充完整. Private Sub Command1_Click( ) Dim a(10) As Integer Dim i As Integer Dim t As Integer Dim j As Integer For i = 1 To 10 a( i ) = i Print a( i )； Next i For j = 1 To 5 ______t=a(j) ______a(j)=a(11-j) ______a(11-j)=t Next j Print For i = 1 To 10 Print a( i )； Next I End Sub 35. 以下程序代码实现单击命令按钮Command1时生成10 个0～100之间的随机整数.存于数组arr中, 打印数组 arr中大于50的数并求这些数的和. Private Sub Command1_Click( ) Dim arr( 1 To 10 ) For i = 1 To 10 arr( i ) = ______int(Rnd*100) Next i Sum = 0 For Each x In ______arr If x>50 Then Print x : Sum = Sum+x End If Next x Print Print“Sum=”；Sum End Sub 36. 在C盘当前文件夹下建立一个名为StuData.txt的顺序文 件，要求用InputBox函数输入5名学生的学号（StuNo）、姓名（StuName）和英语成绩（StuEng）。 Private Sub Form_Click( ) Open“C：StuData.txt”For______ as #1 output For i = 1 To 5 StuNo = InputBox(“请输入学号”) StuName = InputBox（“请输入姓名”） StuEng = InputBox（“请输入英语成绩”） ______WRITE # 1, StuNo , StuName , StuEng Next i Close #1 End Sub