高中信息技術(shù)-信息的編程加工教學(xué)課件設(shè)計

3.2信息的編程加工五蓮一中厲建陽認(rèn)識代碼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

‘結(jié)束程序認(rèn)識代碼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 數(shù)據(jù)類型名說明性質(zhì)Integer整數(shù)型-32768~32767Long長整數(shù)型-2147483648~2147183647Single單精度實(shí)數(shù)型1.401298E-45~3.402823E38有效數(shù)6~7位Double雙精度實(shí)數(shù)型絕對值在10E-324~1.79E308內(nèi)的實(shí)數(shù)，有效數(shù)14~15位String字符串型一段文字與符號Boolean邏輯型判斷結(jié)果：其值為真（true）或假（false）Date日期型日期和時間認(rèn)識代碼PrivateSubCommand1_Click()

Dimx,yAsSingle

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

‘定義坐標(biāo)系

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）認(rèn)識代碼PrivateSubCommand1_Click()Dimx,yAsSinglepicture1.Scale(-10,25)-(10,-25)

picture1.Line(-10,0)-(10,0),RGB(0,0,255)‘畫橫坐標(biāo)軸，顏色為藍(lán)色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）認(rèn)識代碼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)

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

EndSub （0，25）（0，-25）認(rèn)識代碼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)語句描點(diǎn)畫函數(shù)圖像

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

EndSub 認(rèn)識代碼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)

‘用紅色描出坐標(biāo)為（x,y）的點(diǎn)

Nextx

‘取下一個x值

EndSub 此線由二十萬個點(diǎn)組成無論是手工繪制還是編程實(shí)現(xiàn)，其本質(zhì)都是“描點(diǎn)法”。信息編程加工的概念

：利用某種計算機(jī)語言，對解決問題的方法和步驟進(jìn)行描述，然后通過調(diào)試