更多"在窗体上绘制一个命令按钮和一个文本框,名称分别为Command1和Te"的相关试题:
[单项选择]在窗体上画一个命令按钮和一个文本框,其名称分别为Command1和Text1,把文本框的Text属性设置为空白,然后编写如下事件过程:
Private Sub Command1_Click( )
a = InputBox( "Enter an integer" )
b = Text1. Text
Text1. Text = b + a
End Sub
程序运行后,在文本框中输入456,然后单击命令按钮,在输入对话框中输入123,则文本框中显示的内容是( )。
A. 579
B. 123
C. 456123
D. 456
[单项选择]在窗体上绘制一个命令按钮和一个文本框,名称分别为Command1和Text1,然后编写如下程序: Private Sub Command1_Click( ) a=InputBox("请输入日期(1~31)") t="旅游景点:"_ &IIf(a>0 And a<=10,"长城:,"")_ &IIf(a>10 And a<=20,"故宫","")_ &IIf(a>20And a<=31,"颐和园:,"") Text1.Text=t End Sub 程序运行后,如果从键盘上输入16,则在文本框中显示的内容是( )。
A. 旅游景点:长城故宫
B. 旅游景点:长城颐和园
C. 旅游景点:颐和园
D. 旅游景点:故宫
[单项选择]在窗体上画一个命令按钮Command1和两个文本框,名称分别为Text 1和 Text 2 Text 2。编写如下两个事件过程:
Dim str As String, strl As String
Private Sub form_load( )
Text1. Text = " "
Text2. Text = " "
Text1. Enabled = False
Text2. Enabled = False
End Sub
Private Sub Form KeyPress(KeyAscii As Integer)
str= str&Chr(KeyAscii)
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
str1 = strl&Chr(KeyCode)
End Sub
Private Sub Command1_Click( )
Text1. Text =str
Text2. Text = str1
str= " "
str1= " "
End Sub
当在设计阶段把窗体KeyPreview属性设置为True时,程序运行过程中,在键盘上输入小写字母abc,然后单击命令按钮,则文本框Text1中显示的内容为 ______ 。
A. abc
B. 不显示任何信息
C. ABC
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 String
Private Sub Form Load( )
Show
Text1.Text=""
Text1.SetFocus
End Sub
Private 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( )
S$=InputBox("请输入一个字符串")
Text1.Text=S$
End Sub
Private Sub Text1_Change( )
Label1.Caption=UCase(Mid(Text1.Text,7))
End Sub
程序运行后,单击命令按钮,将显示一个输入对话框,如果在该对话框中输入字符串“VisualBasic”,则在标签中显示的内容是【 】。