高中信息技術-信息的編程加工教學課件設計

3.2信息的編程加工五蓮一中厲建陽認識代碼PrivateSubCommand1_Click()

‘確定按鈕單擊事件

Dimx,yAsSinglepicture1.Scale(-10,25)-(10,-25)

picture1.Line(-10,0)-(10,0),RGB(0,0,255)picture1.Line(0,25)-(0,-25),RGB(0,0,255)

Forx=-10To10Step0.0001 y=x^2 picture1.PSet(x,y),RGB(255,0,0)

Nextx

EndSub

‘結束程序認識代碼PrivateSubCommand1_Click()

Dimx,yAsSingle

‘定義x,y兩個變量

Scale(-10,25)-(10,-25)Line(-10,0)-(10,0),RGB(0,0,255)Line(0,25)-(0,-25),RGB(0,0,255)

Forx=-10To10Step0.0001 y=x^2

PSet(x,y),RGB(255,0,0)

Nextx

EndSub 數據類型名說明性質Integer整數型-32768~32767Long長整數型-2147483648~2147183647Single單精度實數型1.401298E-45~3.402823E38有效數6~7位Double雙精度實數型絕對值在10E-324~1.79E308內的實數，有效數14~15位String字符串型一段文字與符號Boolean邏輯型判斷結果：其值為真（true）或假（false）Date日期型日期和時間認識代碼PrivateSubCommand1_Click()

Dimx,yAsSingle

picture1.Scale(-10,25)-(10,-25)

‘定義坐標系

picture1.Line(-10,0)-(10,0),RGB(0,0,255)picture1.Line(0,25)-(0,-25),RGB(0,0,255)

Forx=-10To10Step0.0001 y=x^2 picture1.PSet(x,y),RGB(255,0,0) Nextx

EndSub （-10，25）（10，-25）認識代碼PrivateSubCommand1_Click()Dimx,yAsSinglepicture1.Scale(-10,25)-(10,-25)

picture1.Line(-10,0)-(10,0),RGB(0,0,255)‘畫橫坐標軸，顏色為藍色picture1.Line(0,25)-(0,-25),RGB(0,0,255)

Forx=-10To10Step0.0001 y=x^2 picture1.PSet(x,y),RGB(255,0,0) Nextx

EndSub （-10，0）（10，0）認識代碼PrivateSubCommand1_Click()

Dimx,yAsSinglepicture1.Scale(-10,25)-(10,-25)

picture1.Line(-10,0)-(10,0),RGB(0,0,255)

picture1.Line(0,25)-(0,-25),RGB(0,0,255)

‘畫縱坐標軸，顏色為藍色Forx=-10To10Step0.0001 y=x^2 picture1.PSet(x,y),RGB(255,0,0) Next

EndSub （0，25）（0，-25）認識代碼PrivateSubCommand1_Click()Dimx,yAsSinglepicture1.Scale(-10,25)-(10,-25)

picture1.Line(-10,0)-(10,0),RGB(0,0,255)

picture1.Line(0,25)-(0,-25),RGB(0,0,255)

Forx=-10To10Step0.0001 y=x^2

‘用循環(huán)語句描點畫函數圖像

picture1.PSet(x,y),RGB(255,0,0) Next

EndSub 認識代碼PrivateSubCommand1_Click()

Dimx,yAsSinglepicture1.Scale(-10,25)-(10,-25)

picture1.Line(-10,0)-(10,0),RGB(0,0,255)

picture1.Line(0,25)-(0,-25),RGB(0,0,255)

Forx=-10To10Step0.0001

‘x值從-10變化到10，每次增量為0.0001

y=x^2

‘計算y值

picture1.PSet(x,y),RGB(255,0,0)

‘用紅色描出坐標為（x,y）的點

Nextx

‘取下一個x值

EndSub 此線由二十萬個點組成無論是手工繪制還是編程實現，其本質都是“描點法”。信息編程加工的概念

：利用某種計算機語言，對解決問題的方法和步驟進行描述，然后通過調試