程序代码 Private Sub Command1 click Dim a As Integer, b As Integer Dim cAs Integer, m As Integer a= Val(TextIText b= val(Text2Text) Ⅴal(Text3.lext) If a>b Then m = a m用来存放较大值 Else b End if If c>m then m=c Text4 Text =m End sub ★Private Sub Command1_Click() Dim a As Integer, b As Integer Dim c As Integer, m As Integer a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) If a > b Then m = a 'm用来存放较大值 Else m = b End If If c > m Then m = c Text4.Text = m End Sub 程序代码