单项选择题

在窗体上画两个文本框(其Name属性分别为了ext1和Text2)和一个命令按钮(其Name属性为Command1)，然后编写如下事件过程：
Private Sub Command1_Click()
x = 0： n = 0
Do Until x ＞= 30
x = (n + 2)* (n + 3)
n = n + 1
Loop
Text1．Text = Str(n)
Text2．Text = Str(x)
End Sub
程序运行后，单击命令按钮，在两个文本框中显示的值分别为

A．2和30
B．2和240
C．3和50
D．4和30
<上一题 目录 下一题>
热门 试题

单项选择题
在窗体上画一个名称为Timer1的计时器、一个名称为Command1的命令按钮和一个名称为Labell的标签。程序如下： Private Sub Command1_Click() Timer1．Enabled=True Timer1．Interval=1000 End Sub Private Sub Timerl_timer() Labell．Caption=Time End Sub 当运行程序后，单击命令按钮，将在标签中显示的内容为
A．Time
B．True
C．1000
D．10：06：55
单项选择题
在窗体中添加两个文本框，其名称分别为Text1和Text2;两个标签，其名称分别为Label1和Label2。编写程序，使得程序运行后，在文本框Text2中输入小写字母，能转换为比此字母的ASCII码小4的大写字母，结果显示在文本框Text1中。如输入“efg”，则输出的结果为“ABC”，能够实现上述功能的程序是
A．Private Sub Form Load()
Show
Text1．Text=" "
Text2．Text=" "
Text2．SetFocus
End Sub
Private Sub Text2_KeyDown(KeyCode As Integer，Shift As Integer)
Text1．Text=Chr(KeyCode-4)
End Sub
B．Private Sub Form_Load()
Show
Text1．Text=" "
Text2．Text=" "
Text2．SetFocus
End Sub
Private Sub Text2_KeyDown(KeyCode As Integer，Shift As Integer)
Text1．Text=Text1．Text+Chr(KeyCode-4)
End Sub
C．Private Sub Form_Load()
Show
Text1．Text=" "
Text2．Text=" "
Text2．SetFocus
End Sub
Private Sub Text2_Click(KeyCode As Integer，Shift As Integer)
Text1．Text=Text1．Text+Chr(KeyCOde-4)
End Sub
D．Private Sub Form_Load()
Show
Text1．Text=" "
Text2．Text=" "
Text2．SetFocus
End Sub
Private Sub Text2_Click(KeyCode As Integer，Shift As Integer)
Text1．Text=Chr(KeyCode-4)
End Sub
相关试题