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