Ошибка "Неправильный вызов аргумента или функции" при работе с MsgBox (VBA)

@nameless1399 · Регистрация: 09.04.2017

Студворк — интернет-сервис помощи студентам

Проанализировать при всех ли значениях будет работать формула (VBA). Вывести в MsgBox сообщение с причиной отказа работы программы.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Private Sub Вычислить_Click()
 
Dim x As Double, a As Double, b As Double, Res As Double, Zm1 As Double, Zm2 As Double
Dim strInput As String, strOutput As String
 
a = 2.6
b = -0.39
 
Do While True
 
 strInput = MsgBox("Вычислить данные?", vbOKCancel, vbQuestion, "Вопрос") 
 
'в этой строке выдает ошибку "Неправильный вызов      'аргумента или функции
 
 If strInput = vbCancel Then Exit Do
 
 For x = 0 To 7 Step 0.5
 
  Zm1 = Exp(x) + Cos(x) 'вычисление знаменателя первой строки фигурной скобки
  Zm2 = x + 1                ' вычисление знаменателя второй строки фигурной скобки
  
  If (Zm1 <> 0) & (x < 2.8) Then
   Res = (a + b) / Zm1
   strOutput = "x = " & x & " " & "Res = " & Res
   MsgBox strOutput, vbInformation, "Результат"
  ElseIf (Zm2 <> 0) & (x >= 2.8) & (x < 6) Then
   Res = (a + b) / Zm2
   strOutput = "x = " & x & " " & "Res = " & Res
   MsgBox strOutput, vbInformation, "Результат"
  ElseIf (x >= b) Then
   Res = Exp(x) + Sin(x)
   strOutput = "x = " & x & " " & "Res = " & Res
   MsgBox strOutput, vbInformation, "Результат"
  End If
  
 Next x
 
Loop
 
End Sub

@snipe · 02.05.2018, 18:07

msgbox выводит число а не текст
соответственно

Visual Basic
1
Dim strInput As String

должно быть как минимум

Visual Basic
1
Dim strInput As Long

@Capi · 02.05.2018, 18:35

Сообщение от snipe

msgbox выводит число а не текст

Выводит - текст, а вот возвращает - число.

@glsn · 02.05.2018, 18:43

м.б.

Visual Basic
1
MsgBox("Вычислить данные?", vbQuestion + vbOKCancel, "Вопрос")

?

@snipe · 02.05.2018, 19:00

glsn,
и то правда

@nameless1399 · 02.05.2018, 19:07 **[ТС]**

glsn, msgbox вызывается, но теперь вылетает ошибка в этой строчке

Visual Basic
1
If (Zm1 <> 0) & (x < 2.8) Then

- "Несоответствие типов"

@snipe · 02.05.2018, 19:14

& - не правильный знак
должно быть and or not xor eqv imp

@glsn · 02.05.2018, 19:24

Попробуйте

Visual Basic
1
If (Zm1 <> 0) And (x < 2.8) Then

Добавлено через 4 минуты
Получается Вы связываете (склеиваете) вместе с собою два значения знаком конкатенации, а нужно задавать условие "если значение Zm1<>0 и значение x<2.8 то....

Новые блоги и статьи Все статьи Все блоги /
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .

@snipe 4089 / 1469 / 401 Регистрация: 07.08.2013 Сообщений: 3,670
	02.05.2018, 19:00
	glsn, и то правда 0

@snipe 4089 / 1469 / 401 Регистрация: 07.08.2013 Сообщений: 3,670
	02.05.2018, 19:14
	& - не правильный знак должно быть and or not xor eqv imp 1