Начинаю вводить функцию округления Fix(x) и выдает ошибку

[Карен]

Здравствуйте. Пытаюсь составить свою первую программу на языке визуал бейсик в ексель ,По книжке Гарбера. Почему система выдает ошибку составления. Начинаю вводить функцию округления Fix(x) и выдает ошибку, задание вот такое : напишите программу которая из 4 значений X= -1.8; -1,25;1,27;1,68 , выбирает такие значения для которых выполняется N ое условие из следующих 10: Fix(x)=Cint(x) и Fix(X) <> Int(X) ? все условия не буду перечислять, главное как правильно ее составлять начать, помогите пожалуйста.

[IgorGO]

Карен, у меня такое чувство, что ваша первая программа на языке визуал бейсик в ексель ,По книжке Гарбера - получилась!!!

Sub Main()
  Dim x(3) As Single
  x(0) = -1.8: x(1) = -1.25: x(2) = 1.27: x(3) = 1.68
  tit = "From: "
  s = "Is good"
  For i = 0 To 3
    tit = tit & " " & x(i)
    If OkData(x(i)) Then s = x(i) & " " & s
  Next
  MsgBox s, vbOKOnly, tit
End Sub

Function OkData(x As Single) As Boolean
  OkData = False
  If Fix(x) <> CInt(x) Then Exit Function
  If Fix(x) <> Int(x) Then Exit Function
  '...
  OkData = True
End Function

Поздравляю.

[Карен]

IgorGO ,большое спасибо, я попытаюсь разобрать ее, и написать самому дальнейшие действия. Я до этого никогда не сталкивался с программированием, решил заняться этим делом, плохо что книга расчитана уже на продвинутых, хотя пишет для начинающих. Может что нибудь посоветуете в изучении на эту тему, для таких как я ,чайников? Спасибо за поддержку,очень приятно иметь дело с знающими людьми.

[IgorGO]

Ставить перед собой мелкие задачи и решать их.
Когда вы понимаете как организованы данные, что вы хотели получить на их основании и какими средствами и способами вы этого добились - так можно осваивать программирование.
Успехов!

[Карен]

IgorGO , сейчас стал разбирать программу в ексель, почему-то выдает что переменная" tit" не определена? ,что бы это могло быть?

[IgorGO]

вообще-то в примере приведен полностью рабочий код.
скопируйте его в любой модуль книги, запустите Main(). При условии, что вы ничего не правили руками - все должно отработать.
Попробуйте для строгости после
Sub Main()
Dim x(3) As Single
дописать одну строку
Dim tit as String, S as string
tit - это я так решил назвать строку заголовка (Title), а S - это текст сообщения в окне сообщения.

[Карен]

IgorGO ,А теперь пишет несоответствие с " For i = 0 To 3" , конкретно с" i", извините за назойливость просто хочется разобраться. Спасибо

[IgorGO]

осмелюсь предположить что где-то вверху модуля написано
Option explicit
это строгая директива, которая обязует явно обьявлять каждую переменную прежде, чем ее использовать. Вы сами выставили строгие правила и сами их не придерживаетесь.

вносим завершающий штрих, добавляем в блок обьявлений:
Dim tit as String, S as string
еще одну переменную
Dim tit as String, S as string, i as integer

[Карен]

Спасибо,разобрался с программой,попробую в аналогичной форме сделать остальные, жаль в книге нет примеров написания этой программы.

[Карен]

Вообще программа интересно составлена,а вот проще ее можно было бы составить, употребляя данные функции только, не применяя прочее что вы использовали? Спасибо..