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

[主观题]

（20 ）在窗体上画 1 个命令按钮（名称为 Command1 ）和 1 个文本框（名称为 Text1 ），然后编

写下列事

过程：

Private Sub Command1_Click()

x=Val(Text1.Text)

Select Case x

Case 1,3

y=x*x

Case Is＞=10,Is＜=-10

y=x

Case -10 To 10

y=-x

End Select

End Sub

程序运行后，在文本框中输入 3 ，然后单击命令按钮，则下列叙述中正确的是（）。

A ）执行 y=x*x

B ）执行 y=-x

C ）先执行 y=x*x ，再执行 y=-x

D ）程序出错

查看答案

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

您可能会需要：

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

安装赏学吧APP，拍照搜题省时又省心！

更多“（20 ）在窗体上画 1 个命令按钮（名称为 Comma…”相关的问题

第1题

在窗体上画—个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click_（)Fo

在窗体上画—个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click_() For n=1 To 20 If n Mod 3＜＞0 Then m=m+n\3 Next n print n End Sub 程序运行后，如果单击命令按钮，则窗体上显示的内容是 ______。

A．15

B．18

C．21

D．24

点击查看答案

第2题

在窗体上画—个命令按钮和—个文本框，名称分别为Command1和Text1，然后编写如下程序：Private Sub Co

在窗体上画—个命令按钮和—个文本框，名称分别为Command1和Text1，然后编写如下程序： Private Sub Command1_Click() a=InputBox("请输入日期(1～31)") t="旅游景点："&IIf(a＞0 And a＜=10，"长城"，"")&_ IIf(a＞10 And a＜=20，"故宫"，"")&IIf(a＞20 And a＜=31，"颐和园"，"") Text1.Text=t End Sub 程序运行后，如果从键盘上输入16，则在文本框中显示的内容是

A．旅游景点：长城故宫

B．旅游景点：长城颐和园

C．旅游景点：颐和园

D．旅游景点：故宫

点击查看答案

第3题

在窗体上画—个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件

过程： PrivateSubCommand1_Click() n=Text1.Text Select Case n Case 1 To 20 x=10 Case 2，4，6 x=20 Case Is＜10 x=30 Case l0 x=40 End Select TextText=x End Sub 程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是 _________。

A．10

B．20

C．30

D．40

点击查看答案

第4题

（23 ）在窗体上画 1 个命令按钮，并编写如下事件过程：Private Sub Command1_Click（)For i=5 to 1

（23 ）在窗体上画 1 个命令按钮，并编写如下事件过程：

Private Sub Command1_Click()

For i=5 to 1 step -0.8

Print Int(i);

Next i

End Sub

运行程序，单击命令按钮，窗体上显示的内容为

A ） 5 4 3 2 1 1

B ） 5 4 3 2 1

C ） 4 3 2 1 1

D ） 4 4 3 2 1 1

点击查看答案

第5题

在窗体上画尸-个命令按钮，其名称为Command1，然后编写如下事件过程：Private Sub Command1_Click（)

在窗体上画尸-个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click() For i=1 to 4 If i=1 Then x=i If i＜=4 Then x=x+1 Print x Next i End Sub 程序运行后，单击命令按钮，其输出结果为： ______。

A．1 2 3 4

B．2 3 4 5

C．2 3 4 4

D．3 4 5 6

点击查看答案

第6题

在窗体上画—个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_ Click（)c=

在窗体上画—个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_ Click() c=1234 c1=Trim(str(c)) For i=1 To 4 Print ______ NextEnd Sub程序运行后，单击命令按钮，要求在窗体上显示如下内容： 1 12 123 1234则在横线外应填入的内容为______。

A．Right (c1，i)

B．Left(c1，i)

C．Mid(c1，i，1)

D．Mid(c1，i，i)

点击查看答案

第7题

（23 ）在窗体上画 1 个名称为 Command1 的命令按钮，然后编写下列事件过程：Private Sub Command1_

（23 ）在窗体上画 1 个名称为 Command1 的命令按钮，然后编写下列事件过程：

Private Sub Command1_Click()

a=0

For i=1 To 2

For j=1 To 4

If j Mod 2＜＞0 Then

a=a-1

End If

a=a+1

Next j

Next i

Print a

End Sub

程序运行后，单击命令按钮，输出结果是（）。

A ） 0

B ） 2

C ） 3

D ） 4

点击查看答案

第8题

（25 ）在窗体上画 1 个命令按钮，其名称为 Command1 ，然后编写下列程序：Private Sub Command1_Cli

（25 ）在窗体上画 1 个命令按钮，其名称为 Command1 ，然后编写下列程序：

Private Sub Command1_Click()

Dim a (10 ) As Integer

Dim x As Integer

For i=1 To 10

a(i)=8+i

x=2

Print a(f(x)+x)

End Sub

Function f(x As Integer)

x=x+3

f=x

End Function

程序运行后，单击命令按钮，输出结果为（）。

A ） 12

B ） 15

C ） 17

D ） 18

点击查看答案

第9题

在窗体上画—个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_click（) Di

在窗体上画—个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_click() Dim a As Integer,s As Integer a=8 s=1 Do s=s+a a=a-1 Loop While a＜=0 Print s；a End Sub 程序运行后，单击命令按钮，则窗体上显示的内容，是 ______。

A．79

B．340

C．97

D．死循环

点击查看答案

第10题

在窗体上画—个名称为Command1的命令按钮，然后编写如下代码：Option Base 1Private Sub Command1_C

在窗体上画—个名称为Command1的命令按钮，然后编写如下代码： Option Base 1 Private Sub Command1_Click() d=0 c=10 x=Array(10，12，21，32，24) For i=1 To 5 If x(i)＞c Then d=d+x(i) c=x(i) Else d=d-c End If Next I Print d End Sub 程序运行后，如果单击命令按钮，则在窗体上输出的内容为______。

A．89

B．99

C．23

D．77

点击查看答案