Excel электронды кесте бағдарламасында функция графиктерін салу.

Private Sub Command1_Click()

Picture1.Scale (-12.1, 12.1)-(12.1, -12.1)

For i% = -12 To 12

Picture1.Line (i, 12.1)-(i, -12.1), vbYellow

Next i

For k! = -1 To 1 Step 0.1

Picture1.Line (-12, k)-(12, k), vbYellow

Next k

Picture1.Line (-12, 0)-(12, 0), vbGreen

Picture1.Line (0, -12)-(0, 12), vbGreen

d! = 0.001

For y! = -12 To -d Step d

Picture1.PSet (y, 10 / (y))

Next y

For y! = d To 12 Step d

Picture1.PSet (y, 10 / (y))

Next y

End Sub

Тапсырма:

келесі суреттегі программаға

Алмастыру (бағдарламаны өзгерту)

Тапсырма: команда атын «кішкентай қонжық» деп өзгерт, бағдарламасын жаз?

Тапсырма :

1жақтау (frame1) , Жазу1 (text1),

2каманда (command1,2) ,timer1.

батырмаларын алып бағдарламасын

жазып шығару.

Private Sub Command1_Click()

Picture1.Scale (-12.5, 1.1)-(12.5, -1.1)

For i% = -12 To 12

Picture1.Line (i, 1)-(i, 1), vbYellow

Next i

For k! = -1 To 1 Step 0.1

Picture1.Line (-12, k)-(12, k), vbYellow

Next k

Picture1.Line (-12, 0)-(12, 0), vbGreen

Picture1.Line (0, -1)-(0, 1), vbGreen

d! = 0.001

For x! = -12 To 12 Step d

Picture1.PSet (x, Sin(x))

Next x

End Sub

Private Sub Command1_Click()

Cls

drawwhite = 2

Scale (0, 0)-(15, 15)

Randomize Timer

For i = 1 To 500

x = Rnd() * 15

y = Rnd() * 10

Line (2, 5)-(x, y), QBColor(Int(Rnd() * 12))

For J = 1 To 100 000: Next J

Next i

End Sub

Тапсырма: формаға команда алып бағдарламасын

Жазып жауабын алу.

Тапсырма: формаға команда алып атын «пуск» деп өзгертіп бағдарламаны орында.

Private Sub Command1_Click()

Form1.DrawWidth = 2

X = 1500: y = 2500: r = 800

Form1.FillStyle = 2

Form1.FillColor = vbBlue

Do

Cls

X = X + 1000

Form1.Circle (X, y), r, vbRed

For i = 1 To 20000000: Next i

Loop While X