求VB选择结构编程问题
来源:学生作业帮 编辑:百度作业网作业帮 分类:综合作业 时间:2024/08/10 20:27:41
求VB选择结构编程问题
输入三个0-100内的整数(或随机产生三个0-100内的整数)存入变量x,y,z中,然后求出其中最大的值,并将三个数和最大值显示出来.
输入三个0-100内的整数(或随机产生三个0-100内的整数)存入变量x,y,z中,然后求出其中最大的值,并将三个数和最大值显示出来.
代码:Private Sub Command1_Click() Call max100End SubSub 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) PrintEnd Sub结果如图: