[单项选择]在窗体上画一个名称为Text1的文本框，要求文本框只能接收大写字母的输入。以下能够正确实现该操作的事件过程是______ 。
A. Private Sub Text1_ KeyPress (KeyAscii As Intege IfKeyAscii ＜ 65 Or KeyAscii ＞ 9t Then MsgBox “请输入大写字母” End If End sub
B. Private Sub Text1_ KeyDown (KeyCode As Integer, Shift As Intege IfKeyCode ＜ 65 Or KeyCode ＞ 91 Then MsgBox “请输入大写字母” End If End sub
C. Private Sub Text1_ MouseDown (Button As Integer, _ Shift As Integer, X As Single, YAs Singl IfAsc (Text1.Tex ＜ 65 Or Asc (Text1. Tex ＞ 91 Then MsgBox “请输入大写字母” End If End sub
D. Private Sub Text1_ Change() IfAsc(Text 1.Tex ＜ 65 Or Asc(Text1. Tex ＞ 91 Then MsgBox “请输入大写字母” End If End sub

更多"在窗体上画一个名称为Text1的文本框，要求文本框只能接收大写字母的输"的相关试题:

[单项选择]在窗体上画一个名称为Text1的文本框，要求文本框只能接收大写字母的输入。以下能实现该操作的事件过程是( )。
A. Private Sub Text1_KeyPress(KeyAscii As Integer) 　　If KeyAscii＜65 Or KeyAscii＞90 Then 　　　MsgBox"请输入大写字母" 　　　KeyAscii=0 　　End If 　End Sub
B. Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) If KeyCode＜65 Or KeyCode＞90 Then 　　MsgBox"请输入大写字母“ 　　KeyCode=0 　　　End If End Sub
C. Private Sub Text1_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single) If Asc(Text1.Text)＜65 Or Asc(Text1.Text)＞90 Then 　　MsgBox"请输入大写字母" 　End If End Sub
D. Private Sub Text1_Change() 　　If Asc(Text1.Text)＞64 And Asc(Text1.Text)＜91 Then 　　　MsgBox"请输入大写字母" 　　End If End Sub

查看答案

[单项选择]在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，把文本框的Text属性设置为空白，然后编写如下事件过程： Private Sub Command1_Click（　） a = InputBox("Enter an integer") b = InputBox("Enter an integer") Text1.Text = b + a End Sub 程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10，则文本框中显示的内容是______。
A. 108
B. 18
C. 810
D. 出错

查看答案

[单项选择]在窗体上画一个文本框，然后编写如下事件过程。当该程序运行后，如果在键盘上输入字母e，则文本框中显示的内容为 ______。 Private Sub Text1_KeyPress(KeyAscii As Integer) Dim char as String char=Chr(KeyAscii) KeyAscii=Asc(UCase(char)) Text1.Text=String(5，KeyAscii) End Sub
A. eeeee
B. EEEEE
C. eeeeee
D. EEEEEE

查看答案

[单项选择]在窗体上画一个文本框，然后编写如下事件过程。当该程序运行后，如果在键盘上输入字母“a”，则文本框中显示的内容为 ______。 Private Sub Text1_KeyPress＜KeyAscii As Integer) Dim char as String char=Chr(KeyAscii) Text1.Text=String(5，KeyAscii) End Sub
A. aaaaa
B. AAAAA
C. aaaaaa
D. AAAAAA

查看答案

[单项选择]在窗体上画一个名称为text1的文本框和一个名称为label1的标签，要求如下程序运行时，在文本框中输入的内容立即在标签中显示，在下划线上填入的内容是( )。 Private Sub Text1______ Label 1.Caption=Text1.Text End Sub
A. Focus
B. Crick
C. Chang
D. LostFocus

查看答案

[单项选择]在窗体上画一个文本框，然后编写如下程序： Option Base 1 Private Sub Form_Click（　） Dim Arr(10)As Integer For i=6 To 10 Arr(i)=i-3 Next i Text1．Text：Str(Arr(6)+Arr(Arr(6)+Arr(10))) End Sub 程序运行后，单击窗体，在文本框中显示的内容是
A. 1
B. 3
C. 6
D. 10

查看答案

[单项选择]在窗体上画四个文本框，并用这四个文本框建立一个控件数组，名称为Text1(下标从0开始，依次增大)，然后编写如下事件过程： Private Sub Command1_Click（　） For Each TextBox In TeXt1 Text1(i)=Text1(i).Index i=i+1 Next End Sub 程序运行后，单击命令按钮，四个文本框中显示的内容分别为 ______。
A. 0 1 2 3
B. 1 2 3 4
C. 0 1 3 2
D. 出错信息

查看答案

[单项选择]在窗体上画—个文本框（名称为Text1）和—个标签（名称为Label1），程序运行后，在文本框中每输入—个字符，都会立即在标签中显示文本框中字符的个数。以下可以实现上述操作的事件过程是（）。
A. Private Sub Text1_ Change() Label1.Caption =Str (Len(Text1.Tex)End Sub
B. Private Sub Text1_ Click() Label1.Caption=Str(Len(Text1.Tex)End Sub
C. Private Sub Text1_ Change() LabelCaption =Text1.TextEnd Sub
D. Private Sub Label1_ Change() LabelCaption=Str(Len(Text 1. Tex)End Sub

查看答案

[单项选择]在窗体上画4个文本框，并用这4个文本框建立一个控件数组，名称为Text1(下标从0开始，自左至右顺序增大)，然后编写如下事件过程： Private Sub Command1_Click（　） For Each Text Box In Text1 Text1(i)=Text1(i).Index i=i+1 Next End Sub 程序运行后，单击命令按钮，4个文本框中显示的内容分别为( )。
A. 0 1 2 3
B. 1 2 34
C. 0 1 3 2
D. 出错信息

查看答案

我来回答:

提交