题目内容（请给出正确答案）

[主观题]

下列程序是在文本框Text1中输入任意一个字符，按回车后...

下列程序是在文本框Text1中输入任意一个字符，按回车后，判断是数字字符、字母字符或其它字符，然后选中相应的单选按钮。程序运行效果如下图所示。下列程序是在文本框Text1中输入任意一个字符，按回车后...下列程序是在文本框Text1中输入任意 Private Sub Text1_KeyPress(KeyAscii As Integer) Dim ch As String If KeyAscii = ______(1)______ Then ch = Text1.Text Select Case ______(2)______ Case "0" To "9" Option1.Value = True Case "a" To "z", ______(3)______ Option2.Value = True Case Else Option3.Value = True End Select End If End Sub 补全程序，在答题时，务必在答题框中写好题号和答案，如下： (1)： _________ (2)： _________ (3)： _________

提问人：网友shifor1983 发布时间：2022-01-07

参考答案

抱歉！暂无答案，正在努力更新中……

如搜索结果不匹配，请联系老师获取答案

您可能会需要：

重置密码查看订单联系客服

安装简答题APP，拍照搜题省时又省心！

更多“下列程序是在文本框Text1中输入任意一个字符，按回车后..…”相关的问题

第1题

在窗体上画一个文本框（名称为Text1)和一个标签（名称为Labe11)，程序运行后，在文本框中每输入一个

在窗体上画一个文本框(名称为Text1)和一个标签(名称为Labe11)，程序运行后，在文本框中每输入一个字符，都会立即在标签中显示文本框中字符的个数。下列可以实现上述操作的事件过程是（）。

A.Private Sub Text1 Change（） Labe11．Caption=Str(Len(Text1．Text)) End Sub

B.Private Sub Text1 Click（） Labe11．Caption=str(Len(Text1．Text)) End Sub

C.Private Sub Text1 Change（） Labe11．Caption=Text1．Text End Sub

D.Private Sub Labe1 1_Change（） Labe11．Caption=Str(Len(Text1．Text)) End Sub

点击查看答案

第2题

在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：Private Sub Text1_LostFo

在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：

Private Sub Text1_LostFocus()

If Not IsNumeric(Text1) Then

MsgBox "帐号有非数字字符错误"

Text1.Text = ""

Text1.SetFocus

else

MsgBox "帐号正确"

End If

End Sub

当在text1文本框中输入字符"abc"之后，单击命令按钮，结果为()

A.显示对话框，提示信息为"帐号正确"

B.显示对话框，提示信息为"帐号有非数字字符错误"

C.程序出错

D.没有任何提示

点击查看答案

第3题

对文本框Text1编写如下事件过程：Private Sub Text1_KeyPress（KeyAscii As Integer)Dim b

对文本框Text1编写如下事件过程：

Private Sub Text1_KeyPress(KeyAscii As Integer)

Dim b As String

b = Chr(KeyAscii)

KeyAscii = Asc(UCaseB、)

End Sub

运行时，下列叙述正确的是()。

A、 Text1中无法输入字符

B、 Text1中内容为"b"

C、 Text1中输入的字符都变为大写

D、 Text1中输入的字符都被转换成ASCII码

点击查看答案

第4题

在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后，Command1为禁用（

在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后，Command1为禁用(灰色)。当向文本框中输入任何字符时，命令按钮Command1变为可用。请在【】处填入适当的内容，将程序补充完整。 Private Sub Form_Load() Command1.Enabled=False End Sub Private Sub Text1【】() Command1.Enabled=True End Sub

点击查看答案

第5题

在窗体上有一个文本框Text1，Text属性值为空，然后编写下列事件过程：Private Sub Text1 KeyPress（K

在窗体上有一个文本框Text1，Text属性值为空，然后编写下列事件过程：

Private Sub Text1 KeyPress(KeyAscii As Integer)

Dim str As String,n As Integer

str=UCase(Chr(KeyAscii))

n=Len(str)

Text1.Text=String(n,str)

End Sub

程序运行后，若在文本框中输入单字母“p”，则在文本框Text1中显示的内容为()。

A．pp

B．pP

C．PP

D．Pp

点击查看答案

第6题

在窗体上放一个文本框Text1，在文本框中输入456，并有下列事件过程： Private Sub Form_Click（)x＝In

在窗体上放一个文本框Text1，在文本框中输入456，并有下列事件过程： Private Sub Form_Click() x＝InputBox（＂请输入一个整数＂） Print x ＋ Text1.Text End Sub单击该窗体，在输入对话框中输入123，单击“确定”按钮后，窗体上显示的是。A. 123 B. 456 C. 579 D. 123456

点击查看答案

第7题

下面关于文本框的说法中，错误的说法是 ______。

A.Text1.Caption="Hello"，是将在文本框Text1中显示Hello

B.Text1.Locked＝True，设置该文本框Text1不能编辑

C.Text1.PasswordChar＝"#"，设置文本框Text1输入的字符都显示为#，但实际接收的还是输入的内容

D.Text1.Visible=False，设置该文本框Text1不可见

点击查看答案

第8题

（12）在窗体上画一个文本框，名称为 Text1，然后编写如下程序： Private Sub Form_Load（) Open "d:

（12）在窗体上画一个文本框，名称为 Text1，然后编写如下程序：

Private Sub Form_Load()