单项选择题

在窗体上画一个名称为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.7 9
B.34 0
C.9
D.死循环
<上一题 目录 下一题>
热门 试题

单项选择题
在窗体上绘制一个名称为Command1的命令按钮,然后编写如下程序: Option Base 1 Private Sub Commandl_Click() Dim c As Integer,d As Integer d=0 c=6 x=Array(2,4,6,8,10,12) For i=1 To 6 If x(i)>c Then d=d+x(i) c=x(i) Else d=d-c End If Next i Print d End Sub 程序运行后,如果单击命令按钮,则在窗体上输出的内容为
A.10
B.16
C.12
D.20
单项选择题
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写 如下事件过程: Private Sub Command1_Click() Dim arrayl(10,10)As Integer Dim i, j As Integer For i=1 To 3 For j=2 To 4 arrayl(i,j)=i + j Next j Next i Text1.Text=arrayl(2, 3)+arrayl(3, 4) End Sub 程序运行后,单击命令按钮,在文本框中显示的值是
A.12
B.13
C.14
D.15
相关试题
  • 设有如下程序 Private Sub Search(a(...
  • 设有如下程序 Private Sub Form Click...
  • 在窗体中添加一命令按钮,(其Name属性为Co...
  • 在窗体上画一个名称为Commmld1的命令按钮...
  • 在窗体上画一个命令按钮和一个文本框,然后...