填空题
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后，Command1为禁用(灰色) 。当向文框中输入任何字符时，命令按钮Command1变为可用。请在 [6] 处填入适当的内容，将程序补充完整。
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后，Command1为禁用(灰色) 。当向文框中输入任何字符时，命令按钮Command1变为可用。请在 [6] 处填入适当的内容，将程序补充完整。
Private Sub Form_Load()
Command1.Enabled=False
End Sub
Private Sub Text1_ ______ ( )
Command1.Enabled=True
End Sub
发布于 2022-05-11 10:20:19
登录后免费查看答案
关注者
0
被浏览
16
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答案
-
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程Private Sub Command1_Click()Text1.Text = "Visual"Me.Text1 = "Basic"Text1 = "Program"End Sub程序运行后，如果单击命令按钮，则在文本框中显示的是
2022-05-11 关注 0 浏览17 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)，并把窗体的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的命令按钮和一个名为Timer1的计时器，并有下面的事件过程：Private Sub Command1_Click（ ）Timer1．Enabled=TrueEnd SubPrivate Sub Form_Load（ ）Timer1．Interval=10Timer1．Enabled=FalseEnd SubPrivate Sub Timer1 Timer（ ）Command1．Left=Command1．Left+10End Sub程序运行时，单击命令按钮，则产生的结果是（ ）。
2022-05-11 关注 0 浏览15 1答案
-
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Move 500，500End Sub程序运行后，单击命令按钮，执行的操作为
2022-05-11 关注 0 浏览11 1答案
-
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()a$="VisualBasic"Print String(3,a$)End Sub程序运行后，单击命令按钮，在窗体上显示的内容是
2022-05-11 关注 0 浏览21 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，然后编写如下事件过程：Private Sub Command1_Click()a = 12345Print Format$(a, "000.00")End Sub程序运行后，单击命令按钮，窗体上显示的是
2022-05-11 关注 0 浏览12 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答案
