单项选择题

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim a As Integer,s As Integer
a=8
s=1
Do
s=s+a
a=a-1
Loop While a＜=0
Print s；a
End Sub
程序运行后，单击命令按钮，则窗体上显示的内容是_________。

A．79
B．340
C．97
D．死循环

<上一题目录下一题>

热门试题

单项选择题

设有如下程序： 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

单项选择题

在窗体上画两个滚动条，名称分别为Hscroll1、Hscroll2；六个标签，名称分别为Labell、Label2、 Label3、Label4、Label5、Label6，其中标签Label4～Label6分别显示“A”、“B”、“A*B”等文字信息，标签Label1、Label2分分别显示其右侧的滚动条的数值，Label3显示A*B的计算结果。当移动滚动框时，在相应的标签中显示滚动条的值。当单击命令按钮“计算”时，对标签 Label1、Label2中显示的两个值求积，并将结果显示在Label3中。以下不能实现上述功能的事件过程是______。

A．Private Sub Command1_Click()
Label3.Caption=Str(Val(Label1.Caption)*Val(Label2.Caption))
End Sub
B．Private Sub Command1_Click()
Label3.Caption=HScroll1.Value*HScroll2.Value
End Sub
C．Private Sub Command1_Click()
Label3.Caption=HScroll1*HScroll2
End Sub
D．Private Sub Command1_Click()
Label3.Caption=HScroll1.Text*HScroll2.Text
End Sub

相关试题