1个回答
展开全部
这个好办。
窗体上有三个文本框,一个按钮。
一个输入数字,按钮确认。另两个显示已输入的数中的最大值和最小值。
程序如下:
Dim max, min As Integer
Private Sub Command1_Click()
Dim a As Integer
a = Val(Text1.Text)
If a > max Then
Text2.Text = a
max = a
End If
If a < min Then
Text3.Text = a
min = a
End If
End Sub
Private Sub Form_Load()
max = 0
min = 32767
End Sub
窗体上有三个文本框,一个按钮。
一个输入数字,按钮确认。另两个显示已输入的数中的最大值和最小值。
程序如下:
Dim max, min As Integer
Private Sub Command1_Click()
Dim a As Integer
a = Val(Text1.Text)
If a > max Then
Text2.Text = a
max = a
End If
If a < min Then
Text3.Text = a
min = a
End If
End Sub
Private Sub Form_Load()
max = 0
min = 32767
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询