Часть 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

 

 

\