题目内容
（请给出正确答案）
有下列程序段，单击命令按钮执行程序后，输出结果为()。 Option Base 1 Private Sub Command1_Cliek() Dim x x=Array(23, -5, 17, 38, -31, 46, 11, 8, 5, -4) s1=0 s2=0 Fork=1 To 10 If (x(k)＞0) Then s1=s1+x(k) Else s2=s2+x(k) End If Next k Y=s1/Abs(s2) Print Y End Sub
A．148
B．40
C．-40
D．3.7
如果结果不匹配，请 联系老师 获取答案
更多“有下列程序段，单击命令按钮执行程序后，输出结果为（)。Opt…”相关的问题
For i=1 To 4
For j=1 To 3
x=3
For k=1 To 2
K=x+3
Next k
Next j
Next i
Text1.Text=Str(x)
A．3
B．6
C．9
D．12
单击命令按钮，并在对话框内依次输入99，73，84，88，-1，下列程序段的执行结果为______。 Private Sub Command1_Click() Dim S As Single, max As Single, min As Single n=0 S=InputBox("Please enter a score") max=S min=S Do While S＞=0 If S＞max Then max=S End If If S ＜ min Then min=S End If S=InputBox("Please enter a score") n=n+1 Loop Print n; ":"; max, min End Sub
A．4:99,88
B．4;99,73
C．4:99,73
D．4;99,88
在窗体上放置一个命令按钮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
A．3
B．6
C．9
D．12
在窗体下画两个文本框Text1和Text2，一个命令按钮Command1，请阅读下列程序段：
Private Sub Command1_Click()
x=0
Do Until x＞=50
x=(x+4)*(x+3)
n=n+1
Loop
Text1.Text=Str(n)
Text2.Text=Str(x)
End Sub
运行程序后，单击命令按钮，在两个文本框中显示的值分别为()。
A．1和0
B．2和240
C．3和50
D．4和168
单击—次命令按钮后，下列程序的执行结果是 Private Sub Command1_Click() S=P(1)+P(2)+P(3)+P(4) Print S End Sub Public Function P(N As Integer) Static Sum For i=1 To N Sum=Sum+i Next i P=Sum End Function
A．15
B．25
C．35
D．45
下面运行程序后，单击命令按钮，输出出的结果是【 】。
Private Sub Command1_Click()
Dim a% (1 To 5) ,i%, s
For i = 1 To 5
a(i) =i
Next
s = Fun(a)
Print"s="; s;
End Sub
Function Fun(a() As Integer)
Dim t, i%
t=1
For i = LBound(A0To UBound(a)
t=t * a(i)
Next
Fun =t
End Function
单击命令按钮，下列程序段的输出结果为______。 Private Sub Command1_Click() Dim n As Integer n = 5 While n ＜= 10 n = n + 2 Print n; Wend End Sub
A．5 7 9 11
B．6 8 10
C．7 9 11
D．6 8 10 12
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后输写如下程序：
Private Sub Command1_Click()
Dim x，y，z As Integer
x=5
y=7
z=0
Text1.Text=""
Call Fun1(x，y，z)
Text1.Text=Str(z)
End Sub
Sub Fun1(ByVal a As Integer，ByVal b As Integer，c As Integer)
c=a+b
End Sub
程序运行后，如果单击命令按钮，则在文本框中显示的内容是
A．0
B．12
C．Str(z)
D．没有显示
