作业帮 > 综合 > 作业

求VB选择结构编程问题

来源:学生作业帮 编辑:灵鹊做题网作业帮 分类:综合作业 时间:2024/04/27 19:22:14
求VB选择结构编程问题
输入三个0-100内的整数(或随机产生三个0-100内的整数)存入变量x,y,z中,然后求出其中最大的值,并将三个数和最大值显示出来.
求VB选择结构编程问题
代码: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结果如图: