Picture1.Line (-10, 0)-(10, 0), vbcian

Picture1.Print "X"

Picture1.Line (0, 10)-(0, -10), vbcian

Picture1.Print "Y"

For i=-10 To 10

Picture1.PSet (i, 0), QBColor(0)

Picture1.Print i

Next i

For i=-10 To 10 Step 0.02

x=i

y=a*x^2+b*x+c

Picture1.PSet (x, y)

Next i

End Sub

6. Запустить программу и убедиться в правильности ее работы, при необходимости исправить ошибки, а затем сохранить на дискете проект и форму.

Задача № 8.4

1. Создать новый проект и программу для вычисления наименьшего общего кратного 2-х произвольных чисел. Окно работающего приложения показано на рис. 81.

2. Записать для кнопки Вычислить программный код:

Dim n1, n2, Nok, M As Double

If Val(Text1.Text)<>0 Or Val(Text2.Text)<>0 Then

n1=Abs(Val(Text1.Text))

n2=Abs(Val(Text2.Text))

M=n1*n2

Do

q=n1 Mod n2

n1=n2: n2=q

Loop While q<>0

Nok=n1

Text3.Text=M/Nok

Else

MsgBox "Следует ввести числа, отличные от нуля!"

Text1.Text=""

Text2.Text=""

Text1.SetFocus

End If

3. Запустить программу и убедиться в правильности ее работы, при необходимости исправить ошибки, а затем сохранить на дискете проект и форму.

Задача № 8.5

1. Создать новый проект и программу для вычисления наибольшего общего делителя 2-х произвольных чисел. Окно работающего приложения показано на рис. 82.

2. Записать для кнопки Вычислить программный код:

If Nod(Val(Text1.Text), Val(Text2.Text))<>0 Then

Text3.Text= Nod(Val(Text1.Text), Val(Text2.Text))

Else

Text3.Text=""

End If

3. Записать программный код для раздела General Declaartions:

Function Nod(ByVal n1 As Double, ByVal n2 As Double) As Double

n1=Abs(n1): n2=Abs(n2)

If n1*n2=0 Then

MsgBox ("ошибка ввода")

Text1.Text=""

Text1.SetFocus

Text2.Text=""

Exit Function

End If

Do

q=n1 Mod n2

n1=n2: n2=q

Loop While q<>0

Nod=n1

End Function

4. Запустить программу и убедиться в правильности ее работы, при необходимости исправить ошибки, а затем сохранить на дискете проект.

Задача № 8.6

1. Создать новое приложение, позволяющее нарисовать на форме прямоугольник, у которого длина одной стороны задается с помощью элемента Slider, а длина другой вычисляется по формуле золотого сечения. Окно работающего приложения показано на рис. 83.

2. Записать для элемента Slider программный код:

Dim a, b As Integer

DrawWidth=5

Form1.Cls

a=Slider1.Value: Label2.Caption=a

b=(a*(Sqr(5)-1))/2

Label6.Caption=b

Line (2000, 3000)-(2000 + a, 3000), vbRed

Line (2000, 3000)-(2000, 3000 + b), vbBlue

Line (2000, 3000 + b)-(2000 + a, 3000 + b), vbYellow

Line (2000 + a, 3000)-(2000 + a, 3000 + b), vbMagenta

3. Запустить программу и убедиться в правильности ее работы, при необходимости исправить ошибки, а затем сохранить на дискете проект.

Задача № 8.7

1. Создать новое приложение, позволяющее нарисовать на форме правильный треугольник с высотой, заданной с помощью элемента Slider. Окно работающего приложения показано на рис. 84.

2. Записать для элемента Slider программный код:

Dim h As Integer

Slider1.Text = "H= "+Str(Slider1.Value)

Form113.Cls

Text1.Text=Slider1.Value

h=Slider1.Value

Call My(h)

3. Записать программный код для раздела General Declaartions: