1、vb复习题第一卷 客观题第一题：是非题（共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. 在事件驱
2、动的应用程序中，代码是按照预定的路径执行的。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.KeyPress12. InputBox函数的返回值的类型为_B_。 A.数值 B.字符串 C.逻辑值 D.日期值13. 要想在过
3、程调用后返回两个结果，下面的过程定义语句合法的是_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指定
4、允许的最后页码。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. 记录长度最大可取的值是_A_字节。 A.32767 B.32768 C.65
5、535 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”，l C.List1.AddItem 0，”China” D.List1.AddItem 1，”China”22. 下列不能打开菜单编辑器的操作是_D_。 A.按Ctrl+E B.单击工具栏中的“菜单编辑器”按钮 C.执行“工具”菜单中的“菜单编辑器”命令 D.按Shift + Alt + M23
6、. 文本框（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 D.Unload31. 在下列说法中，正确的是D。 A.通过适当的
7、设置，可以在程序运行期间，让时钟控件显示在窗体上 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
8、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.List1.List(List1.ListCoun
9、t-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=”选择确定按钮
10、” 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 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 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.2145. 写出如下程序运行结果。 D Function f(m As Integer)
12、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.2446. 以下程序的输出结果是_B_。 Private Sub Command1_Click() a=1234 b$=Str$(a) c=Len(Trim(b) print
13、 c;LenB(b) End Sub A.3 8 B.4 10 C.5 10 D.4 847. 执行下面程序段后，变量x的值为_A_。 x=5 For I=1 To 20 step 2 x=x+I5 Next I A.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 Sub A.100 B.120 C.201 D.10149. 以下程序的循环次数是_A_。 Private Sub Command1_Click() Fo
14、r j=8 To 35 Step 3 Print j; Next j End Sub A.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 Sub A.在通用对话框中显示“ABCD我是一个” B.在通用对话框中显示“ABCD
15、我是” 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
16、ssl=tt_ Next I Print Print ssl End Sub2. 在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, _ ,St
17、uNo,Stuname,StuSex Next I Close #1 End Sub3. 编写一个求最大公约数的函数，并调用该函数，程序如下： 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)_ Pri
18、nt “结果=”;z End Sub4. 请用正确的内容填空。 下面程序的作用是利用随机函数产生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 Sub5. 下面程序运行时，内层循环的循环总次数是_6_。 For m = 1 To 3 For n = 0 To m - 1 Next n Next m6. 在窗体中添加
19、两个命令按钮，其名称分别为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 Sub7. 函数odd用于判断一个数是否是奇数。当单击命令按钮时，产生 1,9之间的随机数，调用odd过程，判断该数是否为奇数。 如果
20、是则显示“奇数”，否则显示“偶数”。 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 Sub8. 下列程序允许用户按Enter键将一个组合框（cboComputer）中没有的项目添加到组合框中。 Sub cboComputer_KeyPress(KeyAscii As Integer) D
21、im flag As Boolean If KeyAscii=13 Then flag=False For I=0 To cboComputer.ListCount-1 IfThen Flag=True Exit For End If Next i If Not flag Then Else MsgBox(”组合框中已有该项目！”) End If End If End Sub9. 请用正确的内容填空。 下面程序的功能是通过InputBox对话框接受一个 二进制数，并把它转换成一个十进制数，结果显示在窗体中。 Private Sub Form_Click() b=InputBox(请输入一个二进
22、制数) m=Len(b) For j= _1 to m_ dec=dec*2+ _val(Mid(b,j,1) Next j Print b;转换后的十进制数为：;dec End Sub10. 以下程序的功能是：把当前目录下的顺序文件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.T
23、ext = Text1.Text & inData Loop End Sub第一卷 客观题第一题：是非题（共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
