单项选择题

在窗体上画两个名称分别为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
<上一题 目录 下一题>
热门 试题

单项选择题
在窗体上画一个命令按钮和两个文本框，其名称分别为Command1、Text1和Text2，然后编写如下程序： Dim S1 As String．S2 As String Private Sub Form_Load0 Text1.Text= Text2.Text= End Sub Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) S2=S2&Chr(KeyCode) End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) S1=S1 & Chr(KeyAscii) End Sub Private Sub Command1_Click() Text1.Text=S2 Text2.Text=S1 S1= S2= End Sub 程序运行后，在Text1中输入“abc”，然后单击命令按钮，在文本框Text1和Text2中显示的内容分别为( )。
A．abc和ABC
B．abc和abc
C．ABC和abc
D．ABC和ABC
单项选择题
在窗体上绘制一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程： Private Function fun(ByVal m As Integer) If m Mod 2=0 Then fun=2 Else fun=1 End If End Function Private Sub Command1_Click() Dim i As Integer,s As Integer s=0 For i=1 To 5 s=s+fun(i) Next Print s End Sub 程序运行后，单击命令按钮，在窗体上显示的是( )。
A．6
B．7
C．8
D．9
相关试题