首页 > 计算机等级考试

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

[主观题]

在窗体上画一个名称为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

查看答案

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

您可能会需要：

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

安装优题宝APP，拍照搜题省时又省心！

更多“在窗体上画一个名称为Text1的文本框，要求文本框只能接收大…”相关的问题

第1题

在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Pri

vate Sub Command1_Click() Text1.Text = "Visual" Me.Text1 = "Basic" Text1 = "Program" End Sub 程序运行后，如果单击命令按钮，则在文本框中显示的是

A． Visual

B．Basic

C．Program

D．出错

点击查看答案

第2题

在窗体上画四个文本框，并用这四个文本框建立一个控件数组，名称为Text1（下标从0开始，依次增大)，然

在窗体上画四个文本框，并用这四个文本框建立一个控件数组，名称为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．出错信息

点击查看答案

第3题

在窗体上画4个文本框（如图16－8所示)，并用这4个文本框建立一个控件数组，名称为Text1（下标从0开始，

在窗体上画4个文本框(如图16-8所示)，并用这4个文本框建立一个控件数组，名称为Text1(下标从0开始，自左至右顺序增大)，然后编写如下事件过程： Private Sub Command1_Click() For Each TextBox In Text1 Text1(i)=Text1(i). Index i=i+1 Next End Sub 程序运行后，单击命令按钮，4个文本框中显示的内容分别为______。

在窗体上画4个文本框（如图16－8所示)，并用这4个文本框建立一个控件数组，名称为Text1（下标从

A．0 1 2 3

B．1 2 3 4

C．0 1 3 2

D．出错信息

点击查看答案

第4题

在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后输写如下程序：Private S

在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后输写如下程序：

Private Sub Command1_Click()

Dim x，y，z As Integer

x=5

y=7

z=0

Text1.Text=""

Call Fun1(x，y，z)

Text1.Text=Str(z)

End Sub

Sub Fun1(ByVal a As Integer，ByVal b As Integer，c As Integer)

c=a+b

End Sub

程序运行后，如果单击命令按钮，则在文本框中显示的内容是

A．0

B．12

C．Str(z)

D．没有显示

点击查看答案

第5题

在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程: Priv

在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:

Private Sub Command1_Click()

Dim arr(10,10)As Integer,i,j As Integer

For i=1 To 3

For j=2 To 4

arr(i,j)=i+j

Next

Next

Text1.Text=arr(2,3)+arr(3,4)

End Sub

程序运行后,单击命令按钮,在文本框中显示的值是

A．12

B．13

C．14

D．15

点击查看答案

第6题

在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：O

在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：

Option Base 1

Private Sub Command1_Click()

Dim s As Integer

Dim aa(3, 2) As Integer

For i = 1 To 3

For j = 1 To 2

aa(i, j) = i + j

Next j

Next i

s = aa(1, 2) + aa(2, 1)

Print s

End Sub

程序运行后，单击命令按钮，窗体上显示的值是()

A. 4

B. 5

C.6

D. 7

点击查看答案

第7题

在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下程序：Private S

在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下程序： Private Sub Command1_Click() Dim x，y，z As Integer x=5 y=7 z=0 Text1.Text=”” Call Pl(x，y，z) Text1.Text=Str(z) End Sub Sub Pl(ByVal a As Integer，ByVal b As Integer，c As Integer) c=a+b End Sub 程序运行后，如果单击命令按钮，则在文本框中显示的内容是

A．0

B．12

C．Str(z)

D．没有显示

点击查看答案

第8题

在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Priva

在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim arr(10，10)As Integer，i，j As Integer For i=1 To 3 For j=2 To 4 arr(i，j)=i+j Next Next Text1.Text=an(2，3)+arr(3，4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是

A．12

B．13

C．14

D．15

点击查看答案

第9题

在窗体上画一个名为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private

在窗体上画一个名为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim arrayl(10, 10)As Integer Dim i As Integer, j As Integer For i=1 To 3 For j=2 To 4 arrayl(i, j)=i+j Next j Next i Text1. Text=arrayl(2, 3)+arrayl(3, 4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是______。

A．12

B．13

C．14

D．15

点击查看答案

第10题

在窗体上画4个文本框，并用这4个文本框建立一个控件数组，名称为Text1 （下标从0开始，自左至右顺序

在窗体上画4个文本框，并用这4个文本框建立一个控件数组，名称为Text1 (下标从0开始，自左至右顺序增大)，然后编者按写如下事件过程： Private Sub Command1_Cliek() For Each TextBox In Text1 Text1(i)=Text1(i).Index i=i+1 Next End Sub 程序运行后，单击命令按钮，4个文本框中显示的内容分别为()。

A．0 1 2 3

B．1 2 3 4

C．0 1 3 2

D．出错信息

点击查看答案

长沙正则教育科技有限公司版权所有 ©2024

湘ICP备20014704号-1 营业执照

违法和不良信息举报电话：400-118-7898

举报/反馈/投诉邮箱：deng＃ujigu.com（请将＃替换成@）