[مدرس . كمبيوتر]

ممكن سؤال
هل الكود ده
Dim x As Single
x = TextBox1.Text
Select Case x
Case 0
" صفر"= Label1.Text
Case Is > 0
" اكبر من الصفر"= Label1.Text
Case Else
" اقل من الصفر"= Label1.Text
End Select

زى الكود ده
Dim x As Single
x = TextBox1.Text
Select Case x
Case 0
" صفر"= Label1.Text
Case Is > 0
= " اكبر من الصفر" Label1.Text
case is < 0
" اقل من الصفر"= Label1.Text
End Select

وهل يمكن استخدامها فى متغيرين ولا مش ينفع

وسؤال اخر
dim x as byte = 300
بيعطى خطا املائى ونحوى مش خطأ اثناء التشغيل مش المفروض انها اكبر من المدى يعنى خطا اثناء التشغيل

وليه
dim x as short= " mohamed"

بيدى خطا اثناء التشغيل كدة صح فعلا طيب اشمعنى الكود السابق معملش زى الكود ده