《VB模拟题答案(2006.6)》由会员分享，可在线阅读，更多相关《VB模拟题答案(2006.6)（29页珍藏版）》请在金锄头文库上搜索。
1、VB 模拟题（2006.6）1套题 1第一卷 客观题第一题：是非题（共 10 分，每项 1 分）1. ActiveX 部件是可以重复使用的编程代码和数据。AA.对 B.错2. 窗体的 Enabled 属性设为 False 时，窗体题的按钮、文本框控件就不会对用户的操作做出反应。AA.对 B.错3. 每一个控件实质上都是一个微型程序。AA.对 B.错4. 在程序运行过程中，变量中的值不会改变，而常量中的值会被改变。BA.对 B.错5. 用 Dim 语句声明变量时，VB 系统不仅为变量分配相应数据类型的内在空间，而且还为变量赋所需的初值。BA.对 B.错6. 定义菜单项时，可以不设置分隔线的菜单项
2、控件名称。BA.对 B.错7. 在事件驱动的应用程序中，代码是按照预定的路径执行的。BA.对 B.错8. 函数调用时，实际参数与形式参数在数量必须完全一致。AA.对 B.错9. 每个菜单项都是一个控件，与其他控件一样也有自己的属性和事件。AA.对 B.错10. 通用过程可以放在标准模块中，也可以放在窗体模块中。AA.对 B.错第二题、 单选题（共 45 分，每项 1.5 分）11. 要判断“命令按钮 ”是否被鼠标单击，应在 “命令按钮”的事件中判断。CA.Chang B.KeyDown C.Click D.KeyPress12. InputBox 函数的返回值的类型为_B_ 。A.数值 B.字
3、符串 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 和 T
4、oPage 的范围，其中 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.Caption19. 记录长
5、度最大可取的值是_A_字节。A.32767 B.32768 C.65535 D.6553620. 下面四项中，_A_是 VB 中的数值变量。A.ABC B.E+2 C.True D.1.35E-221. 将数据项“China”添加到列表框（List）中成为第一项应使用A语句。A.List1.AddItem”China”，0 B.List1.AddItem”China” ，lC.List1.AddItem 0，”China” D.List1.AddItem 1，”China”22. 下列不能打开菜单编辑器的操作是_D_。A.按 Ctrl+EB.单击工具栏中的“菜单编辑器”按钮C.执行“ 工具”菜
6、单中的“菜单编辑器”命令D.按 Shift + Alt + M23. 文本框（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 yz30. 如果要使一个窗体从屏幕上和内存中完全消失，所要使用的语句是_D_。A.Hide B.Show C.Load
7、 D.Unload31. 在下列说法中，正确的是D。A.通过适当的设置，可以在程序运行期间，让时钟控件显示在窗体上B.在列表框中不能进行多项选择C.在列表框中能够将项目按字母顺序从大到小排列D.框架也有 Click 和 DblClick 事件32. 为了把一个记录型变量的内容写入文件中指定的位置，所使用的语句的格式为_D_。A.Get 文件号，记录号，变量名B.Get 文件号，变量名，记录号C.Put 文件号，变量名，记录号D.Put 文件号，记录号，变量名33. 按文件的组织方式分为_A_。A.顺序文件和随机文件 B.文本文件和二进制文件C.程序文件和数据文件 D.只读文件和读写文件34.
8、以下_C_不能作为 VB 中的变量名。A.Abx45 B.P1234 C.89TasFF D.xy35. 已编译的控件部件的扩展名是A。A. .OCX B. .VBP C. .EXE D. .CTL36. 为了建立一个随机文件，其中每一条记录有多个不同数据类型的数据项组成，应使用_A_。A.自定义类型 B.数组 C.字符串类型 D.变体类型37. 表达式 Int(23.4)+Round(-35.5)的计算结果为_C_。A.-11 B.-12.1 C.-13 D.-12.538. 引用列表框（List1）最后一个数据项应使用B。A. List1.List(List1.ListCount)B.Li
9、st1.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. 下列程序段的运行结果。APrivate Sub Form_Click() Dim
10、Msg Hide Msg=”选择确定按钮” MsgBox Msg Show End SubA.隐藏窗体，按确定按钮使窗体重现B.隐藏窗体C.显示窗体，按确定按钮使窗体隐藏D.显示窗体42. 执行下面程序段后，变量 c$的值为_D_。a$= Visual Basic Programming b$= Quickc$=b$ & Ucase(Mid$(a$,7,6) & Right$(a$,12)A.Visual BASIC ProgrammingB.Quick Basic ProgrammingC.QUICK Basic ProgrammingD.Quick BASIC Programming43.
11、 运行下面程序后，在窗体中显示的是_D_。Private Sub Form_Click() a$=*: b$=$ For k=1 To 3 x$=String$(Len(a$)+k,b$) Print x$; Next k Print End SubA.、* * * 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 IA.3 B.9 C.14 D.2145. 写出如下程序运行结果。 DFunction f(m As In
12、teger) As Integer b = 1 Static c As Integer b = b + 1 c = c + 1 f = m * b * c VB 模拟题（2006.6）3End Function Private Sub Command1_Click() Dim a As Integer a = 2 sum=0 For I = 1 To 3 sum=sum+ f(a) Next I print sum End SubA.12 B.16 C.20 D.2446. 以下程序的输出结果是_B_。Private Sub Command1_Click() a=1234 b$=Str$(a)
13、 c=Len(Trim(b) print c;LenB(b) End SubA.3 8 B.4 10 C.5 10 D.4 847. 执行下面程序段后，变量 x 的值为_A_。x=5 For I=1 To 20 step 2 x=x+I5Next IA.21 B.22 C.23 D.2448. 以下程序的输出结果是_D_。Private Sub Command1_Click() a=100 Do s=s+a a=a+1 Loop Until a100 print a End SubA.100 B.120 C.201 D.10149. 以下程序的循环次数是_A_。Private Sub Comm
14、and1_Click() For j=8 To 35 Step 3 Print j; Next j End SubA.10 B.9 C.27 D.2850. 下列程序运行后，其结果为_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 SubA.在通用对话框中显示“ABCD 我是一个”B.在
15、通用对话框中显示“ABCD 我是”C.在窗体中显示“ABCD 我是一个”D.在窗体中显示“ABCD 我是”第二卷 主观题填空题（共 30 分，每项 2 分。注意：填两个空的题的时候，要按照从上至下，从左至右的顺序添入答题卡！）1. 下列程序运行后，能求出 20 个数中的最大值。请填上适当的内容，将程序补充完整。Private Sub Form_Activate()RandomizeDim I As Integer,ssl As Integer,Dim tt As Integerssl = Int(Rnd * 51 + 50)For I = 1 To 19tt = Rnd * 51 + 50_IF ssl0 re=a mod b VB 模拟题（2006.6）4a=b b=re Loop gcd=a End Function Sub
