Question

vb 程序设计"求8个随机二位数",30分钟内,急需,是输入在text里的

Answer 1

竖着排列要把text1的multiline属性设为true
Private Sub Command1_Click()
Text1.Text = ""
Randomize
For i = 1 To 8
Text1.Text = Text1.Text & Int(Rnd * 90) + 10 & chr(13)+chr(10)
Next
End Sub

Answer 2

Private Sub Command1_Click()
Text1.Text = ""
Randomize
For i = 1 To 8
Text1.Text = Text1.Text & Int(Rnd * 90) + 10 & " "
Next
End Sub

追问

怎么让八个数竖着排列

追答

Private Sub Command1_Click()
Text1.Text = ""
Randomize
For i = 1 To 8
Text1.Text = Text1.Text & Int(Rnd * 90) + 10 & vbcrlf
Next
End Sub