用VB编程把最大和最小值输出

Question

10、按照要求编写程序：新建一个VB工程，在窗体中添加三个按钮，名称分别为“btnInput”、“btnMax”和“btnMin”，按钮上分别显示“输入数据”、“求最大值”和“求最小值”在适当的事件过程中编写代码，使得程序运行时，当点击“输入数据”按钮的时候，程序通过InputBox函数让用户输入8个整数，放入一个数组中，并将这8个数显示在窗体上；当点击“求最大值”按钮的时候，程序求出数组中的最大数，显示在窗体上；当点击“求最小值”按钮的时候，程序求出数组中的最小数，显示在窗体上程序编写完毕后，运行，查看结果<BR>接下来

Answer 1

Private a(7) As Integer Private Sub btnInput_Click() Dim i As Integer For i = 0 To 7 a(i) = Val(InputBox("输入整数")) Print a(i); Next Print End Sub Private Sub btnMax_Click() Dim i As Integer Dim m As Integer m = a(0) For i = 1 To 7 If m < a(i) Then m = a(i) Next Print "最大值:" & m End Sub Private Sub btnMin_Click() Dim i As Integer Dim m As Integer m = a(0) For i = 1 To 7 If m > a(i) Then m = a(i) Next Print "最小值:" & m End Sub