VB编小程序求救

在名称为Form1的窗体中画一个标签（名称为Label1 ，标题为“最大值是：”），四个文本框（名称分别为Text1、Text2、Text3和Text4，Text属性初始为空白），一个命令按钮（名称为Command1，标题为求最大值）。编写函数过程int FindMax(int a())，其功能是求出数组中的最大值。然后编写命令按钮Command1的Click事件过程，在其中调用FindMax函数。程序运行时从四个文本框输入四个整数值，然后点击命令按钮Command1，求出四个文本框中数字的最大值，并显示在便签Label1中。

下面是我写的程序

但是不对，本人是菜乌呢

Private Sub Command1_Click()
Dim FindMax As Integer
Dim a(4) As Integer: Dim i As Integer
a(0) = Val(Text1.Text): a(1) = Val(Text2.Text): a(2) = Val(Text3.Text): a(3) = Val(Text4.Text)
FindMax = 0
For i = 0 To i = 3
If (FindMax < a(i)) Then FindMax = a(i)
Next i
Label1 = 最大值是: FindMax
End Sub

Private Sub Command1_Click()
Dim a(3) As Integer
a(0) = Val(Text1.Text): a(1) = Val(Text2.Text): a(2) = Val(Text3.Text): a(3) = Val(Text4.Text)
If a(0) > a(1) And a(0) > a(2) And a(0) > a(3) Then Label1.Caption = "最大数是：" & a(0)
If a(1) > a(0) And a(1) > a(2) And a(1) > a(3) Then Label1.Caption = "最大数是：" & a(1)
If a(2) > a(0) And a(2) > a(1) And a(2) > a(3) Then Label1.Caption = "最大数是：" & a(2)
If a(3) > a(0) And a(3) > a(1) And a(3) > a(2) Then Label1.Caption = "最大数是：" & a(3)
End Sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息