Часть 2. Сделать тест с возможностью записей ответов в файл
Создание форм диалоговых окон в редакторе VBA
Private Sub CommandButton1_Click()
MsgBox "в поле ввода: " & TextBox2.Text, vbOKOnly + vbInformation, "команда2"
End Sub
Private Sub CommandButton2_Click()
MsgBox "событие Click на кнопке Команда4", vbOKOnly, "4"
End Sub
Private Sub CommandButton3_Click()
MsgBox "3 3 3", vbOKOnly + vbExclamation, "команда3"
End Sub
Private Sub CommandButton4_Click()
MsgBox "событие Click на кнопке Команда1", vbOKOnly, "1"
End Sub
Две линейные программы
1) 
Dim a As Single, b As Single, c As Single
a = InputBox("a-?")
b = InputBox("b-?")
c = ((a + b) * (a + b - 1) * (Sin(a))) / (2 * a - b)
MsgBox "c=" & c
2)Вычислить площадь полукольца по введенным с клавиатуры радиусам.
Dim x As Single, y As Single, otvet As Single
x = Val(TextBox1.Text)
y = Val(TextBox3.Text)
otvet = ((3.14 * x ^ 2) / 2) - (3.14 * y ^ 2) / 2
Label4.Caption = Format(otvet, "0.000")
Запись результатов в текстовый файл. Использование оператора IF.
Часть 1. Дополнить работу №2 возможностью записи ответов в файл.
Dim a As Single, b As Single, c As Single
a = InputBox("a-?")
b = InputBox("b-?")
c = ((a + b) * (a + b - 1) * (Sin(a))) / (2 * a - b)
MsgBox "c=" & c
If OptionButton1.Value = True Then
Open "D:\Student\СМТ-113\primer.txt" For Output As #1
Print #1, "a="; Format(a, "0.000")
Print #1, "b="; Format(b, "0.000")
Print #1, "c="; Format(c, "0.000")
Close #1
ElseIf OptionButton2.Value = True Then
Open "D:\Student\СМТ-113\primer.txt" For Append As #1
Print #1, "a="; Format(a, "0.000")
Print #1, "b="; Format(b, "0.000")
Print #1, "c="; Format(c, "0.000")
Close #1
End If
Private Sub CommandButton2_Click()
Dim x As Single, y As Single, otvet As Single
x = Val(TextBox1.Text)
y = Val(TextBox3.Text)
otvet = ((3.14 * x ^ 2) / 2) - (3.14 * y ^ 2) / 2
Label4.Caption = Format(otvet, "0.000")
If OptionButton1.Value = True Then
Open "D:\Student\СМТ-113\primer.txt" For Output As #1
Print #1, "Радиус большего круга="; Format(x, "0.000")
Print #1, "Радиус меньшего круга="; Format(y, "0.000")
Print #1, "Радиус="; Format(otvet, "0.000")
Close #1
ElseIf OptionButton2.Value = True Then
Open "D:\Student\СМТ-113\primer.txt" For Append As #1
Print #1, "Радиус большего круга="; Format(x, "0.000")
Print #1, "Радиус меньшего круга="; Format(y, "0.000")
Print #1, "Радиус="; Format(otvet, "0.000")
Close #1
End If
Радиус большего круга=3563.000
Радиус меньшего круга=2.000
Радиус=19931100.000
Радиус большего круга=1234456.000
Радиус меньшего круга=1.000
Радиус=2392494000000.000
Радиус большего круга=9999.000
Радиус меньшего круга=15456.000
Радиус=-218085500.000
a=5.000
b=4.000
c=-11.507.000
Часть 2. Сделать тест с возможностью записей ответов в файл.
Private Sub CommandButton1_Click()
Dim x As Double, kpo As Integer
Open "D:\Student\СМТ-113\primer2.txt" For Output As #1
kpo = 0
x = InputBox("Сколько будет 2х2?")
If x = 4 Then MsgBox "True": kpo = kpo + 1 Else MsgBox "False", vbCritical
Print #1, "Задан 1 вопрос: Сколько будет 2х2?"
Print #1, "дан ответ:"; x
x = InputBox("Следующее число в цепочке 1-3-5?")
If x = 7 Then MsgBox "True": kpo = kpo + 1 Else MsgBox "False", vbCritical
Print #1, "Задан 2 вопрос: Следующее число в цепочке 1-3-5?"
Print #1, "дан ответ:"; x
x = InputBox("Сколько дней в неделе?")
If x = 7 Then MsgBox "True": kpo = kpo + 1 Else MsgBox "False", vbCritical
Print #1, "Задан 3 вопрос: Сколько дней в неделе?"
Print #1, "дан ответ:"; x
MsgBox " Кол-во правильных ответов=" & Str(kpo)
Print #1, "Кол-во правильных ответов="; kpo
Close #1
End Sub
Задан 1 вопрос: Сколько будет 2х2?
дан ответ: 4
Задан 2 вопрос: Следующее число в цепочке 1-3-5?
дан ответ: 7
Задан 3 вопрос: Сколько дней в неделе?
дан ответ: 7
Кол-во правильных ответов= 3
\