Всем Ку, и вновь у меня отказывается работать код. (Ошибка runtime error 13 type mismatch)

@Слей · Регистрация: 17.09.2024

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

Visual Basic

Private Sub CommandButton1_Click()
Dim t As Single, k As Single, q As Single
t = InputBox("Введите t", "Структура Развилка")
k = Sqr(t)
If k > 2.7 Then
q = ((k)^(0.5))
Else
q = 11.5*((k)^(2/3))
End If
Debug.Print "t=" & t; " q=" & q
End Sub

Visual Basic

Private Sub CommandButton1_Click()
Dim t As Single, k As Single, q As Single
x = InputBox("Введите x", "Структура Развилка")
If x < 0 Then
y = exp(x)
ElseIf x>=0 And x<=1 Then
y = ((x)^(2))
Else
y = log(x)
End If
Debug.Print "x=" & x; " y=" & y
End Sub

Оба кода отказываются работать по 13 ерору. В чем у них проблема?

@Zeag · 21.10.2024, 23:04

Оба кода рабочие. Предполагаю, что вы вводите дробные числа с точкой. А надо с запятой. Типа -0,78 - тогда переменная x получит значение -0.78. При точке оно пишется как строка и при выполнении матем.операций со строкой - ошибка 13.
Если хочется вводить по InputBox с точкой, пишем примерно так:

Visual Basic

Private Sub CommandButton2_Click()
   Dim t As Single, k As Single, q As Single, strS As String
   strS = InputBox("Введите x", "Структура Развилка")
   x = Val(strS)
   If x < 0 Then
      y = Exp(x)
   ElseIf x >= 0 And x <= 1 Then
      y = ((x) ^ (2))
   Else
      y = Log(x)
   End If
   Debug.Print "x=" & x; " y=" & y
End Sub

@snipe · 22.10.2024, 01:47

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

Предполагаю, что вы вводите дробные числа с точкой

а тут по первому куску и видно
If k > 2.7 Then
q = ((k)^(0.5))
Else
q = 11.5*((k)^(2/3))

shanemac51 · 22.10.2024, 09:52

Сообщение от Слей

Оба кода отказываются работать по 13 ерору. В чем у них проблема?

в первом коде t должно быть >=0
так как k = Sqr(t)
видимо и во 2-м аналогично

Добавлено через 18 минут

Несоответствие типов (ошибка 13)
Visual Basic может преобразовать и привести большое число значений для присвоений типа данных, которые не были возможны в предыдущих версиях.

Тем не менее, эта ошибка может по-прежнему повторяться и имеет следующие причины и решения:

поэтому надо в inputbox вводить число с точкой и преобразовывать через VAL

@Vlad999 · 22.10.2024, 10:00

ну или добавить Replace и не вспоминать при вводе точка или запятая.

shanemac51 · 22.10.2024, 10:05

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

ну или добавить Replace и не вспоминать при вводе точка или запятая

тоже вполне применимо

@Jack Famous · 22.10.2024, 13:00

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

Предполагаю, что вы вводите дробные числа с точкой. А надо с запятой.

только для нашей локали. Чтобы не надеяться на локаль, нужно проверять региональные настройки и, возможно, настройки приложения.

@Zeag · 22.10.2024, 18:11

Сообщение от Jack Famous

только для нашей локали

Разумеется. Но вряд ли этот пример изучается в Новой Зеландии. ))
Вариант с проверкой разделителя (1/3) известен, но опять же, вряд ли у студентов.

I can · 22.10.2024, 18:43

Сообщение от Jack Famous

не надеяться на локаль,

Val всегда точку принимает. Меняем разделитель на точку, применяем Val и все дела.

@Jack Famous · 23.10.2024, 13:50

I can, плохая идея — Val обрезает данные и/или не генерирует ошибки преобразования — можно получить совсем не то, что хотели. Выполните ?Val("abc") в Immediate.
Если нужно преобразовать строку в число, то стоит проверить её на IsNumeric() и/или привести к числу, например, с помощью CDbl().
IsNumeric() скажет, как он понимает строку, в соответствии с региональными настройками.
По итогам этого, будет замена либо точки на запятую, либо запятой на точку. Либо что-то другое и/или строку нужно чистить перед повторной проверкой.

I can · 23.10.2024, 13:52

Сообщение от Jack Famous

Val обрезает данные

Можно пример? На практике не встречал.

@Jack Famous · 23.10.2024, 13:56

I can,
?Val("1,2") вернёт 1 (обрезание)
?Val("1.2") вернёт 1,2
?Val("1 2") вернёт 12

I can · 23.10.2024, 13:58

Сообщение от Jack Famous

Val("1,2") вернёт 1 (обрезание)

А я что писал?

Сообщение от I can

Меняем разделитель на точку, применяем Val

@Jack Famous · 23.10.2024, 15:47

?val("1. 23") вернёт 1 (неразрывный пробел)
?val("a1. 23") вернёт 0

Если такие результаты устраивают, то вполне себе способ.
Я проверяю значения, введённые пользователем, строже. Особенно, даты.

I can · 23.10.2024, 16:04

Сообщение от Jack Famous

?val("1. 23") вернёт 1 (неразрывный пробел)
?val("a1. 23") вернёт 0

Да, здесь всё правильно и ожидаемо. Так и должно быть.

@snipe · 23.10.2024, 19:03

Не по теме:

ууууууу
в какие дебри вы пацаны полезли
ожидается что юзер вводит числа или текст

I can · 23.10.2024, 19:10

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

ууууууу
в какие дебри вы пацаны полезли
ожидается что юзер вводит числа или текст

А вдруг ТС из Новой Зеландии, а спейсбар у него печатает неразрывный пробел в середине числа?

