VB2.png (17.92 KB, 下載次數: 38)
下載附件
2018-6-19 18:36 上傳
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
|
QQ好友和群
QQ空間
騰訊微博
騰訊朋友
收藏
淘帖
頂
踩
