在窗体上画一个命令按钮和一个文本框(名称分别为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,再单击命令按钮,则文本框中显示的内容为( )。
发布于 2022-05-11 09:56:34
登录后免费查看答案
关注者
0
被浏览
16
1 个回答
推荐阅读
-
在窗体上画一个命令按钮和一个文本框(名称分别为Command1和Textl),并把窗体的KeyPreview属性设置为True,然后编写如下代码:Dim SaveAll As StringPrivate Sub Form_Load()ShowTextl.Text=""Textl.SetFocusEnd SubPrivate Sub Command1_Click()Textl.Text=LCase (SaveAll) +SaveAl1End SubPrivate Sub Form_KeyPress(KeyAscii As Integer)SaveAll=SaveAll+Chr(KeyAscii)End Sub程序运行后,直接用键盘输入:VB,再单击命令按钮,则文本框中显示的内容为( )。
2022-05-11 关注 0 浏览16 1答案
-
在窗体上画1个命令按钮和1个文本框,其名称分别为Command1和Text1,然后编写如下代码:Dim SaveAll As StringPrivate Sub Command1_Click()Text1.Text=Left(UCase(SaveAll),4)End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)SaveAll=SaveAll+Chr(KeyAscii)End Sub程序运行后,在文本框中输入abcdefg,单击命令按钮,则文本框中显示的内容是______。
2022-05-11 关注 0 浏览19 1答案
-
窗体上有名称为Command1的命令按钮和名称为Text1的文本框Private Sub Command1_Click()Text1.Text=”程序设计”Text1.SetFocusEnd SubPrivate Sub Text1_GotFocus()Text1.Text=”等级考试”End Sub运行以上程序,单击命令按钮后
2022-05-11 关注 0 浏览12 1答案
-
在窗体上画两个文本框,其名称分别为Text1和Text2,然后编写如下程序:Private Sub Form_Load()ShowText1.Text = ""Text2.Text = ""Text1.SetFocusEnd SubPrivate Sub Text1_Change()Text2.Text = Mid(Text1.Text, 8)End Sub程序运行后,如果在文本框Text1中输入BeijingChina,则在文本框Text2中显示的内容是
2022-05-11 关注 0 浏览17 1答案
-
在窗体上画1个命令按钮和1个文本框,其名称分别为Command1和Text1,再编写如下程序:Dim ss As StringPrivate Sub Text1_KeyPress(KeyAscii As integer)If chr(KeyAscii)<>””Then ss=ss+chr(KeyAscii)End SubPrivate Sub Command1_Click()Dim m As String,i As IntegerFor i=Len(ss) To 1 step -1m=m+Mid(ss,i,1)NextText1.Text=Ucase(m)End Sub程序运行后,在文本框中输入“Number100”,并单击命令按钮,则文本框中显示的是
2022-05-11 关注 0 浏览12 1答案
-
在窗体上画l个命令按钮和l个文本框,其名称为Command1和Text1,再编写如下程序:Dim ss As StringPrivate Sub Text1 KeyPress(KeyAscii As Integer)If Chr(KeyAscii)<>""Then ss=ss+Chr(KeyAscii)End SubPrivate Sub Command1 Click( )Dim m As String,i As IntegerFor i=Len(ss)To 1 Step-1m=m+Mid(SS,i,1)NextText1.Text=UCase(m)End Sub程序运行后,在文本框中输入“Number 100”,并单击命令按钮,则文本框中显示的就是( )。
2022-05-11 关注 0 浏览15 1答案
-
在窗体上画一个命令按钮和两个文本框,其名称分别为Command1、Text1和Text2,在属性窗口中把窗体的KeyPreview属性设置为True,然后编写如下程序:Diln S1 As String,S2 As StringPrivate Sub Form Load( )Text1.Text=""Text2.Text=""Text1.Enabled=FalseText2.Enabled=FalseEnd SubPrivate Sub Form KeyDown(KeyCode As Integer,Shift As Integer)S2=S2&Chr(KeyCode)End SubPri vate Sub Form KeyPress(KeyAscii As Integer)S1=S1&Chr(KeyAscii)End SubPrivate Sub Command1 Click( )Text1.Text=S1Text2.Text=S2S1=""S2=""End Sub程序运行后,先后按“a”、“b”、“c”键,然后单击命令按钮,在文本框Text1和Text2中显示的内容分别为( )。
2022-05-11 关注 0 浏览16 1答案
-
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程Private Sub Command1_Click()Text1.Text = "Visual"Me.Text1 = "Basic"Text1 = "Program"End Sub程序运行后,如果单击命令按钮,则在文本框中显示的是
2022-05-11 关注 0 浏览17 1答案
-
在窗体上画一个文本框、一个标签和一个命令按钮,其名称分别为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,则在标签中显示的内容是
2022-05-11 关注 0 浏览11 1答案
-
在窗体上画一个命令按钮和两上文体,其名称分别为 Command1 、 Text1 和 Text2 ,然后编写如下程序:Dim S1 As String, S2 As StringPrivate Sub Form_Load()Text1. Text=””Text2. Text=””End SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)S2=s2 & Chr(KeyCode)End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)S1=S1 & chr(KeyAscii)End SubPrivate Sub Command1_Click()Text1.Text=S2Text2.Text=S1S1= “”S2= “”End Sub程序运行后,在 Text1 中输入“ abc ”,然后单击命令按钮,在文本框 Text1 和 Text2 中显示的内容分别为 ( ) 。
2022-05-11 关注 0 浏览17 1答案