Private Sub CommandButton1_Click()

Dim price As Double

Dim dengi, sdacha As Double

If OptionButton2 Then

price = 68

End If

If OptionButton1 Then

price = 5

End If

dengi = TextBox1.Value

If dengi < price Then

MsgBox " недостаточно денег"

Else 'Продать

sdacha = dengi - price

TextBox2.Value = sdacha

End If

End Sub

Private Sub TextBox1_Change()

dengi = TextBox1.Value

End Sub

Private Sub UserForm_Click()

End Sub

IX. Даны 2 числа. Заменить первое число нулем, если оно не меньше первого, и оставить его прежним, если это не так. Первое число оставить без изменения.

Private Sub CommandButton1_Click()

Dim ch1, ch2 As Double

ch1 = TextBox1.Value

ch2 = TextBox2.Value

If ch2 > = ch1 Then

TextBox2.Value = 0

Else

TextBox2.Value = ch2

End If

End Sub

Private Sub UserForm_Click()

End Sub

X. Даны 2 числа. Меньшее из этих чисел заменить их полусуммой, а большее – удвоенным произведением.

Private Sub CommandButton1_Click()

Dim num1, num2 As Integer

Dim polusumma As Double

num1 = TextBox1.Value

num2 = TextBox2.Value

polusumma = (num1 + num2) / 2

'MsgBox polusumma

If num1 < num2 Then

num1 = polusumma

Else

num2 = polusumma

End If

TextBox3.Value = num1

TextBox4.Value = num2