Visual-Basic-实验指导书程序代码(精).docVIP

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_C