练习题(答案)

（题型、难度相似）

一、选择题（30×2’） 1. 窗体上放置了三个文本框，若在Text1中输入456，在Text2中输入78，在程序中执行了语句Text3=Text1+Text2后，则在Text3中显示（ B ）。

A.434 B.45678 C.溢出 D.语法错误 2. 如果窗体上有命令按钮“确定”，在代码编辑窗口有与之相对应的OK_Click()事件过程，则命令按钮控件的名称属性和Caption属性分别为（ A ）。 A.“OK”和“确定” B.“确定”和“OK”

C.“Command1”和“确定” D.“Command1”和“OK” 3. 下面Sub子过程的各个语句中，正确的是（ D ）

a) Private Sub Sub1(A() As string)

b) Private Sub Sub1(A(1 to 10) As string*8) c) Private Sub Sub1(S As string) d) Private Sub Sub1(s As string*8)

A. a)b)c)d) B. a)b)c) C. a)c)d) D. a)c) 4. 假设变量BOOL是一个布尔型变量，则下列赋

值语句中，正确的是（ D ）。

A. BOOL ='TRUE' B. BOOL =.TRUE. C. BOOL =#TRUE# D. BOOL = True 5. 表达式6.5*5 Mod 28\\8的值是（ C ）。 A. 0 B. 1 C. 2 D. 3 6. 以下所列项目不属于窗体事件的是（ B ）。

A. Initialize B. SetFocus C. GotFocus D. LostFocus 7. 下列定义Sub过程的语句正确的是（ A ）。

A．Private Sub Subl(A())

B．Private Sub Subl(A As String*5)

C．Private Sub Subl(ByVal A() As Integer) D．Private Sub Subl(A(10) As Integer) 8. 计算下面的表达式，其值是（ A ） 。 CInt(-3．5)*Fix(-3．81)+Int(-4．1)*(5 Mod 3) A．2 B．1 C．一1 D．6 9. 如果准备向随机文件中写入数据，正确的语句

是（ C ）。 A. Print #1,rec B. Write #1,rec C. Put #1,rec D. Get #1,rec

10. 形参是（ B ）级的。

A.全局 B.过程 C.模块 D.窗体

11. 下面关于过程参数的说法，错误的是 （ B ） 。 Ａ．过程的形参不可以是定长字符串类型的变量 Ｂ．形参是定长字符串的数组，则对应的实参必须是定长字符串型数组，且长度相同

Ｃ．若形参是按地址传递的参数，形参和实参也能以按值传递方式进行形实结合 Ｄ．按值传递参数，形参和实参的类型可以不同，只要相容即可

12. 下列有关数组的说法中,不正确的是（ B ）。

A.在窗体模块中不可以定义全局数组

B. 可以使用Erase语句释放所有数组所占据的存储空间

C. 语句Dim X(3.6+2)As Integer定义了一个维上界是6的一维的整型数组

D. 形参数组的类型可以是定长字符串类型

13. 在窗体Form1 中用“Public Sub Fun (x As Integer ,y As Single)”定义过程 Fun ，在窗体 Form2 中定义了变量i 为Integer ， j 为Single ，若要在 Form2的某事件过程中调用 Form1中的Fun 过程，则下列语句中，正确的语句有 （ C ）个。 (1) Call Fun(i,j)

(2) Call Form1.Fun(i,j) (3) Form1.Fun(i),j (4) Form1.Fun i+1,(j)

A.1 B.2 C.3 D.4

14. 在多窗体的应用程序中，当前窗体模块的Form_Click事件过程中包含如下语句,单击该窗体,其中（ B ）一定可以将Hello显示在当前窗体上。

A. Form1.Print \"Hello\" B. Me.Print \"Hello\" C. Debug.Print \"Hello\" D. Form2.Print \"Hello\"

15. 下列说法正确的是（ B ）。 A.窗体文件的扩展名为.vfp B.一个窗体对应一个窗体文件 C.一个工程只包含一个窗体

D.一个工程最多可包含256个窗体文件

16. 指出下列正确的变量名（ D ）。 A.g(1-k) B.6adhs C.*sss D.kL2_1

17. 下列表达式中，正确的是（ B ）。 A. t+cos(300°) B. (x+y)^(25/s)

C. [(X1+X2)*(X1-3)-6]*7 D. (X/-2)+sin(1.2+π)

18. 下列语句运行时系统给出错误提示的是（ A ）。

