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

[主观题]

编写如下事件过程：OptionBase1PrivateSubFormClick（) Dimx1（)AsInteger DimiAsInteger DimsAsInt

编写如下事件过程： Option Base 1 Private Sub Form Click() Dim x1()As Integer Dim i As Integer Dim s As Integer ReDim x1(3) For i = 1 To UBound(x1) x1(i)=i + 1 Next i Call sub1(x1) For i = 1 To UBound(x1) s = s + x1(i) Next i Print s End Sub Private Sub sub1(n()As Integer) Dim i As Integer ReDim Preserve n(5) For i = 3 To 5 n(i)=n(i-1)*2 Next i End Sub 程序运行后，单击窗体，则窗体上显示的内容是

A．6

B．12

C．24

D．47

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

参考答案

查看官方参考答案

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

您可能会需要：

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

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

更多“编写如下事件过程：OptionBase1PrivateSub…”相关的问题

第1题

在窗体上画1个名称为Command1的命令按钮，然后编写如下事件过程 OptionBase1 PribateSub

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

Option Base 1

Pribate Sub Command1_Click（）

Dim a（5.5） As Integer

For i=1 To 5

a（I,j）*5\10

Next j

Next i

S=0

For i=1 To 5

S=s+a（i,i）

Next i

Print s

End Sub

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

A．15

B．13

C．11

D．9

点击查看答案

第2题

在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：OptionBase1PrivateSubComma

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

Option Base 1

Private Sub Command1_Click（）

Dim c As Integer, d As Integer

d = 0

c = 6

x = Array（2, 4, 6, 8, 10, 12）

For i = 1 To 6

 If x（i）＞ c Then

 d = d + x（i）

 c = x（i）

 Else

 d = d - c

 End If

Next

Print d

End Sub

程序运行后，如果单击命令按钮，则在窗体上输出的内容为（）。

A．10

B．16

C．12

D．20

点击查看答案

第3题

在窗体上画一个命令按钮,然后编写如下事件过程:Private Sub Command1_Click（）

A.Right

B.Left

C.Val

D.Mid

点击查看答案

第4题

假定编写了如下4个窗体事件的事件过程，则运行应用程序并显示窗体后，已经执行的事件过程是（）。A.

假定编写了如下4个窗体事件的事件过程，则运行应用程序并显示窗体后，已经执行的事件过程是（）。

A.Load

B.Click

C.LostFocus

D.KcyPress

点击查看答案

第5题

假定编写了如下4个窗体事件的事件过程，则运行应用程序并显示窗体后，已经执行的事件过程是

A.Load

B.Click

C.LostFocus

D.KeyPress

点击查看答案

第6题

（12）假定编写了如下4个窗体事件的事件过程，则运行应用程序并显示窗体后，己经执行的事件过程是A）L

（12）假定编写了如下4个窗体事件的事件过程，则运行应用程序并显示窗体后，己经执行的事件过程是

A）Load

B）Click

C) LostFocus

D）KeyPress

点击查看答案

第7题

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

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

Private Sub Command1_Click（）

n = 5

f = 1

s = 0

For i = 1 To n

f = f _______

s = s + f

Next

Print s

End Sub

该事件过程的功能是计算的值。请填空。

点击查看答案

第8题

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

在窗体上画一个命令按钮(名称为Command1)，然后编写如下事件过程： Private Sub Command1_Click() Dim b As Integer b=b+1 End Sub 运行程序，三次单击命令按钮后，变量b的值是： ______。

A．0

B．1

C．2

D．3

点击查看答案

第9题

编写如下事件过程：Private Sub Form_Click（)k=2Ifk＞=1 Then A=3Ifk＞=2 Then A=2Ifk＞=3 Then A=1P

编写如下事件过程： Private Sub Form_Click() k=2 Ifk＞=1 Then A=3 Ifk＞=2 Then A=2 Ifk＞=3 Then A=1 Print A End Sub 程序运行后，单击窗体，输出的结果为 ______。

A．1

B．2

C．3

D．出错

点击查看答案

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

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

微信搜一搜

简答题

点击打开微信

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

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

微信搜一搜

简答题

点击打开微信