Сызыктык алгоритмдер
lick()
Dim c, d As Integer
c = 420
d = c + 217
MsgBox ("Маңғыстау жолының ұзындығы ") & d & ("км")
End Sub
4-тапсырма
Әрқайсысы 2 кг еттен жасалған 6 ет орамасы тағайындалды. Ал, 12 кг еттен шұжық жасалды. Барлығы қанша ет жұмсалды?
Private Sub OptionButton1_Click()
Dim m As Integer
m = 6 * 2 + 12
MsgBox ("Ет тағамдарын дайындауға ") & m & ("кг ет жұмсалды")
End Sub
| | скачать работу |
Сызыктык алгоритмдер |