在窗体上画1个命令按钮和1个文本框,其名称分别为Commandl和Textl,再编写如下程序:
Dim 88 As String
Private Sub Textl—KeyPress(KeyAscii As Integer)
If Chr(KeyAscii)<>””Then ss=ss+Chr(KeyAscii)
End Sub
Private Sub Commandl_Click()
Dim m As String,i As Integer
For i=ten(ss)To 1 Step-1
Ill=m+Mid(88,,i,1)
Next
Textl.Text=UCase(n1)
End Sub
运行程序后,在文本框中输入“Number 100”,并单击命令按钮,则文本框中最示的是
A.NUMBER 100
B.REBMUN
C.REBMUN 100
D.001 REBMUN
第1题:
在窗体上画1个命令按钮和1个文本框,其名称分别为Commandl和Textl,然后编写如下代码:
Dim Save All As String
Private Sub Commandl_C1iCk()
Text1.Text=Left(UCase(SaveAU),4)
End Sub
Private Sub Textl_KeyPress(KeyAscii As Intege)
SaveA11=Save All+Chr(KeyAscii)
End Sub
程序
第2题:
在名为”Forml”的窗体上添加三个文本框和一个命令按钮,其名称分别为”Textl”、”Text2”、”Text3”和”Commandl”,然后编写如下两个事件过程:
第3题:
在窗体中添加一个命令按钮(名为Commandl)和一个文本框(名为Textl),然后编写如下事件过程:
第4题:
在窗体上画1个命令按钮(名称为Commandl)和1个文本框(名称为Textl),然后编写如下事件过程:
程序运行后,在文本框中输入3,然后单击命令按钮,则Y的值变为__________。
第5题:
在窗体中添加一个命令按钮(名为Commandl)和一个文本框(名为textl),编写如下事件过程:
打开窗体运行后,单击命令按钮,文本框中显示的内容是__________。