题目内容（请给出正确答案）

[主观题]

设有如下程序：Private Sub Form_Click（)Dim i As Integer，x As String,Y As Stringx=”ABCDEFG”Fo

设有如下程序：

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

提问人：网友zilong0007 发布时间：2022-01-06

参考答案

查看官方参考答案

如搜索结果不匹配，请联系老师获取答案

您可能会需要：

重置密码查看订单联系客服

安装简答题APP，拍照搜题省时又省心！

更多“设有如下程序：Private Sub Form_Click（…”相关的问题

第1题

设有如下程序：Private Sub Form_C1ick（)Dim s As Long，f As LongDim n As Integer，i As Integerf

设有如下程序：

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

点击查看答案

第2题

设有如下程序：Private Sub Form. Click（） Dim s As Long，f As Long Dim n As Integer，i As Int

设有如下程序：

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

点击查看答案

第3题

设有Function过程:Private Function f（a As Integer, b As Integer) As Integera = a * a:b

设有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

点击查看答案

第4题

设有如下程序： Private Static Function Fac（n As Integer)As IntegerDim f As Integerf=f+nFac=

设有如下程序： 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

点击查看答案

第5题

设有如下程序： Private Sub Form. Click（） Dim s As Long，f As Long Dim n As Integer，i A

s 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

点击查看答案

第6题

设有如下程序： Option Base 1 Private Sub Form. Click（） Dim a（5)As String，i As Integer For

设有如下程序： 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

点击查看答案

第7题

设有如下通用过程：Public Functionf（xAs Integer)DimyAsInteger x = 10： y = 5 f = x * yEndFunc

设有如下通用过程： 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

点击查看答案

第8题

设有如下通用过程：Public Function f（x As Integer)Dim y As Integerx = 20y = 2f = x * yEnd Fu

设有如下通用过程： 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

点击查看答案

第9题

设有如下程序 Private Sub Form_Click（）

A.30和40

B.10和20

C.30和70

D.40和70

点击查看答案