[已解决]vba随机10个两位整数,用msgbox一行显示出来怎么办

vbyou127

vba随机10个两位整数,用msgbox一行显示出来怎么办

如何改

Sub s()
Dim a(10)
Randomize
For i = 1 To 10
a(i) = Int(Rnd() * 89 + 10)
MsgBox a(i)
Next
End Sub

最佳答案

月排行榜 / 总排行榜

wp8680

2016-2-29 09:31

Sub s()
Dim a(10)，T$
Randomize
For i = 1 To 10
a(i) = Int(Rnd() * 89 + 10)
T=T & a(i)  & "  "
Next
MsgBox T
End Sub

跳转到最佳答案楼层

wp8680

Sub s()
Dim a(10)，T$
Randomize
For i = 1 To 10
a(i) = Int(Rnd() * 89 + 10)
T=T & a(i)  & "  "
Next
MsgBox T
End Sub

vbyou127

wp8680 发表于 2016-2-29 09:31
Sub s()
Dim a(10)，T$
Randomize

T=T & a(i)  & "  "            解释这句有什么用

wp8680

vbyou127 发表于 2016-2-29 10:20
T=T & a(i)  & "  "            解释这句有什么用

记录每次的结果集合到一个变量中。