题目内容
（请给出正确答案）
运行下列程序：
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
安装简答题APP，拍照搜题省时又省心！
更多“运行下列程序：Option Base 1Private Su…”相关的问题
A.1234
B.1111
C.4444
D.4321
在窗体上画一个名为Command1的命令按钮，然后编写下列程序：
Option Base 1
Private Sub Command1_Click()
Dim Arr
Arr=Array(1,2,3,4,5)
j=1
For i=5 To 1 Step-1
S=S+Arr(i)*j
j=j*10
Next
Print S
End Sub
程序运行后，单击命令按钮，输出结果是()。
A．54321
B．123
C．12345
D．345
阅读下列程序。
Option Base 1
Private Sub Form. _Click()
Dim x(3,3)
For j=1 to 3
For k=l to 3
If j=k then x(j,k)=1
If j＜＞k then x(j,k)=k
Next k
Next i
Call fun(x())
End Sub
Private Sub fun(x())
For j=1 to 3
For k=1 to 3
Print x(j,k)；
Next k
Next j
End Sub
运行程序时，输出结果为【 】。
在窗体上放置一个命令按钮Command1，并编写下列单击事件的程序：
Option Base 1
Pdvate 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 i
Print d
End Sub
程序运行后，单击命令按钮，则在窗体上输山的结果是()。
A．10
B．12
C．16
D．20
在窗体上画一个命令按钮，其名称为Command1，然后编写下列代码：
Option Base l
Private Sub Command1 Click（）
Dim a
a=Array(1，2，3，4)
j=1
For i=4 To 1 Step-1
s=s+a(i)*j
j=j*10
Next i
Print S
End Sub
程序运行后，单击命令按钮，其输出结果是（）。
A.4321
B.1234
C.34
D.12
阅读下列程序。
Option Base 1
Private Sub Form. Click()
Dim x(3,3)
For j=l to 3
For k=l to 3
If j=k then x(j,k)=l
If j＜＞k then x(j,k)=k
Next k
Next j
Call fun(x())
End Sub
Private Sub fun(x() )
For j=1 to 3
For k=1 to 3
Print x(j,k);
Next k
Next j
End Sub
运行程序时，输出结果为【 】
在窗体上放置一个命令按钮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 i Print d End Sub 程序运行后，单击命令按钮，则在窗体上输出的结果为()。
A．10
B．12
C．16
D．20
在窗体上放置一个命令按钮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 j Print d End Sub 程序运行后，单击命令按钮，则在窗体上输出的内容为()。
A．10
B．12
C．16
D．20
有如下程序： Option Base 1 Private Sub Form_Click() Dim arr，Sum Sum=0 alt=Array(1，3，5，7，9，11，13，15，17，19) For i=1 To 10 If arr(i)/3=arr(i)13 Then Sum=Sum+alt(I) End If Next i Print Sum End Sub 程序运行后，单击窗体，输出结果为______。
A．25
B．26
C．27
D．28
为了保护您的账号安全，请在“简答题”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！
微信搜一搜
简答题
微信搜一搜
简答题
如搜索结果不匹配，请 
