vb 编程聊~~~

Dim a, b, c, t
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)

If a < b Then
t = b
Else
t = a
End If
If t < c Then
a = c
Else
a = t
End If
Text4.Text = a

Private Sub Command1_Click()

   Dim intSb As Integer

   If IsNumeric(Text1.Text) And IsNumeric(Text2.Text) And IsNumeric(Text3.Text) Then

     intSb = IIf((Val(Text1.Text) > Val(Text2.Text)), Val(Text1.Text), Val(Text2.Text))

      intSb = IIf((Val(Text3.Text) > intSb), Val(Text3.Text), intSb)

      Text4.Text = intSb

   End If

End Sub

VB编程。 vb编程： VB编程.... 求助编程高手：vb编程 谁晓得VB编程？ VB编程问题 vb编程问题 vb 编程问题,急!!!! vb 编程急!!!!!!!!!!!!!! VB编程题目