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

[主观题]

在窗体上画一个命令按钮，然后编写如下代码。运行程序后，单击命令按钮，依次在输人对话框中输入2，7，

5，3，8，5，12，6，12，在窗体上输出的结果是______。 Private Sub Command1 Click() z=5 Do Until z＜＞5 x=InputBox＜“请输入x值”) x=Val(x) y=InputBox(“请输入y值”) y=Val(y) z=InputBox(“请输入z值”) z=Val(z) y=x+y+2 * z Loop Print y End Sub

A．19

B．21

C．42

D．19

查看答案

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

您可能会需要：

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

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

更多“在窗体上画一个命令按钮，然后编写如下代码。运行程序后，单击命…”相关的问题

第1题

在窗体上画一个命令按钮，然后编写如下代码：Private Sub Command1_Click（)0pen "d：\vb\test.txt "

在窗体上画一个命令按钮，然后编写如下代码： Private Sub Command1_Click() 0pen "d：\vb\test.txt "For Input As #1 Print LOF(1) Close #1 End Sub 假设文件d:\vb\test.txt的内容为I am a student．，那么程序运行后，单击命令按钮，其输出结果为______.

A．13

B．14

C．15

D．16

点击查看答案

第2题

在窗体上画一个命令按钮（其名称为Command1)，然后编写如下代码：Private Sub Command1 Click（）Di

在窗体上画一个命令按钮(其名称为Command1)，然后编写如下代码：

Private Sub Command1 Click（）

Dim a

a=Array(1，2，3，4)

i=3：j=1

Do While＞=0

s=s+a(i)*j

i=i-1

j=j*10

Loop

Print S

End Sub

运行上面的程序，单击命令按钮，则输出结果是（）。

A.4321

B.123

C.234

D.1234

点击查看答案

第3题

在窗体上画一个命令按钮（其Name属性为Command1)，然后编写如下代码：Private Sub Command1_Click（)

在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码： Private Sub Command1_Click() Dim Arr1(10)As Integer，arr2(10)As Integer n=3 For i=1 To 5 Arr1(i)=i arr2(n)=2*n+i Next i Print arr2(n)；Arr1(n) End Sub 程序运行后，单击命令按钮，输出结果是 ______。

A．11 3

B．3 11

C．13 3

D．3 13

点击查看答案

第4题

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

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

点击查看答案

第5题

在窗体上画一个名称为Command1的命令按钮，然后编写如下代码：OptionBase1PrivateSubCommand1Click

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

点击查看答案

第6题

在窗体上画一个命令按钮（其Name属性为Command1)，然后编写如下代码：Option Base 1Private Sub Com

在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码： Option Base 1 Private Sub Command1_Click() Dim a a = Array(1, 2, 3, 4) s = 1234 j = 1000 For i = 1 To 4 s = s + a(i) * j j = j * 10 Next i Print S End Sub运行上面的程序，单击命令按钮，其输出结果是______。

A．4321

B．2468

C．34

D．12

点击查看答案

第7题

在窗体上画一个命令按钮和一个标签，其名称分别为Command1和Labell，然后编写如下代码：Sub S（x As

在窗体上画一个命令按钮和一个标签，其名称分别为Command1和Labell，然后编写如下代码：

Sub S(x As Integer，Y As Integer)

Static z As Integer

y=x*x+z

z=y

End Sub

Private Sub Command1_Click()

Dim i As Integer，z As Integer

m=0

z=0

For i=1 To 3

S i，z

m=m+z

Next i

Label1．Caption=Str(m)

End Sub

程序运行后，单击命令按钮，在标签中显示的内容是

A．50

B．20

C．14

D．7

点击查看答案

第8题

窗体上画一个命令按钮，然后编写如下代码：Private Type RecordID As IntegerName As String * 20E

窗体上画一个命令按钮，然后编写如下代码：Private Type Record ID As Integer Name As String * 20End TypePrivate Sub command1 _ Click(Open "c: \file. txt" for Input As MaxSize = LOF (1) for NextChar =MaxSize To Step-1 Seek #1, NextChar MyChar=Input(1，#1) Next NextChar Print EOF(1) Close #1 End Sub程序运行后，单击命令按钮，其输出结果为______。

A．True

B．False

C．0

D．Null

点击查看答案

第9题

在窗体上画一个命令按钮，然后编写如下事件过程：在窗体上画一个命令按钮，然后编写如下事件过程：运行后的输出结果是______。

运行后的输出结果是______。