两个数比较

两个数比较大小

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

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

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