单击窗体时,产生2个两位数的随机整数并显示在窗体上,然后单击窗体上的“交换”命令
Private Sub Command1_Click()Dim i As IntegerFor i = 1 To 10Print Int(Rnd() * 90) + 10;Next iPrintEnd SubPrivate Sub Form_Load()Command1.Caption = "产生随机数"End Sub
其实,你可以看一下,右键,点击之后出现的窗口选项,里面应该会有的
热门标签:
Private Sub Command1_Click()Dim i As IntegerFor i = 1 To 10Print Int(Rnd() * 90) + 10;Next iPrintEnd SubPrivate Sub Form_Load()Command1.Caption = "产生随机数"End Sub
其实,你可以看一下,右键,点击之后出现的窗口选项,里面应该会有的