یه کمک فوری در ویژوال بیسیک

[vatanfa]

سلام
سه تا فعالیت هست که من حتما تا فرداد ببرمش اگه دوستانی میتونن کمک کنن خیلی ممنون میشم.من کد ها رو (جوابشون رو)از این وبلاگ گرفتم پاسخ تمرینات فصل 12 درس مبانی رایانه سال سوم ریاضی - دبیرستان نمونه دولتی دخترانه شهید سجادی رفسنجان فقط مشکلم اینه که نمیدونم کد ها رو کجا بزارم یعنی مثلا بزارم توی همون صفحه اصلی،بزارم توی یک command و یا غیره،لطفا هر کی میتونه راهنمایی کنه چون خیلی عجله دارم.ممنون
1-اولی اینه»برنامه ای بنویسید که نام و نمره درس رایانه یک دانش آمورش را بخواند و معادل حرفی ان را با پیغام مناسب مطابق جدول زیر نمایش دهد(جدول توی کتاب هست اما اینجا اگه کد رو نگاه کنین می فهمین که جدول چی توش هست)

اینم کد اولی:

nam = inputbox("Enter name :")

n = val(inputbox("Enter grade : ")

if n>=0 and n<=20 then

select case n

case 18 to 20

grade="A"

case 15 to 18

grade="B"

case 12 to 15

grade="C"

case 10 to 12

grade="D"

case else

grade="E"

End select

End if

Msgbox "you got degree "+grade




2-برنامه ای بنویسید که تعداد دروس و نمرات مربوط به هر درس یک دانش آموز را بخواند و معدل دانش آموزش را نمایش دهد.

این هم کد دومی



n=val(inputbox("Enter number of lesson :"))

sum =0

for i=1 to n

num = val(inputbox("Enter grade of lesson :"))

sum=sum+num

next i

msgbox "average is "+str(sum/n)



3-برنامه ای بنویسید که قیمت تعدادی کالا را بخواند.این عمل را تا زمانی تکرار کند که کاربر قیمت کالا را ((صفر)) وارد کند.در پایان مجموع قیمت کالا ها را نمایش دهد.

این کد سومی:

price=val(inputbox("Enter a price : "))

sum=price

while price<>0

price=val(inputbox("Enter a price : "))

sum=sum+price

wend

msgbox "Sum of price is "+str(sum)

---------- Post added at 05:16 PM ---------- Previous post was at 05:15 PM ----------

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

[bamboo]

رشتت چیه عزیز...؟
راحت میتونی تو برنامه سازی 2 پیدا کنی....!

[vatanfa]

رشتت چیه عزیز...؟
راحت میتونی تو برنامه سازی 2 پیدا کنی....!

سلام
ریاضی میخونم نه کامیپوتر

[bamboo]

من زیاد وقت ندارم وگرنه برات هر 3 رو برات انجام میدادم
اما یه سرچی تو گوگل بکن حتما به نتیجه میرسیـــ...!

[vatanfa]

nam = inputbox("Enter name :")

n = val(inputbox("Enter grade : ")

if n>=0 and n<=20 then

select case n

case 18 to 20

grade="A"

case 15 to 18

grade="B"

case 12 to 15

grade="C"

case 10 to 12

grade="D"

case else

grade="E"

End select

End if

Msgbox "you got degree "+grade

این کد خط دومش ارور میده کسی میدونه برا چیه اروورش؟

[vatanfa]

کد ها کلا اشتباس اگه کسی میتونه لطفا کد این برنامه ها رو بهم بده