计算机作业

两个数的比较

Private Sub Command1_Click()

 

  a = Text1.Text

  b = Text2.Text

 

  If a > b Then

  Print a

 Else

 

  Print b

   End If

  

End Sub

 

 

三个数的比较

Private Sub Command1_Click()

 a = Text1.Text

 b = Text2.Text

 c = Text3.Text

  If a > b Then

  Max = a

  Else

  Max = b

  If c > Max Then

  Max = c

  End If

End If

 

Print Max

 

End Sub

 

 

 

 通过书本知识以及老师指导，我完成了，但是最后貌似还有一个多个数的比较，就不会了