VB模拟题答案
套题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.Visible
C.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", "<")的输出结果是_B_____。
A.HELLO
B.hello
C.He
D.he
25. 函数Int(Rnd*11)+10产生的数值的范围是____C__。
A.（0,10）
B.[10,10]
C.[10,20]
D.(0,20)
26. 如果文本框的Enabled属性设为False，则＿A＿＿。
A.文本框的文本将变成灰色，并且此时用户不能将光标置于文本框上
B.文本框的文本将变成灰色，用户仍然能将光标置于文本框上，但是不能改变文本框中的内容
C.文本框的文本将变成灰色，用户仍然能改变文本框中的内容
D.文本框的文本正常显示，用户能将光标置于文本框上，但是不能改变文本框中的内容
27. 框架内的所有控件是＿＿A＿。
A.随框架一起移动、显示、消失和屏蔽
B.不随框架一起移动、显示、消失和屏蔽
C.仅随框架一起移动
D.仅随框架一起显示和消失
28. Integer类型的数据由_B_____字节组成。
A.1
B.2
C.3
D.4
29. 数学表达式x>y>z的正确VB逻辑表达式是__D____。
A.x>y And B.x>y>z C.x>y And >z D.x>y And y>z 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 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+I\5 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 a>100 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 ssl 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 b<>0 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 4. 请用正确的内容填空。 下面程序的作用是利用随机函数产生10个(1～200) 之间的随机整数，打印其中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/2<>n\2 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 套题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.64 D.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 https://www.wendangku.net/doc/2c12832527.html, C.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."b">"ABC" B."THAT">"THE" C.9>"H" D."A">"a" 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.500 D.0.5 28. 表达式3>4 And 7=5的返回值为___D___。 A.0 B.True C.-1 D.False 29. 函数Int(Rnd*11)+10产生的数值的范围是__C____。 A.（0,10） B.[10,10] C.[10,20] D.(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. 为了防止用户随意将光标置于控件之上，应该进行＿＿＿设置。D A.将控件的TabIndex属性设置为0 B.将控件的TabStop属性设置为True C.将控件的TabStop属性设置为False D.将控件的Enabled属性设置为False 32. 使用驱动器列表框的______属性可以返回或设置磁盘驱动器的名称。B A.ChDrive B.Drive C.List D.ListIndex 33. 文件号最大可取的值为______。B A.255 B.511 C.512 D.256 34. 在Visual Basic中，语句Print 3>9的输出结果为______。D A.0 B.1 C.-1 D.False 35. 全局变量必须在______中定义A A.标准模块 B.任意模块 C.窗体模块 D.类模块 36. 表达式Int(23.4)+Round(-35.5)的计算结果为______。C A.-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属性值将激活______事件。A A.Change B.Scoll C.KeyDown D.KeyUp 40. 已编译的控件部件的扩展名是＿＿＿。A A. .OCX B. .VBP C. .EXE D. .CTL 第三题、简单程序（共15分，每项1.5分） 41. 执行下面程序段后，变量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 42. 运行下面程序后，在弹出的消息窗口中显示的是______。D Private 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的值为______。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 44. 写出下列程序的运行结果，并说明函数的功能。A Public 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.6 B.8 C.10 D.12 45. 以下程序的输出结果是______。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 46. 执行下面程序段后，变量x的值为______。A x=5 For I=1 To 20 step 2 x=x+I\5 Next I 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.10 B.9 C.27 D.28 48. 以下程序的输出结果是______。D Private Sub Command1_Click() a=100 Do s=s+a a=a+1 Loop Until a>100 print a End Sub A.100 B.120 C.201 D.101 49. 执行下面的程序段后，变量S的值为______。C S＝5 For I ＝2.6 To 4.9 Step 0.6 S=S+1 Next I A.7 B.8 C.9 D.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.0 C.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 b<>0 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+I\5 Next I 6. 函数odd用于判断一个数是否是奇数。当单击命令按钮时，产生 [1,9]之间的随机数，调用odd过程，判断该数是否为奇数。如果是则显示“奇数”，否则显示“偶数”。 Private Sub odd(n As Integer) Print n; If n/2<>n\2 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 If＿cboComputer.Text=cboComputer.List(i)＿＿Then Flag=True Exit For End If Next If Not flag Then ＿cboComputer.AddItem cboComputer.Text＿＿ Else 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 I＝1 To 20 x＝Int( ___Rnd___*200+100) If I Mod 5 ＝0 Then Print x S＝S+ _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 ___x>0_________ If x > amax Then amax = x End If If __x amin = x End If x = InputBox("Enter a score") Loop Print "max="; amax, "min="; amin End Sub 套题3 第一卷客观题 第一题：是非题（共10分，每项1分） 1. 函数调用时，实际参数与形式参数在数量必须完全一致。A A.对 B.错 2. 标签控件即可以用来显示用户不能编辑和修改的文本，也可以用来编辑和修改文本。B A.对 B.错 3. Timer是时钟控件的唯一事件。A A.对 B.错 4. 用Dim语句声明变量时，VB系统不仅为变量分配相应数据类型的内在空间，而且还为变量赋所需的初值。B A.对 B.错 5. 在VB系统中，没有用Dim语句声明的变量不能使用，因为它没有数据类型。B A.对 B.错 6. 菜单项的快捷键不能任意设置。A A.对 B.错 7. VB中的“消息”是指由一个应用程序传递到另一个应用程序的信息包。A A.对 B.错 8. 每个菜单项都是一个控件，与其他控件一样也有自己的属性和事件。A A.对 B.错 9. 菜单选项“Enabled”属性与“Visible”属性是相同的。B A.对 B.错 10. VB6.0只能运行在Windows 2000下，不能运行在Windows 98下。B A.对 B.错 第二题、单选题（共45分，每项1.5分） 11. 在VB中，变量的默认类型是__C____。 A.Integer B.Double C.Variant D .Currency 12. 在顺序文件中__D____。 A.文件中按每条记录的记录号从小到大排序 B.文件中按每条记录的长度从小到大排序 C.文件中按记录的某关键数据项的从小到大的顺序 D.记录是按写入的先后顺序存放的，读出也是按写入的先后顺序读出 13. 利用菜单编辑器设计菜单时，如果要在菜单中加入一个分隔符，菜单分隔符的标题必须设置为__B____。 A.+ B.- C.* D./ 14. 在Visual Basic中，最简单的数据类型包括__A____。 A.整型、实型、布尔型、字符型 B.整型、实型、字符型 C.整型、实型、逻辑型 D.实型、逻辑型、字符型 15. 使用驱动器列表框的___B___属性可以返回或设置磁盘驱动器的名称。 A.ChDrive B.Drive C.List D.Lis tIndex 16. 在随机文件中___C___。 A.文件中的内容是通过随机数产生的 B.文件中的记录号是通过随机数产生的 C.可对文件中的记录根据记录号随机地读写 D.文件的每条记录的长度是随机的 17. 不论何种控件，共同具有的是__B____属性。 A.Text https://www.wendangku.net/doc/2c12832527.html, C.BackColor D.Ca ption 18. 下列控件中，不属于文件系统控件的是__D____。 A.驱动器列表框 B.文件列表框 C.目录列表框 D.图象列 表框 19. 在VB中，常量987654,987654#的数据类型是_D_____。 A.整型 B.实型 C.长整型 D.双精度 20. 如果列表框（List1）中没有被选定的项目，则执行 List1.RemoveItem List1.ListIndex语句的结果是＿D＿＿。 A.移去第一项 B.移去最后一项 C.移去最后加入列表的一项 D.以上都不对 21. 下列关于通用对话的描述错误的是__C____。 https://www.wendangku.net/doc/2c12832527.html,mandDialog1.ShowFont显示字体对话框。 B.在打开或另存为对话框中，用户选择的文件名和路径可以经FileName属性返回。 C.在打开或另存为对话框中，用户选择的文件名和路径可以经FileTitle属性返回。 D.利用通用对话框可显示和制作帮助对话框。 22. 文本框没有___D__属性。 A.Enabled B.Visible C.BackColor D.Caption 23. 当一个窗体被卸载时，最后引发的一个事件是。D A.Deactivate B.QueryUnload C.Unload D.te rminate 24. 复选框的Value属性为1时，表示＿＿B＿。 A.复选框未被选中 B.复选框被选中 C.复选框内有灰色的勾 D.复选框操作方式“错误” 25. 下列四个字符串进行比较，最小的是___A___。 A."9977" B."B123" C."BASE" D."DATA" 26. 计时器的时间间隔是＿A＿＿。 A.以毫秒计 B.以分计 C.以秒计 D.以小时计 27. 组合框的Style属性决定组合框的类型和行为，它的值为2时，其显示形式和功能是＿C＿＿。 A.下拉列表框，并允许用户输入不属于列表框中的选项 B.简单组合框，并允许用户输入不属于列表框中的选项 C.下拉列表框，不允许用户输入不属于列表框中的选项 D.简单组合框，不允许用户输入不属于列表框中的选项 28. 数学表达式x>y>z的正确VB逻辑表达式是__D____。 A.x>y And B.x>y>z C.x>y And >z D.x>y And y>z 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 32. 为了建立一个随机文件，其中每一条记录有多个不同数据类型的数据项组成，应使用__A____。 A.自定义类型 B.数组 C.字符串类型 D.变体类型 33. 在Visual Basic中，语句Print 3>9的输出结果为 __D____。 A.0 B.1 C.-1 D.False 34. 当一个工程含有多个窗体时，其中的启动窗体是__D____。 A.启动VB时建立的窗体 B.第一个添加的窗体 C.最后一个添加的窗体 D.在“工程属性”对话框中指定的窗体。 35. 使用目录列表框的___C___属性可以返回或设置当前工作目录的完整路径。 A.Drive B.ListIndex C.Path D.D ir 36. Integer类型的数据由__B____字节组成。 A.1 B.2 C.3 D.4 37. 如果列表框（List1）中只有一个项目被用户选定，则执行Debug．Print List1Selected（List1.ListIndex）语句的结果是＿＿A＿。 A.在Debug窗口输出被选定的项目的索引值 B.在 Debug窗口输出True C.在窗体上输出被选定的项目的索引值 D.在窗体上输出True 38. 通过代码在运行时设置属性的语法格式为___B___。 A.对象名＝属性 .新值 B.对象名.属性＝新值 C.对象名.新值=属性 .新值 D.对象名.属性=属性 .新值 39. 要使用FSO对象模型，必须通过【工程】菜单中的_D_____命令将FSO对象模型引入到当前工程中。 A.部件 B.工程属性 C.添加属性 D.引用 40. 全局变量必须在__A____中定义 A.标准模块 B.任意模块 C.窗体模 块 D.类模块 第三题、简单程序（共15分，每项1.5分） 41. 执行下面程序段后，变量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 42. 运行下面程序后，在弹出的消息窗口中显示的是__D____。 Private 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的值为__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 44. 下面程序运行后，单击命令按钮，在两个文本框中显示的值分别为__B____。 Private Sub Command1_Click() x=0 Do While x<50 x=(x+2)*(x+3) n=n+1 Loop Text1.Text=Str(n) Text2.Text=Str(x) End Sub A.1和0 B.2和72 C.3和50 D.4和168 45. 单击命令按钮之后，下列程序代码的执行结果为。B Private Function p(n As Integer) For I = 1 To n Sum = Sum + I Next I p = Sum End Function Private Sub Command1_Click() s = p(1) + p(2) + p(3) + p(4) Print s; End Sub A.10 B.20 C.24 D.28 46. 以下程序的循环次数是__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 47. 执行下面程序段后，变量x的值为__A____。 x=5 For I=1 To 20 step 2 x=x+I\5 Next I A.21 B.22 C.23 D.24 48. 以下程序的输出结果是__A____。 Private Sub Command1_Click() a="ABCD" b="efgh" c=Lcase(a) d=Ucase(b) Print c+d End Sub A.abcdEFGH B.abcdefgh C.ABCDefgh D.ABCDEFGH 49. 下面程序运行后，输出的结果为___B_____。 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.0 C.8 D.6 50. 在窗体中添加Command1和Command2两个命令按钮来测验文本框Text1的值，然后编写如下代码： Private Sub Command1_Click() Text1.Text = "AB" End Sub Private Sub Command2_Click() Text1.Text = "CD" End Sub 首先单击Command2按钮，然后再单击Command1按钮，在文本框中显示___A___。 A.AB B.CD C.ABCD D.CDAB 第二卷主观题 填空题（共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= Inpu tBox (“请输入性别”) 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 b<>0 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<=50 and z=int(z)_____ Then Print x; y; z Next y Next x Print End Sub 4. 执行下面的程序段后，s的值为___84_________ 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. 打开顺序文件Student.dat，读取文件中的全部数据，并将数据显示在窗体上。 Private Sub Form_Click ( ) Open "C:Student.dat" For Input As #1 Do While _not EOF(1)_____ Input #1, stuno, stuname, stusex Print stuno; Tab(10); stuname; Tab(20); stusex Loop Close #1 End Sub 6. 函数odd用于判断一个数是否是奇数。当单击命令按钮时，产生 [1,9]之间的随机数，调用odd过程，判断该数是否为奇数。 如果是则显示“奇数”，否则显示“偶数”。 Private Sub odd(n As Integer) Print n; If n/2<>n\2 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 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 If cboComputer.Text=cboComputer.List(i) then Flag=True Exit For End If Next If Not flag Then cboComputer.AddItem cboComputer.Text Else 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 I＝1 To 20 x＝Int( _rnd_____*200+100) If I Mod 5 ＝0 Then Print x S＝S+ _s=s+x_____ End If Next I Print "Sum＝";S End Sub 10. 编程统计D:\data.txt中字符“$”出现的次数。并将统计结果写入到文本文件D:\Mydir\result.txt中 Private Sub Form_Click() Dim Inputdata As String, Count As Integer Open "D:\data.txt" For Input As #1 Do While Not EOF(1) Inputdata = Input(1, #1) __if inputbox=”$” then____ Count = Count + 1 Loop Close #1 Open "D:\res.txt" For Output As #1 _print #1 ,count_____ Close #1 End Sub 套题4 第一卷客观题 第一题：是非题（共10分，每项1分） 1. 用户控件和系统控件都可以加载到工具箱上，并且永久保留。B A.对 B.错 2. 在VB中，可通过函数Shell调用DOS或Windows下的可执行程序。A A.对 B.错 3. 窗体的Moveabel属性设为False时，不能改变窗体的大小，只能移动窗体。B A.对 B.错 4. " "是一个字符串，而""不是一个字符串。B A.对 B.错 5. 单选项和复选框能够响应Click事件，但通常不需要编写事件过程。A A.对 B.错 6. 在事件驱动的应用程序中，代码是按照预定的路径执行的。 A.对 B.错 7. GotFocus事件通常用来在焦点移离时进行验证和确认。B A.对 B.错 8. 函数过程和子过程的区别是子过程结束将返回值过程值，函数过程结束不必返回函数值。B A.对 B.错 9. ActiveX技术是一种共享程序数据和功能的技术。A A.对 B.错 10. 在Not、Or、And三个运算符中，运算符And的的优先级最高。B A.对 B.错 第二题、单选题（共45分，每项1.5分） 11. 下列不能打开菜单编辑器的操作是___D___。 A.按Ctrl+E B.单击工具栏中的“菜单编辑器”按钮 C.执行“工具”菜单中的“菜单编辑器”命令 D.按Shift + Alt + M 12. 已编译的控件部件的扩展名是＿A＿＿。 A. .OCX B. .VBP C. .EXE D. .CTL 13. 表达式a+b=c是__D____。 A.赋值表达式 B.字符表达式 C.算术表达式 D.关系表达式 14. 利用菜单编辑器设计菜单时，如果要在菜单中加入一个分隔符，菜单分隔符的标题必须设置为___B___。 A.+ B.- C.* D./ 15. 文本框没有__D___属性。 A.Enabled B.Visible C.BackColor D.Caption 16. 在VB中要将一个窗体装载到同存中进行预处理，但不显示，应该使用语句___C___。 A.Form.Show B.Form.Load C.Form.Hide D.Form.Unload 17. 下列四个字符串进行比较，最小的是___A___。 A."9977" B."B123" C."BASE" D."DA TA" 18. 语句Print Format("HELLO", "<")的输出结果是___B___。 A.HELLO B.hello C.He D.he 19. 如果每0.5秒产生一个计时器事件，那么Interval属性值应设为＿＿C＿。 A.5 B.50 C.500 D.0.5 20. 将数据项“China”添加到列表框（List）中成为第一项应使用＿A＿＿语句。 A.List1.AddItem”China”，0 B.List1.AddItem”China”，l C.List1.AddItem 0，”China” D.List1.AddItem 1，”China” 21. InputBox函数的返回值的类型为___B___。 A.数值 B.字符串 C.逻辑值 D.日期值 22. Integer类型的数据由___B___字节组成。 A.1 B.2 C.3 D.4 23. 假如列表框（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 24. 如果列表框（List1）中只有一个项目被用户选定，则执行Debug．Print List1Selected（List1.ListIndex）语句的结果是＿＿B＿。 A.在Debug窗口输出被选定的项目的索引值 B.在Debug窗口输出True C.在窗体上输出被选定的项目的索引值 D.在窗体上输出True 25. 在Visual Basic中，语句Print 3>9的输出结果为__ D____。 A.0 B.1 C.-1 D.False 26. 表达式Int(23.4)+Round(-35.5)的计算结果为___C___。 A.-11 B.-12.1 C.-13 D.-12.5 27. 为减少语句的使用，将一个窗体加载到内存中并显示出来，所使用的语句或方法是___C___。 A.Load B.Unload C.Show D.Hide 28. 使用Public x声明一个全局的变量时，该语句应放在_C_____。 A.过程中 B.窗体模块的通用声明段 C.标准模块的通用声明段 D.窗体模块或标准模块的通用声明段 29. 下列说法错误的是___B___。 A.在同一模块不同过程中的变量可以同名。 B.不同模块中定义的全局变量不可以同名。 C.引用另一模块中的全局变量时，必须在变量名前加模块名。 D.同一模块中不同级的变量可以同名。 30. 用语句Dim a(-3 to 5) As Integer定义的数组的元素个数是___C___。 A.7 B.8 C.9 D.10 31. 如果文本框的Enabled属性设为False，则＿＿A＿。 A.文本框的文本将变成灰色，并且此时用户不能将光标置于文本框上 B.文本框的文本将变成灰色，用户仍然能将光标置于文本框上，但是不能改变文本框中的内容 C.文本框的文本将变成灰色，用户仍然能改变文本框中的内容 D.文本框的文本正常显示，用户能将光标置于文本框上，但是不能改变文本框中的内容 32. 在Visual Basic中，用于获得字符串S最左边4个字符的函数是___A___。 A.Left(S,4) B.Left(1,4) C.LeftStr(S) D.LeftStr(S,4) 33. VB 工程中的每一个窗体都是独立的__B____。 A.类 B.对象 C.数据库 D.方法 34. 下面关于顺序文件的描述，正确的是__C____。 A.每条记录的长度必须相同 B.可通过编程对文件中的某条记录方便地修改 C.数据以ASCII码形式存放在文件中，所有可通过文本编辑软件显示 D.文件的组织结构复杂 35. 文本框（Text1）中有选定的文本，执行Text1.SelText=”Hello”的结果是＿A＿＿。 A.“Hello”将替换掉原来选定的文本 B.“Hello”将插入到原来选定的文本之前 C.Text1.SelLength为5 D.文本框中只有“Hello” 36. VB中的工具栏可以从___C___菜单上的“工具栏”命令中移进或移出。 A.工具 B.编辑 C.视图 D.调试 37. 用来设置粗体字的属性是。C A.Font1Italic B.FontName C.FontBold D.FontSize 38. 在VB的集成环境中创建VB应用程序时，除了工具箱窗口、窗体设计窗口、属性窗口外，必不可少的窗口是___C___。 A.窗体布局窗口 B.立即窗口 C.代码窗口 D.监视窗口 39. Sub和Function的最大差别在于___A___。 A.Function有返回值，而Sub没有 B.Function需要输入参数，而Sub不用 C.Sub可以用Call语句调用，而Function不行 D.两者并无不同 40. 要判断“命令按钮”是否被鼠标单击，应在“命令按钮”的事件中判断。C A.Chang B.KeyDown C.Click D.KeyPress 第三题、简单程序（共15分，每项1.5分） 41. 从键盘输入一个实数mm，利用字符串函数对输入的数进行处理，如果输出的内容不是字符则输出“END“，程序的输出结果是___C___。 Private Sub Command1_Click() mm=Val(InputBox("请输入一个实数")) n$=Str$(mm) p=InStr(n, ".") If p>0 Then Print Mid(n,p) Else Print "END" End If End Sub A.用字符方式输出数据mm B.输出数据的整数部分 C.输出数据的小数部分 D.只去掉数据部分的小数点，保留所有数码输出 42. 当输入4时，以下程序的输出结果是____D__。 Private Sub Command1_Click() x=InputBox(x) If x^2<15 Then y=1/x If x^2>15 Then y=x^2+1 Print y End Sub A.4 B.17 C.18 D.0.25 43. 写出下列程序的运行结果，并说明函数的功能。A Public 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.6 B.8 C.10 D.12 44. 下面的程序运行后，将产生_____C_的结果。 Private Sub Form_load() Dim Str As String, Anum As Integer Open "D:\Myfile.dat" For Output As #1 str1 = "ABCDEFG" str2 = 12345 Print #1, Str, Anum Write #1, Str, Anum Close #1 End Sub A.建立一个"D:\Myfile.dat"的文本文件 B.建立一个"D:\Myfile.dat"的文本文件，并写入一行数据，还 在窗体上显示一行数据 C.建立一个"D:\Myfile.dat"的文本文件，并写入两行数据 D.打开一个"D:\Myfile.dat"的文本文件，并读出两行数据 45. 以下程序的输出结果是___D___。 Private Sub Command1_Click() Dim sum As Integer sum%=19 sum=2.32 Print sum%,sum End Sub A.19 2.32 B.19 19 C.2.32 2.32 D.2 2 46. 以下程序的输出结果是___A___。 Option Base 1 Private Sub Command1_Click() Dim a(10),p(3) As Integer k=5 For I=1 To 10 a(I)=I Next I For I=1 To 3 p(I)=a(I*I) Next I For I=1 To 3 k=k+p(I)*2 Next I Print k End Sub A.33 B.28 C.35 D.37 47. 运行下面程序后，在窗体中显示的是___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.、$$$$$$$$$ 48. 运行下面程序后，在弹出的消息窗口中显示的是_____C_。Private Sub Form_Click() k=0 Do While k<70 k=k+2 k=k*k+k a=a+k Loop MsgBox a End Sub A.64 B.72 C.78 D.148 49. 以下程序的输出结果是__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 50. 运行下面程序后，在弹出的消息窗口中显示的是__C____。Private Sub Form_Click() Dim counter counter=0 While counter<20 counter=counter+1 Wend MsgBox counter End Sub A.0 B.21 C.20 D.19 第二卷主观题 填空题（共30分，每项2分。注意：填两个空的题的时候，要按照从上至下，从左至右的顺序添入答题卡！） 1. 请用正确的内容填空。以下程序找出50以内所有能构成直角三角形的整数组。 Private Sub Form_Click() For x=1 To 50 For y=x To 50 z=Sqr(x*x+y*y) If __Z>1 AND Z<50____ Then Print x; y; z Next y Next x Print End Sub 2. 在窗体上画一个名称为Commandl的命令按钮，编写如下事件过程 Private Sub Command1_C1ick() Dim a As String a= ___”123456789”____ For I ＝1 To 5 Print Spc(6-I)；Mid$(a，6-I，2*I-1) Next I End Sub 程序运行后，单击命令按钮，要求窗体上显示的输出结果为5 456 34567 2345678 123456789 请填空。 3. 请用正确的内容填空。下面程序运行后，输出的结果是： ******** ******** ******** ******** Private Sub Form_Click() For I=1 To 4 Print Tab(10+I); For j=1 To 8 Print "*"; ____NEXT J__ Print Next I End Sub 4. 在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 5. 在窗体中添加两个文本框（其Name属性分别为Text1和Text2）和 一个命令按钮（其Name属性为Command1），单击命令按钮，在两 个文本框Text1和Text2中分别显示的值是N和X,完成程序。Private Sub Command1_Click() X = 0 Do While X < 10 X = (X + 1) * (X + 2) n = n + 1 Loop Text1.Text = __str(N)____ Text2.Text = Str(X) End Sub 6. 请用正确的内容填空。下面程序用“选择”法将数组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 7. 用FSO模型操作方法将“C:\My Documents”文件夹中的文件（不含子文件夹）复制到“C:\Temp”文件夹。 Dim fsox As ___New fileSystemObject___ __Fsox CopyFile____ “C:\My Documents\*.*”，“C:\Temp\” 8. 请用正确的内容填空。以下程序的功能是统计字符串a中出现字符串b的次数，然后输出。 Private Sub Form_Click() a$="ABCDEHGABCDEFABCDEABCDABCABA" b$="AB" c=InStr(a$, b$) x=0 While c<>0 x=x+1 a$=Mid$(a$, InStr(a$,b$)+2) c=InStr(a$,b$) Wend _____print x_ End Sub 9. 函数odd用于判断一个数是否是奇数。当单击命令按钮时，产生 [1,9]之间的随机数，调用odd过程，判断该数是否为奇数。 如果是则显示“奇数”，否则显示“偶数”。 Private Sub odd(n As Integer) Print n; If n/2<>n\2 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 10. 下面程序的功能是：输入一个字符串，在“d:\f1.dat”文件中查找输入的字符串是否存在， 若存在，则输出“找到字符串”，否则输出“没找到字符串”。请将下列程序补充完整。 Private Sub Form_Load() a$ = InputBox("请输入要查找的字符串") Open "d:\f1.dat" For ___input _________ As #1 b$ = Input(LOF(1),#1) ______dim y as integer_____ y = InStr(1, b$, a$) If y <> 0 Then Print "找到字符串"; a$ Else Print "没找到字符串"; a$ End If End Sub 套题5 第一卷客观题 第一题：是非题（共10分，每项1分） 1. Style为0时组合框称为简单组合框。B A.对 B.错 2. 表达式“ab”& 34的结果是“ab34”。 A A.对 B.错 3. 窗体的Enabled属性设为False时，窗体题的按钮、文本框控件就不会对用户的操作做出反应。 A A.对 B.错 4. " "是一个字符串，而""不是一个字符串。 B A.对 B.错 5. 变量名是以字母或汉字开头，由字母、汉字、数字或下划线组成，长度可以任意的字符序列。 B A.对 B.错 6. ActiveX部件是可以重复使用的编程代码和数据。 A A.对 B.错 7. 在事件驱动的应用程序中，代码是按照预定的路径执行的。B A.对 B.错 8. 单选项和复选框能够响应Click事件，但通常不需要编写事件过程。 A A.对 B.错 9. 数组作为过程参数时，使用的是地址传送方式。 A A.对 B.错 10. ActiveX技术是一种共享程序数据和功能的技术。 A A.对 B.错 第二题、单选题（共45分，每项1.5分） 11. 常量2.7856E-6的类型是__B____。 A.整型 B.实型 C.字符型 D.双精度 12. 下列说法错误的是__C____。 A.在多重窗体中一定要有一个窗体为启动窗体。 B.在多重窗体中，如果没有指定启动窗体，则默认首先设计的窗体为启动窗体。 C.启动窗体能在运行程序时自动显示出来，其它窗体有些也能自动显示出来。 D.启动窗体通过“工程”菜单中的“工程属性”命令来指定。 13. Sub和Function的最大差别在于___A___。 A.Function有返回值，而Sub没有 B.Function需要输入参数，而Sub不用 C.Sub可以用Call语句调用，而Function不行 D.两者并无不同 14. 在下列表达式中，非法的是__C____。 A.a=b+c B.a>b+c C.a≠b>c D.a 15. 使用Public x声明一个全局的变量时，该语句应放在__C____。 A.过程中 B.窗体模块的通用声明段 C.标准模块的通用声明段 D.窗体模块或标准模块的通用声明段 16. 下面关于打印对话框属性的说法错误的是__C____。 A.Copies属性指定打印的份数。 B.HDC属性指定分配给打印机的句柄，用来识别对象的设备环境。 C.FromPage属性指定要打印文档的页范围。使用该属性时必须把Flags属性设置为1。 D.Max和Min属性用来显示FromPage和ToPage的范围，其中Min指定允许的起始页码，Max指定允许的最后页码。 17. 文本框没有__D___属性。 A.Enabled B.Visible C.BackColor D.Caption 18. 要想在过程调用后返回两个结果，下面的过程定义语句合法的是__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) 19. 表达式a+b=c是__D____。 A.赋值表达式 B.字符表达式 C.算术表达式 D.关系表达式 20. MsgBox函数的返回值的类型为__A____。 A.整数 B.字符串 C.逻辑值 D.日期值 21. 已编译的控件部件的扩展名是＿A＿。 A. .OCX B. .VBP C. .EXE D. .CTL 22. 引用列表框（List1）最后一个数据项应使用＿B＿＿。 A. List1.List(List1.ListCount) B.List1.List(List1.ListCount-1) C.List1.List(ListCount) D.List1.List(ListCount-l) 23. VB表达式Cos(0)+Abs(-1)+Int(Rnd(1))的值是___B___。 A.1 B.2 C.0 D.-1 24. 表达式3>4 And 7=5的返回值为__D____。 A.0 B.True C.-1 D.False 25. 如果列表框（List1）中没有被选定的项目，则执行 List1.RemoveItem List1.ListIndex语句的结果是＿D＿＿。 A.移去第一项 B.移去最后一项 C.移去最后加入列表的一项 D.以上都不对 26. 在下列说法中，正确的是＿D＿＿。 A.通过适当的设置，可以在程序运行期间，让时钟控件显示在窗体上 B.在列表框中不能进行多项选择 C.在列表框中能够将项目按字母顺序从人到小排列 D.框架也有Click和DblClick事件 27. 在Visual Basic中，语句Print 3>9的输出结果为______。 A.0 B.1 C.-1 D.False 28. 表达式Int(23.4)+Round(-35.5)的计算结果为______。 A.-11 B.-12.1 C.-13 D.-12.5 29. 当一个工程含有多个窗体时，其中的启动窗体是______。 A.启动VB时建立的窗体 B.第一个添加的窗体 C.最后一个添加的窗体 D.在“工程属性”对话框中指定的窗体。 30. 下面关于随机文件的描述，不正确的是__B____。 A.每条记录的长度必须相同 B.一个文件中记录号不必惟一 C.文件的组织结构比顺序文件复杂 D.可通过编程对文件中的某条记录方便地修改 31. 如果要使一个窗体从屏幕上和内存中完全消失，所要使用的语句是__D____。 A.Hide B.Show C.Load D.Unload 32. 用语句Dim a(-3 to 5) As Integer定义的数组的元素个数是 __C____。 A.7 B.8 C.9 D.10 33. 当一个窗体被卸载时，最后引发的一个事件是。C A.Deactivate B.QueryUnload C.Unload D.terminate 34. 下面关于顺序文件的描述，正确的是__C____。 A.每条记录的长度必须相同 B.可通过编程对文件中的某条记录方便地修改 C.数据以ASCII码形式存放在文件中，所有可通过文本编辑软件显示 D.文件的组织结构复杂 35. 以下___C___不能作为VB中的变量名。 A.Abx45 B.P1234 C.89TasFF D.xy 36. VB 工程中的每一个窗体都是独立的__B____。 A.类 B.对象 C.数据库 D.方法 37. 按文件的组织方式分为__A____。 A.顺序文件和随机文件 B.文本文件和二进制文件 C.程序文件和数据文件 D.只读文件和读写文件 38. 为了防止用户随意将光标置于控件之上，应该进行＿C＿＿设置。 A.将控件的TabIndex属性设置为0 B.将控件的TabStop属性设置为True C.将控件的TabStop属性设置为False D.将控件的Enabled属性设置为False 39. VB中的工具栏可以从__C____菜单上的“工具栏”命令中移进或移出。 A.工具 B.编辑 C.视图 D.调试 40. 将数据项“China”添加到列表框（List）中成为第一项应使用＿A＿＿语句。 A.List1.AddItem”China”，0 B.List1.AddItem”China”，l C.List1.AddItem 0，”China” D.List1.AddItem 1，”China” 第三题、简单程序（共15分，每项1.5分） 41. 执行下面程序段后，变量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 42. 下列程序段的运行结果。C Private Sub Form_Load() ListCityName.AddItem ”北京” ListCityName.AddItem ”上海” ListCityName.AddItem ”广州” End Sub A.在文本框中增加“北京”、“上海”和“广州”三个初始条目 B.在组合框中增加“北京”、“上海”和“广州”三个初始条目 C.在列表框中把“北京”、“上海”和“广州”三个初始条目清除 D.在列表框中增加“北京”、“上海”和“广州”三个初始条目 43. 从键盘输入一个实数mm，利用字符串函数对输入的数进行处理，如果输出的内容不是字符则输出“END“，程序的输出结果是______。 Private Sub Command1_Click() mm=Val(InputBox("请输入一个实数")) n$=Str$(mm) p=InStr(n, ".") If p>0 Then Print Mid(n,p) Else Print "END" End If End Sub A.用字符方式输出数据mm B.输出数据的整数部分 C.输出数据的小数部分 D.只去掉数据部分的小数点，保留所有数码输出 44. 执行下面程序段后，变量x的值为___A___。 x=5 For I=1 To 20 step 2 x=x+I\5 Next I A.21 B.22 C.23 D.24 45. 当输入4时，以下程序的输出结果是__B____。 Private Sub Command1_Click() x=InputBox(x) If x^2<15 Then y=1/x If x^2>15 Then y=x^2+1 Print y End Sub A.4 B.17 C.18 D.0.25 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. 单击命令按钮之后，下列程序代码的执行结果为。B Private Function p(n As Integer) For I = 1 To n Sum = Sum + I Next I p = Sum End Function Private Sub Command1_Click() s = p(1) + p(2) + p(3) + p(4) Print s; End Sub A.10 B.20 C.24 D.28 48. 下面的程序运行后，将产生__D____的结果。 Private Sub Form_load() Dim Str As String, Anum As Integer Open "D:\Myfile.dat" For Output As #1 str1 = "ABCDEFG" str2 = 12345 Print #1, Str, Anum Write #1, Str, Anum Close #1 End Sub A.建立一个"D:\Myfile.dat"的文本文件 B.建立一个"D:\Myfile.dat"的文本文件，并写入一行数据，还在窗体上显示一行数据 C.建立一个"D:\Myfile.dat"的文本文件，并写入两行数据 D.打开一个"D:\Myfile.dat"的文本文件，并读出两行数据 49. 以下程序的输出结果是__D____。 Private Sub Command1_Click() Dim sum As Integer sum%=19 sum=2.32 Print sum%,sum End Sub A.19 2.32 B.19 19 C.2.32 2.32 D.2 2 50. 以下程序的输出结果是__A____。 Option Base 1 Private Sub Command1_Click() Dim a(10),p(3) As Integer k=5 For I=1 To 10 a(I)=I Next I For I=1 To 3 p(I)=a(I*I) Next I For I=1 To 3 k=k+p(I)*2 Next I Print k End Sub A.33 B.28 C.35 D.37 第二卷主观题 填空题（共30分，每项2分。注意：填两个空的题的时候，要按照从上至下，从左至右的顺序添入答题卡！） 1. 请用正确的内容填空。 下面程序的作用是利用随机函数产生10个(1～200) 之间的随机整数，打印其中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 2. 窗体中有一公共对话框Comdialog1和一个命令按钮Command1， 当单击按钮时打开颜色对话框。请将程序补充完整。Private Sub Command1_Click( ) ComDialog1. Action=3 End Sub 3. 在窗体frmform1中添加一个通用对话框控件CommonDialog1， 运行时，首先使用CommonDialog1打开一个标准的颜色对话框， 用于设置对象颜色，其次使用CommonDialog1打开一标准的字体对话框， 用于设置对象的字体、字形和字号效果。 Private Sub Form_Load() CommonDialog1.Action = 3 Text1.BackColor = CommonDialog1.Color CommonDialog1. Action= 4 CommonDialog1=4 Text1.FontName = CommonDialog1.FontName Text1.Font.Size = CommonDialog1.FontSize End Sub 4. 下面程序运行时，内层循环的循环总次数是 3 。For m = 1 To 3 For n = 0 To m - 1 Next n Next m 5. 编写一个求最大公约数的函数，并调用该函数，程序如下：Function gcd(ByVal a As Integer,ByVal b As Integer) As Integer Dim re as integer Do While b<>0 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 6. 请用正确的内容填空。 下面程序的功能是通过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 7. 以下程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。请填空。Option Base 1 Private Sub Command1_Click() Dim arr1, Max as Integer arr1 = Array(12, 435, 76, 24, 78, 54, 866, 43) ___max___= arr1(1) For I = 1 To 8 If arr1(I) > Max Then __ max _ =arr1_(I)__ Next I Print "最大值是: "; Max End Sub 8. 假定建立了一个工程，该工程包括两个窗体， 其名称(Name 属性)分别为Form1和Form2，启动窗体为Form1。在Form1画一个命令按钮Command1，程序运行后， 要求当单击该命令按钮时，Form1窗体消失，显示窗体Form2，请在将程序补充完整。 Private Sub Command1_Click() Form1.hide Form2. show End Sub 9. 以下程序的功能是：把当前目录下的顺序文件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 10. 下列程序允许用户按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 cboComputer .text= cboComputer .list(i) Then Flag=True Exit For End If Next If Not flag Then cboComputer.additem= cboComputer.text Else MsgBox(”组合框中已有该项目！”) End If End If End Sub 一、概念填空题 1．在Visaul Basic中,属性窗口分为四个部分，这四个部分分别是（ 1 ）属性显示方式、属性列表和对当前属性的简单解释。 2．组合框有三种不同的风格，它们分别是：( 2 )、( 3 )和( 4 )。3．VB中，当KeyPress事件发生时会返回一个按键的（ 5 ）值。 4. 时钟控件是有规律地以一定的( 6 )激发计时器事件，而执行相应的代码程序。 5．A = 8，B = 3，C = 5，则表达式A MOD 3 + B^3 / C \ 5的值为（ 7 ）。6．声明一个双精度变量Num5，的声明语句是 ( 8 ) 。 7．有一文本框Text1，为了使该文本框在运行时获取焦点，应执行的语句是（ 9 ）。8．在使用动态数组时，如要改变数组的大小而又不丢失数组中的数据，应使用（ 10 ）关键字。 9．Visual Basic逻辑数据类型只有 True 与 False 两个值。当逻辑数据转换成整型数据时，True 转换为（ 11 ），False转换为（ 12 ）。 10．在Visaul Basic 中依据变量的作用范围将VB变量的作用范围分为三类，它们是：（ 13 ）变量、（ 14 ）变量和（ 15 ）变量。 11．在Visual Basic工程中，拥有多个窗体的程序可用（ 16 ）语句将窗体装入内存，用（ 17 ）语句将指定窗体从内存中删除。 12．在Visual Basic中，当坐标系确定后，如果坐标值前加上关键字Step，则坐标值（X，Y）是（ 18 ）坐标。 13．字符串常量是由任何ASCII字符组成，在程序代码中，它必须由（ 19 ）括起来。 14．如果有三个单选按钮直接画在窗体上，另有四个单选按钮画在框架中，则运行时，可以同时选中（ 20 ）个单选按钮。 二、概念选择题 1．不能触发滚动条Change事件的操作是（）。 A) 拖动滚动条的滑块 B) 单击两端箭头 C) 单击滚动条的滑块 D) 单击滚动条的空白处 2．已知变量x 、y为整数型，且x=4 , y=12 ,s为字符型，且s=“a”，Leble1为标签控件，Leble1的Caption属性值为Label1，下列合法的赋值语句是（）。 A) X= Leble1.Caption B) Leble1.Caption=Str(X) C) X*3=Y D) Y=X*S 3．下列可以将变量A、B的值互换的语句是( )。 A) A=B : B=A B) C=B : B=A ：A=C C) A=C : C=B : B=A D) A=(A+B)/2 ：B=(A-B)/2 4．下列叙述中错误的是（）。 A)VB是采用了事件驱动编程机制。 一、单选题（30分，每题1分） 1．计算机中采用二进制，是因为__(1) ____。 (A)可降低硬件成本 (B)两个状态的系统具有稳定性 (C)二进制的运算法则简单 (D)上述三个原因 2．我们通常说的U盘属于计算机部件中的___(2) ___。 (A) 输出设备 (B) 输入设备 (C) 存储设备 (D) 打印设备 3.下列表示存储容量的数据中，____(3) ____是最小的。 (A)20480 KB (B) 1.44 MB (C) 1 GB (D)4865723 Byte 4. 一个完整计算机系统应包括___(4) ____。 (A) 主机和显示器 (B)硬件系统和软件系统 (C)系统软件和应用软件 (D) 内存和外存 5.下列执行速度最快的程序语言是___(5) ____。 (A)数据库语言 (B)高级语言 (C)机器语言 (D)汇编语言 6.一只白色的足球被踢进球门，则白色、足球、踢、进球门是___(6) ___。 (A)属性、对象、方法、事件 (B) 属性、对象、事件、方法 (C) 对象、属性、方法、事件 (D) 对象、属性、事件、方法 7. 以下叙述中正确的是____(7) ____。 (A)窗体的Name属性指定窗体的名称，用来标识一个窗体 (B)窗体的Name属性的值是显示在窗体标题栏中的文本 (C)可以在运行期间改变对象的Name属性的值 (D)对象的Name属性值可以为空 8. 在VB中，保存一个工程至少应保存两个文件，这两个文件分别是___(8) ____。 (A)文本文件和工程文件 (B)窗体文件和工程文件 (C)窗体文件和标准模块文件 (D)类模块文件和工程文件 9. 在下列说法中，正确的是___(9) ___ (A)通过适当的设置，可以在程序运行期间，让时钟控件显示在窗体上 (B)在列表框中不能进行多项选择 (C) VB系统不能在列表框中自动实现将项目按字母顺序从大到小排列 (D)复选框的Value属性值为布尔型 10.当一个复选框被选中时，它的Value属性的值是___(10) ___ (A) 3 ( B) 2 (C) 1 (D) 0 11.计算结果为0的表达式是___(11) ____ (A)Int(2.4)+Int(-2.8) (B)Cint(2.4)+Cint(-2.8) (C)Fix(2.4)+Int(-2.8) (D)Fix(2.4)+Fix(-2.8) 12.可以惟一标识控件数组中的每一个控件属性的是___(12) ____ (A)Name (B)Caption (C)Index (D)Enabled 13. 下列变量名中，合法的变量名是___(13) ____。 (A)m24 (B)mn-k (C)24m (D)m+n 14. 若有语句”Dim Flag As Boolean”，则下面赋值语句正确的是___(14) _____。 (A) Flag ="True" (B) Flag='True' (C)Flag=Ture (D)Flag=True 15. 下列叙述不正确的是___(15) _____。 (A)InputBox函数返回值为字符型 (B)MsgBox函数返回值为所单击按钮的键值 (C) MsgBox语句没有返回值 (D) MsgBox语句返回值为所单击按钮的键值 16. 若要在Text1的光标(焦点)移动到其它控件时进行合法性判断，则可使用__(16) __事件来实 现。 (A) Refresh (B) SetFocus (C) LostFocus (D) GotFocus 17.一般情况下，控件的大小是由___(17) ___属性确定的 (A) Width和Height (B) Top和Left (C) Width和Left (D) Top和Width 18．以下能判断是否到达文件尾的函数是__(18) ____ (A)BOF (B) LOC (C)LOF (D)EOF 一、单选题（本大题共25题，每题2分，共50分） 1、不属于VB三种工作模式的是（）。 A.设计模式 B.运行模式 C.调试模式 D.中断模式 2、窗体的前景颜色由（）属性设置。 A.BorderStyle B.BackColor C.ForeColor D.FillStyle 3、当窗体被启动时，（）事件将会发生。 A.Load B.Unload C.QueryUnoad D.CLs 4、每个窗体对应一个窗体文件，窗体文件的扩展名是（）。 A..bas B.cls C.frm D.vbp 5、可用来清除窗体内容的方法是（）。 A.Print B.InputBox C.Cls D.Clear 6、下列语句有语法错误的是（）。 A.a＝5 B.b＝a C.b=“a” D.5=a 7、表达式1＋((2＋3)*2)*2的值是（）。 A.26 B.22 C.21 D.24 8、产生大于等于10且小于20的随机整数的表达式为（）。 A.Int(Rnd(10)＋10) B.Int(Rnd*10+10) C.Int(Rnd*10+11) D.Int(Rnd*20-10) 9、求字符串长度的函数是（）。 A.Len B.long C.Length D.Val 10、若要使定时器暂停，应将其（）属性设置值设为False。 A.Interval B.Value C.Text D.Enabled 11、下列可作为Visual Basic的变量名的是（）。 A.Abt B.TA C.IF D.A[B]T 12、VB中可用（）语句产生一消息框。 A. InputBox B.Shift C. Both D.MsgBox 13、以下程序段的输出结果是（） Print Format(12345.6,"0.00E+00") A.1.23E+04 B.1.23E+4 C.1.23456E+04 D.1.23456E+4 14、执行下面的语句后，所产生的信息框的标题是（）。 a = MsgBox("AAAA", "BBBB", "", 5) A.BBBB B.空 C.AAAA D.出错，不能产生信息框 15、以下程序段的输出结果是（）。 Print 1;2; Print 3 A.1 2 3 B.1 23 C.123 D.12 3 16、下列关于Do While …Loop和Do…Loop Until循环执行循环次数的描述正确的是（）。 A.Do While …Loop循环和Do…Loop Until循环至少都执行一次 B.Do While …Loop循环和Do…Loop Until循环可能都不执行 C.Do While …Loop循环至少执行一次和Do…Loop Until循环可能不执行循环 D.Do While …Loop循环可能不执行和Do…Loop Until循环至少执行一次 17、默认条件下，语句Dim a(3,4,5)定义的数组中所包含的数组元素的个数是（）。 A. 12 B.60 C.120 D.345 18、数学关系3≤x<10对应的Visual Basic表达式是（）。 二级VB模拟试题(1-1) 一、填空题（每空１分，共20分） １、ＶＢ是一种面向_____的可视化程序设计语言，采取了_____的编程机制。 ２、ＶＢ的对象主要分为_____和_____两大类。 ３、若要将窗体Form1隐藏起来，可使用方法_____；若要将窗体Form1显示出来，可使用方法_____来实现。 ４、在ＶＢ集成开发环境中，运行应用程序的方法有三种：一是_____；二是_____；三是_____。 ５、在ＶＢ中若要让某对对象获取焦点，则可通过_____方法来实现。 ６、ＶＢ提供的_____属性，用来控制对象是否可用，当属性值为_____时，表示对象可用，当属性值为_____时，表示对象不可用。 ７、ＶＢ提供的_____属性，用来控制对象是否可见，当属性值为_____时，表示对象可见，当属性值为_____时，表示对象不可见。 ８、在ＶＢ中，用来描述对象外部特征的量称之为对象的_____。 ９、为使某窗口中的命令按钮“取消(C)”具有如下特性：按“Alt＋C”键或按“ESC”键，均可代替用鼠标单击该按钮的操作，应设置该按钮的Caption属性值为_____，并且设置其_____属性值为_____。 二、选择题（每题２分，共40分） １、用于从字符串左边截取字符的函数是（） Ａ、Ltrim( )Ｂ、Trim( )Ｃ、Left( )Ｄ、Instr( ) ２、可获得当前系统日期的函数是（） Ａ、Date( )Ｂ、Time( )Ｃ、IsDate( )Ｄ、Year( ) ３、退出For循环可使用的语句为（） Ａ、Exit ForＢ、Exit DoＣ、End ForＤ、End Do ４、窗体的标题栏显示内容由窗体对象的（）属性决定。 Ａ、BackColorＢ、BackStyleＣ、TextＤ、Caption ５、程序运行时，若要通过回车键调用某命令按钮的Click事件过程，则可设置该命令按钮的（）属性值为True来实现。 Ａ、valueＢ、EnabledＣ、DefaultＤ、Cancel ６、标签框所显示的内容，由（）属性值决定。 Ａ、TextＢ、(名称)Ｃ、CaptionＤ、Alignment ７、文本框的（）属性用于设置或返回文本框中的文本内容。 Ａ、TextＢ、(名称)Ｃ、CaptionＤ、Name ８、计时器控件的（）属性用于设置Timer事件发生的时间间隔。 Ａ、StretchＢ、IntervalＣ、valueＤ、Length ９、滚动条的（）属性用于返回或设置滚动条的当前值。 Ａ、ＶalueＢ、MaxＣ、MinＤ、Data 10、若要向列表框添加列表项，可使用的方法是（） Ａ、AddＢ、RemoveＣ、ClearＤ、AddItem 11、图像框或图片框中显示的图形文件，由它们的（）性性值决定。 Ａ、DownPictureＢ、PictureＣ、ImageＤ、Icon 12、以下不属于键盘事件的是（） Ａ、KeyDownＢ、KeyUpＣ、UnloadＤ、KeyPress 要向C盘根目录下的名为my.txt的顺序文件中读出数据，应先使用_________语句打开文件。 复选框对象如果被选中，它的Value值为____________ 。 下列可作为Visual Basic 变量名的是____________。 以下能判断是否到达文件尾的函数是__________ 如果在实验课上进行程序调试，运行时遇到意外出错，最有效的做法是：看清系统错误原因提示信息，____________，以确定错误原因。 要想从子过程调用后返回两个结果，下面子过程语句说明合法的是 ____________ 。 在用通用对话框控件建立打开文件对话框时，在文件列表框中只允许显示txt和rtf类型的文件，则Filter属性的正确设置是_________。 在程序运行期间可以用____________函数把图形装入窗体、图片框或图像框。列表框List1中已有10个列表项，要显示列表框List1最后一项，有两种表示法， __________是正确的。 在默认情况下定义了10个元素的数组a，用变量n表示它的上界，有两种赋值语句，______________是正确的。 为了使控件对象不响应用户的事件，需要____________。 假定焦点已经位于文本框Text1中，则能够触发 KeyPress 事件的操作是 ____________。 设变量x = 1，y = -1，a = 5，b = -5，则以下表达式的值为“真”的是____________。单击滚动条控件的箭头按钮，滑块的移动幅度与_______________属性设置有关。在自定义函数中，可以通过____________返回值。 程序填空 单击窗体执行将所输入的整数插入排序后的原数组元素适当位置。 Function Insert(s(), ByVal key As Integer) As Integer Dim k%, i%, j% k = ___(1)_____ For i = 0 To UBound(s) VB模拟试题 一、选择题（15分，每题1分） 1、VB集成开发环境共有三种模式，以下 __________ 三种模式是正确？ (A) 设计、运行、退出 (B)运行、中断、退出 (C) 设计、运行、中断 (D)运行、中断、结束 2、以下叙述中错误的是__________ (A) 事件过程是响应特定事件的一段程序 (B) 不同的对象可以具有相同名称的方法 (C) 对象的方法是执行指定操作的过程 (D) 对象事件的名称可以由编程者指定 3、如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是 __________ (A) 如果工程中含有Sub Main过程，则程序一定首先执行该过程 (B) 不能把含有Sub Main过程的标准模块设置为启动模块 (C) 用Hide方法只是隐藏一个窗体，不能从内存中清除该窗体 (D) 任何时刻最多只有一个窗体是活动窗体 4、下列说法哪种正确？每次调用过程时，__________ (A) Dim声明的变量可保持原值；Static声明的变量会重新初始化。 (B) Static声明的变量可保持原值；Dim声明的变量会重新初始化。 (C) Dim、Static声明的变量都可以保持原来的值。 (D) Dim、Static声明的变量都会重新初始化。 5、表达式 5 Mod 3+3\5*2的值是__________ (A) 0 (B) 2 (C) 4 (D) 6 6、从字符串N的第5个字符开始，获取4个字符，应使用 _________。 (A) Len(N,5,4) (B) Mid(N,5,4) (C) Right(N,5,4) (D) Rtrim(N,5,4) 7、InputBox函数返回值的类型为 _________。 (A) 数值 (B) 字符串 (C) 变体 (D) 数值或字符串（视输入的数据而定） 8、语句Dim A(3, -2 to 2, 5)声明的数组A包含_________个数组元素。 (A) 120 (B) 75 (C) 60 (D) 13 【HNCE网上考试系统 v9.6】本套软件使用权属于：郑州大学 考试课程: 考试时间:100分钟考场:第一考场考试日期:2013.05.24 考号：姓名：剩余时间：99:42 保存交卷退出帮助 A B C D A B C D A B C D A B C D A B C D A B C D A B C D A 命令 B 命令 C 命令 D 命令 A B C D A B C D A B C D A B C D A B C D A B C D A B C D A 模块文件 B 件的属性 C 源文件 D 包含多个工程文件及属于该工程的其他文件 A 该窗体文件并没有被删除 B 窗体文件被删除 C 程仍然包含这个窗体 D A B C D A B C D A B C D A B C D A可以实现交换两个变量值，而S2不能 B 个变量值，而S1不能 C 现交换两个变量值 D 现交换两个变量值 A B C D A B C D A 过程调用后均不保存值 B 有变量都是Static型的变量 C 所有变量都是Private型的变量 D 所有变量都是非全局Public A 用Dim语句或Static语句声明的变量 B 明它的过程 C Static语句声明的 D 程执行完毕后就被释放了 A B C D A B C D A B C D A B C D 声明段 A B C D A B C D A B C D A B C D A B C D A B C D A 同 B Sub过程不可以 C 值，而Function过程能通过过程名返回值 D 或直接使用过程名调用，而 A工程中可以有多个窗体，但最多只能有一个窗体作为启动窗体 B 声明Public类型的变量来传递数据 C 大化、最小化或正常（保持设计时大小）等三种状态 D A 菜单 B 过程代码都放在窗体文件中 C 名必须相同 D 是设计阶段时显示的位置 一、单选题（30分，每小题1分） 1、（C ）字节称为一个MB。 （A）1024 （B）1000K （C）1024*1024 （D）10000K 2、计算机硬件系统的五大部件是（A ）。 （A）CPU、内存储器、输入设备、输出设备、外存储器 （B）运算器、控制器、存储器、输出设备、输入设备 （C）CPU、总线、存储器、外设、主板 （D）主机箱、显示器、音箱、鼠标、键盘 3、常用的输入设备有（A ）。 （A）键盘、鼠标、扫描仪（B）显示器、键盘、鼠标 （C）打印机、扫描仪、键盘（D）触摸屏、打印机、鼠标 4、计算机网络的主要作用是( D )。 (A) 数据处理(B) 信息传输与数据处理 (C) 文献查询(D) 资源共享与信息传输 5、二进制数1010等于十六进制数( C )。 (A) 10 (B) 11 (C) A (D) B 6、在VB中要强制显式声明变量，可在窗体模块或标准模块的声明段中加入语句( B )。 (A) Option Base 0 (B) Option Explicit (C) Option Base 1 (D) Option Compare 7、下列程序段的执行结果为( D )。 J1 = 10 J2 = 30 If J1 < J2 Then Print J2; Print J1 (A)10 (B)30 (C)10 30 (D)30 10 8、假设变量x1是一个布尔型(逻辑型)的变量，则下面正确的赋值语句是（C ） (A) x1="False" (B) x1='False' (C) x1=False (D) x1=#False# 9、在运行阶段，要在文本框Text1获得焦点时选中文本框中所有内容，对应的事件过程是（B ）。 (A) Private Sub Text1_LostFocus() Text1.SelStart=0 Text1.SelLength=Len(Text1.text) End Sub (B) Private Sub Text1_GotFocus() Text1.SelStart=0 Text1.SelLength=Len(Text1.text) End Sub (C) Private Sub Text1_SetFocus() Text1.SelStart=0 Text1.SelLength=Len(Text1.Text) End Sub (D) Private Sub Text1_Change() Text1.SelStart=0 Text1.SelLength=Len(Text1.Text) End Sub 一、单选题（30分，每小题1分） ◆一个完整计算机系统应包括___(1)____。 (A)主机、键盘、和显示器(B)硬件系统和软件系统 (C)主机和其他外部设备(D) 系统软件和应用软件 ◆打印机属于计算机部件中的___(2)___。 (A) 输出设备 (B) 输入设备 (C) 存储设备 (D) 缓冲设备 ◆下列表示存储容量的数据中，____(3)____是最大的。 (A)20480 KB (B) 1.44 MB (C) 1 GB (D) Byte ◆在计算机内部能够直接执行的程序语言是___(4)____。 (A)数据库语言 (B)高级语言(C)机器语言(D)汇编语言 ◆下列叙述正确的是___(5)____。 (A)程序设计就是编制程序 (B)程序的测试必须由程序员自己去完成 (C)程序经调试改错后还应进行再测试 (D) 程序经调试改错后不必进行再测试 ◆以下叙述中错误的是___(6)___。 (A)Visual Basic 是事件驱动型可视化编程工具 (B)Visual Basic应用程序不具有明显的开始和结束语句 (X) (C)Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性 (D)Visual Basic中控件的某些属性只能在运行时设置 ◆以下不属于VB工作模式的是___(7)___模式。 (A) 编译 (B) 设计 (C) 运行 (D) 中断 ◆以下语句的输出结果是___(8)___ 。 Print Format $(32548.5,“000,000.00”) (A) 32548.5 (B) 32,548.5 (C) 032,548.50 (D) 32,548.50 ◆若要使某可见控件获得焦点，则可使用___(9)_____方法来实现。 (A) Refresh (B) SetFocus(获得焦点) (C) Value (D) GotFocus（已经获得焦点） ◆在下列说法中，正确的是___(10)___。 (A)通过适当的设置，可以在程序运行期间，让时钟控件显示在窗体上 (B)在列表框中不能进行多项选择 (C)VB系统不能在列表框中自动实现将项目按字母顺序从大到小排列 (D)复选框的Value属性值为布尔型（0或1形） ◆执行以下程序段,输出的结果为___(11)___。 a$="abbacddcba" For i=6 To 2 Step -2 x=Mid(a,i,i): y=Left(a,i) 1.设计一个如图所示的成绩录入程序。要求利用文本框的lost focus事件检查录入的成 绩是否有效。如果录入的成绩介于0~100之间则可以继续输入，否则清除原数据，并且要求重新输入。底部的5个复选框用来设置参加合计的课程成绩。 2.设计一个用户界面如图所示，用于将学生学习的课程在列表框中显示出来，要求程序 有以下功能： a)单击“添加”按钮，若文本框“Text1.text”中不是空格串，并且在列表中也没 有，则将课程添加到列表框中去。 b)单击“删除”按钮，删除列表框中被选中的并显示在文本框中的课程名称。 c)单击“统计”按钮，统计课程列表框中的课程数量，并显示在文本框“Text2.text” 中。 d)单击“结束”按钮，结束程序运行。 3.设计一个偶数迁移程序，运行界面如图所示。要求如下： a.单击“产生”按钮，随机产生10个两位正整数，并添加到左边的列表框(list1)中。 b.单击“→”按钮，或双击list1,将list1中的所有偶数迁移到list2中。 c.单击“清除”按钮，清除list1和list2中所有的项目。 4. 设计如图所示窗体form1,在窗体上画一个名称为lst的列表框，通过属性窗口向列表框添加“中国”、“日本”、“新加坡”、“澳大利亚”、“美国”五个项目；在列表框右侧上方画一个名称为text1的文本框，并使其内容空白；在文本框下方画两个名称分别为c1和c2、标题分别为“修改”和“添加”的命令按扭。程序运行时要求：单击“修改”按钮时文本框text1中显示列表框中选中项目内容，同时列表框移除该项；单击“添加”按钮时，将文本框修改后的内容添加在列表框中列表的末尾。保存窗体文件xg.frm,工程文件为xg.vbp. 5. 设计如图所示窗体form1,在窗体左边画两个名称为t1、t2的文本框，文本框内显示空白；在窗体右下方画一个名称为c1的命令按扭，按扭的标题为“复制”。编写适当的事件过程，使得在运行时，选定t1中任意文本后，单击命令按扭c1,文本框t2中显示t1中所选定的文本。 一．选择题 1.三种基本结构中，能简化大量程序代码行的是（）。 A．顺序结构B．分支结构 C．选择结构D．重复结构 D。【解析】重复结构又称为循环结构，它根据给定的条件，判断是否需要重复执行某一相同或类似的程序段，利用重复结构可以简化大量的程序行。 2.下列关于栈的描述正确的是（）。 A．在栈中只能插入元素而不能删除元素B．在栈中只能删除元素而不能插入元素 C．栈是特殊的线性表，只能在一端插入或删除元素 D．栈是特殊的线性表，只能在一端插入元素，而在另一端删除元素 C。【解析】根据数据结构对栈的定义及其特点可知：栈是限定只在表尾进行插入或删除操作的线性表，因此栈是先进后出的线性表，对栈的插入与删除操作，不需要改变栈底元素。栈是限定只在表尾进行插入或删除操作的线性表。 3.下列有关数据库的叙述，正确的是（）。 A．数据处理是将信息转化为数据的过程 B．数据的物理独立性是指当数据的逻辑结构改变时，数据的存储结构不变 C．关系中的每一列称为元组，一个元组就是一个字段 D．如果一个关系中的属性或属性组并非该关系的关键字，但它是另一个关系的关键字，则称其为本关系的外关键字 D。【解析】数据处理是指将数据转换成信息的过程，故选项A 叙述错误；数据的物理独立性是指数据的物理结构的改变不会影响数据库的逻辑结构，故选项B叙述错误；关系中的行称为元组，对应存储文件中的记录，关系中的列称为属性，对应存储文件中的字段，故选项C叙述错误。 4.概要设计中要完成的事情是（）。 A．系统结构和数据结构的设计B．系统结构和过程的设计 C．过程和接口的设计D．数据结构和过程的设计 A。【解析】软件概要设计的基本任务是：设计软件系统结构；数据结构及数据库设计；编写概要设计文档；概要设计文档评审。 5.下面排序算法中，平均排序速度最快的是（）。 A．冒泡排序法B．选择排序法 C．交换排序法D．堆排序法 D。【解析】在各种排序方法中，快速排序法和堆排序法的平均速度是最快的，因为它们的时间复杂度都是O（nlog2n），其他的排序算法的时间复杂度大都是O（n2）。 6.下列描述中正确的是（）。 A．软件工程只是解决软件项目的管理问题B．软件工程主要解决软件产品的生产率问题C．软件工程的主要思想是强调在软件开发过程中需要应用工程化原则 D．软件工程只是解决软件开发中的技术问题 C。【解析】软件工程是研究和应用如何以系统性的、规范化的、可定量的过程化方法来开发和维护软件，以及如何把经过时间考验而证明正确的管理技术和当前能够得到的最好的技术方法结合起来。软件工程的目标是生产具有正确性、可用性及开销合宜的产品，它的主要思想是强调在软件开发过程中需要应用工程化原则。 7.关系模型允许定义3类数据约束，下列不属于数据约束的是（）。 A．实体完整性约束B．参照完整性约束 《VB程序设计》模拟试题 ●填空题 1.窗体模块的文件扩展名为 ___FRM_________ 、标准模块的文件扩展名为____BAS______ 、 类模块文件的扩展名为______CLS_______ 。 2.Visual Basic中数据类型可分为 _____标准数据类型________和用户自定义数据类型两大类，前者根据其取值的不同，可分为_____整型_________、 ______长整型_____、布尔型和 ____字符型_________。 3. Abs(-6.5)= _____6.5______；Int(-9.1)= ____-10_______。 4. "程序"& "设计"运算结果为 ___程序设计____ 。 5. Dim a, b as Boolean语句显式声明变量a是___变体___变量，b是___布尔__变量。 6. MsgBox函数的返回值中， VBRetry表示单击了____重试_____按钮，VBYes表示单击了___是_____按钮，VBNo表示单击了_____否____按钮。 7. 要加载窗体，可以在代码中使用___________语句，要显示窗体，可以在代码中使用___________方法，要隐藏窗体，可以在代码中使用Hide方法，要卸载窗体，可以在代码中使用___________方法。 8.对话框分为_________对话框和________对话框两种类型，其中_____________ 对话框最 常用。 9. 对象是Visual Basic应用程序的基本单元，它是由 ___类___创建的。在Visual Basic中可以用属性、 __方法___、___事件___ 来说明和衡量一个对象的特性。 10. 条件判断语句可以使用___If…then____________语句、 ____If…Then…Else______语句和 ______If…Then…ElseIf______语句。Select case 语句 11. 声明一个值为3.14的常量Pi的语句为___Const pi = 3.14______。 12. Do…Loop Until 循环结构中，当条件为____真____时结束循环。 13. 要显示弹出菜单，可以在代码中使用_____________事件。 14. 参数传递有__________方式、__________方式和命名传递方式，常量默认采用__________方式；变量默认采用__________方式；表达式默认采用__________方式。 15. 名称属性必须以一个__字母标点_开始并且最长可达40个字符,不能包括__符号___ 和 ___空格___。 16.Visual Basic的程序模块有3种：____窗体模块____ 、标准模块和 ____类模块____。 17.Visual Basic程序，按其语句代码执行的先后顺序，可以分为___顺序__结构、选择__结构和___循环____ 结构。 18.数组元素下标的下界默认为是_____________，如果要改变其默认值，应使用_____________。 ●判断题 （）1. Visual Basic运行程序的方法只有编译模式。 （）2. 语句Command1.visible=false 与Command1.enabled=false 是等价的。 （）3. InputBox函数和MsgBox函数一样，返回的是字符串。 （）4. 通过类模块，我们不可以根据需要建立自己的控件。 （×）5. 2.1E+5是合法的Visual Basic数据。 （）6. 根据占用内存方式的不同，可将数组分为常规数组和动态数组两种类型。 （√）7. x2是合法的变量名。 （）8. 按照文件的存取方式及其组成结构可以分为两种类型：文本文件和随机文件。 《https://www.wendangku.net/doc/2c12832527.html,程序设计课程》模拟题(A卷答案) 一、选择题 1.下列叙述中正确的是_____________。 A.数组是用户自定义的数据类型 B.数组元素在内存中的存放形式是连续的 C.数组在使用时可以采用隐式声明 D.数组的下界可以任意 答案 B 2.复选框的CheckState属性为__________时，表示复选框内有灰色的勾即不可选。 A.Unchecked B.Indeterminate C.Checked D.None 答案 B 3.删除列表框中第2项的项目，所使用的方法为______ 。 A.Items.RemoveAt B.Move C.Items.Clear D.Items.Remove 答案 A 4.要想从子过程调用后返回两个结果，下面子过程语句说明合法的是 __________。 A.Sub f1(ByVal n%,ByVal m%) B.Sub f1( ByRef n%,ByVal m%) C.Sub f1( ByRef n%, ByRef m%) D.Sub f1(ByVal n%, ByRef m%) 答案 C 5.下列各赋值语句，语法不正确的是（） A.iNumber = 15 B.sLength = x + y C.x+y = 5 https://www.wendangku.net/doc/2c12832527.html,bel1.Text = TimeOfDay 答案 C 6.在用通用对话框控件建立打开文件对话框时，在文件列表框只允许显示文本文件类型的文件，则Filter属性的正确设置是_________。 A.Text(.txt)||*.txt B.Text(.txt)(*.txt) C.文本文件|(.txt) D.Text(.txt)|*.txt 答案 D 7.以下程序输出的结果是___________ 。 Dim a() As Integer={1, 2, 3, 4, 5, 6, 7} For i =0 To Ubound (a) a(i) = a(i) * a(i) Next i MsgBox(a(i)) A.49 B.0 C.不确定 D.程序出错 答案 D 8.下列_____________方式声明的变量在每次调用该过程时其值不能保留。 A.在过程体中用Dim语句声明的变量 B.在标准模块中声明的变量 C.在过程外声明的变量 D.在过程体中用Static语句声明的变量 答案 A 9.在下列关于定时器的说法中，正确的是( )。 A.当Enabled属性为False时，不产生Tick事件 B.在程序运行时不可见的，这是因为Visible属性为False C.当Interval属性为0，则Tick事件不会发生 、单选题 ( 30分，每小题 1分) (A) 输出设备 (B) 输入设备 (C) 存储设备 (D) 缓冲设备 列表示存储容量的数据中， ____ (3) ___ 是最大的 是事件驱动型可视化编程工具 应用程序不具有明显的开始和结束语句 工具箱中的所有控件都具有宽度(Width )和高度(Height )属性 中控件的某些属性只能在运行时设置 (7)___ 模式。 运行 (D) 中断 (A) 32548.5 (B) 32,548.5 (C) 032,548.50 (D) 32,548.50 若要使某可见控件获得焦点，则可使用 ___(9) _____ 方法来实现。 (A) Refresh (B) SetFocus (C) Value (D) GotFocus 在下列说法中，正确的是 ___(10)___ 。 (A) 通过适当的设置，可以在程序运行期间，让时钟控件显示在窗体上 (B) 在列表框中不能进行多项选择 (C) VB 系统不能在列表框中自动实现将项目按字母顺序从大到小排列 (D) 复选框的 Value 属性值为布尔型 执行以下程序段 ,输出的结果为 ___(11)___。 a$="abbacddcba" 一个完整计算机系统应包括 (A) 主机、键盘、和显示器 (C) 主机和其他外部设备 打印机属于计算机部件中的 (1) ___ 。 (B) 硬件系统和软件系统 (D) 系统软件和应用软件 (2)___ 。 (A) 20480 KB (B) 1.44 MB 在计算机内部能够直接执行的程序语言是 (A) 数据库语言 (B) 高级语言 下列叙述正确的是 ___(5)_ (A) 程序设计就是编制程序 完成 (C) 程序经调试改错后还应进行再测试 以下叙述中错误的是 ___(6) (C) 1 GB (D)4865723 Byte ___(4) ___ 。 (C) 机器语言 (B) (D) 汇编语言 程序的测试必须由程序员自己去 (D) 程序经调试改错后不必进行再测试 (A)Visual Basic (B)Visual Basic (C)Visual Basic (D)Visual Basic 以下不属于VB 工作模式的是 (A) 编译 (B) 设计 (C) 以下语 句的输出结果是 Print Format $(32548.5, (8)___ 。 “000,000.00 ”) 模拟试题三 一、单选题 1. Visual Basic是一种面向对象的可视化程序设计语言，采取了 A 的编程机制。 (A) 事件驱动 (B) 按过程顺序执行 (C) 从主程序开始执行 (D) 按模块顺序执行 2. 若要使标签控件显示时不覆盖其背景内容，要对 D 属性进行设置。 (A) Backcolor (B) BorderStyle (C) Forecolor (D) Backstyle 3. 在Visual Basic中最基本的对象是 C ，它是应用程序的基石，是其他控件的容器。 (A) 文本框 (B) 命令按钮 (C) 窗体 (D) 标签 4. 要判断在文本框是否按下Enter键，应在文本框的 B 事件中判断。 (A) Change (B)KeyDown (C) Click (D)KeyPress 5. 数学表达式3≤x — VB 试卷 一、单项选择题 (每题 2 分 ,共 40分) 1.窗体的标题栏显示内容由窗体对象的属性决定。 A) BackColor B)BackStyle C)Text D)Caption 2.窗体的示意图标可用属性来设置。 A) Picture B) Image C) Icon D) MouseIcon 3.窗体的控制菜单的有无由窗体对象的属性决定。 A) ControlBox B) MinButton C) MaxButton D) BorderStyle 4.若要取消窗体的最大化功能，则可设置属性为 False 来实现。 A) ControlBox B) MinButton C) MaxButton D) Enabled 5.以下 4 个选项，不属于 VB 的工作模式。 A) 编译B)设计C)运行D)中断 6.窗体的边框样式由窗体对象的属性来设置。 A) BackStyle B) BorderStyle C) WindowState D) FillStyle 7.若要以程序代码方式设置在窗体中显示文本的字体大小，则可用窗体对象的 属性来实现。 A) FontName B) Font C) FontSize D) FontBold 8.命令按钮的标题文字由属性来设置。 A) Text B) Caption C) Name D) ( 名称 ) 9. VB 是面向对象的程序设计，以下 4 个选项，不属于面向对象的三要素。 A)变量B)属性C)事件D)方法 10.若要将某命令按钮设置为默认命令按钮，可设置属性为 True 来实现。 A) Value B) Cancel C) Default D) Enabled 11.若要使命令按钮不可见，可设置属性为False 来实现。 A) Value B) Enabled C) Visible D) Cancel 12.运行程序时，系统自动执行窗体的事件。 A) load B) click C) unload D) GotFocus 13.若要设置文本框最大可接收的字符数，可通过属性来实现。 A) MultiLine B) Length C) Max D) MaxLength 14.若要使某命令按钮获得控制焦点，可使用方法来设置。 A) Refresh B) SetFocus C) GotFocus D) Value 15.若要使命令钮可响应事件，可通过设置属性的取值来实现。 A) Visible B) Enabled C) Default D) Value 16.在运行时，若要调用某命令按钮的Click 事件过程，可设置该命令按钮对象的 属性为 True来实现。 A) Enabled B) Value C) Default D) Cancel 17.标签框的边框，由属性的设置值决定。 2014计算机二级VB模拟试题与答案（三） 一、选择题 1、以下关于MsgBox 的叙述中，错误的是()。 A.MsgBox 函数返回一个整数 B.通过MsgBox 函数可以设置信息框中图标和按钮的类型 C.MsgBox 语句没有返回值 D.MsgBox 函数的第二个参数是一个整数，该参数只能确定对话框中显示的按钮数量 2、下列操作不能向工程中添加窗体的是()。 A.执行"工程"菜单中的"添加窗体"命令 B.单击工具栏中的"添加窗体"按钮 C.右击窗体，在弹出的菜单中选择"添加窗体"命令 D.右击工程资源管理器，在弹出的菜单中选择"添加"命令，然后在下一级菜单中选择"添加窗体"命令 3、下列选项中不属于软件生命周期开发阶段任务的是()。 A.软件测试 B.概要设计 C.软件维护 D.详细设计 4、表达式"4+5/6*7/8 Mod 9"的值是()。 A.4 B.5 C.6 D.7 5、数据库系统的核心是()。 A.数据模型 B.数据库管理系统 C.数据库 D.数据库管理员 6、以下叙述中错误的是()。 A.一个工程中可以包含多个窗体文件 B.在一个窗体文件中用Private 定义的通用过程能被其他窗体调用 C.在设计Visual Basic 程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件 D.全局变量必须在标准模块中定义 7、下列关于过程及过程参数的描述中，错误的是()。 A.过程的参数可以是控件名称 B.调用过程时使用的实参的个数应与过程形参的个数相同 C.只有函数过程能够将过程中处理的信息返回到调用程序中 D.窗体可以作为过程的参数 8、有下列事件过程： Private Sub Co mmand1_Click() b =10VB模拟试题1
VB模拟试题四
计算机vb模拟试题
二级VB模拟试题1-1
vb模拟题
VB模拟试题
VB期末考试模拟题1讲解
VB模拟试题2
VB模拟试题1
VB模拟题
二级vb模拟试题,带操作题
《VB程序设计基础》模拟精彩试题
(完整word版)vb期末模拟题(答案)
VB模拟试题.doc
VB模拟试题三
vb试卷试题包括答案.docx
2014计算机二级VB模拟试题与答案(二)