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

[主观题]

下面程序的输出结果是。 Private Sub Commandl_Click ch$=“ABCDEF” proc ch：Print ch End Sub Pri

vate Sub proc(ch As Stnng) s=“” For k=Len(ch) TO 1 Step -1 s=s&Mid(ch，k，1) Next k ch=s End Sub A．ABCDEF B．FEDCBA C．A D．F

查看答案

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

您可能会需要：

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

安装赏学吧APP，拍照搜题省时又省心！

更多“下面程序的输出结果是。 Private Sub Comman…”相关的问题

第1题

下面程序的输出结果是【】。Private Sub Form_Click（)i=0Do Until 0i=i+1ifi＞10 then Exit DoLoopPr

下面程序的输出结果是【】。

Private Sub Form_Click()

i=0

Do Until 0

i=i+1

if i＞10 then Exit Do

Loop

Print i

End Sub

点击查看答案

第2题

下面程序运行后的输出结果是______。Private Sub Command1_ Click （)for j = 1 To 10if j Mod 3

下面程序运行后的输出结果是______。Private Sub Command1_ Click () for j = 1 To 10 if j Mod 3 ＜＞ 0 then a =a+j\3 Next j Print aEnd Sub

A．20

B．10

C．3

D．9

点击查看答案

第3题

下面程序的输出结果是【】。Private Sub Form_Click（)i＝0Do Until 0i＝i＋1if i＞10 then Exit DoLo

下面程序的输出结果是【】。

Private Sub Form_Click()

i＝0

Do Until 0

i＝i＋1

if i＞10 then Exit Do

Loop

Print i

End Sub

点击查看答案

第4题

下面程序的输出结果是【】。Private Sub Commandl_Click（)Dim a（1 To 20)Dim iFori = 1 To 20a（i)

下面程序的输出结果是【】。

Private Sub Commandl_Click()

Dim a(1 To 20)

Dim i

Fori = 1 To 20

a(i) = i

Next i

For Each i In a()

a(i) = 20

Next i

Print a(2)

End Sub

点击查看答案

第5题

下面程序运行后的输出结果是Private Sub Command1_Click（) For j=1 To 10If j Mod 3＜＞0 Then a=a

下面程序运行后的输出结果是 Private Sub Command1_Click() For j=1 To 10 If j Mod 3＜＞0 Then a=a+j\3 Next Print a End Sub

A．20

B．10

C．3

D．9

点击查看答案

第6题

执行下面程序，第一行输出结果是【】，第二行输出结果是47。 Option Explicit Private Sub Form_Click

执行下面程序，第一行输出结果是【】，第二行输出结果是47。

Option Explicit

Private Sub Form_Click()

Dim A As Integer

A=2

Call Sub1 (A) End Sub

Private Sub1 (x As Integer)

x=x*2+1

If x＜10 Then

Call Sub1 (x)

End If

x=x*2+1

Print x

End Sub

点击查看答案

第7题

执行下面程序，第一行输出结果是[]，第二行输出结果是[]。Option ExplicitPrivate Sub Form_Click（)

执行下面程序，第一行输出结果是 [ ] ，第二行输出结果是 [ ] 。

Option Explicit

Private Sub Form_Click()

Dim A As Integer

A=2

Call Sub1(A)End Sub

Private Sub1(x As Integer)

x=x*2+1

If x＜10 Then

Call Sub1(x)

End If

x=x*2+1

Print x

End Sub

点击查看答案

第8题

下面程序运行后输出的结果是（）。 Private Sub Form_Click（）For x=5 To 2.5 Step -7Next xPrint xEnd Sub

A.-2

B.2.5

C.2

D.–7

点击查看答案

第9题

下面运行程序后,单击命令按钮,输出的结果是【】。 Private Sub Command1_Click（)Dim a%（1 To 5),i

下面运行程序后,单击命令按钮,输出的结果是【】。

Private Sub Command1_Click()

Dim a%(1 To 5),i%, s#

For i=1 To 5

a(i)=i

s=Fun(a)

Print "s="; s;

End Sub

Function Fun(a() As Integer)

Dim t#, i%

t=1

For i=LBound(a) To UBound(a)

t=t  a(i)

Fun=t

End Function

点击查看答案

第10题

下面程序执行时，输出的结果是（)。Private Sub Form_Click（)DimiASInteger,j As Integeri=10Doi=i+

下面程序执行时，输出的结果是()。 Private Sub Form_Click() DimiASInteger,j As Integer i=10 Do i=i+j forj=10 toistep-3 i=i+j nextj Loop Whilei＜50 Printi;j End Sub

A．50 10

B．50 9

C．57 10

D．59 9

点击查看答案

第11题

（30 ）下面程序的输出结果是Private Sub Command1_Click（)ch$= ” ABCDEF ”proc chPrint chEnd Su

（30 ）下面程序的输出结果是

Private Sub Command1_Click()

ch$= ” ABCDEF ”

proc ch

Print ch

End Sub

Private Sub proc(ch As String)

S= ””

For k=Len(ch) To 1 Step-1

s=s&Mid(ch,k,1)

Next k

ch=s

End Sub

A ） ABCDEF

B ） FEDCBA

C ） A

D ） F

点击查看答案

警告：系统检测到您的账号存在安全风险

为了保护您的账号安全，请在“赏学吧”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！

微信搜一搜

赏学吧

点击打开微信

警告：系统检测到您的账号存在安全风险

抱歉，您的账号因涉嫌违反赏学吧购买须知被冻结。您可在“赏学吧”微信公众号中的“官网服务”-“账号解封申请”申请解封，或联系客服。

微信搜一搜

赏学吧

点击打开微信