单项选择题
在窗体上画两个名称分别为Text1、Text2的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click( )
Dim x As Integer, n As Integer
x=1
n=0
Do While x<20
x=x*3
n=n+1
Loop
Text1.Text=Str(x)
Text2.Text=Str(n)
End Sub
程序运行后,单击命令按钮,在两个文本框中显示的值分别是______。
A.15和1
B.27和3
C.195和3
D.600和4
点击查看答案&解析
<上一题
目录
下一题>
热门
试题
单项选择题
阅读程序: Private Sub Form_Click( ) Dim i As Integer, sum As Integer For i=2 To 10 If i Mod 2<>0 Then Print i; Else sum=sum+i End If Next i Print sum End Sub 程序运行后,单击窗体,在窗体上的输出结果是______。
A.3 5 7 9 30
B.1 3 5 7 9
C.2 4 6 8 20
D.11 15 17 19 20
点击查看答案&解析
单项选择题
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click( ) Dim m As Integer,i As Integer,x(3)As Integer For i=0 To 3 : x(i)=i:Next i For i=1 To 2:Call subl(x,i):Next i For i=0 To 3:Print x(i);:Next i End Sub Private Sub subl(a( )As Integer,k As Integer) Dim j As Integer Do a(k)=a(k)+a(k+1) j=j+1 Loop While j<2 End Sub 程序运行后,单击命令按钮,则窗体上显示的内容是______。
A.0 3 7 5
B.0 1 2 3
C.3 2 4 5
D.0 5 8 3
点击查看答案&解析
相关试题
下列打开“代码窗口”的操作中不正确的是_...
以下关于函数过程的叙述中,正确的是___...
设栈S和队列Q的初始状态为空。元素a、b、c...
链表适用于______查找。
有下列程序: Private Sub Command1_C...