Значение Chr только символам 0-9 a-z A-Z

@uzlprog · Регистрация: 23.04.2012

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

Допустим есть такой код:

VB.NET

1	Chr(48 + P Mod 75)

P - переменная

Как сделать так, чтобы Chr принимало значения только 0-9 a-z A-Z ???

@ViterAlex · 26.10.2014, 03:41

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

чтобы Chr принимало значения только 0-9 a-z A-Z

Принимало или возвращало? Наверное, всё-таки возвращало
Чтобы такого добиться, нужно, чтобы выражение P Mod 75 возвращало числа 0-9, 17-42, 49-74. Для этого понадобится отдельная функция:

VB.NET

Function Index(ByVal p As Integer) As Integer
    Dim val As Integer = p Mod 75
    If (p > 9 AndAlso p < 17) Then
        Return 17
    ElseIf (p > 42 AndAlso p < 49) Then
        Return 42
    ElseIf (p > 74) Then
        Return 74
    End If
    Return p
End Function

@uzlprog · 26.10.2014, 07:18 **[ТС]**

Благодарю! Но боюсь такой вариант не самый удачный для меня... Дело в том, что p - фактически выражение состоящие из локальных переменных функции и выносить это значение в другую функцию несколько проблематично. Тем более, я не очень понял как это можно присовокупить к исходному выражению.

А нельзя ли просто осуществить выборку через Select Case например?

Добавлено через 12 минут
Вот код, все отлично работает:

VB.NET

Dim number As Integer = p Mod 75
Select Case number
    Case 0 To 9
        x=Chr(48 + P Mod 75)
    Case 17 To 42
        x=Chr(48 + P Mod 75)
    Case 49 To 74
        x=Chr(48 + P Mod 75)
    Case Else
        x=0
End Select

	26.10.2014, 07:18