Question

如何解答谢列VB问题 考试急用 谢谢

51、若要设置定时器控件的定时时间，可通过（ ）属性来设置。A．Interval B．Value C．Enabled D．Text
52、在运行时，若要获得用户在文本框中所选择的文本，可通过访问（ ）属性来实现。
A．SelStart B．SelLength C．Text D．SelText
53、程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是（）。A．MouseDown B．MouseUp C．Load D．Click
54、下列程序段的执行结果是（ ）。
x=5
y=-20
If not x>0 Then x=y-3 Else y=x+3
Print x-y;y-x
A．-3 3 B．5 -8 C．3 -3 D．25 -25
55、下列程序段的执行结果是（ ）。
a=0
For i=1 to 10
If i mod 3 =0 Then a=a+i
Next i
A．18 B．55 C．37 D．10
56、在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：
Private Sub Command1_Click()
a = 12345
Print Format$(a, "000.00")
End Sub
程序运行后，单击命令按钮，窗体上显示的是（ ）。
A．123.45 B．12345.00 C．12345 D．00123.45
57、在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
x = 0
n = InputBox("")
For i = 1 To n
For j = 1 To i
x = x + 1
Next j
Next i
Print x
End Sub
程序运行后，单击命令按钮，如果输入3，则在窗体上显示的内容是（ ）。
A．3 B．4 C．5 D．6
58、设有如下程序：（ ）。
Private Sub Command1_Click()
Dim sum As Double, x As Double
sum = 0
n = 0
For i = 1 To 5
x = n / i
n = n + 1
sum = sum + x
Next
End Sub
该程序通过For循环计算一个表达式的值，这个表达式是（ ）。
A．1+1/2+ 2/3+3/4+4/5 B．1+1/2+2/3+3/4
C．1/2+2/3+3/4+4/5 D．1+1/2+1/3+1/4+1/5
59、以下程序循环的次数是（ ）。
A=0
Do while a<=10
A=A+2
Loop
A．4 B．5 C．6 D．7
60、在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，把文本框的Text属性设置为空白，然后编写如下事件过程：
Private Sub Command1_Click()
a = InputBox("Enter an integer")
b = InputBox("Enter an integer")
Text1.Text = b + a
End Sub
程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10，则文本框中显示的内容是 （ ）。
A．18 B．108 C．810 D．出错

Answer 1

51、若要设置定时器控件的定时时间，可通过（A）属性来设置。A．Interval B．Value C．Enabled D．Text
52、在运行时，若要获得用户在文本框中所选择的文本，可通过访问（D）属性来实现。
A．SelStart B．SelLength C．Text D．SelText
53、程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是（C）。A．MouseDown B．MouseUp C．Load D．Click
54、下列程序段的执行结果是（D）。
x=5
y=-20
If not x>0 Then x=y-3 Else y=x+3
Print x-y;y-x
A．-3 3 B．5 -8 C．3 -3 D．25 -25
55、下列程序段的执行结果是（A）。
////该题问得就有问题，我想可能是问执行后a的值吧
a=0
For i=1 to 10
If i mod 3 =0 Then a=a+i
Next i
A．18 B．55 C．37 D．10
56、在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：
Private Sub Command1_Click()
a = 12345
Print Format$(a, "000.00")
End Sub
程序运行后，单击命令按钮，窗体上显示的是（B）。
A．123.45 B．12345.00 C．12345 D．00123.45
57、在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
x = 0
n = InputBox("")
For i = 1 To n
For j = 1 To i
x = x + 1
Next j
Next i
Print x
End Sub
程序运行后，单击命令按钮，如果输入3，则在窗体上显示的内容是（D）。
A．3 B．4 C．5 D．6
58、设有如下程序：（ ）。
Private Sub Command1_Click()
Dim sum As Double, x As Double
sum = 0
n = 0
For i = 1 To 5
x = n / i
n = n + 1
sum = sum + x
Next
End Sub
该程序通过For循环计算一个表达式的值，这个表达式是（C）。
A．1+1/2+ 2/3+3/4+4/5 B．1+1/2+2/3+3/4
C．1/2+2/3+3/4+4/5 D．1+1/2+1/3+1/4+1/5
59、以下程序循环的次数是（C）。
A=0
Do while a<=10
A=A+2
Loop
A．4 B．5 C．6 D．7
60、在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，把文本框的Text属性设置为空白，然后编写如下事件过程：
Private Sub Command1_Click()
a = InputBox("Enter an integer")
b = InputBox("Enter an integer")
Text1.Text = b + a
End Sub
程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10，则文本框中显示的内容是 （B）。
A．18 B．108 C．810 D．出错