A.Print -32000-769 B.Print “1E2”+8

C.Print “AB”&128 D.Print 3=2=4

19. 下列表达式中，值为True的是（ C ）。 A.Ucase(\"ABCD\">=\"abcd\") B.14/2\\3<10 Mod 4

C. Mid(\"ABCD\D. Not(Sqr(4)-3>=-2)

20. 下列程序的循环结构执行后，i的输出值是（ C ）

For i=1 to 10 step 2 y=y+i

Next i Print i

A: 25 B: 10 C: 11 D:因为y的初值不知道，所以不确定

21. 从由字母数字组成的字符串中找出所有大写字母并逆序输出。

Dim s As String, d As String, t As String Dim i As Integer s = Text1.Text

For i = 1 To Len(s)

If Mid(s, i, 1) >= \"A\" And Mid(s, i, 1) <= \"Z\" Then t =（ A ） End If Next i

For i = Len(t) To 1 Step -1 d = d & Mid(t, i, 1) Next i

Text2.Text = d

A. t & Mid(s, i, 1) B. t & Mid(s, 1, i) C. Mid(s, 1, i) & t D. Mid(s, i, 1) & t

22. 程序 X=100 Y=200

Print IIF(X>50,X-50,X+50)

Print IIF(Y<50,Y=Y-50,Y=Y+50) 则显示的结果是（ D ）。 A. 150 150 B. 50 250 C. 50 True D. 50 False

23. 下面程序的结果是（ B ）。 Private Sub Command1_Click()

Dim sum As Integer, i As Integer For i = 7 To 4 Step -1 Select Case i Case 4, 7

sum = sum + i Case 3, 5

sum = sum + 2 Case Else

sum = sum + 1 End Select Next i

Print \"sum=\"; sum End Sub A.sum=12 B.sum=14 C.sum=16 D.sum=7

24. 下列可以将变量A和B的值互换的语句是（ C ）。 A. A=B: B=A

B. A=C: C=B: B=A C. A=A+B: B=A-B: A=A-B D. A=(A+B)/2: B=(A-B)/2

25. 以下程序代码能执行的是（ D ）。 A. If a=1 Then b=0 Else c=0 End if B. If a=1 Then : B=0 :Else If c=0 Then : d=0 C. If a=1 Then b=0

ElseIf c=0 Then b=1 D. If a=1 Then b=0

ElseIf c=0 Then End If

26. 下面程序的结果是（ B ）。 Option Base 1

Private Sub Form_Click()

Dim exam(2, 3) As Integer, v As Variant Dim i As Integer, j As Integer For i = 1 To 2 For j = 1 To 3

exam(i, j) = i * 10 + j Next j Next i

For Each v In exam Print v; Next v

End Sub A. 11 12 21 22 31 32 B. 11 21 12 22 13 23 C. 11 21 12 22 31 32 D. 11 12 21 22 13 23

27. 在窗体上画一个命令按钮，编写如下程序： 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

运行程序后，单击命令按钮，输出结果是（ C ）。

A)35 B)28 C)33 D)37

28. 在窗体的通用声明处有语句 Dim A() As Single,以下在某事件过程中重定义此数组的一组正确语句是：（ D ）。

A. ReDim A(3，3)

ReDim A(4，4) As Integer B. ReDim A(3，3)

ReDim Preserve A(4，4) C. ReDim A(3)

ReDim A(3，3) As Integer D. ReDim A(3，3)

ReDim Presever A(3，4)

