关于vb比较3个数字的大小。编程中的错误。
PrivateSubCommand1_Click()a=Str(Text1.Text)b=Str(Text2.Text)c=Str(Text3.Text)Ifa>bThe...
Private Sub Command1_Click()
a = Str(Text1.Text)
b = Str(Text2.Text)
c = Str(Text3.Text)
If a > b Then
a = a
b = b
Else
x = a
a = b
b = x
End If
If a > c Then
If b > c Then
a = a
b = b
c = c
Else
a = a
x = b
b = c
c = x
End If
Else
x = a
a = c
y = b
b = a
c = y
Print a + b + c
End If
End Sub 展开
a = Str(Text1.Text)
b = Str(Text2.Text)
c = Str(Text3.Text)
If a > b Then
a = a
b = b
Else
x = a
a = b
b = x
End If
If a > c Then
If b > c Then
a = a
b = b
c = c
Else
a = a
x = b
b = c
c = x
End If
Else
x = a
a = c
y = b
b = a
c = y
Print a + b + c
End If
End Sub 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询