Составить Блок-схему алгоритма и написать программу на VB 6.0
Answers & Comments
manamahkrit
Лучше проверь прежде чем писать, мало ли
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
Answers & Comments
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