运行下列程序：Option Base 1Private Sub Form_Click（)y = 43x = Array（21, 4, 50, 18, 23, 44

运行下列程序：

Option Base 1

Private Sub Form_Click()

y = 43

x = Array(21, 4, 50, 18, 23, 44, 87, 32, 67, 70)

For i = 1 To 10

If x(i)< y Then

z = x(i) + 1

y = x(i)

Else

z = z + y

End If

Next i

Print z

End Sub

单击窗体后，则在窗体上显示的结果是()。

A.43

B.21

C.37

D.44

参考答案

您可能感兴趣的试题

在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序：Option Base 1Private Sub Commandl_

答案解析
（9 ）在窗体上画一个名称为 Command1 的命令按钮。然后编写如下程序：Option Base 1Private Sub Co

答案解析
现有如下一段程序：Option base 1Private Sub Command1_Click（) Dim a a=Array（3,5,7,9) X=1 For

答案解析
有如下程序：Option base 1Private Sub Command1_Click Dim arr（10) Arr=Array（10,35,28,90,54,68

答案解析
（35）有下列程序段，单击命令按钮执行程序后，输出结果是。Option Base 1Private Sub Commandl_Clic

答案解析
在窗体上放置一个命令按钮Command1 并编写下列单击事件的程序:Option Base 1Private Sub Command

答案解析