求VB选择结构编程问题输入三个0-100内的整数(或随机产生三个0-100内的整数)存入变量x,y,z中,然后求出其中最大的值,并将三个数和最大值显示出来.
来源:学生作业帮助网 编辑:作业帮 时间:2024/11/17 19:52:55
求VB选择结构编程问题输入三个0-100内的整数(或随机产生三个0-100内的整数)存入变量x,y,z中,然后求出其中最大的值,并将三个数和最大值显示出来.
求VB选择结构编程问题
输入三个0-100内的整数(或随机产生三个0-100内的整数)存入变量x,y,z中,然后求出其中最大的值,并将三个数和最大值显示出来.
求VB选择结构编程问题输入三个0-100内的整数(或随机产生三个0-100内的整数)存入变量x,y,z中,然后求出其中最大的值,并将三个数和最大值显示出来.
代码:
Private Sub Command1_Click()
Call max100
End Sub
Sub max100()
Dim x As Integer
Dim y As Integer
Dim z As Integer
Dim tmp As Integer
Call Randomize
x = CInt(Rnd(100) * 100)
y = CInt(Rnd(100) * 100)
z = CInt(Rnd(100) * 100)
tmp = x
If tmp < y Then
tmp = y
End If
If tmp < z Then
tmp = z
End If
Me.AutoRedraw = True
Print "x=" & CStr(x)
Print "y=" & CStr(y)
Print "z=" & CStr(z)
Print "max=" & CStr(tmp)
End Sub
结果如图: