作业帮 > 综合 > 作业

VB 显示3个(1-100)的随机数和这三个数的最大值

来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:综合作业 时间:2024/08/08 14:17:44
VB 显示3个(1-100)的随机数和这三个数的最大值
VB 显示3个(1-100)的随机数和这三个数的最大值
Option Explicit
Private Sub Command1_Click()
Dim a, b, i
a = 0
Randomize Timer '改变随机数种子
For i = 0 To 2
b = (100 * Rnd + 1)
Print b
If b > a Then
a = b
End If
Next
Print "最大值为:" & a
End Sub
需要整数就改这句 b = int(100 * Rnd + 1)