题目内容
（请给出正确答案）
提问人：网友liejack
发布时间：2022-01-06
[主观题]
有如下程序：
Private Sub Command1_Click（）
Fo rj=1 To 10
a=a+j\7
Next j
Print a
End Sub
在运行时输出a的值是（）
A. 5
B. 4
C. 3
D. 2
简答题官方参考答案
（由简答题聘请的专业题库老师提供的解答）
查看官方参考答案
A.5
B.4
C.3
D.2
网友您好，请在下方输入框内输入要搜索的题目：
搜题
题目内容
（请给出正确答案）
简答题官方参考答案
（由简答题聘请的专业题库老师提供的解答）
更多“有如下程序：”相关的问题
第2题
有程序段如下Private Sub Form_Click（)Static I As IntegerI = I + 1Print IEnd Sub 当第三次单击窗体时打印出的I值为（）
A.0
B.1
C.2
D.3
第3题
有如下程序：Private type stu X as string Y as integerEnd typePrivate Sub Command1_Click（) D
有如下程序：
Private type stu
X as string
Y as integer
End type
Private Sub Command1_Click()
Dim a as stu
a.x=”ABCD”
a.Y=12345
print a
End Sub
程序运行时出现错误，错误的原因是
A)Type定义语句没有放在标准模块中
B)变量声明语句有错
C)赋值语句不对
D)输出语句print不对
第4题
有如下程序，单击窗体Form1后运行结果是（）。 Private Sub Form_Click（) Print "数字"; Spc（5); "中国" End Sub
A."数字" "中国"
B."数字";"中国
C.数字 中国
D.数字中国
第5题
有如下程序：Private Sub Command1_Click（) as="A WORKER IS HERE" x = Len（a$) For i=1 To x - 1
有如下程序： Private Sub Command1_Click() as="A WORKER IS HERE" x = Len(a$) For i=1 To x - 1 b$ =Mid$(a$, i,3) If b$ ="WOR" Then S=S+ 1 Next Print S End Sub 单击命令按钮，程序运行结果为
A．1
B．2
C．3
D．5
第6题
有如下程序：Private Sub Form_C1ick（)E=1:F=1For j=1 To 3E=E+F:F=F+ENextPrint E;FEnd Sub该程
有如下程序：
Private Sub Form_C1ick()
E=1:F=1
For j=1 To 3
E=E+F:F=F+E
Next
Print E;F
End Sub
该程序的输出结果是
A．6 6
B． 5 8
C． 13 21
D．34 55
第7题
有程序段如下Private Sub Form_Click（)Dim I As IntegerI = I + 1Print IEnd Sub 当第三次单击窗体时打印出的I值为（）
A.0
B.1
C.2
D.3
第8题
有如下程序： Private Sub Commandl_Click（) a$="A WORKER IS HERE" x=Len（a$) For i=
有如下程序： Private Sub Commandl_Click() a$="A WORKER IS HERE" x=Len(a$) For i=1，To x-1 b$=Mid$(a$，i，3) If b$="WOR" Then S=S+1 Next Print S End Sub 单击命令按钮，程序运行结果为
A．1
B．2
C．3
D．5
第9题
（8 ）有如下程序：Private Sub Form_Click （）n=10i=0Doi=i+nn=n-2Loop While n＞2Print iEnd Su
（8 ）有如下程序：
Private Sub Form_Click （）
n=10
i=0
Do
i=i+n
n=n-2
Loop While n＞2
Print i
End Sub
程序运行后，单击窗体，输出结果为 【 10 】 。
第10题
有如下程序: Private Sub Form_Click（)E=1:F=1 For j=1 To 3 E=E+F:F=F+E Next Print E;F End Su
有如下程序:
Private Sub Form_Click()
E=1:F=1
For j=1 To 3
E=E+F:F=F+E
Next
Print E;F
End Sub
该程序的输出结果是
A．6 6
B．5 8
C．13 21
D．34 55
