VB题:随机产生10个1到100的数并输入文本框1,在文本框2中进行倒置,帮帮忙 ,谢啦
1个回答
2014-03-12
展开全部
Option Explicit
Dim i As Integer, 数组(10) As IntegerPrivate Sub Command1_Click()
Text1.Text = ""
Text2.Text = ""
For i = 0 To 9
Text1.Text = Text1.Text & " " & 数组(i)
Text2.Text = 数组(i) & " " & Text2.Text
Next i
End SubPrivate Sub Form_Load()
Randomize
For i = 0 To 9
数组(i) = Rnd * 99 + 1
Next i
End Sub
Dim i As Integer, 数组(10) As IntegerPrivate Sub Command1_Click()
Text1.Text = ""
Text2.Text = ""
For i = 0 To 9
Text1.Text = Text1.Text & " " & 数组(i)
Text2.Text = 数组(i) & " " & Text2.Text
Next i
End SubPrivate Sub Form_Load()
Randomize
For i = 0 To 9
数组(i) = Rnd * 99 + 1
Next i
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询