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

[主观题]

在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的Click事件过程。程序运行后，在文

本框中输入一串英文字母（不区分大小写），单击命令按钮，程序可找出未在文本框中输入的其他所有英文字母，并以大写方式降序显示到Text1中。例如，若在Text1中输入的是abDfdb，则单击Command1按钮后Text1中显示的字符串是ZYXWVUTSRQPONMLKJIHGEC。请填空。

Private Sub Command1_Click（）

Dim str As String, s As String, c As String

str = UCase（Text1）

s = ""

c = "Z"

While c ＞= "A"

If InStr（str, c） = 0 Then

s = 【7】

End If

c = Chr$（Asc（c）【8】）

Wend

If s ＜＞ "" Then

Text1 = s

End If

End Sub

提问人：网友zthcrh 发布时间：2022-01-06

参考答案

查看官方参考答案

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

您可能会需要：

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

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

更多“在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的Cli…”相关的问题

第1题

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

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

A．5

B．4

C．3

D．2

点击查看答案

第2题

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

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

Private Sub Command1_Click()

Dim i As Integer, n As Integer

n=0

For i=0 To 50

i=i+3

n=n+1

If i＞10 Then Exit For

Next i

Text1.Text=Str(n)

End Sub

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

点击查看答案

第3题

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

在窗体上画一个名称为Textl的文本框和一个名称为Commandl的命令按钮，然后编写如下事件过程： Private Sub Commandl_C1ick() Dim i As Integer, n As Integer For i=0 To 50 i=i+3 n=n+1 If i＞10 Then Exit For Next Textl. Text=Str(n) End sub 程序运行后，单击命令按钮，在文本框中显示的值是 ()

A．2

B．3

C．4

D．5

点击查看答案

第4题

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

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

A．2

B．3

C．4

D．5

点击查看答案

第5题

在窗体上画一个命令按钮和一个文本框，并把窗体的KeyPreview属性设置为True，然后编写如下代码：Dim

在窗体上画一个命令按钮和一个文本框，并把窗体的KeyPreview属性设置为True，然后编写如下代码： Dim Save All As String Private Sub Command1_Click() Text1.Text=UCase(SaveAll) End Sub Private Sub Form_KeyPress(KeyAscii As Integer) SaveAll=SaveAll+Chr(KeyAscii) End Sub 程序运行后，在键盘上输入“abcdefg”，单击命令按钮，则文本框中显示的内容为 ______。

A．abcdefg

B．不显示任何信息

C．ABCDEFG

D．出错

点击查看答案

第6题

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

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

A．12

B．13

C．14

D．15

点击查看答案

第7题

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

点击查看答案

第8题

在窗体上画一个命令按钮和一个文本框，并把窗体的KeyPreview属性设置为True，然后编写如下代码：Dim

在窗体上画一个命令按钮和一个文本框，并把窗体的KeyPreview属性设置为True，然后编写如下代码： Dim SaveAll As String Private Sub Command1_Click() Text1.Text=UCase(SaveAll) End Sub Private Sub Form_KeyPress(KeyAscii As Integer) SaveAll=SaveAll+Chr(KeyAseii) End Sub 程序运行后，在键盘上输入“abcdefg”，单击命令按钮，则文本框中显示的内容为 ______ 。

A．abcdefg

B．不显示任何信息

C．ABCDEFG

D．出错

点击查看答案

第9题

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

在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，然后编写如下事件过程： Private Sub Command1 Click() Dim arr1(10), arr2(10) For i = 1 To 10 arr1(i) = 3 * i arr2(i) = arr1(i) * 3 Next i Text1.Text = Str (arr2(i / 2 - 0.1)) End Sub程序运行后，单击命令按钮，在文本框中显示的是______。

A．36

B．45

C．54

D．63

点击查看答案

警告：系统检测到您的账号存在安全风险

为了保护您的账号安全，请在“简答题”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！

微信搜一搜

简答题

点击打开微信

警告：系统检测到您的账号存在安全风险

抱歉，您的账号因涉嫌违反简答题购买须知被冻结。您可在“简答题”微信公众号中的“官网服务”-“账号解封申请”申请解封，或联系客服。

微信搜一搜

简答题

点击打开微信