【試題編號】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)
3.bmp 

arrow
arrow
    全站熱搜

    薰斐♥ 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