Ребята, кто разбирается в программировании и visual basic, помогите, СРОЧНО!!! Написать программный код. Дано: x и у. Найти сумму, разность, умножение и
10-11 класс
|
частное
Option Explicit
Public Sub Main()
Dim a, b
a = Val(InputBox("X", "Программка", "0"))
b = Val(InputBox("Y", "Программка", "0"))
MsgBox a & " + " & b & " = " & a + b & vbCrLf & _
a & " - " & b & " = " & a - b & vbCrLf & _
a & " * " & b & " = " & a * b & vbCrLf & _
a & " / " & b & " = " & a / b & vbCrLf
End Sub
Другие вопросы из категории
а то я не умею этот pascal
арифметическое положительных и четных чисел из N введенных. Значение N вводится с клавиатуры.
Нужно сделать в системе КуМир тремя способами (1) Для (2) При (3) Пока
Читайте также
Задача: У вас есть доллары. Вы хотите обменять их на рубли. Есть информация стоимости купли-продажи в банках города. В городе N банков. Составьте программу, определяющую, какой банк выбрать, чтобы обменять доллары на рубли наиболее выгодно.
Нужно прописать в программе
Функция должна возвращать
Величину
среднего абсолютного отклонения
Отношение
среднего квадратического отклонения к среднему абсолютному отклонению
Среднее
арифметическое из средних абсолютных отклонений поддиапазонов
положительных элементов массива P1 и P2. Определить. что больше по абсолютной величине Р1 или Р2. Вариант №2
1)Заменить значение любого элемента массива на а
2)Определить имеются ли четные числа в массиве
3)Заменить все элементы некоторой строки на заданное число
4)Вывести все элементы N столбца и M строки
числами. В чём ошибка? вот код:
Private Sub Command1_Click()
' Описание переменных
Dim N As Single
Dim M(15) As Single
Dim A As Single
Dim B As Single
Dim C As Single
Dim Z As Single
' Описание переменных
' Вод исходных данных
N = 0
M(I) = 0
A = 1
B = 0
C = 0
' Ввод исходных данных
' Реализация алгоритма
For I = 1 To 15
N = Int(Text1.Text)
M(I) = Val(InputBox("Ввести элементы"))
Print Str(M(I))
Next I
For I = 1 To 15
If M(I) > 0 And M(I) <> 0 Then
A = A * M(I)
End If
Next I
For I = 15 To 0 Step -1
If I Mod 2 = 0 Then
If M(I) > 0 Then
B = M(I)
I = 0
End If
End If
Next I
For I = 1 To N Step 1
S = S + M(I)
Next I
C = S / N
Z = С + (А + В/ А * В + 1)
' Реализация алгоритма
' Вывод результата
Text2.Text = Str(A)
Text3.Text = Str(B)
Text4.Text = Str(C)
Text5.Text = Str(Z)
' Вывод результата
End Sub