Добавлено через 10 секунд
Да и обрезание ему мешает

@Jack Famous 818 / 311 / 41 Регистрация: 10.05.2021 Сообщений: 1,369 Записей в блоге: 10
	23.10.2024, 15:47	14
	?val("1. 23") вернёт 1 (неразрывный пробел) ?val("a1. 23") вернёт 0 Если такие результаты устраивают, то вполне себе способ. Я проверяю значения, введённые пользователем, строже. Особенно, даты. 0

@snipe 4078 / 1458 / 401 Регистрация: 07.08.2013 Сообщений: 3,643
	22.10.2024, 01:47	3
	Сообщение от Zeag Предполагаю, что вы вводите дробные числа с точкой а тут по первому куску и видно If k > 2.7 Then q = ((k)^(0.5)) Else q = 11.5*((k)^(2/3)) 0

shanemac51 Модератор 12072 / 4934 / 789 Регистрация: 07.08.2010 Сообщений: 14,461 Записей в блоге: 4
	22.10.2024, 09:52	4
	Сообщение от Слей Оба кода отказываются работать по 13 ерору. В чем у них проблема? в первом коде t должно быть >=0 так как k = Sqr(t) видимо и во 2-м аналогично Добавлено через 18 минут Несоответствие типов (ошибка 13) Visual Basic может преобразовать и привести большое число значений для присвоений типа данных, которые не были возможны в предыдущих версиях. Тем не менее, эта ошибка может по-прежнему повторяться и имеет следующие причины и решения: поэтому надо в inputbox вводить число с точкой и преобразовывать через VAL 1

@Vlad999 3915 / 2314 / 783 Регистрация: 02.11.2012 Сообщений: 6,156
	22.10.2024, 10:00	5
	ну или добавить Replace и не вспоминать при вводе точка или запятая. 1

shanemac51 Модератор 12072 / 4934 / 789 Регистрация: 07.08.2010 Сообщений: 14,461 Записей в блоге: 4
	22.10.2024, 10:05	6
	Сообщение от Vlad999 ну или добавить Replace и не вспоминать при вводе точка или запятая тоже вполне применимо 0

@Jack Famous 818 / 311 / 41 Регистрация: 10.05.2021 Сообщений: 1,369 Записей в блоге: 10
	22.10.2024, 13:00	7
	Сообщение от Zeag Предполагаю, что вы вводите дробные числа с точкой. А надо с запятой. только для нашей локали. Чтобы не надеяться на локаль, нужно проверять региональные настройки и, возможно, настройки приложения. 1

@Zeag 836 / 486 / 186 Регистрация: 09.03.2009 Сообщений: 1,673
	22.10.2024, 18:11	8
	Сообщение от Jack Famous только для нашей локали Разумеется. Но вряд ли этот пример изучается в Новой Зеландии. )) Вариант с проверкой разделителя (1/3) известен, но опять же, вряд ли у студентов. 0

I can help 4396 / 4051 / 807 Регистрация: 13.04.2015 Сообщений: 8,870
	22.10.2024, 18:43	9
	Сообщение от Jack Famous не надеяться на локаль, Val всегда точку принимает. Меняем разделитель на точку, применяем Val и все дела. 1

@Jack Famous 818 / 311 / 41 Регистрация: 10.05.2021 Сообщений: 1,369 Записей в блоге: 10
	23.10.2024, 13:50	10
	I can, плохая идея — Val обрезает данные и/или не генерирует ошибки преобразования — можно получить совсем не то, что хотели. Выполните ?Val("abc") в Immediate. Если нужно преобразовать строку в число, то стоит проверить её на IsNumeric() и/или привести к числу, например, с помощью CDbl(). IsNumeric() скажет, как он понимает строку, в соответствии с региональными настройками. По итогам этого, будет замена либо точки на запятую, либо запятой на точку. Либо что-то другое и/или строку нужно чистить перед повторной проверкой. 0

I can help 4396 / 4051 / 807 Регистрация: 13.04.2015 Сообщений: 8,870
	23.10.2024, 13:52	11
	Сообщение от Jack Famous Val обрезает данные Можно пример? На практике не встречал. 0

@Jack Famous 818 / 311 / 41 Регистрация: 10.05.2021 Сообщений: 1,369 Записей в блоге: 10
	23.10.2024, 13:56	12
	I can, ?Val("1,2") вернёт 1 (обрезание) ?Val("1.2") вернёт 1,2 ?Val("1 2") вернёт 12 0

	23.10.2024, 19:10

I can help 4396 / 4051 / 807 Регистрация: 13.04.2015 Сообщений: 8,870
	23.10.2024, 13:58	13
	Сообщение от Jack Famous Val("1,2") вернёт 1 (обрезание) А я что писал? Сообщение от I can Меняем разделитель на точку, применяем Val 0

I can help 4396 / 4051 / 807 Регистрация: 13.04.2015 Сообщений: 8,870
	23.10.2024, 16:04	15
	Сообщение от Jack Famous ?val("1. 23") вернёт 1 (неразрывный пробел) ?val("a1. 23") вернёт 0 Да, здесь всё правильно и ожидаемо. Так и должно быть. 0

@snipe
	23.10.2024, 19:03 #16
	Не по теме: ууууууу в какие дебри вы пацаны полезли ожидается что юзер вводит числа или текст 0

I can help 4396 / 4051 / 807 Регистрация: 13.04.2015 Сообщений: 8,870
	23.10.2024, 19:10	17
	Сообщение от snipe ууууууу в какие дебри вы пацаны полезли ожидается что юзер вводит числа или текст А вдруг ТС из Новой Зеландии, а спейсбар у него печатает неразрывный пробел в середине числа? Добавлено через 10 секунд Да и обрезание ему мешает 0