VB等级考试模拟考题08版已更正错题文档格式.docx

1、A.整型 B.实型 C.字符型 D.双精度16. Print #1，STR1$中的Print是_A_。 A.顺序文件的写语句 B.在窗体上显示的方法 C.子程序名 D.打印命令17. 使用Public x声明一个全局的变量时，该语句应放在_C_。 A.过程中 B.窗体模块的通用声明段C.标准模块的通用声明段D.窗体模块或标准模块的通用声明段18. 文本框没有_D_属性。A.Enabled B.VisibleC.BackColor D.Caption19. 记录长度最大可取的值是_A_字节。A.32767 B.32768 C.65535 D.6553620. 下面四项中，_A_是VB中的数值变量

2、。 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. 文本框（Text1）中有选定的文本，执行 Text1.SelTe

3、xt=”Hello”的结果是A A.“Hello”将替换掉原来选定的文本 B.“Hello”将插入到原来选定的文本之前 C.Text1.SelLength为5 D.文本框中只有“Hello”24. 语句Print Format（HELLO, yz的正确VB逻辑表达式是_D_。 A.xy And C.xy And D.xy And yz30. 如果要使一个窗体从屏幕上和内存中完全消失，所要使用的语句是_D_。A.Hide B.Show C.Load D.Unload31. 在下列说法中，正确的是D。 A.通过适当的设置，可以在程序运行期间，让时钟控件显示在窗体上 B.在列表框中不能进行多项选择

4、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.xy35. 已编译的控件部件的扩展名是A。

5、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.ListCount-1） C.List1.List（ListCount） D.List1.List（

6、ListCount-l）39. 通过代码在运行时设置属性的语法格式为_B_。 A.对象名属性 .新值 B.对象名.属性新值 C.对象名.新值=属性 .新值 D.对象名.属性=属性 .新值40. 在下面选项中，不能完成对顺序文件的读操作的是_D_。A.LineInput语句B.Input#语句 C.Input（）函数 D.Get#语句第三题、 简单程序（共15分，每项1.5分）41. 下列程序段的运行结果。 Private Sub Form_Click（） Dim Msg Hide Msg=”选择确定按钮” MsgBox Msg Show End SubA.隐藏窗体，按确定按钮使窗体重现 B.隐

7、藏窗体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. 运行下面程序后，在窗体中显示的是_D_。a$=*: b$=$ For k=1 To 3 x$=String$（Len

8、（a$）+k,b$） Print x$; Next k Print 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 j Next I A.3 B.9 C.14 D.2145. 写出如下程序运行结果。 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 Priva

9、te Sub Command1_Click（） Dim a As Integer a = 2 sum=0 For I = 1 To 3 sum=sum+ f（a） Next I print sum A.12 B.16 C.20 D.2446. 以下程序的输出结果是_B_。 a=1234 b$=Str$（a） c=Len（Trim（b） print c;LenB（b） 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 A.21 B.22 C.2348. 以下程序的输出结果是_D_。 a

10、=100 Do s=s+a Loop Until a100 print a A.100 B.120 C.201 D.10149. 以下程序的循环次数是_A_。 For j=8 To 35 Step 3 Print j; 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

11、 Input（8,1） 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）

12、For I = 1 To 19 tt = Rnd * 51 + 50 _ if tt.ssl then ssl=tt _ Print Print ssl2. 在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 （“请输入姓名”） StuSe

13、x= InputBox （“请输入性别”） _write #1, _ ,StuNo,Stuname,StuSex 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 Sub Command1_Click（） Dim x As Integer,y As Integer, z As integer X=96 Y=64 _z=gcd（x,y）_ P

14、rint “结果=”;z 4. 请用正确的内容填空。 下面程序的作用是利用随机函数产生10个（1200） 之间的随机整数，打印其中7的整数倍的数并求其和。 For I=1 To 10 x=Int（Rnd*200+1） If _（x mod 7）=0_ Then k1=k1+x Print x End If Print k1=;k1 5. 下面程序运行时，内层循环的循环总次数是_6_。 For m = 1 To 3 For n = 0 To m - 1 Next n Next m6. 在窗体中添加两个命令按钮，其名称分别为Command1和Command2， 窗体加载时要求Command1不可用

15、，Command2可用；单击Command2后， Command1可用。请将下列程序补充完整。 Private Sub Command2_Click（） _command1.enabled=true_ Private Sub Form_Load（）_command1.enabled=false_command2.enabled=true_7. 函数odd用于判断一个数是否是奇数。当单击命令按钮时，产生 1,9之间的随机数，调用odd过程，判断该数是否为奇数。 如果是则显示“奇数”，否则显示“偶数”。 Private Sub odd（n As Integer） Print n; If n/2n2

16、 Then 奇数 Else Print _“偶数”_ End Sub Dim x As Integer x =_int（rnd*9+1）_ odd x8. 下列程序允许用户按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） T

17、hen Flag=True Exit For Next i If Not flag Then cboComputer.AddItem Computer.Text MsgBox（”组合框中已有该项目！”） 9. 请用正确的内容填空。 下面程序的功能是通过InputBox对话框接受一个 二进制数，并把它转换成一个十进制数，结果显示在窗体中。 b=InputBox（请输入一个二进制数） m=Len（b） For j= _1 to m_ dec=dec*2+ _val（Mid（b,j,1） Print b;转换后的十进制数为：dec 10. 以下程序的功能是：把当前目录下的顺序文件smtext1.tx

18、t的内容读入内存，并在文本框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 Loop1. 函数过程和子过程的区别是子过程结束将返回值过程值，函数过程结束不必返回函数值。2. 当窗体上有多个控件时，一般只有一个控件是当前控件，对控件的所有操作都是针对当前控件进行的。3. 窗体上的控件同样可以借助于剪贴板进行剪切、复制和粘贴。4. 用Dim语句声明变量时，VB系统不仅为变量分配相应数据类型的内在空间，而且还为变量赋所需的初值。5. 在VB系统中，没有用Dim语句声明的变量不能使用，因为它没有数据类型。6. 每