VB期中练习题-答案

58.比较图片框(PictureBox)和图像框(Image)的使用,正确的描述是( )。

A. 当图片框(PictureBox)的AutoSize自属性为False时,只在装入图元文件(*.wmf)时,图形才能自动调整大小以适应图片框的尺寸

B.当图像框(Image)的Stretch属性为True时,图像框会自动改变大小以适应图形的大小,使图形充满图像框

C.两类控件都可以设置AutoSize属性,以保证装入的图形可以自动改变大小

D.两类控件都可以设置Stretch属性,使得图形根据物件的实际大小进行拉伸调整,保证显示图形的所有部分

59删除列表框中指定的项目所使用的方法为(D) A.Move B.Remove C.Clear

D.RemoveItem

60.若要向列表框添加列表项,可使用的方法是( A )。

A、AddItem B、Remove C、Clear D、Add

61当拖动滚动条中的滚动块时,将触发的滚动条的事件是(C) A.Move B.Change C.Scoll D.SetFocus

62.滚动条控件的LargeChange属性所设置的是(B )

A.滚动条中滚动块的最大移动范围

B.单击滚动条和滚动箭头之间的区域时,滚动条控件value属性值的改变量 C.滚动条中滚动块的最大移动位置 D. 滚动条控件无该属性

63用户在组合框中输入或选择的数据可以通过一个属性获得,这个属性是(C) A.List

B.ListIndex C.Text

D.ListCount

64.设置一个单选按钮(OptionButton)所代表选项的选中状态,应当在属性窗口中改变的属性是(D )

A.Caption B.Name C.Text D.Value

65.在窗体(Name属性为Form1)上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Command1),然后编写如下两个事件过程: Private Sub Command1_Click() a = Text1.Text + Text2.Text

Print a End Sub

Private Sub Form_Load() Text 1.Text = \ Text2.Text = \ End Sub

程序运行后,在第一个文本框(Text1)和第二个文本框(Text2)中分别输入123和321,然后单击命令按钮,则输出结果为(C) A.444 B.321123 C.123321 D.132231

65. 运行下面程序后输出的结果是(B) Private Sub Form_Click() K = 4

If K <= 3 Then n = 5 If K <= 4 Then n = 4 If K <= 5 Then n = 3 Print n End Sub

A. 无输出 B. 3 C. 4 D. 5

66. 运行下面程序后输出的结果是(B) Private Sub Form_Click()

score = Int(Rnd * 10) + 80 Select Case score

Case Is < 60: PingYu = \未通过\ Case 60 To 69: PingYu = \合格\ Case 70 To 79: PingYu = \中\ Case 80 To 89: PingYu = \良\ Case Else: PingYu = \优\ End Select Print PingYu End Sub

A. 优 B. 良 C. 中 D. 合格 67.有如下程序:

Private Sub Form_Click() A = 3

If A <= 3 Then Print 3; End If

If A <= 4 Then Print 4; End If

If A <= 5 Then

Print 5; End If

If A <= 6 Then Print 6; End If Print End Sub

运行后输出的结果是_3 4 5 6______

68.窗体上有两个文本框Text1和Text2,下面程序的功能是:在文本框Text1中输入一个0~6的整数,然后单击窗体;在文本框Text2中用英文显示是星期几。请将程序补充完整。 注意:不得增行或删行,也不得更改程序的结构!

Private Sub Form_Click() Dim Var%

___Var_________=Text1.Text Select Case Var Case 0

Text2.Text = \ Case 1

Text2.Text = \ Case 2

Text2.Text = \ Case 3

Text2.Text = \ Case 4

Text2.Text = \ Case 5

Text2.Text = \ Case 6

Text2.Text = \ Case Else

Text2.Text = \ _ End Select_________________ End Sub

69.以下叙述正确的是()

A.Select Case 语句中的测试表达式可以是任何形式的表达式 B.Select Case 语句的测试表达式只能是数值表达式或字符表达式

C.在执行Select Case 语句时,所有Case 子句均按出现的次序被顺序执行 D.如下Select Case 语句的Case表达式是错误的 Select Case

Case 1 TO 10 …… End Select 答案:B

70.窗体上画一个命令按钮,其名称为command1,然后编写如下事件过程: Private Sub command1_click()

For I = 1 To 4

If I = 1 Then x = I

If I <= 4 Then x = x + 1 Print x; Next I End Sub

程序运行后,单击命令按钮,其输出结果为()

A.1 2 3 4 B.2 3 4 5 C.2 3 4 4 D.3 4 5 6 答案:B

71.有如下程序。其输出结果为() Private Sub command1_click()

x = Sqr(2) \\ 2 + Sgn(2) \\ 2 + Rnd(2) \\ 2 x = Sqr(3) \\ 3 + Sgn(3) \\ 3 + Rnd(3) \\ 3 If x > y Then Print \ ElseIf x = y Then Print \ Else

Print \ End If End Sub

A.x>y B.x=y C.x

Private Sub Form_Click() A = 0

For j = 1 To 20 Step 2 A = A + j \\ 5 Next j Print A End Sub

运行后,输出的结果是(B)

A. 12 B. 16 C. 40 D. 100 73.有一个分数序列: 2/1 3/2 5/3 8/5 13/8

求这个序列前20项的和。请将程序补充完整。 注意:不得增行或删行,也不得更改程序的结构。 Private Sub form_click() Dim s As Single

Dim t1 As Integer, t2 As Integer, t As Integer Dim I As Integer s = 0 t1 = 2 t2 = 1 I = 0

DO while _I<=19______

S=__s+t1/t2___________ t = t1 + t2

__t2=t1___________ __t1=t___________ I = I + 1

Print I; t1; t2; s Loop Print s End Sub

74.有如下程序:

Private Sub Form_click() A = 0

For j = 1 To 10

A = A + j \\ 2 + j Mod 3 Next j Print A End Sub

运行后,输出的结果是_________ A. 20 B.25 C. 30 D. 35 75.有如下程序: Private Sub Form_clik() Dim s%, i% s = 0 i = 100

Do While i <= 120

If (i \\ 3) * 3 = i Then s = s + 1 i = i + 1 End If i = i + 1 Loop Print s End Sub

运行后输出的结果是________

A. 7 B. 9

C. 11 D. 13 76.有如下程序: Private Sub form_click() s = 0 i = 1

Do While i <= 100

If i Mod 10 <> 0 Then s = s + i i = i + 1 Else

联系客服:779662525#qq.com(#替换为@) 苏ICP备20003344号-4