VB啊各位帮忙

来源：百度知道 编辑：UC知道 时间：2024/07/07 22:34:21
多窗体比较大小
如例程所示，在（1）第一个窗体的三个文本框中分别输入三个数字，（2）单击“比较”菜单中的“最大值”选项，在第二个窗体中通过标签栏输出三个数中的最大值；（3）在第（1）步后单击“比较”菜单中的“排序”选项在第二个窗体中输出三个数由大到小的排序结果。

'添加窗体Form1,Form2,文本框Text1,Text2,Text3(都在Form1上),卷标Label1(在Form2上),然后添加如下代码:
Dim a(3) As Integer
Private Sub mnuCompMax_Click()
    Dim b As Integer
    b = Text1.Text
    If b < Text2.Text Then b = Text2.Text
    If b < Text3.Text Then b = Text3.Text
    Form2.Label1.Caption = b
    Form2.Show
End Sub

Private Sub mnuCompSort_Click()
    Dim i, j, temp As Integer
    a(1) = Text1.Text
    a(2) = Text2.Text
    a(3) = Text3.Text
    For i = 1 To 3