2. Программный код
Dim t As Single, x As Single, y As Single, a As Single, _
b As Single, x1 As Single, y1 As Single
Private Sub command2_Click()
Beep
End
End Sub
Private Sub command1_Click()
Randomize Timer
a = Int(Rnd * 5) - 10
b = Int(Rnd * 10) - 5
x1 = Val(InputBox("Ввести данные", , "x= "))
y1 = Val(InputBox("Ввести данные ", , "y= "))
If a > x1 Or b > y1 Then
Text1.Text = Str(Mul(a, b)): Text2.Text = ""
Else
Text2.Text = Str(Mul(x1 + 1, y1 + 2)): text1.Text = ""
End If
End Sub
Public Function Mul(x As Single, y As Single) As Single
Mul = x ^ 2 * y ^ 3 / (Sqr(Abs(x * 2 * y)) + Sin(x ^ 3 + 0.45)) * Log(Abs(x + 1))
End Function
Private Sub Form_Load()
Label2.Caption = "Функция от процедуры отличается тем, что у нее нет _
выходных параметров " + Chr(13) + Chr(10) + _
"а все ее входные параметры называются аргументами (см. функцию с именем MUL)"
End Sub
В конце программного кода в окне Label2 весь текст представлен в виде конкатенации строк, где 13 и 10 – это коды ASCII, особых невидимых символов перехода на новую строку и символа возврата на левую сторону страницы (перенос и возврат каретки).
3. Ответ
3.1
После щелчка по кнопке приложения
«Вычислить» появится окно ввода рис.2.
Рис. 2.
3.2 После ввода значений Х и У в текстовых окнах появится число (см. рис. 3)
Рис. 3.
Задача №7
Создать приложение: «Решения задач с одномерными массивами».
Решение:
Эскиз экранной формы представлен на рис. 1.
1. Расставим имена объектов на эскизе экранной формы.
Рис. 1
Рис. 1.
2. Программный код
D
Объявление переменных и массива в
области General
Dim x() As Single
Private Sub Command1_Click()
n = InputBox("Ввести длину массива ", , "n=")
ReDim x(n) As Single
Max = 100: Min = -100
Randomize Timer
For i = 1 To n
x(i) = Int(Rnd * (Max - Min) - Max)
Next
Private Sub Command10_Click()
Command8.Caption = "Найти Max"
End Sub
Private Sub Command11_Click()
s = 0
For i = 1 To n
If x(i) < 0 Then s = s + 1
Next
Text2.Text = "s = " & Str(s)
End Sub
Private Sub Command12_Click()
Text2.Text = " "
End Sub
Private Sub Command2_Click()
Text1.Text = " "
For i = 1 To n
Text1.Text = Text1.Text + " " + Str(x(i))
Next
End Sub
Private Sub Command3_Click()
s = 0
For i = 1 To n
If x(i) < 0 Then s = s + x(i)
Next
Command3.Caption = "Сумма =" & Str(s)
End Sub
Private Sub Command4_Click()
Text1.Text = " "
End Sub
Private Sub Command5_Click()
Command3.Caption = "Найти сумму отрицательных элементов"
End Sub
Private Sub Command6_Click()
Text1.Text = " "
End Sub
Private Sub Command7_Click()
End
End Sub
Private Sub Command8_Click()
Max = x(1)
For i = 2 To n
If x(i) > Max Then Max = x(i)
Next
Command8.Caption = "Max =" & Str(Max)
End Sub
Private Sub Command9_Click()
m:
f = 0
For i = 1 To n - 1
If x(i) > x(i + 1) Then p = x(i): x(i) = x(i + 1): x(i + 1) = p: f = 1
Next
Text1.Text = " "
If f = 1 Then GoTo m
For i = 1 To n
Text1.Text = Text1.Text + " " + Str(x(i))
Next
End Sub