29. 在窗体上画一个命令按钮，名称为Command1。程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程F1。在F1中判断所输入的整数是否是奇数，如果是奇数，过程F1返回0，否则返回1。能够正确实现上述功能的代码是（ C ）。 A．Private Sub Command1_Click() x=InputBox(“请输入整数”) a=F1(Val(x)) Print a End Sub  Function F1(ByRef b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End Function

B．Private Sub Command1_Click() x=InputBox(“请输入整数”)

a=F1(Val(x)) Print a End Sub  Function F1(ByRef b As Integer) If b Mod 2=0 Then F1=0 Else F1=1 End If End Function

C．Private Sub Command1_Click() x=InputBox(“请输入整数”) F1(Val(x)) Print a End Sub  Function F1(ByRef b As Integer) If b Mod 2=0 Then F1=1 Else F1=0 End If End Function 

D．Private Sub Command1_Click() x=InputBox(“请输入整数”) F1(Val(x)) Print a End Sub  Function F1(ByRef b As Integer) If b Mod 2=0 Then

Return 0 Else Return 1 End If End Function

30. 设有如下通用过程：

Public Function f(x As Integer) Dim y As Integer x = 20 y = 2

f = x * y End Function

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：

Private Sub Command1_Click() Static x As Integer x = 10 y = 5 y = f(x) Print x; y End Sub

程序运行后，如果单击命令按钮，则在窗体上显示的内容是（ C ）。

A．10 5 B．20 5 C．20 40 D．10 40

二、填空题（20×2’）

31. 在VB中最基本的对象是__窗体____，它是应用程序的基石，也是控件的容器。

32. 若要将窗体放在屏幕，设置的语句是 Private Sub Form_Load() Call Move(___(Screen.Width - Width) / 2 , (Screen.Height - Height) / 2__) End Sub

33. 窗体的BorderStyle属性是为了设置窗体的_____边框样式_____。

34. 在文本框Text1中显示当前的日期和时间 Private Sub Timer1_Timer()

Text1.Text = ___ Now_______ End Sub

35. 在字符串表示中，“&”和“+”的区别是_____ __________ + ：连接符两旁的操作数应均为字符型；若其中一个为数值字符型，如“123”、“78”，另一个为数值型，则自动将数值字符型转换成数值型，然后进行算术加法运算；若其中一个为非数值字符型，如“abc”,”DEF”等，另一个为数值型，则出错。

___________________。

•A B A+B A& B •“123”“3”“1233”“1233”•“123”3126 “1233”•123 3126 “1233”•“123a”3出错“123a3” 36. 运行程序时，Form1的事件Activate、GotFocus、Initialize、Load、LostFocus发生的先后顺序是_______ Initialize、 Load、Activate、GotFocus、LostFocus_________。

37. 通用过程分为__公有public_____过程和___私有private____过程。

38. 计算5！=1x2x3x4x5的积 Private Sub Command1_Click() Dim f As Single, i As Integer f = __1___ i = 1

Do While i <= 5 f = _f*i_____ i = i + 1 Loop

Print f, i End Sub

39. X、Y都是正整数，使用VB语言表达为___ ___X>0 AND Y>0 AND X=INT(X) AND Y=INT(Y) _____，产生1-100的随机整数的VB表达式为__1+INT(RND * 100)___。

40. 执行下面程序，当单击窗体时，显示在窗体上结果是___200 10______。 Private Sub Form_Click()

Dim I As Integer,Sum As Integer For I=0.5 To 8.5 Step 2.5 Sum=Sum+I*10 Next I Print Sum print I End Sub

41. 执行下面程序，当单击Commandl时，窗体上显示的内容的第二行是__1 1 1_______,第三行是__3 1 4_______、第四行是___1 3 1 __。 Option Explicit

Private Sub Command1_Click()

Dim a As Integer, b As Integer, Z As Integer

a = 1: b = 1: Z = 1 Call P1(a, b) Me.Print a, b, Z Call P1(b, a) Print a, b, Z End Sub

Private Sub P1(X As Integer, ByVal Y As Integer)

Static Z As Integer

X = X + Z: Y = X - Z: Z = X + Y Print X, Y, Z End Sub

42. 运行下面的程序，当单击窗体时，窗体上显示的内容的第三行是___2 :3______，第五行是___4 :1______。

Private Sub From_Click() Dim s As String, i As Integer,n(9) As Integer Dim s1 As String*1,j As Integer s=Trim(\"12345a307291b233\") For i=1 To Len(s) s1=Mid(s,i,1)

If s1>=\"0\" And s1<=\"9\"Then j=Val(s1) n(j)=n(j)+1

End If Next i

For j=0 To 9

Print j; \":\" ;n(j) Next j End Sub

43. 执行下面程序，单击命令按钮Command1后，显示在窗体上的结果是 __4 8 16_______。 Option Explicit

Private Sub Command1_Click()

Dim N As Integer, M As Integer N=2

DO While m<3 N=N+2

If Fun(N) Then Print N M=M+1 End If Loop End Sub

Private Function Fun(ByVal N As Integer) As Boolean

If N/2=Int(N/2)Then Fun=Fun(N/2) Else

If N=1 Then Fun=True End If End Function

44. 下面程序输出的结果是___-1____。 Option Explicit

Private Sub Command1_Click()

Dim a As Integer, b As Integer, c As Integer

b = 6: c = 6.5 a = b = c Print a End Sub