标题: vb编程题目 [打印本页]

作者: kmeymkkmy    时间: 2018-6-19 18:39
标题: vb编程题目
Dim a(5, 40)
Private Sub Command1_Click()
    Dim ch As String
    ch$ = ""
    Open App.Path & "\in5.dat" For Input As #1
    For i = 1 To 5
        For j = 1 To 40
            Input #1, a(i, j)
            ch = ch & a(i, j) & " "
        Next j
        ch = ch & Chr(13) & Chr(10)
    Next i
    Close #1
    Text1.Text = ch
End Sub

Private Sub Command2_Click()

'===================考生编写的程序==============
    Dim sum(1 To 5) As Double, avg(1 To 5) As Double
    For i = 1 To 5
        For j = 1 To 40
            If a(i, j) < 50 Then
                sum(i) = sum(i) + a(i, j)
                k = k + 1
            End If
        Next j
        avg(i) = sum(i) / k
    Next i
    For i = 1 To 5
        Label1(i - 1) = sum(i)
        Text2(i - 1) = Format(avg(i), "##.00")
    Next i

'================================================

End Sub

Private Sub Command3_Click()
    Open App.Path & "\out5.dat" For Output As #1
    For k = 0 To 4
        Print #1, Label1(k)
    Next k
    For k = 0 To 4
        Print #1, Text2(k)
    Next k
    Close #1
End Sub








欢迎光临 (http://www.51hei.com/bbs/) Powered by Discuz! X3.1