
Sub test()
Dim arr1(1 to 10) , arr2(1 to 10)
For i =1 to 10
arr1(i)=Inputbox("请输入第" & i & "个数")
Next i
For j=1 to 10
arr2(j)=arr1(11-j)
Next j
Msgbox join(arr2,",")
End Sub
以上就是关于用VBA设计一个程序, 定义一个能保存10个数的数组, 用inputbox函数任意输入10个整数, 并赋值给数组. 用循环全部的内容,包括:用VBA设计一个程序, 定义一个能保存10个数的数组, 用inputbox函数任意输入10个整数, 并赋值给数组. 用循环、、等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)