Page 126 -

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

11900-940302 物件名稱(Name) 物件屬性
b02 Text=第二題
【物件內容】 t02 MultiLine=True
物件項目
Button
TextBox

【程式碼-For-Next 迴圈】

Dim x As Integer, y As String
FileOpen(1, "c:\丙設磁片\940302.sm", OpenMode.Input)
Input(1, x)
FileClose(1)
For i = 1 To x

For j = 1 To i
y=y&j

Next
y = y & vbNewLine
Next
t02.Text = "第二題結果：" & vbNewLine & y

122