Четность не четность

@po4kalol · Регистрация: 29.10.2017

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

В общем, сделал я вот это:

Visual Basic

Private Sub CommandButton1_Click()
Dim a As String
a = lable1
If TextBox1 Mod 2 = 0 Then
a = "четное"
Else
a = "не четное"
End If
End Sub

Проблема:
после нажатия на кнопку в lable1 ничего не отображается.

SoftIce · 29.10.2017, 23:24

Visual Basic

Private Sub CommandButton1_Click()
Dim a As String
 
If val(TextBox1.Text) Mod 2 = 0 Then
a = "четное"
Else
a = "не четное"
End If
 
 label1.caption=a
End Sub

Добавлено через 1 минуту

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

lable

label ???

	29.10.2017, 23:24