比较三个数大小
2012-05-22 20:15
169 查看
代码:
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer
Dim max As Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
If a > b Then
max = a
Else
max = b
End If
If c > max Then
max = c
Else
max = max
End If
Label4.Caption = max
End Sub
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer
Dim max As Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
If a > b Then
max = a
Else
max = b
End If
If c > max Then
max = c
Else
max = max
End If
Label4.Caption = max
End Sub
相关文章推荐
- 三个数之间的比较大小
- 13.比较三个数的大小
- 比较三个数的大小
- 比较三个数的大小
- 三个数大小的比较
- 4比较三个数的大小输出最大的值并从小到大排序输出
- 比较三个数的大小
- VB比较三个数的大小
- 实现三个数大小的比较
- 比较三个数的大小
- 比较三个数大小新方法。
- 5.编写一个程序,有两个类,其中类MAX中具有两个方法,方法名都是max,一个方法能够比较两个数的大小,另外一个方法能够比较三个数的大小。在另外一个类中创建对象,调用这两个方法,分别输出两组数:2、6
- 比较三个数的大小
- 三元运算符 比较三个数大小 三元操作符的类型务必一致
- vb比较三个数的大小
- 比较三个数的大小
- c语言入门:比较三个数的大小
- 比较三个数的大小
- C++ 2(if嵌套语句做比较三个数的大小)
- VB作业之比较三个数的大小