close
【試題編號】11900-940302
【題目】直角三角形列印
【說明】
利用『指定』廻圈控制指令，由外部資料檔讀入數字，列印從1 開始直到該數
字為止之直角三角形。
For Next 迴圈版
Private Sub Form_Activate()
Dim x As Integer, y As String 定義x為整數，y為字串
Open App.Path & "\940302.sm " For Input As #2 將資料檔開啟
Input #2, x 讀出資料檔x
Close #2 關閉檔案
Print "第二題結果："
For i = 1 To x 迴圈的次數依照資料檔的數字執行
y = y & i y若無定義，起始值為0，連接每次迴圈的值
Print y 列印出y
Next i
End Sub
列印結果:(若資料檔為7)
全站熱搜
留言列表
