vb等級考試題目與評析61(參考版)
2024-09-08 16:51本頁面
【正文】 主要代碼如下： Dim a(5, 6) As Integer, n(5) As String Private Sub Command1_Click() Open For Input As 1 Text1 = For i = 1 To 5 Input 1, n(i) Text1 = Text1 + n(i) For j = 1 To 6 Input 1, a(i, j) Text1 = Text1 + + Str(a(i, j)) Next j Text1 = Text1 + Chr$(13) + Chr$(10) + Chr$(13) + Chr$(10) Next i Close 1 End Sub Private Sub mand2_click() Dim i As Integer, j As Integer, sum(6) As Integer For i = 1 To 5 For j = 1 To 6 sum(i) = sum(i) + a(i, j) Next j Text2(i 1) = Round(sum(i) / 6) Next i End Sub Private Sub Command3_Click() Dim i As Integer, j As Integer, sum(6) As Integer For i = 1 To 6 For j = 1 To 5 sum(i) = sum(i) + a(j, i) Next j Text3(i 1) = Roun
公司管理相關推薦
鄂ICP備17016276號-1