更多"在窗体上绘制一个命令按钮和一个文本框，名称分别为Command1和Te"的相关试题:
[单项选择]在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，把文本框的Text属性设置为空白，然后编写如下事件过程：
Private Sub Command1_Click（ ）
x=InputBox("Enter an integer")
y=InputBox("Enter an integer")
Text1.Text=y+x
End Sub
程序运行后，单击命令按钮，如果在输入对话框中分别输入7和30，则在文本框中显示的内容是______。
A. 307
B. 37
C. 703
D. 出错
[单项选择]在窗体上绘制一个命令按钮和一个文本框，名称分别为Command1和Text1，然后编写如下程序： Private Sub Command1+Click（ ） a=InputBox(“请输入日期(1～31)”) t=“旅游景点：” &If(a ＞ 0 And a ＜= 10， “长城”，" ") &IIf(a ＞ 10 And a ＜= 20， “故宫”，" ") &IIf(a＞20 And a＜=31， “颐和园”，" ") Text1.Text=t End Sub 程序运行后，如果从键盘上输入16，则在文本框中显示的内容是
A. 旅游景点：长城故宫
B. 旅游景点：长城颐和园
C. 旅游景点：颐和园
D. 旅游景点：故宫
[单项选择]在窗体上绘制一个名称为Command1的命令按钮和一个名称为Text1的文本框，在文本框中输入以下字符串： Microsoft Sub Command1_Click（ ） 然后编写如下事件过程： Private Sub Command1_Click（ ） Open "d：/temp/outf.txt" For Output As #1 For i=1 To Len(Text1.Text) c=Mid(Text1.Text，i，1) If c＞="A" And c＜="Z" Then Print #1，LCase(c) End If Next i Close End Sub 程序运行后，单击命令按钮，文件outf.txt中的内容是
A. MVBP
B. mvbp
C. M V B P
D. m v b p
[单项选择]
在窗体上画一个命令按钮和一个文本框(名称分别为Command1和Text1)，并把窗体的KeyPreview属性设置为True，然后编写如下代码：
Dim SaveAll As StringPrivate Sub Form_ Load （ ）
Show Text1.Text=" "
Text1.SetFocusEnd
SubPrivate Sub Command1_ Click（ ）
Text1. Text=LCase(SaveAll)+SaveAll
End Sub
Private Sub Form_ KeyPress (KeyAscii As Integer)
SaveAll=SaveAll+Chr(KeyAscii)
End Sub
程序运行后，直接用键盘输入：VB，再单击命令按钮，则文本框中显示的内容为（）。
A. vbVB
B. 不显示任何信息
C. VB
D. 出错
[单项选择]在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事件过程：Private Sub Command1_Click（ ） strText = InputBox("请输入") Text1.Text = strTextEnd SubPrivate Sub Text1_Change（ ） Label1.Caption = Right(Trim(Text1.Text), 3)End Sub程序运行后，单击命令按钮，如果在输入对话框中输入abcdef，则在标签中显示的内容是
A. 空
B. abcdef
C. abc
D. def
[单项选择]在窗体上画一个文本框，一个命令按钮和一个标签，其名称分别为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、Text2的文本框，名称为Command1的命令按钮。运行程序，在Text1中输入
“FormList”，然后单击命令按钮，执行如下程序：
Private Sub Command1_Click（ ）
Text2.Text=UCase(Mid(Text1.Text，5，4))
End Sub
在Text2中显示的是（）。
A. form
B. list
C. FORM
D. LIST
