VB期中练习题-答案 下载本文

a=MsgBox(\,,\,\,5)(A)

A.BBBB B.空 C.AAAA D.出错,不能产生信息框

33.假定x的值为5,则在执行以下语句时,其输出结果为\的Select Case语句是(C) A. Select Case x

Case 10 To 1

Print \ End Select B.Select Case x

Case Is > 5, Is < 5 Print \ End Select C. Select Case x

Case Is > 5, 1, 3 To 10 Print \ End Select D. Select Case x

Case 1, 3, Is > 5 Print \ End Select 34. 假定有以下循环结构 Do Until条件 循环体 Loop

则正确的描述是 (B)

A.如果\条件\是一个为0的常数,则一次循环体也不执行 B.如果\条件\是一个为0的常数,则无限次执行循环体

C.如果\条件\是一个不为0的常数,则至少执行一次循环体 D.不论\条件\是否为\真\,至少要执行一次循环体 35.以下程序段的输出结果为 x=1 y=4

Do Until y > 4 x=x*y y=y+1 Loop

Print x (B) A.1 B.4 C.8 D.20

36. 执行下面的程序段后,x的值为 x=5

For i = 1 To 20 Step 2 x=x+i\\5

Next i (A)

A.21 B.22 C.23 D.24

37. 在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click() x=0

Do Until x = -1

a=InputBox(\请输入 A的值\ a=Val(a)

b=InputBox(\请输入B的值\ b=Val(b)

x=InputBox(\请输入x的值\ x = Val(x) a=a+b+x Loop Print a End Sub 程序运行后,单击命令按钮,依次在输入对话框中输入5、4、3、2、1、-1,则输出结果为 (A) A.2 B.3 C.14 D.15

38.如果要在文本框中键入字符时,只显示某个字符,如星号(*),应设置文本框的( )属性。

A.Caption B.PasswordChar C.Text

D.Char

39.退出For循环可使用的语句为( A )。

A、Exit For B、End For C、Exit Do D、End Do 40.退出Do?Loop循环可使用的语句为( C )。

A、Exit For B、End For C、Exit Do D、End Do

41.退出函数过程可使用的语句为( D )。

A、Exit sub B、End sub C、End Function D、Exit Function 42.退出sub过程可使用的语句为( A )。

A、Exit sub B、End sub C、End Function D、Exit Function

43. 在窗体上画一个文本框(其Name属性为Text1),然后编写如下事件过程: Private Sub Form_Load() Text1.Text= \ Text1.SetFocus For i=1 To 10

Sum = Sum + i Next i

Text1.Text = Sum End Sub

上述程序的运行结果是 (C)

A.在文本框Text1中输出55 B.在文本框Text1中输出0 C.出错 D.在文本框Text1中输出不定值

44.在窗体上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(其Name属性为Command1),然后编写如下事件过程: 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

程序运行后,单击命令按钮,在两个文本框中显示的值分别为 (B) A.1和0 B.2和72 C.3和50 D.4和168

45.在窗体上画一个命令按钮,名称为Command1。然后编写如下程序: Private Sub Command1_Click() For I= 1 To 4

For J = 0 To I

Print Chr(65 + I); Next J Print Next I End Sub

程序运行后,如果单击命令按钮,则在窗体上显示的内容是(A) A.BB CCC DDDD EEEEE B.A BB CCC DDDD C.B CC DDD EEEE D.AA BBB CCCC DDDDD

46.在窗体上画两个名称分别为Label1和Label2的标签,然后编写如下事件过程 Private Sub Form_Click() x= -5:s= -5 Select Case s

Case Is > 0 y=x+1 Case Is >= 0 y=x+2 Case Else y=x+3 End Select

Label1.Caption = x Label2.Caption = y

End Sub

程序运行后,单击窗体,标签Label1和Label2中显示的内容分别是 (A) A.-5 和 -2 B.-5 和 -4 C.-5 和 -3 D.-5 和 –5

33. 下列VB程序语句正确的是(D).

A. If A ≥B Then T=A: A=B: B=T B. If A ≥B Then T=A; A=B; B=T C. If A>=B Then T=A A=B B=T D. If A>=B Then T=A: A=B: B=T 47. 下列程序段执行后输出的结果是(C) n=10

For k=n To 1 step -1 x = k^2 Next k

Print x

A.-2 B.-1 C.1 D.0 48 下列程序段执行后输出的结果是(A) i=0

For k=10 To 19 Step 3 i=i+1 Next k Print i

A. 4 B. 5 C. 3 D. 6

49 下列程序段执行后输出的结果是(B) x=int (Rnd+4) Select Case x Case 5

Print \优秀\Case 4

Print \良好\ Case 3

Print \及格\Case Else

Print \不及格\End Select

A. 优秀 B. 良好 C. 及格 D. 不及格

50. 在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码: Option Base 1

Private Sub Command1_Click() Dim a

a = Array(1, 2, 3, 4) j=1

For i = 4 To 1 Step -1 s = s + a(i)*j

j =j * 10 Next i Print s End Sub

运行上面的程序,单击命令按钮,其输出结果是 (D) A.4321 B.12 C.34 D.1234

51.决定窗体标题条显示内容的属性是(C) A.Text B.Name C.Caption D.BackStyle

52.要求从文本框中输入密码时在文本框中只显示*号,则应用在此文本框的属性窗口中设置( A )

A.Passwordchar属性值为* B. Caption属性值为* C.PasswordChar属性值为真 D. Text属性值为*

53决定窗体有无控制菜单的属性是(A) A.ControlBox B.MinButton C.Enabled D.MaxButton

54使文本框获得焦点的方法是(C) A.Change B.GotFocus C.SetFocus D.LostFocus`

55下列可以把当前目录下的图形文件pic1.jpg装入图片框Picture1中的语句为 (C) A.Picture = \

B.Picture.Handle = \

C.Picture 1.Picture = LoadPicture(\ D.Picture = LoadPicture(\56决定标签内显示内容的属性是(D) A.Text B.Name

C.Alignment D.Caption

57假定在图片框Picture1中装入了一个图形,为了清除该图形(注意,清除图形,而不是删除图片框),应采用的正确方法是(B) A.选择图片框,然后按Del键

B.执行语句Picture1.picture=LoadPicture(\ C.执行语句Picture1.picture=\

D.选择图片框,在属性窗口中选择Picture属性条,然后按回车键