2015-04-21 2 views
0

Я объявил переменную как целое. Я хочу, чтобы он начинался с 1 и не превышал 6. Есть ли простой способ сделать это?Назначение нескольких значений целому числу в VB

Dim IntNum as Interger = 1-6 

Я попытался это, но оно не работает

+0

Одна переменная integer может содержать только одно значение, а не диапазон значений. Возможно, вам понадобится «Список », который может содержать несколько целых чисел. – xxbbcc

+0

Что вы пытаетесь сделать? Переменная не работает так. Переменная типа integer может содержать только одно целое число. Я считаю, что вы ищете «Массив», который является типом переменной, которая может содержать множество значений. – masfenix

+0

@xxbbcc У меня есть кнопка, которая добавляет 1 к этому значению, но я не хочу, чтобы она превышала 6, даже если кнопка нажата более 6 раз. –

ответ

1

Основываясь на ваш комментарий, вы, кажется, хотят, чтобы ограничить нижнюю и верхнюю границу одной Integer - это , вы хотите убедиться, что одно значение не меньше X и не превышает Y. В этом случае просто используйте оператор If, чтобы избежать изменения значения, если значение выходит за пределы диапазона.

Dim IntNum as Interger = 1 

... 

' Inside the button's click handler: only increment IntNum 
' if it's less than 6. 
If IntNum < 6 Then 
    IntNum = IntNum + 1 
End If 

... 

Обратите внимание, что я не добавлял код, чтобы проверить, если IntNum меньше 1 - если вы только добавление 1 к IntNum она не может стать меньше, чем 1, поэтому нет необходимости проверять. Если вы позже добавите кнопку для уменьшения IntNum, вам придется иметь аналогичную проверку в обработчике этой кнопки, чтобы убедиться, что вы не заходите ниже 1.

Ваш вопрос очень расплывчатый, поэтому я не уверен, что это тот ответ, который вы ищете.

+0

Perfect :) спасибо многому человеку –

0

Edit *

Option Strict On 
Option Explicit On 
Option Infer Off 
Public Class Form1 
    Dim counter As Integer = 0 
    Dim counterMax As Integer = 6 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
     If Not counter = counterMax Then counter += 1 
     MsgBox(counter) 
    End Sub 
End Class 
Смежные вопросы