Private Sub Form_Load()Dim n As Integer, b As Integern = Int(InputBox("请输入一个数", "输入"))ShowFor k = 1 To nPrint Int(Rnd * 1000)Next kEnd Sub
