Page 142 -

附錄四：11900 電腦軟體設計丙級學科題庫(105 年新版)

3. 指令說明： 指令意義 範例
顯示物件資料
指令名稱 隱藏物件資料 gdata.Show()
物件名.Show() 資料依設定格式呈現 m(i, j).hide()
物件名.hide() 物件寛度(pt) Format(s3(i),”###,###,###”)
Format() 物件左邊界寛度(pt) m(i, 3).left
物件名.width 依據條件式來選擇結果 m(i, 2).width
物件名.left
Select Case 條件式
…….
End Select

4.程式碼：

(1)主程式

Dim d(100, 5), rnum, tot, m(7, 3)
Private Sub Form1_Load(ByVal sender ………………………………

FileOpen(1, "c:\丙設磁片\940307.sm", OpenMode.Input)

rnum = 0
Do While Not EOF(1)

rnum = rnum + 1
For j = 1 To 5

Input(1, d(rnum, j))
Next
Loop
FileClose(1)
For i = 1 To rnum
For j = 2 To 5

tot = tot + d(i, j)
Next
Next
m(1, 1) = m11 : m(1, 2) = m12 : m(1, 3) = m13
m(2, 1) = m21 : m(2, 2) = m22 : m(2, 3) = m23
m(3, 1) = m31 : m(3, 2) = m32 : m(3, 3) = m33
m(4, 1) = m41 : m(4, 2) = m42 : m(4, 3) = m43
m(5, 1) = m51 : m(5, 2) = m52 : m(5, 3) = m53
m(6, 1) = m61 : m(6, 2) = m62 : m(6, 3) = m63
m(7, 1) = m71 : m(7, 2) = m72 : m(7, 3) = m73
gdata.Hide()
End Sub

138