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

[主观题]

在窗体上添加如下命令按纽，然后编写如下事件过程：Private Sub Command1_Click（)Dim a（10)As Inte

在窗体上添加如下命令按纽，然后编写如下事件过程： Private Sub Command1_Click() Dim a(10)As Integer Dim p(3)As Integer k= 5 For i = 1 To 10 a(i) = i Next i For i = 1 To 3 p(i) = a(i * i) Next i For i = 1 To 3 k = k + p(i) * 2 Next i Print k End Sub该过程的运行结果为______。

A．35

B．33

C．31

D．29

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

参考答案

查看官方参考答案

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

您可能会需要：

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

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

更多“在窗体上添加如下命令按纽，然后编写如下事件过程：Privat…”相关的问题

第1题

在窗体上添加一命令按纽，其名为Command1，然后编写代码如下：Private Sub Command1_Click（)Dim arr

在窗体上添加一命令按纽，其名为Command1，然后编写代码如下： Private Sub Command1_Click() Dim arr (5)As Integer Dim arrl (5)As Integer n=3 For i=1 To 5 Arr (i)=i Arrl (n)=2*n+ i Next i Print arrl (n)；arr (n) End Sub 程序的运行结果为：______。

A． 3 11

B．11 3

C．13 3

D．3 13

点击查看答案

第2题

先在窗体上添加一个命令按纽，然后编写如下程序：Function fun（ByVal nm As Long)As Long Dim k A

先在窗体上添加一个命令按纽，然后编写如下程序： Function fun(ByVal nm As Long)As Long Dim k As Long k=1 num=Abs(num) Do While num k=k*(num Mod 10) num=num\10 Loop fun=k End Function Private Sub Command1_Click() Dim n As Long Dim r As Long n=InputBox(“请输入一个数”) n=CLng(n) r=fun(n) Print r End Sub 则在程序运行后，单击命令按纽，在对话框中输入“100”，输出结果是______。

A． 0

B．100

C．200

D．300

点击查看答案

第3题

有如下SUB过程： Sub s（x As Single，y As Single)t =xx=t / yY=t Mod y End Sub在窗体上添加一个

有如下SUB过程：

Sub s(x As Single，y As Single)

t =x

x=t / y

Y=t Mod y

End Sub

在窗体上添加一个命令按纽，然后编写如下事件过程：

Private Sub Form_ Click()

Dim a As Single

Dim b As Single

a=5

b=4

s a，b

Print a，b

End Sub

则程序运行后，单击命令按纽，输出的结果为：【】。

点击查看答案

第4题

在窗体上添加一个按纽，名为command1，然后编写如下的事件过程：______。Private Sub Command1_Click

在窗体上添加一个按纽，名为command1，然后编写如下的事件过程：______。 Private Sub Command1_Click() For i=1 To 4 x= 4 For j=1 To 3 x= 3 For k=1 To 2 x=x + 5 Next k Next j Next i Print x End Sub

A．13

B．26

C．30

D．40

点击查看答案

第5题

在窗体上添加一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click（) Sum =0 For i=3

在窗体上添加一个命令按钮，然后编写如下事件过程：

Private Sub Command1_Click()

Sum =0

For i=3 T0 7

Sum =i+2

Next i

MsgBox sum+i

End Sub

打开窗体后，单击命令按钮，消息框的输出结果是______。

点击查看答案

第6题

在窗体上添加一个命令按钮（名为Cmd)，然后编写如下事件过程：Private Sub Cmd_Click（) Dim sum,k

在窗体上添加一个命令按钮(名为Cmd)，然后编写如下事件过程：

Private Sub Cmd_Click()

Dim sum,k

For k=1 to 6

sum=30+k

Next k

MsgBox sum+k

End Sub

打开窗体后，单击命令按钮，消息框的输出结果是【】。

点击查看答案

第7题

在窗体上添加一个名称为Command1的命令按钮，然后编写如下事件代码： Private Sub Command1_Click（

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

Private Sub Command1_Click()

A＝75

If A＜60 Then x＝1

If A＜70 Then x＝2

If A＜80 Then x＝3

If A＜90 Then x＝4

MsgBox x

End sub

打开窗体运行后，单击命令按钮，则消息框的输出结果是()。

A．1

B．2

C．3

D．4

点击查看答案

第8题

在窗体中添加一个命令按钮，名称为Command1，然后编写如下程序：Private Sub Command1_Click（)Dim a

在窗体中添加一个命令按钮，名称为Command1，然后编写如下程序： Private Sub Command1_Click() Dim a As Integer, b As String, c As Integer a=1234: b=Str(a)c=Len(b)Print c End Sub 程序运行后，单击命令按钮，则在窗体上显示的内容是______。

A．0

B．5

C．6

D．7

点击查看答案

第9题

在窗体上添加一个命令按钮（名为Command1，然后编写如下事件过程：Private Sub Command1_Click（)Fo

在窗体上添加一个命令按钮(名为Command1，然后编写如下事件过程： Private Sub Command1_Click() For i=1 To 4 x=4 For j=1 To 3 x=3 For k=1 To 2 x=x+6 Next k Next j Next i MsgBox x End Sub 打开窗体后，单击命令按钮，消息框的输出结果是______。

A．7

B． 15

C． 157

D． 538

点击查看答案