题目内容
（请给出正确答案）
提问人：网友budded
发布时间：2022-01-07
[主观题]
程序执行结果s的值是【 】。 Private Sub sub1（） End Sub
简答题官方参考答案
（由简答题聘请的专业题库老师提供的解答）
查看官方参考答案
Private Sub Command l-Click ()
I =0
Do
S= I +S
I = I + l
Loop Until I ＞=4
End Sub
网友您好，请在下方输入框内输入要搜索的题目：
搜题
题目内容
（请给出正确答案）
简答题官方参考答案
（由简答题聘请的专业题库老师提供的解答）
更多“程序执行结果s的值是【 】。 Private Sub sub1（） End Sub”相关的问题
第2题
下面运行程序后，单击命令按钮，输出的结果是【 】。
Private Sub Command1_Click()
Dim a%(1 To 4)，b%(3 To 6)，i%，s1，s2
For i=1 To 4
a(i)=i
Next
For i=3 To 6
b(i)=i
Next
s1.= Fun(a)
s2 =Fun(b)
Print "s1 ="; s1; "s2 ="; s2
End Sub
Function Fun(a() As Integer)
Dim t, i%
t=1
For i = LBound(A)To UBound(a)
t=t * a(i)
Next
Fun=t
End Function
第3题
6．下列程序运行的结果是( )。 Option Base 1 Private Sub Command1_Click() Dim d d = Array(1, 2, 3, 4, 5) n = 1 For k = 5 To 3 Step -1 s = s + d(k) * n n = n * 10 Next k Print s End Sub A．123 B．234 C．345 D．112
A、A
B、B
C、C
D、D
第4题
执行下列程序，运行结果是______。 Private Sub Command1_Click() s=0 Dim I As Integer For I=2.1 To 5.7 Step 0.3 s=s+1 Next Print s End Sub
A、13
B、12
C、14
D、死循环
第5题
下列程序段的执行结果为（）。 Private Sub Command1_Click() Dim a(1 To 10) As Integer Dim n%, s& For i = 1 To 10 a(i) = i Next i n = 1 s = 1 Do While n < p> s = s * a(n) n = n + 1 Loop Print s End Sub
A、1
B、12
C、120
D、720
第6题
周某，男，68岁。头发全脱10年。近因头痛来诊。王医师决定取其头部百会、上星等穴治疗。1． 正常情况下，周某，男，68岁。头发全脱10年。近因头痛来诊。王医师决定取其头部百会、上星等穴治疗。1． 正常情况下，取头部穴位所依据的前发际至后发际的骨度分寸是： 对于头发全脱的周某，王医生定取头部穴位的方法是：两耳尖距离酌情折算 B．两耳后乳突间9寸酌情折算 C．大椎到胸椎的距离酌情折算 D．眉心到大椎为18寸折算 E．两颧骨间与两瞳孔间距离酌情折算
点击查看答案
A．两耳尖距离酌情折算
B．两耳后乳突间9寸酌情折算
C．大椎到胸椎的距离酌情折算
D．眉心到大椎为18寸折算
E．两颧骨间与两瞳孔间距离酌情折算
第7题
以下程序的正确运行结果是 include define MAX 10 void sub2(); }
A．0 2 4 6 8 10 12 14 16 18 0 1 2 3 4
点击查看答案
B．0 1 2 3 4 0 2 4 6 8 10 12 14 16 18
C．0 1 2 3 4 5 6 7 8 9 0 1 2 3 4
D．0 2 4 6 8 10 12 14 16 18 0 2 4 6 8 10 12 14 16 18
