在窗体上画1个命令按钮和1个文本框,其名称分别为Command1和Text1,然后编写如下代码:
Dim SaveAll As String
Private Sub Command1_Click()
Text1.Text=Left(UCase(SaveAll),4)
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
SaveAll=SaveAll+Chr(KeyAscii)
End Sub
程序运行后,在文本框中输入abcdefg,单击命令按钮,则文本框中显示的内容是______。
第1题:
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Text1.Text = "Visual" Me.Text1 = "Basic" Text1 = "Program" End Sub 程序运行后,如果单击命令按钮,则在文本框中显示的是
A. Visual
B.Basic
C.Program
D.出错
第2题:
在窗体中添加名称为Command1和名称为Command2的命令按钮以及文本框Text1,然后编写如下代码: Private Sub Command1_Click( ) Text1.Text="AB" End Sub Private Sub Command2_Cliek( ) Text1.Text="CD" End Sub 首先单击Command1按钮,然后再单击Command2按钮,在文本框中显示
A.AB
B.CD
C.ABED
D.CDAB
第3题:
在窗体(Name属性为Form1)上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Command1),然后编写如下两个事件过程: 程序运行后,在第一个文本框(Text1)和第二个文本框(Text2)中分别输入“同学们,”和“你们好”,然后单击命令按钮,则输出结果为多少?
程序运行后,在第一个文本框(Text1)和第二个文本框(Text2)中分别输入“同学们,”和“你们好”,然后单击命令按钮,则输出结果为:同学们,你们好。
略
第4题:
在窗体中添加名称为Command1和名称为Command2的命令按钮测验文本框Text1,然后编写如下代码:
PrivateSubCommand1_Click()
Text1.Text="AB"
EndSub
PrivateSubCommand2_Click()
Text1.Text="CD"
EndSub
首先单击Command2按钮,然后再单击Command1按钮,在文本框中显示( )
A、AB
B.CD
C.ABCD
D.CDAB
第5题:
在窗体上画两个文本框(其Name属性分别为Text1和Tex12)和一个命令按钮(其Name属性为Command1),然后编写如下事件过程: 程序运行后,单击命令按钮,在两个文本框中显示的值分别为()。
A10和0
B2和100
C3和50
D4和168