Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 15.10.2011
Сообщений: 17
1

Не могу найти ошибку в коде

15.10.2011, 14:42. Показов 581. Ответов 2
Метки нет (Все метки)

Помогите пожалуйста
Объясните где ошибка

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Dim n As String
 
Private Sub Command1_Click()
Select Case n
Case "+"
Text2.Text = "plus"
Case "-"
Text2.Text = "minus"
Case "/"
Text2.Text = "delenie"
Case "*"
Text2.Text = "umnozhenie"
Case Else
Text2.Text = "ne verno"
End Select
End Sub
 
Private Sub Form_Load()
n = Text1.Text
End Sub
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.10.2011, 14:42
Ответы с готовыми решениями:

Не могу исправить простую ошибку в коде
Решил вспомнить как писать на ВБ, накидал простую програмку с одномерным масивом, которая должна...

Найти ошибку в коде
Private Sub Êíîïêà1_Ùåë÷îê() Dim H As Range H = Range(D22).Value / Range(O5).Value...

Помогите найти ошибку в коде.
Option Compare Text Option Explicit Private Declare Function EbExecuteLine Lib 'vba6.dll' ...

Построение графика, найти ошибку в коде
Dim K As Variant Dim A3 As Variant Dim T1 As Variant Dim T2 As Variant Dim T3 As Variant Dim x...

2
6644 / 1511 / 169
Регистрация: 09.01.2010
Сообщений: 4,298
15.10.2011, 14:55 2
мб так
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Command1_Click()
n = Text1.Text
Select Case n
Case "+"
Text2.Text = "plus"
Case "-"
Text2.Text = "minus"
Case "/"
Text2.Text = "delenie"
Case "*"
Text2.Text = "umnozhenie"
Case Else
Text2.Text = "ne verno"
End Select
End Sub
1
0 / 0 / 0
Регистрация: 15.10.2011
Сообщений: 17
15.10.2011, 15:17  [ТС] 3
спс большое всё работает
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.10.2011, 15:17

Найти ошибку в коде, связанную с его неправильным оформлением
Ошибка в коде: Private Sub Command1_Click() Dim a As Integer Dim b As Integer a = Val(TxtA) b...

не могу найти ошибку (массив) VB 6.0
Исходные данные: выполнение плана поставок каждым из К предприятий по каждому из М наименований...

Не могу найти ошибку в программе
Для начала объясню что это за программа.Это домино , в начале вам даются 7 фишек и при первом ходе...

Не могу найти ошибку!! В чем дело?
Программа должна последовательно выделять слова в предложении, у которых наибольшее кол-во гласных...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.