在窗体上画一个文本框、一个标签和一个命令按钮,其名称分别为Text1、Label1和Command1,然后编写如下两个事件过程:
Private Sub Command1_Click()
strText = InputBox("请输入")
Text1.Text = strText
End Sub
Private Sub Text1_Change()
Label1.Caption = Right(Trim(Text1.Text), 3)
End Sub
程序运行后,单击命令按钮,如果在输入对话框中输入abcdef,则在标签中显示的内容是
发布于 2022-05-11 10:19:57
登录后免费查看答案
关注者
0
被浏览
12
1 个回答
推荐阅读
-
在窗体上画一个文本框、一个标签和一个命令按钮,其名称分别为 Text1、Label1 和Command1,然后编写如下两个事件过程:Private Sub Command1_Click( ) S$=InputBox("请输入一个字符串") Text1.Text=S$End SubPrivate Sub Text1_Change( ) Label1.Caption=UCase(Mid(Text1.Text, 7))End Sub程序运行后,单击命令按钮,将显示一个输入对话框,如果在该对话框中输入字符串“VisualBasic”,则在标签中显示的内容是______。
2022-05-11 关注 0 浏览7 1答案
-
在窗体上画一个命令按钮和一个文本框,其名称分别为Command1和Text1,把文本框的Text属性设置为空白,然后编写如下事件过程:Private Sub Command1_Click()a = InputBox("Enter an integer")b = InputBox("Enter an integer")Text1.Text = b + aEnd Sub程序运行后,单击命令按钮,如果在输入对话框中分别输入8和10,则文本框中显示的内容是
2022-05-11 关注 0 浏览23 1答案
-
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程Private Sub Command1_Click()Text1.Text = "Visual"Me.Text1 = "Basic"Text1 = "Program"End Sub程序运行后,如果单击命令按钮,则在文本框中显示的是
2022-05-11 关注 0 浏览17 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 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),并把窗体的KeyPreview属性设置为True,然后编写下列代码:Dim SaveAll As StringPrivate Sub Form Load( )ShowText1.Text=""Text1.SetFocusEnd SubPrivate Sub Command1 Click( )Text1.Text=LCase(SaveAll)+SaveAllEnd SubPrivate Sub Form KeyPress(KeyAscii As Integer)SaveAll=SaveAll+Chr(KeyAscii)End Sub程序运行后,直接用键盘输入VB,再单击命令按钮,则文本框中显示的内容为( )。
2022-05-11 关注 0 浏览15 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答案
-
在窗体上有一个名称为 Command1 的命令按钮和一个名称为 Text1 的文本框。程序运行后, Command1 为禁用(灰色),此时如果在文本框中输入字符,则命令按钮 Command1 变为可用。请填空。Private Sub Form_Load()Command1.Enabled=FalseEnd SubPrivate Sub Text1_ ______ ()Command1.Enabled=TrueEnd Sub
2022-05-11 关注 0 浏览14 1答案
-
在窗体上画两个标签和一个命令按钮,其名称分别为Label1、Label2和Command1,然后编写如下程序:Private Sub func(L As Label)L.Caption="1234"End SubPrivate Sub Form_Load()Label1.Caption="ABCDE"Label2.Caption=10End SubPrivate Sub Command1_Click()a=Val(Label2.Caption)Call func(Label1)Label2.Caption=aEnd Sub程序运行后,单击命令按钮,则在两个标签中显示的内容分别为
2022-05-11 关注 0 浏览13 1答案
-
在窗体(Name 属性为Form1)上画两个文本框(其Name 属性分别为Text1和Text2)和一个命令按钮(Name属性为Co mmand1),然后编写如下两个事件过程:Private Sub Co mmand1_Click()a=Text1.Text +Text2.Text Print aEnd SubPrivate Sub Form_Load()Text1.Text ="" Text2.Text =""End sub程序运行后,在第一个文本框(Text1)和第二个文本框(Text2)中分别输入123和321,然后单击命令按钮,则输出结果为( )。
2022-05-11 关注 0 浏览15 1答案