菜鸟问题！！按一下按扭在text框中随机出现1-10的数字该怎样完成啊？绝对给分

Question

Private Sub Command1_Click()
Text1.Text = Round(Rnd() * 10 + 1, 0)End Sub

Answer 1

Private Sub Command1_Click()
Randomize
Text1.Text = Int(Rnd() * 10 + 1)
End Sub

Answer 2

Private Sub Command1_Click()
Dim MyValue
Randomize   ' 对随机数生成器做初始化的动作。
MyValue = Int((10 * Rnd) + 1)   ' 生成 1 到 6 之间的随机数值。
End Sub

Answer 3

Private Sub Command1_Click()
Text1.Text = Int((10 * Rnd) + 1)    ' 生成 1 到 10 之间的随机数值。
End Sub

Answer 4

Private Sub Command1_Click()
Dim MyValue
Randomize   ' 对随机数生成器做初始化的动作。
MyValue = Int((10 * Rnd) + 1)   ' 生成 1 到 6 之间的随机数值。
text1.text=Cstr(MyValue)
End Sub

Answer 5

不好意思，为了抢分只顾抄msdn的例子。下面一定没错。
Private Sub Command1_Click()
Dim MyValue
Randomize   ' 对随机数生成器做初始化的动作。
MyValue = Int((10 * Rnd) + 1)   ' 生成 1 到 10之间的随机数值。
text1.text=Cstr(MyValue)
End Sub

Answer 6

請注意Rnd 函數傳回的亂數值介於 0 和 1 之間，可等於 0，但不等於 1。number 的值會影響 Rnd 傳回亂數值的方法。給定一個亂數種子後，便會產生一特定的亂數序列，因為每呼叫一次 Rnd 函數，它就會使用先前呼叫時所產生的亂數值當成新的亂數種子以產生新的亂數值。在使用 Rnd 之前，最好先呼叫 Randomize 陳述式，但不要給任何引數，如此便會以作業系統的時間當作亂數種子來起始亂數產生器。若想產生在某個範圍內(非 0 到 1)的亂數值，可使用下列公式：Int((upperbound - lowerbound + 1) * Rnd + lowerbound)上述公式中，upperbound 是亂數範圍的上限，而 lowerbound 則是亂數的下限。

Answer 7

Private Sub Command1_Click()
Text1.Text = Int(Rnd() * 10 + 1)
End Sub

Answer 8

Private Sub Command1_Click()
Randomize
Me.Text1.Text = LTrim(Str$(Int(10 * Rnd() + 1)))
End Sub测试过的，非抄袭

Answer 9

Private Sub text1_KeyPress(Index As Integer, KeyAscii As Integer)
 If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
      KeyAscii = 0
      MsgBox "请输入数字"
      End If
      
End Sub

Answer 10

学basic时就有这样的例子了啊

Answer 11

Text1.Text = int(Rnd() * 10 + 1)

Answer 12

Private Sub Command1_Click()
Dim MyValue
Randomize   ' 对随机数生成器做初始化的动作。
MyValue = Int((10 * Rnd) + 1)   ' 生成 1 到 10之间的随机数值。
text1.text=Cstr(MyValue)
End Sub