在窗体上画1个命令按钮和1个文本框,其名称分别为Commandl和Textl,再编写如下程序:Dim 88 As StringPrivate Sub Textl—KeyPress(KeyAscii As Integer)If Chr(KeyAscii)””Then ss=ss+Chr(KeyAscii)End SubPrivate Sub Commandl_Click()Dim m As String,i As IntegerFor i=ten(ss)To 1 Step-1Ill=m+Mid(88,,i,1)NextTextl.Text=UCase(n1)End Sub运行程序后,在文本框中输入“Number 100”,并单击命令按钮,则文本框中最示的是A.NUMBER 100B.REBMUNC.REBMUN 100D.001 REBMUN
在窗体上画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
相关考题:
在窗体上画一个名称为Textl的文本框和一个名称为Commandl的命令按钮,然后编写如下事件过程:Private Sub Commandl_Click()Dim i As Integer,n As IntegerFor i=0 T0 50i=i+3n=n+1If i10 Then Exit ForNextTextl.Text=Str(n)End Sub程序运行后,单击命令按钮,在文本框中显示的值是A.2B.3C.4D.5
在窗体上画两个文本框(Name属性分别为Textl和Text2)和一个命令按钮(Name属性为Commandl),然后编写如下事件过程:A. 1和0B. 2和72C. 3和50D. 4和168
在窗体上画1个命令按钮和1个文本框,其名称分别为Commandl和Textl,然后编写如下代码:Dim Save All As StringPrivate Sub Commandl_C1iCk()Text1.Text=Left(UCase(SaveAU),4)End SubPrivate Sub Textl_KeyPress(KeyAscii As Intege)SaveA11=Save All+Chr(KeyAscii)End Sub程序
在窗体中添加一个命令按钮(名为Commandl)和一个文本框(名为Textl),然后编写如下事件过程: