《VB程序设计》课堂例题总结(9)

Open App.Path & \ '打开数据文件，准备读出 For i = 1 To 4 For j = 1 To 4

Input #2, a(i, j) '读磁盘文件中的一个数据，并赋值给数组元素

s$ = IIf(Len(CStr(a(i, j))) = 1, \ \ \ '为了标签中输出规整，判断数据是1位还是2位，分别空3个或2个空格 Label2 = Label2 & a(i, j) & s Next j

Label2 = Label2 & vbCrLf '换行 Next i Close #2 Case 2

max% = a(1, 1) For i = 1 To 4 For j = 1 To 4

If a(i, j) > max Then max = a(i, j) Next j Next i

Label3 = \最大值：\ Case 3

For j = 1 To 4

line3 = line3 + a(3, j) Next j

Label4 = \第三行元素之和：\ Case 4

Open App.Path & \ Print #3, max, line3 Close

MsgBox \已写入文件\ Case Else End End Select End Sub

41

'打开数据文件，准备追加数据