Question

请VB程序高手朋友帮忙！能帮忙写下面题目程序吗？谢谢您！

6、编写一个VB程序，能够求任意个正整数的最大值和最小值。

Answer 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