Question

一道vb程序设计题。。求大神解答

Answer 1

Dim a(5, 5) As Integer
Dim iMax, iMin As Integer

Private Sub Command1_Click()
    Dim i, j As Integer
    Dim s As String
    
    Cls
    Randomize
    iMax = 0
    iMin = 1001
    
    For i = 0 To 5
        s = ""
        For j = 0 To 5
            a(i, j) = Int(Rnd * 900) + 100
            If a(i, j) > iMax Then iMax = a(i, j)
            If a(i, j) < iMin Then iMin = a(i, j)
            s = s + Str(a(i, j))
        Next j
        Print s
    Next i
End Sub

Private Sub Command2_Click()
    Print "最大值是" & Str(iMax)
    Print "最小值是" & Str(iMin)
    Open "C:\test.txt" For Output As #1
    Print #1, "最大值是" & Str(iMax)
    Print #1, "最小值是" & Str(iMin)
    Close #1
End Sub