| Вопрос: проблемы с TextBox visual basic 6.0 | Добавлено: 08.06.06 01:11 |
Автор вопроса:  Шестакович | ICQ: 211-286-023 |
|
Доброе время суток.
У меня тут проблемка возникла. Не могу понять числа какого разряда необходимо возвращать в textBox. Должно получиться 4-х значное число, а программа выводит ошибку переполнения. Вот часть кода... Option Explicit Const M = 50, K = 2000, h = 0.05, Q = 150 Dim T As Single, Q1 As Single Private Sub Command1_Click() T = Q / M Text5.Text = CStr(T) C = Round(K / T) Text6.Text = CStr(C) E = (h * Q / 2) Text7.Text = CStr(E) Q1 = Round(Sqr(2 * K * M / h)) Text8.Text = CStr(Q1) Говорит, что ошибка в Q1. Может, я и туплю, но не могу понять почему. Помогите пожалуйста... |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  GSerg Вопросов: 0 Ответов: 1876 
|
Профиль | | #1 | Добавлено: 08.06.06 06:20 |
|
Потому что 2000*50 = 100000.
Люди, объявляющие типы констант, не сталкиваются с такими проблемами. |
||
|
Номер ответа: 2 Автор ответа:  Серёга ICQ: 262809473 Вопросов: 17 Ответов: 561 |
Web-сайт: Профиль | | #2 | Добавлено: 15.06.06 01:15 |
|
Option Explicit
Const M = 50, K = 2000, h = 0.05, Q = 150 Dim T As Single, Q1 As Long Private Sub Command1_Click() Dim a As Long T = Q / M Text5.Text = CStr(T) C = Round(K / T) Text6.Text = CStr(C) E = (h * Q / 2) Text7.Text = CStr(E) Q1 = Round(Sqr(2 * CLng(K) * CLng(M) / h)) Text8.Text = CStr(Q1) End Sub |
||
Страница: 1 |