یه مشکل خیلی ساده با اولین پروژه VB در دانشگاه

[rastinb]

سلام به همه ی دوستان
من دانشجو ترم اول نرم افزارم
استاد ما یه پروژه داده تکمیل کنیم.حتی کد پروژه هم در اختیارمون گذاشته ولی وقتی میخوام اجرا بگیرم ارور میده.متن ارور رو چک کردم توی سایت های خارجی ولی چیزی دستگیرم نشد.
با ویژوال هم خیلی کم کار کردم و سر رشته ندارم !!!!




توضیح پروژه : یک برنامه بنویسید که عدد از 0 تا 20 (نمره ی یک دانشجو) رو از ورودی بگیره و طبق اون نمره به دانشجو رتبه بده.



جدول رتبه بندی :

نمرات از 18 تا 20 ======= A
نمرات از 16 تا 18 ======= B
نمرات از 14 تا 16 ======= C
نمرات از 12 تا 14 ======= D
نمرات از 10 تا 12 ======= E
نمرات از 0 تا 10 ======= F

دستورات VB:

Private Sub Exit_Click()
End
End Sub
Private Sub RUN_Click()
Dim Num As Single
Num = Val(Text1.Text)
If Num > 20 Or Num < 0 Then Text2.Text = "PLZ Enter 0/20"
End Sub
Select Case Number
Case Is >= 18
Text2.Text = "A"
Case Is >= 16
Text2.Text = "B"
Case Is >= 14
Text2.Text = "C"
Case Is >= 12
Text2.Text = "D"
Case Is >= 10
Text2.Text = "E"
Case Else
Text2.Text = "F"
End Select
End Sub

دوستانی که بلدن اگه ممکنه یه اجرا بگیرن از این فرم و مشکلش رو بهم بگن. فرم هم سیو کردم اتچ میکنم زیر همین پست.ممنون از شما


فرم پروژه >>>>>>>> [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

[rastinb]

راستی اینم بگم که هر سری که دستکاری میکنم یه ارور میده واسه همین متن ارور رو نذاشتم. حس میکنم کلآ یه جای کار میلنگه .............!

[kenzu]

number رو به num تغییر بده احتمالا درست میشه

[rastinb]

number رو به num تغییر بده احتمالا درست میشه

خیر متاسفانه نشد

[JustVB6]

خب عزیزم چرا 2 تا اضافی گذاشتی اینو
End Sub


درضمن کدت هم باگ داره می تونی از این هم استفاده کنی



Dim Num As Integer
Num = Val(Text1.Text)
Select Case Num
Case 0 To 9
Text2.Text = "F"
Case 10 To 12
Text2.Text = "E"
Case 13 To 14
Text2.Text = "D"
Case 15 To 16
Text2.Text = "C"
Case 17 To 18
Text2.Text = "B"
Case 19 To 20
Text2.Text = "A"
Case Else
Text2.Text = "Nadorost"
End Select

[mahdi.askari]

ویژوال بسیک رو ران از ادمینستریتور اجرا کن