题目内容

运行下列程序：
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

查看答案

搜索结果不匹配？点我反馈

更多问题

运行下列程序：
Private Sub Form_Click()
Dim sum As Double, i As Integer
For i = 1 To 20
If i Mod 5 = 0 Then
sum = sum + i
End If
Next i
Print sum
End Sub
单击窗体后，则在窗体上显示的结果是()。

A. 50
B. 100
C. 4
D. 5050

运行下列程序：Private Sub Form_Click（)a = 32: b = 5Doa = a ／ 2b = b ＋ 1Loop While b 运行下列程序：
Private Sub Form_Click()
a = 32: b = 5
Do
a = a / 2
b = b + 1
Loop While b< 10
Print a
End Sub
单击窗体后，则在窗体上显示的结果是()。

A. 1
B. 2
C. 5
D. 11

cloud point

若需要在同一窗口内安排两组相互独立的单选按钮(OptionButton)，适当的控件将它们分隔开。下列不能将单选按钮分组的控件是()。
① TexBox ②PictureBox ③ Image ④Frame. ⑤ListBox

A. ①②③
B. ①③⑤
C. ②④⑤
D. ③④⑤