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

Две линейные программы

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

Далее ⇒