2015-06-05
471
Некоторые комментарии к программе:
– В программе в логическом выражении x <= xk + e используется цифровая константа e = 0.001, применение которой обеспечивает получение спектра значений X от -1 до 0.3 включительно;
– В тексте программы встречаются обращения к Приложению, например, Cos(Application.WorksheetFunction.Pi), которое означает, что, чтобы вызвать функцию p последовательно обращаютсясначала к приложению Application, затем к функциям рабочего листа WorksheetFunction и, наконец, к конкретной функции Pi;
– Чтобы не допустить ошибки в этой, достаточно сложной, грамматической конструкции, следует воспользоваться возможностями дружественного интерфейса VBA, для чего в тексте программы написать Cos(Application и после постановки точки появится подменю разделов Приложения, рис. 4.2;
Рис. 4.2
После точки следует добавить букву W и тогда в подменю появится раздел WorksheetFunction, рис. 4.3.
Рис. 4.3.
Выбрать раздел WorksheetFunction, после чего поставить точку и в появившемся подменю списка функций рабочего листа, выбрать функцию Pi, рис. 4.4.
|
|
|
Рис. 4.4.
Продолжить запись арифметического выражения Cos(Application.WorksheetFunction.Pi в соответсвии с выполняемым заданием.
Private Sub CommandButton1_Click()
Dim L,A,X As Integer
‘Cells(1,1)=Clear
Range(Columns(1),Rows(15))=Clear
D=InputBox(“D=”,” Введите диапазон игры ”)
Cells(1,3)=” Ну что ж играем, угадай число X в диапазоне от 0 до ”+CStr(d)
Randomize
X=Round(d*Rnd())
‘Cells(1,3)=X
L=0:i=10:j=1
10 A=InputBox(“x=”, Введите Ваш вариант ”)
L=L+1”i=i+1
If X >A Then
Cells(I,j)=” Загаданное число X больше Вашего числа ”+CStr(A)
Go To 10
End If
If X <A Then
Cells(i,j)=” Загаданное число Х меньше Вашего числа ”+CStr(A)
Go To 10
End If
If X=A Then
Cells(I,j)=”Да, это число”+CStr(A)+”,Угадал,за”+CStr(L)+"пыток”
Cells(1,1).Select
Exit Sub
End If
End Sub
