题目内容
（请给出正确答案）
设有如下程序：
Private Sub Form_Click()
Dim i As Integer，x As String,Y As String
x=”ABCDEFG”
For i=4 To 1 Step-1
y=Mid(x，i，i)+y
Next i
Print y
End Sub
程序运行后，单击窗体，输出结果为
A．ABCCDEDEFG
B．AABBCDEFG
C．ABCDEFG
D．AABBCCDDEEFFGG
简答题官方参考答案
（由简答题聘请的专业题库老师提供的解答）
更多“设有如下程序：Private Sub Form_Click（)Dim i As Integer，x As String,Y As Stringx=”ABCDEFG”Fo”相关的问题
设有如下程序：
Private Sub Form_C1ick()
Dim s As Long，f As Long
Dim n As Integer，i As Integer
f=1
n=4
For i=1 To n
f=f*i
s=s+f
Next i
Print s
End Sub
程序运行后，单击窗体，输出结果是
A．32
B．33
C．34 0)35
设有如下程序：
Private Sub Form. Click（）
Dim s As Long，f As Long
Dim n As Integer，i As Integer
f=1
n=4
For i=1 To n
f=f*i
s=s+f
Next i
Print s
End Sub
程序运行后，单击窗体，输出结果是（）。
A.32
B.33
C.34
D.35
设有Function过程:
Private Function f(a As Integer, b As Integer) As Integer
a = a * a:
b = b * b
f = CInt(Sqr(a - b))
End Function
则如下程序段的运行结果是()。
Private Sub Command1_Click()
Dim X As Integer, Y As Integer
X = 5: Y = 4
a = f(X, Y)
Print a
End Sub
A. 5
B. 4
C. 3
D. 9
设有如下程序： Private Static Function Fac(n As Integer)As Integer Dim f As Integer f=f+n Fac=f End Function Private Sub Form_Click() Dim I As Integer For 1=2 To 3 Print"#"；I&“=”&Fac(1) Next I End Sub 程序运行后，单击窗体，在窗体上显示的是
A．#2=2 #3=3
B．#2=2 #3=5
C．#；2=2 #；3=3
D．#；2=2 #3；=5
A.32
B.33
C.34
D.35
设有如下程序： Option Base 1 Private Sub Form. Click（） Dim a(5)As String，i As Integer For i=1 To 5 a(i)=Chr(Asc("A")+i) Call f(a，i) Next i End Sub Sub f(ta（）As String，n As．Integer) Dim i As Integer For i=1 To n Print ta(i)； Next i Print End Sub 对上述程序．以下叙述中正确的是（）。
A.程序有错，因为在过程f的定义中数组参数格式不正确
B.程序可正常运行，输出内容的第一行是一个字母“A”
C.程序可正常运行，输出内容的第一行是一个字母“B”
D.程序可正常运行，输出内容的第一行是数字65
设有如下通用过程： Public Function f(x As Integer) Dim y As Integer x = 10： y = 5 f = x * y End Function 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Static x As Integer x = 2：y = 6 y = f(x) Print x； y End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是
A．2 6
B．10 5
C．10 50
D．6 10
设有如下通用过程： Public Function f(x As Integer) Dim y As Integer x = 20 y = 2 f = x * y End Function 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Commandl Click() Static x As Integer x = 10 y = 5 y = f(x) Print x；y End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是
A．10 5
B．20 5
C．20 40
D．10 40
设有如下程序： Private Sub Form_Click() Dim a As Integer，s As Integer n=8 S=0 DO S=S+n n=n-1 Loop While n＞0 Print S End Sub 以上程序的功能是【 】。程序进行后，单击窗体，输出结果为【 】。
警告：系统检测到您的账号存在安全风险
为了保护您的账号安全，请在“简答题”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！
