下列程序的功能是:输入l0个整数。‘Private sub Command2

下列程序的功能是:输入l0个整数。‘Private sub Command2_Click()Dim i,j,k,temp,arr(11)As IntegerDimresult As StringFor k=1T0 10arr(k)=Val(InputBox(“请输入第”&k&”个数:”,”数据输入窗口”))Next ki=1   J=10DoTemp=arr(i

问题:

[单选] 下列程序的功能是:输入l0个整数。‘Private sub Command2_Click()
Dim i,j,k,temp,arr(11)As Integer
Dimresult As String
For k=1T0 10
arr(k)=Val(InputBox(
“请输入第”&k&”个数:”,”数据输入窗口”))
Next k
i=1
J=10
Do
Temp=arr(i)
arr(i)=arr(j)
arr(j)=tempi=i+1
j=__________LoopWhileresule=””For k=1 To 10
result=result&arr(k)&Chr(13)Nextk
MsgBoxresult
End Sub
横线处应填写的内容是(  )。

A . J-i i<j
B . j+1 i<j
C . j+1 i>j
D . J-1 i>j

参考答案:A

参考解析:

本题中第一个循环是将输入的数放进数组中,在第二个循环中进行逆序交换,a(1)是和a(10)进行交换,所以当i=i+1时,j=j-1,当i=5,j=5时,会停止循环,所以条件必须为i<j。

联系我们

联系我们

查看联系方式

邮箱: 2643773075@qq.com

工作时间:周一至周五,9:00-17:30,节假日休息

关注微信
微信扫一扫关注我们

微信扫一扫关注我们

返回顶部