Рассчитать среднее арифметическое и среднее геометрическое двух чисел.
Текст программы:
Private Sub CommandButton1_Click()
Dim y As Double
Dim x As Double
A = InputBox("Введите первое число")
B = InputBox("Введите второе число")
C = (A + B) / 2
G = Sqr(A * B)
MsgBox "Среднее арифметическое этих чисел равно" & C
MsgBox "Среднее геометрическое этих чисел равно" & G
End Sub
Дано целое число. Если оно является положительным, то отнять от него 2 ; в противном случае не изменять его. Вывести полученное число.
Текс программы:
Private Sub CommandButton1_Click()
Dim x As Double
x = InputBox("Введите x", "Окно ввода данных")
If x > 0 Then
x = x - 2
MsgBox "Это число больше нуля, поэтому x=" & x
Else
MsgBox "Это число меньше нуля, поэтому х=" & x
End If
End Sub
Ввести с клавиатуры N чисел. Найти сумму тех из них, которые принадлежат интервалу (1; 12) и являются четными.
Текст программы:
Private Sub CommandButton1_Click()
Dim N As Integer, x As Integer, S As Integer
N = Val(TextBox1.Text)
S = 0
For i = 1 To N
x = InputBox("Введите число")
If x Mod 2 = 0 And x > 1 And x < 12 Then
S = S + x
End If
Next
MsgBox ("Сумма чётных чисел в интервале (1;12) равна " & S)
End Sub
Дано натуральное число N. Получить наименьшее число вида 5^k, большее N.
Текст программы:
Private Sub CommandButton1_Click()
Dim N As Integer, D As Integer
n = Val(TextBox1.Text)
D = 1
While D <= n
D = D * 5
Wend
MsgBox ("Число равно " & D)
End Sub
Найти сумму отрицательных значений функции z = sin(5-x)/sin(x-2) для х, изменяющегося на отрезке [-5;12] с шагом 0,4
Текст программы:
Private Sub CommandButton1_Click()
Dim x As Single
Dim s As Double
Dim z As Double
s = 0
x = -5
Do
z = Sin(5 - x) / Sin(x - 2)
If z < 0 Then
s = s + z
End If
x = x + 0.4
Loop Until x > 12
MsgBox ("Сумма отрицательных значений" & s)
End Sub
)
Упорядочить по убыванию элементы массива А(М)
Текст программы:
Const M = 15
Dim A(1 To M) As Integer, x As Integer
Private Sub CommandButton1_Click()
Label3.Caption = ""
Label2.Caption = ""
Randomize
For i = 1 To M
A(i) = Rnd * 20 - 10
Label2.Caption = Label2.Caption + " " + Str(A(i))
Next
End Sub
Private Sub CommandButton2_Click()
For i = 2 To M
For j = M To i Step -1
If A(j - 1) < A(j) Then
x = A(j - 1)
A(j - 1) = A(j)
A(j) = x
End If
Next j
Next i
For i = 1 To M
Label3.Caption = Label3.Caption + " " + Str(A(i))
Next
End Sub
Private Sub Label2_Click()
End Sub
Дана матрица W(M, N). Найти сумму элементов k-го столбца.
Текс программы:
Private Sub CommandButton1_Click()
Dim M As Integer, N As Integer, k As Integer
Dim L As String, S As Integer
Dim W() As Integer
M = TextBox1.Text
N = TextBox2.Text
k = TextBox3.Text
ReDim W(1 To M, 1 To N) As Integer
For i = 1 To M
L = ""
For j = 1 To N
W(i, j) = Rnd * 10 - 5
L = L + "" + Str(W(i, j))
Next
ListBox1.AddItem (L)
Next
S = 0
For i = 1 To M
S = S + W(i, k)
Next
Label6.Caption = Str(S)
End Sub
Найти произведение элементов главной диагонали матрицы B(N,N)
Текст программы:
Private Sub CommandButton1_Click()
Dim N As Integer, S As Integer, L As String
Dim B() As Integer
N = TextBox1.Text
ReDim B(1 To N, 1 To N) As Integer
For i = 1 To N
L = ""
For j = 1 To N
B(i, j) = Rnd * 10 - 5
L = L + "" + Str(B(i, j))
Next
ListBox1.AddItem (L)
Next
S = 1
For i = 1 To N
For j = 1 To N
If i = j Then
S = S * B(i, j)
End If
Next
Next
Label4.Caption = Str(S)
End Sub
Задан список из пяти имен девочек. Поменять местами первое имя и последнее, заканчивающееся буквой «я».
Текст программы:
Dim A(1 To 5) As String, rab As String
Dim L As Integer, k As Integer
Private Sub CommandButton1_Click()
For I = 1 To 5
A(I) = InputBox("Введи имя")
ListBox1.AddItem (A(I))
Next
End Sub
Private Sub CommandButton2_Click()
For I = 1 To 5
L = Len(A(I))
If Mid(A(I), L, 1) = "я" Then k = I
Next
rab = A(1)
A(1) = A(k)
A(k) = rab
For I = 1 To 5
ListBox2.AddItem (A(I))
Next
End Sub
Переменная x изменяется в интервале от -10 до 11 с шагом 1.Оформив вычисление факториала в виде функции, выдать на экран максимальное значение функции y,которая вычисляется по формуле:
y=
