Question

VB计算,分别在TEXT1、TEXT2中输入一个数字，单击command1按钮，则在text3中显 示最大值和最小值相除的结果

比如： 4.5 4.96 最大值和最小值相除：4.96/4.5=1.1022222222222

Answer 1

Private Sub Command1_Click()
Dim A As Double
Dim B As Double

A = Val(Text1.Text)
B = Val(Text2.Text)

If A > B And B <> 0 Then
Text3.Text = Text1.Text & "/" & Text2.Text & "=" & CStr(A / B)
ElseIf A < B And A <> 0 Then
Text3.Text = Text2.Text & "/" & Text1.Text & "=" & CStr(B / A)
End If

End Sub

追问

结果是只要 1.102 就行 取消“4.96/4.5”

Answer 2

在按钮的click事件里写
IF TEXT1 > TEXT2 then
TEXT3=TEXT1/TEXT2
else
TEXT3=TEXT2/TEXT1
end if

Answer 3

IF(VAL(TEXT1.TEXT)>VAL(TEXT2.TEXT))
TEXT3.TEXT=VAL(TEXT1.TEXT)/VAL(TEXT2.TEXT)
ELSE
TEXT3.TEXT=VAL(TEXT2.TEXT)/VAL(TEXT1.TEXT)
ENDIF