中国海洋大学Vb复习考题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 B.Name 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.\ C.9>\D.\

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$= \ b$= \

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$=\ Case 4 a$=\ Case 3 a$=\ Case Else a$=\

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 \＝\ End Sub

10. 以下程序的功能是：从键盘上输入若干个学生的考试分数， 统计并输出最高分数和最低分数，当输入负数时结束输入， 输出结果，请将程序补充完整。 Private Sub Form_Click() Dim x, amax, amin A Single x = InputBox(\ amax = x amin = x

Do While ___x>0_________ If x > amax Then amax = x End If

If __x

x = InputBox(\ Loop

Print \ End Sub

本文来源：https://www.bwwdw.com/article/qsh5.html