1设定一个最大值x让在1到x中滚动Dim x As IntegerPrivate Sub Form_Load()x = InputBox(请输入需设定数的最大值 键入数值 0)End SubPrivate Submand1_Click() = Not End SubPrivate Sub Timer1_Timer() = Int((Rnd() x) 1)End Sub 1)VB