两个数比较

两个数比较大小

在窗体上插入两个标签，两个文本框，一个按钮。输入代码：

Private Sub Command1_Click()

  Dim a As Integer

  Dim b As Integer

   

  a = Text1.Text

  b = Text2.Text

If a > b Then

 Print a

Else

  Print b

End If

 

End Sub

这个程序用IF程序比较两个数的大小，开始的时候，我用函数max来比较大小，代码是：

Private Sub Command1_Click()

  Dim a As Integer

  Dim b As Integer

  Dim max As Integer

 

  a = Text1.Text

  b = Text2.Text

Print Val(max(a, b))

End Sub

蓝色字是两个程序不同的地方，但是第二个程序无法运行，显示错误为“缺少数组”，无论我怎样修改，它都没办法运行。如果我想用这个程序来比较两个数的大小，应该怎样修改程序呀？

三个数的比较

在窗体上插入三个文本框，一个按钮，输入代码：

Private Sub Command1_Click()

  Dim a As Integer

  Dim b As Integer

  Dim c As Integer

 

  a = Text1.Text

  b = Text2.Text

  c = Text3.Text

 

If a > b Then

   Max = a

Else

   Max = b

End If

If c > Max Then

  Max = c

End If

  Print Max

End Sub

 

十个数的比较

Private Sub Command1_Click()

  Dim a As Integer

  Dim b As Integer

  Dim c As Integer

  Dim f(i) As String

 

  c = f(i)

  a = 12

  b = 6

  If a > b Then

     mymax = a

  Else

     mymax = b

  End If

 

 For f(i) = 0 To 7 = Int(Rnd * 100)

 If f(i) > mymax Then

 Max = f(i)

 End If

 

End Sub

    程序无法运行，显示问题为“要求常数表达式”，红色字体为出现问题的地方，我和另外几个同学的问题都出在这里，讨论后也没能解决。