وبلاگ آموزشی خبری کامپیوتر

1-عبارات زیر را از فرم ریاضی به فرم معادل ویژوال بیسیک تبدیل کنید.

الف) A^b+4*a^2*c

ب) -3^4+x^3-(4*z^2)/(x+y)=-3^4+x^3-4*z^2/(x+y)

ج) 0.5^ (b^2-4*a*c)

د) (x+v^z)/(3^5*y^2)

2-کدام نام زیر برای یک متغیر غیر مجاز است .با ذکر دلیل ،آن را مشخص کنید.

 الف:غیر مجاز است زیرا کاراکتراول نام متغیر باید حروف الفبایی باشد.

ب:غیر مجاز است زیرا فاصله در نام متغیر مجاز نیست.

ج)غیر مجاز است زیرا استفاده از * در نام متغیر مجاز نیست.

د)غیر مجاز است زیرا فاصله در نام متغیر مجاز نیست.

3-حاصل عبارت های زیر را به دست آورید.

الف)45=2-2+45=2-3/6+5*2^3

ب)15=10+5=(2*481)+3*2 mod 41

ج)36+ mod 9+24/72=36+2+3=41

د)26+2^4/213*8=26+124=26+0=26

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

1:در پنجره مشخصه ها ،مشخصه name  و captionرا به دلخواه تنظیم کنید.

2:از جعبه ابزار دو command button را به فرم اضافه کرده و مشخصه  name آن ها را به ترتیب  cmd Exit و Cmd Run قرار داده و مشخصه  captioe آنها را نیز به ترتیب Exit  وRun قرار دهید .

3- حال لازم است کد برنامه را اضافه کنیم برای این کار روی دکمه Rum دابل کلیک کرده و در صفحه ای که ظاهر شده دستورهای زیر را بنویسید:

Priveate sub cmd run _ click()

Dim sngA As single,sngB As single

Dim sngP As single, sngS As single

sngA=Inpubox("enter length","GetNumber")

sngB=Inputbox("enter width","Getnumber")

sngP=sngA*sngB

print"P="; sngP

Print"S"; sngS

End sub

4:در پنجره ی پرژوه روی دکمه View Object کلیک کنید تا فرم مجدد نمایش یابد .

این بار روی دکمه Exit کلیک کنید و فرمان  End را بنویسید

Private sub cmdExit_Click()

End

End Sub

5-برنامه ای بنویسید که ساعت،دقیقه و ثانیه را خوانده و زمان معادل را فقط بر حسب ثانیه حساب کند.

1:در پنجره مشخصه ها ،مشخصه name  و captionرا به دلخواه تنظیم کنید.

2:از جعبه ابزار دو command button را به فرم اضافه کرده و مشخصه  name آن ها را به ترتیب  cmd Exit و Cmd Run قرار داده و مشخصه  captioe آنها را نیز به ترتیب Exit  وRun قرار دهید .

3- حال لازم است کد برنامه را اضافه کنیم برای این کار روی دکمه Rum دابل کلیک کرده و در صفحه ای که ظاهر شده دستورهای زیر را بنویسید:

Priveate sub cmd run _ click()

Dim intH as integer,intM as integer

Dim intT as integer,intS as integer

intH =Inputbox("enter hours: ","")

intM= Inputbox("enter Minutes:","")

intS=Inputbox("enter second:","")

T=intH*3600+intM*60+intS

Print"equal Timi is =";intT;"Second"

End Sub

6-برنامه ای بنویسید که یک عدد سه رقمی را بخواند و مقلوب آ را چاپ کند

1:در پنجره مشخصه ها ،مشخصه name  و captionرا به دلخواه تنظیم کنید.

2:از جعبه ابزار دو command button را به فرم اضافه کرده و مشخصه  name آن ها را به ترتیب  cmd Exit و Cmd Run قرار داده و مشخصه  captioe آنها را نیز به ترتیب Exit  وRun قرار دهید .

3- حال لازم است کد برنامه را اضافه کنیم برای این کار روی دکمه Rum دابل کلیک کرده و در صفحه ای که ظاهر شده دستورهای زیر را بنویسید:

Priveate sub cmd run _ click()

Dim sngA as single , sngB as single

Dim sngP as single , sngS as single

sngA=inputbox("Enter Length","GetNumber")

sngP=2*(sngA+sngB)

sngS=sngA*sngB

print"P=";sngP

print"S=";sngS

End Sub

7-برنامه ای بنویسید که 5 عدد را از ورودی بخواند و میانگین آنها را حساب کند.

1:در پنجره مشخصه ها ،مشخصه name  و captionرا به دلخواه تنظیم کنید.

2:از جعبه ابزار دو command button را به فرم اضافه کرده و مشخصه  name آن ها را به ترتیب  cmd Exit و Cmd Run قرار داده و مشخصه  captioe آنها را نیز به ترتیب Exit  وRun قرار دهید .

3- حال لازم است کد برنامه را اضافه کنیم برای این کار روی دکمه Rum دابل کلیک کرده و در صفحه ای که ظاهر شده دستورهای زیر را بنویسید:

Priveate sub cmd run _ click()

Dim sngA,sngB,sngC,sngD,sngE,sngAve as single

sngA=inputbox("enter 1th  number :","")

sngB=inputbox("enter 2th  number :","")

sngC=inputbox("enter 3th  number :","")

sngD=inputbox("enter 4th  number :","")

sngE=inputbox("enter 5th  number :","")

sngave=(sngA+sngB+sngC+sngD+sngE)/5

print "Average is ";sngave

Private sub cmdExit_Click()

End

End Sub

____________________________________________________________________________________

8-برنامه ای بنویسید که درجه هوا را بر حسب سانتی گرادخواند و معادل آنرا به فارنهایت نمایش دهد .

1:در پنجره مشخصه ها ،مشخصه name  و captionرا به دلخواه تنظیم کنید.

2:از جعبه ابزار دو command button را به فرم اضافه کرده و مشخصه  name آن ها را به ترتیب  cmd Exit و Cmd Run قرار داده و مشخصه  captioe آنها را نیز به ترتیب Exit  وRun قرار دهید .

3- حال لازم است کد برنامه را اضافه کنیم برای این کار روی دکمه Rum دابل کلیک کرده و در صفحه ای که ظاهر شده دستورهای زیر را بنویسید:

Priveate sub cmd run_click()

Dim sngD,sngF as single

SngD =inputbox("enter degree")

sngF(9/5)*sngD+32

end sub

Private sub cmdExit_Click()

End

End Sub

9-برنامه ای بنویسید که یک عدد دو رقمی را بخواند و مجموع ارقام آن را چاپ کند

1:در پنجره مشخصه ها ،مشخصه name  و captionرا به دلخواه تنظیم کنید.

2:از جعبه ابزار دو command button را به فرم اضافه کرده و مشخصه  name آن ها را به ترتیب  cmd Exit و Cmd Run قرار داده و مشخصه  captioe آنها را نیز به ترتیب Exit  وRun قرار دهید .

3- حال لازم است کد برنامه را اضافه کنیم برای این کار روی دکمه Rum دابل کلیک کرده و در صفحه ای که ظاهر شده دستورهای زیر را بنویسید:

Priveate sub cmd run_click()

Dim intN as integer, intM1 as integer,intM2 as integer

Dim intM3 as integer,intM as integer

Dim intS as integer

IntN=inputbox("Enter 2 Digis Number:","")

intM1=intN mod 10

intM2=intN10

intS=intM1+intM2

print"Sum of Digits";intS

End Sub

Private sub cmdExit_Click()

End

End Sub