更多"在窗体上画一个名称为Text1的文本框和一个名称为Command1的命"的相关试题:
[单项选择]在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，把文本框 的Text属性设置为空白，然后编写如下事件过程：
Private Sub Command1_Click（ ）
a = InputBox("Enter an integer") b = InputBox("Enter an integer") Text1.Text = b + a
End Sub 程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10，则文本框中显示 的内容是______。
A. 108
B. 18
C. 810
D. 出错
[单项选择]在窗体上画1个命令按扭（名称为Command1）和1个文本框（名称为Text1），然后编 写如下事件过程：
Private Sub Command1_Click（ ）
x=Val(Text1.Text) Select Case x
Case 1,3
y=x*x
Case Is>=10,Is<=-10
y=x
Case -10 To 10
y=-x End Select End Sub
程序运行后，在文本框中输入3，然后单击命令按扭，则以下叙述中正确的是______。
A. 执行y=x*x
B. 执行y=-x
C. 先执行y=x*x，再执行y=-x
D. 程序出错
[单项选择]在窗体上画两个文本框Text1和Text2，一个命令按钮Command1，请阅读以下程序段： Private Sub Command1_Click（ ） x=0 Do Until x＞=50 x=(x+4)*(x+3) n=n+1 Loop Text1.Text=Str(n) Text2.Text=Str(x) End Sub 运行程序后，单击命令按钮，在两个文本框中显示的值分别为( )。
A. 1和0
B. 2和240
C. 3和50
D. 4和168
[单项选择]在窗体上画一个文本框，一个命令按钮和一个标签，其名称分别为Text1、Command1和Label1，文本框的Text1属性设置为空白，然后编写如下事件过程： Private Sub Command1_Click（ ） x=Int(Val(Text1.Text)+0.5) Label1.Caption=Str(x) End Sub 程序运行后，在文本框中输入28.653，单击命令按钮，标签中显示的内容是______。
A. 27
B. 28
C. 29
D. 30
[单项选择]在窗体上画一个文本框，一个命令按钮和一个标签，其名称分别为Text1、Command1和Labell，文本框的Text1属性设置为空白，然后编写如下事件过程： Private Sub Command1 Click（ ） x=Int(Val(Text1.Text)+0.5) Labell.Caption=Str(x) End Sub 程序运行后，在文本框中输入28.653，单击命令按钮，标签中显示的内容是：_______。
A. 27
B. 28
C. 29
D. 30
[单项选择]在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click（ ） Dim i As Integer，n As Integer For i=0 To 50 i=i+3 n=n+1 If i＞10 Then Exit For Next Text1．Text=Str(n) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是______。
A. 2
B. 3
C. 4
D. 5
