VisualBasic试验参考指导书程序代码.docxVIP

VisualBasic 试验参考指导书程序 代码 9-1 Option Explicit Option Base 1 Private Sub Command1_Click( Dim x(10 As Integer, maxv As Integer, minv As Integer Dim i As Integer For i = 1 To 10 x(i = Int(90 * Rnd + 10 Text1.Text = Text1 Str(x(i Next i Call maxmin(x, maxv, minv Text2.Text = maxv Text3.Text = minv End Sub Private Sub Command2_Click( Text1.Text = Text2.Text = Text3.Text = End End Sub Private Sub maxmin(a( As Integer, max As Integer, min As Integer Dim i As Integer max = a(1: min = a(1 For i = LBound(a + 1 To UBound(a If a(i max Then max = a(i ElseIf a(i min Then min = a(i End If Next i End Sub 9