2022年VB模拟题答案 .pdf

套题 1 第一卷客观题第一题：是非题（共10 分，每项 1 分） 1. ActiveX 部件是可以重复使用的编程代码和数据。A A.对B.错 2. 窗体的 Enabled 属性设为 False时，窗体题的按钮、文本框控件就不会对用户的操作做出反应。A A.对B.错 3. 每一个控件实质上都是一个微型程序。A A.对B.错 4. 在程序运行过程中，变量中的值不会改变，而常量中的值会被改变。 B A.对B.错 5. 用 Dim 语句声明变量时，VB 系统不仅为变量分配相应数据类型的内在空间，而且还为变量赋所需的初值。B A.对B.错 6. 定义菜单项时，可以不设置分隔线的菜单项控件名称。B A.对B.错 7. 在事件驱动的应用程序中，代码是按照预定的路径执行的。B A.对B.错 8. 函数调用时，实际参数与形式参数在数量必须完全一致。A A.对B.错 9. 每个菜单项都是一个控件，与其他控件一样也有自己的属性和事件。 A A.对B.错 10. 通用过程可以放在标准模块中，也可以放在窗体模块中。A A.对B.错第二题、单选题（共45 分，每项 1.5 分） 11. 要判断 “ 命令按钮 ” 是否被鼠标单击，应在“ 命令按钮 ” 的事件中判断。 C A.Chang B.KeyDown C.Click D.KeyPress 12. InputBox 函数的返回值的类型为_B_。A.数值B.字符串C.逻辑值D.日期值 13. 要想在过程调用后返回两个结果，下面的过程定义语句合法的是 _A_。A.Sub Proc1(ByVal n,Byval m) B.Sub Proc1(ByVal n, m) C.Sub Proc1(n,Byval m) D.Sub Proc1(n, m) 14. 下面关于打印对话框属性的说法错误的是_C_。A.Copies 属性指定打印的份数。B.HDC 属性指定分配给打印机的句柄，用来识别对象的设备环境。C.FromPage属性指定要打印文档的页范围。使用该属性时必须把 Flags 属性设置为 1。D.Max 和 Min 属性用来显示FromPage和 ToPage的范围，其中 Min 指定允许的起始页码，Max 指定允许的最后页码。 15. 常量 2.7856E-6 的类型是 _B_。A.整型B.实型C.字符型D.双精度 16. Print #1，STR1$中的 Print 是_A_。A.顺序文件的写语句B.在窗体上显示的方法C.子程序名D.打印命令 17. 使用 Public x 声明一个全局的变量时，该语句应放在_D_。A.过程中B.窗体模块的通用声明段C.标准模块的通用声明段D.窗体模块或标准模块的通用声明段 18. 文本框没有 _D_属性。A.Enabled B.VisibleC.BackColor D.Caption 19. 记录长度最大可取的值是_A_字节。A.32767 B.32768 C.65535 D.65536 20. 下面四项中， _A_是 VB 中的数值变量。A.ABC B.E+2 C.True D.1.35E-2 21. 将数据项 “China ”添加到列表框（List ）中成为第一项应使用A语句。A.List1.AddItem”China ”，0 B.List1.AddItem”China ”，l C.List1.AddItem 0 ，”China ”D.List1.AddItem 1 ，”China ” 22. 下列不能打开菜单编辑器的操作是_D_。A.按 Ctrl+E B.单击工具栏中的“ 菜单编辑器 ” 按钮C.执行 “ 工具 ” 菜单中的 “ 菜单编辑器 ” 命令D.按 Shift + Alt + M 23. 文本框（Text1） 中有选定的文本， 执行 Text1.SelText=”Hello ”的结果是 A。A. “Hello ”将替换掉原来选定的文本B. “Hello ”将插入到原来选定的文本之前C.Text1.SelLength 为 5 D.文本框中只有 “Hello ” 24. 语句 Print Format(HELLO, yz 的正确 VB 逻辑表达式是 _D_。A.xy And yz C.xy And z D.xy And yz 名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -精心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 1 页，共 28 页 - - - - - - - - - 30. 如果要使一个窗体从屏幕上和内存中完全消失，所要使用的语句是 _D_。A.Hide B.Show C.Load D.Unload 31. 在下列说法中，正确的是D。 A. 通过适当的设置，可以在程序运行期间，让时钟控件显示在窗体上 B. 在列表框中不能进行多项选择 C. 在列表框中能够将项目按字母顺序从大到小排列 D. 框架也有 Click和 DblClick事件32. 为了把一个记录型变量的内容写入文件中指定的位置，所使用的语句的格式为_D_。 A.Get 文件号，记录号，变量名 B.Get 文件号，变量名，记录号 C.Put 文件号，变量名，记录号 D.Put 文件号，记录号，变量名33. 按文件的组织方式分为_A_。 A. 顺序文件和随机文件 B. 文本文件和二进制文件 C. 程序文件和数据文件 D. 只读文件和读写文件34. 以下 _C_不能作为 VB中的变量名。 A.Abx45 B.P1234 C.89TasFF D.xy 35. 已编译的控件部件的扩展名是A。 A. .OCX B. .VBP C. .EXE D. .CTL 36. 为了建立一个随机文件，其中每一条记录有多个不同数据类型的数据项组成，应使用_A_。A. 自 定 义 类 型B. 数 组C. 字 符 串 类型 D. 变体类型37. 表达式 Int(23.4)+Round(-35.5)的计算结果为 _C_。 A.-11 B.-12.1 C.-13 D.-12.5 38. 引用列表框（ List1 ）最后一个数据项应使用B。 A. List1.List(List1.ListCount) B.List1.List(List1.ListCount-1) C.List1.List(ListCount) D.List1.List(ListCount-l) 39. 通过代码在运行时设置属性的语法格式为_B_。 A. 对象名属性 . 新值 B. 对象名 . 属性新值 C. 对象名 . 新值 =属性 . 新值 D. 对象名 . 属性 =属性 .新值40. 在 下面 选 项中 ，不 能完 成 对顺 序 文件 的读 操 作的是_D_。 A.LineInput#语句 B.Input#语句 C.Input（）函数 D.Get# 语句第三题、简单程序（共15 分，每项 1.5 分）41. 下列程序段的运行结果。A Private Sub Form_Click() Dim Msg Hide Msg=”选择确定按钮” MsgBox Msg Show End Sub A. 隐藏窗体，按确定按钮使窗体重现 B. 隐藏窗体 C. 显示窗体，按确定按钮使窗体隐藏 D. 显示窗体42. 执行下面程序段后，变量c$的值为 _D_。 a$= Visual Basic Programming b$= Quick c$=b$ & Ucase(Mid$(a$,7,6) & Right$(a$,12) A.Visual BASIC Programming B.Quick Basic Programming C.QUICK Basic Programming D.Quick BASIC Programming 43. 运行下面程序后，在窗体中显示的是_D_。 Private Sub Form_Click() a$=*: b$=$ For k=1 To 3 x$=String$(Len(a$)+k,b$) Print x$; Next k Print End Sub A. 、* * * B.*$*$*$ C.1*$2*$3*$ D. 、$ 44. 执行下面程序段后，变量a 的值为 _C_。 For I=1 To 3 For j=1 To I For k=j To 3 a=a+1 Next k Next j Next I A.3 B.9 C.14 D.21 45. 写出如下程序运行结果。 D Function f(m As Integer) As Integer b = 1 Static c As Integer b = b + 1 c = c + 1 f = m * b * c End Function Private Sub Command1_Click() Dim a As Integer a = 2 sum=0 For I = 1 To 3 名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -精心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 2 页，共 28 页 - - - - - - - - - sum=sum+ f(a) Next I print sum End Sub A.12 B.16 C.20 D.24 46. 以下程序的输出结果是_B_。 Private Sub Command1_Click() a=1234 b$=Str$(a) c=Len(Trim(b) print c;LenB(b) End Sub A.3 8 B.4 10 C.5 10 D.4 8 47. 执行下面程序段后，变量x 的值为 _A_。 x=5 For I=1 To 20 step 2 x=x+I5 Next I A.21 B.22 C.23 D.24 48. 以下程序的输出结果是_D_。 Private Sub Command1_Click() a=100 Do s=s+a a=a+1 Loop Until a100 print a End Sub A.100 B.120 C.201 D.101 49. 以下程序的循环次数是_A_。 Private Sub Command1_Click() For j=8 To 35 Step 3 Print j; Next j End Sub A.10 B.9 C.27 D.28 50. 下列程序运行后，其结果为_A_。 Private Sub Form_Click ( ) Filename= “c:testfile.txt” Open filename For Output As #1 Print #1,“ABCD 我是一个学生” Close #1 Open filename For Input As #1 MsgBox Input(8,1) Close #1 End Sub A. 在通用对话框中显示“ABCD 我是一个” B. 在通用对话框中显示“ABCD 我是” C. 在窗体中显示“ ABCD我是一个” D. 在窗体中显示“ ABCD我是”第二卷主观题填空题（共30 分，每项 2 分。注意：填两个空的题的时候，要按照从上至下，从左至右的顺序添入答题卡！）1. 下列程序运行后，能求出20 个数中的最大值。请填上适当的内容，将程序补充完整。 Private Sub Form_Activate() Randomize Dim I As Integer,ssl As Integer,Dim tt As Integer ssl = Int(Rnd * 51 + 50) For I = 1 To 19 tt = Rnd * 51 + 50 _IF ssltt then ssl=tt_ Next I Print Print ssl End Sub 2. 在 C盘根目录下建立一个名为Student.dat的顺序文件。要求用 InputBox函数输入 10 名学生的学号（StuNo） 、姓名（StuName）和性别（ StuSex） 。 Private Sub Form_Load ( ) Open “C:Student.dat” For Output As #1 For I=1 to 10 StuNo=InputBox(“请输入学号” ) StuName= InputBox (“请输入姓名” ) StuSex= InputBox (“请输入性别” ) _write #1, _ ,StuNo,Stuname,StuSex Next I Close #1 End Sub 3. 编写一个求最大公约数的函数，并调用该函数，程序如下： Function gcd(ByVal a As Integer,ByVal b As Integer) As Integer Dim re as integer Do While b0 re=a mod b a=b b=re Loop gcd=a End Function Sub Command1_Click() Dim x As Integer,y As Integer, z As integer X=96 Y=64 _z=gcd(x,y)_ 名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -精心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 3 页，共 28 页 - - - - - - - - - Print “结果 =”;z End Sub 4. 请用正确的内容填空。下面程序的作用是利用随机函数产生10 个(1200) 之间的随机整数，打印其中7 的整数倍的数并求其和。 Private Sub Form_Click() For I=1 To 10 x=Int(Rnd*200+1) If _(x mod 7)=0_ Then k1=k1+x Print x End If Next I Print Print k1=;k1 End Sub 5. 下面程序运行时，内层循环的循环总次数是_6_。 For m = 1 To 3 For n = 0 To m - 1 Next n Next m 6. 在窗体中添加两个命令按钮，其名称分别为Command1和Command2 ，窗体加载时要求Command1不可用， Command2可用；单击Command2 后， Command1可用。请将下列程序补充完整。 Private Sub Command2_Click() _command1.enabled=true_ End Sub Private Sub Form_Load() _command1.enabled=false _command2.enabled=true_ End Sub 7. 函数 odd 用于判断一个数是否是奇数。当单击命令按钮时，产生 1,9之间的随机数，调用odd 过程，判断该数是否为奇数。如果是则显示“奇数” ，否则显示“偶数” 。 Private Sub odd(n As Integer) Print n; If n/2n2 Then Print 奇数 Else Print _“偶数” _ End If End Sub Private Sub Command1_Click() Dim x As Integer Randomize x =_int(rnd*9+1)_ odd x End Sub 8. 下列程序允许用户按Enter 键将一个组合框 （cboComputer）中没有的项目添加到组合框中。 Sub cboComputer_KeyPress(KeyAscii As Integer) Dim flag As Boolean If KeyAscii=13 Then flag=False For I=0 To cboComputer.ListCount-1 If Then Flag=True Exit For End If Next i If Not flag Then Else MsgBox( ”组合框中已有该项目！ ”) End If End If End Sub 9. 请用正确的内容填空。下面程序的功能是通过InputBox 对话框接受一个二进制数，并把它转换成一个十进制数，结果显示在窗体中。 Private Sub Form_Click() b=InputBox(请输入一个二进制数) m=Len(b) For j= _1 to m_ dec=dec*2+ _val(Mid(b,j,1) Next j Print b;转换后的十进制数为：;dec End Sub 10. 以 下 程 序 的 功 能 是 ： 把 当 前 目 录 下 的 顺 序 文 件smtext1.txt的内容读入内存，并在文本框Text1 中显示出来。请填空。 Private Sub Command1_Click() Dim inData As String Text1.Text = Open .smtext1.txt_for Input_As #1 Do While _not eof(1)_ Input #1, inData Text1.Text = Text1.Text & inData Loop End Sub 名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -精心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 4 页，共 28 页 - - - - - - - - - 套题 2 第一卷客观题第一题：是非题（共10 分，每项 1 分） 1. 函数过程和子过程的区别是子过程结束将返回值过程值，函数过程结束不必返回函数值。A.对B.错 2. 当窗体上有多个控件时，一般只有一个控件是当前控件，对控件的所有操作都是针对当前控件进行的。A.对B.错 3. 窗体上的控件同样可以借助于剪贴板进行剪切、复制和粘贴。A.对B.错 4. 用 Dim 语句声明变量时，VB 系统不仅为变量分配相应数据类型的内在空间，而且还为变量赋所需的初值。A.对B.错 5. 在 VB 系统中，没有用Dim 语句声明的变量不能使用，因为它没有数据类型。A.对B.错 6. 每个菜单项都是一个控件，与其他控件一样也有自己的属性和事件。A.对B.错 7. VB 中的 “ 消息 ” 是指由一个应用程序传递到另一个应用程序的信息包。A.对B.错 8. 普通窗体与子窗体建立的方法是相同的，不同之处是子窗体的 MDIChild属性设置为False，而普通窗体的MDIChild属性设置为 True。A.对B.错 9. 除了 Click 事件之外，菜单项还能响应其他的事件。A.对B.错 10. 数组作为过程参数时，使用的是地址传送方式。A.对B.错第二题、单选题（共45 分，每项 1.5 分） 11. 文本框没有 _D_属性。A.Enabled B.Visible C.BackColor D.Caption 12. 语句 Dim a(3,-3 to 0,3 to 6) 声明的数组a有_C_元素。A.12 B.27 C.64D.80 13. 下面关于随机文件的描述，不正确的是_B_。A.每条记录的长度必须相同B.一个文件中记录号不必惟一C.文件的组织结构比顺序文件复杂D.可通过编程对文件中的某条记录方便地修改 14. 如果要使一个窗体从屏幕上和内存中完全消失，所要使用的语句是 _D_。A.Hide B.Show C.Load D.Unload 15. 在 VB 中，常量 987654,987654#的数据类型是 _D_。A.整型B.实型C.长整型D.双精度 16. 在下面选项中， 不能完成对顺序文件的读操作的是_D_。A.LineInput# 语句B.Input#语句C.Input（）函数D.Get#语句 17. 按文件的组织方式分为_A_。A.顺序文件和随机文件B.文本文件和二进制文件C.程序文件和数据文件D.只读文件和读写文件 18. 不论何种控件，共同具有的是_B_属性。A.Text B.NameC.BackColor D.Caption 19. 为了把一个记录型变量的内容写入文件中指定的位置，所使用的语句的格式为_D_。A.Get 文件号，记录号，变量名B.Get 文件号，变量名，记录号C.Put 文件号，变量名，记录号D.Put 文件号，记录号，变量名 20. 常量 2.7856E-6 的类型是 _B_。A.整型B.实型C.字符型D.双精度 21. 假如列表框（ List1）有 4 个数据项，那么把数据项“China ”添加到列表框的最后，应使用D语句。A. List1.AddItem3 ，”China ”B.List1.AddItem”China ”，List1.ListCount-1 C.List1.AddItem”China ”，3 D.List1.AddItem”China ”，List1.ListCount 22. 下面关于打印对话框属性的说法错误的是_C_。A.Copies 属性指定打印的份数。B.HDC 属性指定分配给打印机的句柄，用来识别对象的设备环境。C.FromPage属性指定要打印文档的页范围。使用该属性时必须把 Flags 属性设置为1。D.Max 和 Min 属性用来显示FromPage和 ToPage的范围，其中 Min 指定允许的起始页码，Max 指定允许的最后页码。 23. 如果文本框的Enabled 属性设为False，则 A。A.文本框的文本将变成灰色，并且此时用户不能将光标置于文本框上B.文本框的文本将变成灰色，用户仍然能将光标置于文本框上，但是不能改变文本框中的内容C.文本框的文本将变成灰色，用户仍然能改变文本框中的内容D.文本框的文本正常显示，用户能将光标置于文本框上，但是不能改变文本框中的内容 24. 下列控件中，没有Caption 属性的是 B。A.框架B.列表框C.复选框D.单选按钮 25. 下列逻辑表达式中，其值为真的是_A_。A.bABCB.THATTHE C.9H D.Aa 26. 窗体从加载到显示，依次引发的事件有。D A.Load 、Initialize 、Activate B.Initialize 、Activate、load C.Load、Activate 、Initialize D.Initialize 、Load、Activate 27. 如果每 0.5 秒产生一个计时器事件，那么Interval 属性值应设为 C。A.5 B.50 C.500D.0.5 28. 表达式 34 And 7=5 的返回值为 _D_。名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -精心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 5 页，共 28 页 - - - - - - - - - A.0 B.True C.-1 D.False 29. 函数 Int(Rnd*11)+10 产生的数值的范围是_C_。A.（0,10）B.10,10 C.10,20D.(0,20) 30. 要想在过程调用后返回两个结果，下面的过程定义语句合法的是 _A_。A.Sub Proc1(ByVal n,Byval m)B.Sub Proc1(ByVal n, m) C.Sub Proc1(n,Byval m) D.Sub Proc1(n, m) 31. 为了防止用户随意将光标置于控件之上，应该进行设置。 DA.将控件的TabIndex 属性设置为0 B.将控件的TabStop 属性设置为True C.将控件的TabStop 属性设置为False D.将控件的Enabled 属性设置为False 32. 使用驱动器列表框的_属性可以返回或设置磁盘驱动器的名称。 BA.ChDriveB.DriveC.List D.ListIndex 33. 文件号最大可取的值为_。BA.255 B.511 C.512 D.256 34. 在 Visual Basic 中，语句 Print 39 的输出结果为 _。DA.0 B.1 C.-1 D.False 35. 全局变量必须在 _中定义 AA.标准模块B.任意模块C.窗体模块D.类模块 36. 表达式 Int(23.4)+Round(-35.5) 的计算结果为 _。CA.-11 B.-12.1 C.-13 D.-12.5 37. 如果列表框（ List1）中没有被选定的项目，则执行List1.RemoveItem List1.ListIndex语句的结果是。A.移去第一项B.移去最后一项C.移去最后加入列表的一项D.以上都不对 38. 通过代码在运行时设置属性的语法格式为_。B A.对象名属性.新值B.对象名 .属性新值C.对象名 .新值 =属性.新值D.对象名 .属性 =属性 .新值 39. 改变驱动器列表框的Drive 属性值将激活 _事件。 AA.Change B.Scoll C.KeyDown D.KeyUp 40. 已编译的控件部件的扩展名是。A A. .OCX B. .VBP C. .EXE D. .CTL 第三题、简单程序（共15 分，每项 1.5 分） 41. 执行下面程序段后，变量c$的值为 _。Da$= Visual Basic Programming b$= Quick c$=b$ & Ucase(Mid$(a$,7,6) & Right$(a$,12) A.Visual BASIC Programming B.Quick Basic Programming C.QUICK Basic Programming D.Quick BASIC Programming 42. 运行下面程序后，在弹出的消息窗口中显示的是_。DPrivate Sub Form_Click() score=Int(Rnd)+5 Select Case score Case 5 a$=Good Case 4 a$=Ok Case 3 a$=Pass Case Else a$=Bad End Select MsgBox a$ End Sub A.Bad B.Pass C.Ok D.Good 43. 执行下面程序段后，变量a 的值为 _。CFor I=1 To 3 For j=1 To I For k=j To 3 a=a+1 Next k Next j Next I A.3 B.9C.14 D.21 44. 写出下列程序的运行结果，并说明函数的功能。APublic Function f(m%, n%) Do While m n Do While m n m = m n Loop Do While n m n = n m Loop Loop f = m End Function Private Sub Command1_Click() print f(24, 18) End Sub A.6B.8 C.10 D.12 45. 以下程序的输出结果是_。BPrivate Sub Command1_Click() a=1234 b$=Str$(a) c=Len(Trim(b) print c;LenB(b) End Sub A.3 8B.4 10C.5 10 D.4 8 46. 执行下面程序段后，变量x 的值为 _。Ax=5 For I=1 To 20 step 2 x=x+I5 Next I 名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -精心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 6 页，共 28 页 - - - - - - - - - A.21 B.22 C.23 D.24 47. 以下程序的循环次数是_。Private Sub Command1_Click() For j=8 To 35 Step 3 Print j; Next j End Sub A.10B.9 C.27 D.28 48. 以下程序的输出结果是_。DPrivate Sub Command1_Click() a=100 Do s=s+a a=a+1 Loop Until a100 print a End Sub A.100 B.120 C.201 D.101 49. 执行下面的程序段后，变量S 的值为 _。CS5 For I 2.6 To 4.9 Step 0.6 S=S+1 Next I A.7 B.8 C.9D.10 50. 下面程序运行后，输出的结果为_。Private Sub Command1_Click( ) A$=”Beijing”B$=”dalian ”C$=”shanghai ”C$=Instr(Left(A$,2)+Right$(B$,2),C$) Print C$ End Sub A.10 B.0C.8 D.6 第二卷主观题填空题（共30 分，每项 2 分。注意：填两个空的题的时候，要按照从上至下，从左至右的顺序添入答题卡！） 1. 在 C 盘根目录下建立一个名为Student.dat 的顺序文件。要求用 InputBox 函数输入 10 名学生的学号（StuNo）、姓名（StuName）和性别（ StuSex）。Private Sub Form_Load ( ) Open “C:Student.dat” For Output As #1 For I=1 to 10 StuNo=InputBox(“请输入学号 ”) StuName= InputBox (“请输入姓名 ”) StuSex= InputBox (“请输入性别 ”) _ Write #1 _ ,StuNo,Stuname,StuSex Next I Close #1 End Sub 2. 编写一个求最大公约数的函数，并调用该函数，程序如下：Function gcd(ByVal a As Integer,ByVal b As Integer) As Integer Dim re as integer Do While b0 re=a mod b a=b b=re Loop gcd=a End Function Sub Command1_Click() Dim x As Integer,y As Integer, z As integer X=96 Y=64 _z=gcd(x,y)_ Print “ 结果 =”;z End Sub 3. 请用正确的内容填空。以下程序找出50 以内所有能构成直角三角形的整数组。Private Sub Form_Click() For x=1 To 50 For y=x To 50 z=Sqr(x*x+y*y) If _ z=5 And z=Int(z) _ Then Print x; y; z Next y Next x Print End Sub 4. 执行下面的程序段后，s 的值为 _7_ Private Sub Form_Click() Static s As Integer s = 5 For I = 1.4 To 2.1 Step 0.6 s = s + 1 Next I Print s End Sub 5. 执行下面的程序段后，X 的值为 _8_。X=5 For I=1 to 10 Step 2 X=X+I5 Next I 6. 函数 odd用于判断一个数是否是奇数。当单击命令按钮时，产生1,9 之间的随机数，调用odd 过程，判断该数是否为奇数。如果是则显示 “ 奇数 ” ，否则显示 “ 偶数 ” 。Private Sub odd(n As Integer) 名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -精心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 7 页，共 28 页 - - - - - - - - - Print n; If n/2n2 Then Print 奇数 Else _Print “偶数” _ End If End Sub Private Sub Command1_Click() Dim x As Integer Randomize x =_ int(9*rnd+1)_ odd x End Sub 7. 下列程序允许用户按Enter 键将一个组合框（cboComputer）中没有的项目添加到组合框中。Sub cboComputer_KeyPress(KeyAscii As Integer) Dim flag As Boolean If KeyAscii=13 Then flag=False For I=0 To cboComputer.ListCount-1 IfcboComputer.Text=cboComputer.List(i) Then Flag=True Exit For End If Next If Not flag Then cboComputer.AddItem cboComputer.TextElse MsgBox(” 组合框中已有该项目！”) End If End If End Sub 8. 请用正确的内容填空。下面程序用“ 选择 ” 法将数组a中的 10个整数按升序排列。Option Base 1 Private Sub Form_Click() Dim a a = Array(678, 45, 324, 528, 439, 387, 87, 875, 273, 823) For I=1 To 9 For j= _i+1_ To 10 If _a(i)a(j) _Then t=a(I): a(I)=a(j): a(j)=t End If Next j Next I For I=1 To 10 Print a(I); Next I End Sub 9. 以下程序的功能是：生成20 个 200 到 300 之间的随机整数，输出数的位置能被5 整除的数并求出它们的和。请填空。Private Sub Commandl_C1ick() For I1 To 20 xInt( _Rnd_*200+100) If I Mod 5 0 Then Print x SS+ _x_ End If Next I Print Sum ;S End Sub 10. 以下程序的功能是：从键盘上输入若干个学生的考试分数，统计并输出最高分数和最低分数，当输入负数时结束输入，输出结果，请将程序补充完整。Private Sub Form_Click() Dim x, amax, amin A Single x = InputBox(Enter a score) amax = x amin = x Do While _ x0_ If x amax Then amax = x End If If _xyz 的正确 VB逻辑表达式是 _D_。 A.xy And yz C.xy And z D.xy And yz 29. 函数 Int(Rnd*11)+10产生的数值的范围是_C_。 A. （0,10 ）B.10,10 C.10,20 D.(0,20) 30. 下面关于顺序文件的描述，正确的是_C_。 A. 每条记录的长度必须相同 B. 可通过编程对文件中的某条记录方便地修改 C. 数据以 ASCII 码形式存放在文件中，所有可通过文本编辑软件显示 D. 文件的组织结构复杂31. 文件列表框中用于设置或返回所选文件的文件名的属性是_D_。A.FilePath B.File C.Path D.FileName 名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -精心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 9 页，共 28 页 - - - - - - - - - 32. 为了建立一个随机文件，其中每一条记录有多个不同数据类型的数据项组成，应使