vb編程題目

ID:354514 · 發表于 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

帳號		自動登錄	找回密碼
密碼			立即注冊

1024手机基地看电影,午夜福利视频导航,国产精品福利在线一区,亚洲欧美日韩另类成人,在线观看午夜日本理论片,成年超爽免费网站,国产精品成人免费,精品动作一级毛片,成人免费观看网站,97精品伊人久久大香蕉

vb編程題目

評分