Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: строковый тип  (Прочитано 3800 раз)
0 Пользователей и 1 Гость смотрят эту тему.
nadegda67
Новенький

ru
Offline Offline

« : 01-11-2011 09:49 » 

Составить программу, проверяющую, является ли введенная с клавиатуры строка представлением пятнадцатиричного целого числа:
Составила на VB 2005:
Public Class Form1
    Dim stroka As String
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        stroka = InputBox("Введите строку")
        If UCase(stroka) Like "*[!0-9A-E]*" Then Label1.Text = "Является" Else Label1.Text = "Не является"
    End Sub
End Class

Но при вводе , например, 987G3  или ++21 выдает "Является" что неправильно? Подскажите пожалуйста!!!

Записан
Sla
Команда клуба

ua
Offline Offline
Пол: Мужской

WWW
« Ответ #1 : 01-11-2011 10:57 » 

А что обозначает знак ! в выражении like?
Записан

Мы все учились понемногу... Чему-нибудь и как-нибудь.
nadegda67
Новенький

ru
Offline Offline

« Ответ #2 : 01-11-2011 13:24 » 

Для сопоставления любого одного символа, которого нет в списке используется !
Записан
Sla
Команда клуба

ua
Offline Offline
Пол: Мужской

WWW
« Ответ #3 : 01-11-2011 15:57 » 

Если НЕТ в списке ТО Является ИНАЧЕ Неявляется
Записан

Мы все учились понемногу... Чему-нибудь и как-нибудь.
nadegda67
Новенький

ru
Offline Offline

« Ответ #4 : 02-11-2011 06:03 » 

А как это написать(((
Записан
Sla
Команда клуба

ua
Offline Offline
Пол: Мужской

WWW
« Ответ #5 : 02-11-2011 07:24 » 

Я перевел то, что у тебя написано
Записан

Мы все учились понемногу... Чему-нибудь и как-нибудь.
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines