按纽中的程序如下:
dim maxNum as Double
maxNum=Val(Text1)
If maxNum If maxNum If maxNum Text5=Str(maxNum) 可以下载附件中的Form12 源程序...
Private Sub Command1_Click()
Dim A, B As Double
If Val(Me.Text1.Text) - Val(Me.Text2) > 0 Then
A = Me.Text1
Else
A = Me.Text2.Text
End If
If Val(Me.Text3.Text) - Val(Me.Text4) > 0 Then
B = Me.Text3
Else
B = Me.Text4.Text
End If
If A - B > 0 Then
Me.Text5 = A
Else
Me.Text5.Text = B
End If
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024