vb編程題目

ID:354514 · 發(fā)表于 2018-6-19 18:39

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

帳號(hào)		自動(dòng)登錄	找回密碼
密碼			立即注冊(cè)

vb編程題目

評(píng)分

瀏覽過(guò)的版塊