Private Sub CommandButton1_Click(). Dim x, y As Single 'Объявление типов переменных Х и Y

Dim x, y As Single 'Объявление типов переменных Х и Y

x = Val(InputBox(" Введите значение х ")) ' Ввод текущего значения Х

Select Case x ' Начало оператора Select Case

Case 1,3,5,6: y=sin(x)

Case 8 to 10: y=Tan(x)

Case 15 to 20: y=Log(x)

Case is >30: y=x^2.5

Case Else: y=0 ' В остальных случаях

End Select ' Конец оператора Select

MsgBox “y=” & y

End Sub

Пример 5.4. По вводимым буквам русского алфавита А, Б, Д вывести слова Одесса, Николаев, Херсон. Сделать контроль ввода.

Private Sub CommandButton2_Click()

Dim x, y As String 'Объявление типов переменных Х и Y

x = InputBox(" Введите заданный символ") 'Ввод текущей буквы

Select Case x ' Начало оператора Select Case

Case “А“: y = " Одесса "

Case “Б“: y = " Николаев "

Case “Д“: y = " Херсон "

Case Else: MsgBox " Ошибочный ввод" ' Проверка ввода

End Select ' Конец оператора Select

MsgBox y

End Sub

Глава 6. Организация циклических программ в VBA

Простые циклические программы с оператором IF

Пример 6.1. Составить программу для решения задачи табулирования функции у=х² при х=xn, xk, dx т.е. параметр цикла х изменяется от xn до xk с шагом dx.

Используем простой циклический алгоритм (глава1. рис. 1.5,а).

Процедура отклика командной кнопки

	Private Sub CommanButton1_Click Dim x, y, xn, xk, dx As Single xn=-1: xk=1: dx=0.2 x=xn 1: y=x^2 Debug.Print “ x= “; x; “ y=”; y x=x+dx If x<=xk Then GOTO 1 End Sub

 

Алгоритм и программа могут быть представлены более компактно, если применить блок модификации и соответствующий ему оператор цикла For..Next.