三个
数中显示最大的的程序:1.打开程序.2.添加一个command.三个text和一个label.3编写程序.
程序如下:
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
数中显示最大的的程序:1.打开程序.2.添加一个command.三个text和一个label.3编写程序.
程序如下:
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
4.运行程序.5,检查错误.6再次运行.7重复操作直到成功.8保存.9退出.10.做出总结.