Составить Блок-схему алгоритма и написать программу на VB 6.0
Приложения:


Ответы на вопрос
Ответил manamahkrit
0
Лучше проверь прежде чем писать, мало ли
Private Sub Command1_Click()
Dim m As Integer
p = InputBox("Введите плотность вещества p")
v = InputBox("Введите объём тела v")
If v < 0 Or p < 0 Then
MsgBox "Ошибка"
Else
m = p * v
MsgBox "Масса тела: " & m
End If
End Sub
Private Sub Command1_Click()
Dim m As Integer
p = InputBox("Введите плотность вещества p")
v = InputBox("Введите объём тела v")
If v < 0 Or p < 0 Then
MsgBox "Ошибка"
Else
m = p * v
MsgBox "Масса тела: " & m
End If
End Sub
Приложения:

Новые вопросы
Русский язык,
2 года назад
Русский язык,
2 года назад
Математика,
8 лет назад
Химия,
9 лет назад
Литература,
9 лет назад