主观

下列程序的功能是:输入10个整数,逆序后输出。请在程序空白处填入适当语句使程序完成指定的功能。

Private Sub Command2_Click()

   Dim i, j, k,temp, arr(11) As lnteger

   Dim result As String 

   For k=1 To 10

   arr(k) =Val (InputBox( "请输入第" & k & "个数:","数据输入窗口"))

   Next k   

   i=1

   j = 10

   Do   

      temp=arr(i)

      arr(i)=arr(j)

      arr(j)=temp

      i=i+1   

      j=【12】

   Loop While【13】

   result =""

   For k=1 To 10

       result=result & arr(k) & Chr(13)   

   NeXt k

   MsgBox result

End Sub

参考答案
您可能感兴趣的试题
¥

订单号:

遇到问题请联系在线客服

订单号:

遇到问题请联系在线客服