vb 随机数 最大值 最小值
发布网友
发布时间：2023-09-28 06:07
共1个回答
热心网友
时间：2023-10-14 15:15
Randomize '必要代码，不然的话每次随机生成都是一样的数
a=int(rnd*(m-n+1))+n '其中m>n生成n~m间（包括n，m）的随机整数
'假如想随机生成20-100间
'那么就是n=20，m=100
'代码如下：
int(rnd*(100-20+1))+20VB编程数值比较求最大值、最小值：
Private Sub Command1_Click()
On Error Resume Next
Dim i As Integer
Dim a(1 To 3) As Integer
For i = 1 To 3
a(i) = InputBox("请输入第" & i & "个数字")
Next i
'求最大值
If a(1) > a(2) And a(1) > a(3) Then Print "最大的数字是" & a(1)
If a(2) > a(1) And a(2) > a(3) Then Print "最大的数字是" & a(2)
If a(3) > a(1) And a(3) > a(2) Then Print "最大的数字是" & a(3)
’求最小值
'If a(1) < a(2) And a(1) < a(3) Then Print "最小的数字是" & a(1)
'If a(2) < a(1) And a(2) < a(3) Then Print "最小的数字是" & a(2)
'If a(3) < a(1) And a(3) < a(2) Then Print "最小的数字是" & a(3)
End Sub
