سوال 1 از فصل 4
1-برنامه ای بنویسید که مجموع مربعات اعداد 1 تا 10 را محاسبه و چاپ کند.
1:در پنجره مشخصه ها ،مشخصه name و captionرا به دلخواه تنظیم کنید.
2:از جعبه ابزار دو command button را به فرم اضافه کرده و مشخصه name آن ها را به ترتیب cmd Exit و Cmd Run قرار داده و مشخصه captioe آنها را نیز به ترتیب Exit وRun قرار دهید .
3- حال لازم است کد برنامه را اضافه کنیم برای این کار روی دکمه Rum دابل کلیک کرده و در صفحه ای که ظاهر شده دستورهای زیر را بنویسید:
Private sub cmd run_click()
Dim intI As Integer ,intS As integer
intS=0
for intI=1 to 10
intS=intS+intI^2
next intI
print"sum=";intS
end sub
4:در پنجره ی پرژوه روی دکمه View Object کلیک کنید تا فرم مجدد نمایش یابد .
این بار روی دکمه Exit کلیک کنید و فرمان End را بنویسید
Private sub cmdExit_Click()
End
End Sub
________________________________________________________________________________
سوال 2 از فصل 4
2-برنامه ای بنویسید که تعدادی عدد صحیح از ورودی بگیرد و تعداد اعداد زوج و فرد را جداگانه چاپ کند (شرط توقف ورود ضفر است)
1:در پنجره مشخصه ها ،مشخصه name و captionرا به دلخواه تنظیم کنید.
2:از جعبه ابزار دو command button را به فرم اضافه کرده و مشخصه name آن ها را به ترتیب cmd Exit و Cmd Run قرار داده و مشخصه captioe آنها را نیز به ترتیب Exit وRun قرار دهید .
3- حال لازم است کد برنامه را اضافه کنیم برای این کار روی دکمه Rum دابل کلیک کرده و در صفحه ای که ظاهر شده دستورهای زیر را بنویسید:
Private sub cmd run_click()
Dim intN as Integer,intEven as integer,intOdd as integer
intEven=0
intOdd=0
intN=inputbox("enter an integer number or zero for exit:")
do while intN
if intN mod 2=0 then
intEven=intEven+1
Else
intOdd=intOdd+1
End If
IntN=inputbox("enter an integer number or zero for exit: ")
Loop
Print"number of Even number =";intEven
Print"number of Odd number =";intOdd
End sub
4:در پنجره ی پرژوه روی دکمه View Object کلیک کنید تا فرم مجدد نمایش یابد .
این بار روی دکمه Exit کلیک کنید و فرمان End را بنویسید
Private sub cmdExit_Click()
End
End Sub
__________________________________________________________________________
سوال 3 از فصل 4
3-برنامه ای بنویسید که عدد N را بگیرد و حاصل عبارت زیر را چاپ کند.
1:در پنجره مشخصه ها ،مشخصه name و captionرا به دلخواه تنظیم کنید.
2:از جعبه ابزار دو command button را به فرم اضافه کرده و مشخصه name آن ها را به ترتیب cmd Exit و Cmd Run قرار داده و مشخصه captioe آنها را نیز به ترتیب Exit وRun قرار دهید .
3- حال لازم است کد برنامه را اضافه کنیم برای این کار روی دکمه Rum دابل کلیک کرده و در صفحه ای که ظاهر شده دستورهای زیر را بنویسید:
Private sub cmd run_click()
Dim intN As long , intf as long,intI As byte
intN=Inputbox("enter an integer number:")
intf=1
for intI=1 to intN
intF=intF*intI
next intI
print intN;"!=";intF
end sub
4:در پنجره ی پرژوه روی دکمه View Object کلیک کنید تا فرم مجدد نمایش یابد .
این بار روی دکمه Exit کلیک کنید و فرمان End را بنویسید
Private sub cmdExit_Click()
End
End Sub
___________________________________________________________________________________
سوال 4 از فصل 4
4-برنامه ای بنویسید که عددی را از ورودی دریافت کندو تعیین کند که آیا عدد اول است یا خیر؟
1:در پنجره مشخصه ها ،مشخصه name و captionرا به دلخواه تنظیم کنید.
2:از جعبه ابزار دو command button را به فرم اضافه کرده و مشخصه name آن ها را به ترتیب cmd Exit و Cmd Run قرار داده و مشخصه captioe آنها را نیز به ترتیب Exit وRun قرار دهید .
3- حال لازم است کد برنامه را اضافه کنیم برای این کار روی دکمه Rum دابل کلیک کرده و در صفحه ای که ظاهر شده دستورهای زیر را بنویسید:
Private sub cmd run_click()
Dim intN As integer,intI As Integer,blnF as Boolean
intN=Inputbox("enter an integer number :")
blnF=false
For intI=2 to intN-1
If intN mod intI =0 then
blnF=true
Exit For
End if
Next intI
If blnF=False Then
Msgbox"add aval ast",,"prime"
Else
Msgbox"add aval nist",,"prime"
End if
End sub
4:در پنجره ی پرژوه روی دکمه View Object کلیک کنید تا فرم مجدد نمایش یابد .
این بار روی دکمه Exit کلیک کنید و فرمان End را بنویسید
Private sub cmdExit_Click()
End
End Sub
_________________________________________________________________________________
سوال 5 از فصل 4
5-برنامه ای بنویسید که اعداد اول 1 تا 100 را چاپ کند.
1:در پنجره مشخصه ها ،مشخصه name و captionرا به دلخواه تنظیم کنید.
2:از جعبه ابزار دو command button را به فرم اضافه کرده و مشخصه name آن ها را به ترتیب cmd Exit و Cmd Run قرار داده و مشخصه captioe آنها را نیز به ترتیب Exit وRun قرار دهید .
3- حال لازم است کد برنامه را اضافه کنیم برای این کار روی دکمه Rum دابل کلیک کرده و در صفحه ای که ظاهر شده دستورهای زیر را بنویسید:
Private sub cmd run_click()
Dim intN as Integer , IntI As Integer,intF As Boolean
Cls
For intN = 2 to 100
intF = Fals
for intI = 2 to intN-1
if intN mod intI =0 Then
intF = true
exit for
End if
Next intI
If intF = False Then
Print intN;
End If
Next intN
End Sub
4:در پنجره ی پرژوه روی دکمه View Object کلیک کنید تا فرم مجدد نمایش یابد .
این بار روی دکمه Exit کلیک کنید و فرمان End را بنویسید
Private sub cmdExit_Click()
End
End Sub
_____________________________________________________________________________
سوال 6 از فصل 4
6-برنامه ای بنویسید که عددی صحیح از ورودی دریافت کند و مجموع ارقام آن را چاپ کند
1:در پنجره مشخصه ها ،مشخصه name و captionرا به دلخواه تنظیم کنید.
2:از جعبه ابزار دو command button را به فرم اضافه کرده و مشخصه name آن ها را به ترتیب cmd Exit و Cmd Run قرار داده و مشخصه captioe آنها را نیز به ترتیب Exit وRun قرار دهید .
3- حال لازم است کد برنامه را اضافه کنیم برای این کار روی دکمه Rum دابل کلیک کرده و در صفحه ای که ظاهر شده دستورهای زیر را بنویسید:
Private sub cmd run_click()
Dim intN as integer, intS As Integer
Dim intR As byte
intS=0
intN=Inputbox("Enter an integer number :")
Do While intN <> 0
intR = intn mod 10
intS = intS + intR
intN = intN 10
Loop
Print "sum of Digit is :"; intS
End sub
4:در پنجره ی پرژوه روی دکمه View Object کلیک کنید تا فرم مجدد نمایش یابد .
این بار روی دکمه Exit کلیک کنید و فرمان End را بنویسید
Private sub cmdExit_Click()
End
End Sub
________________________________________________________________________________
سوال 7 از فصل 4
7-برنامه ای بنویسید که عددی صحیح از ورودی دریافت کند و مقلوب آن را چاپ کند .
1:در پنجره مشخصه ها ،مشخصه name و captionرا به دلخواه تنظیم کنید.
2:از جعبه ابزار دو command button را به فرم اضافه کرده و مشخصه name آن ها را به ترتیب cmd Exit و Cmd Run قرار داده و مشخصه captioe آنها را نیز به ترتیب Exit وRun قرار دهید .
3- حال لازم است کد برنامه را اضافه کنیم برای این کار روی دکمه Rum دابل کلیک کرده و در صفحه ای که ظاهر شده دستورهای زیر را بنویسید:
Private sub cmd run_click()
Dim intN As Integer , intS As Integer
Dim intr As Byte , intReverse As Integer
IntN = Inputbox("Enter an integer number :")
intReverse=0
Do While intN<>0
intR=intN mod 10
intReverse = intReverse *10+intR
intN=intN10
Loop
Print "reverse is :";intReverse
End sub
4:در پنجره ی پرژوه روی دکمه View Object کلیک کنید تا فرم مجدد نمایش یابد .
این بار روی دکمه Exit کلیک کنید و فرمان End را بنویسید
Private sub cmdExit_Click()
End
End Sub
________________________________________________________________________________
سوال 8 از فصل 4
8-برنامه ای بنویسید که تمام اعداد صحیح سه رقمی که رقم یکان آنها با صدگان برابر است را چاپ کند
1:در پنجره مشخصه ها ،مشخصه name و captionرا به دلخواه تنظیم کنید.
2:از جعبه ابزار دو command button را به فرم اضافه کرده و مشخصه name آن ها را به ترتیب cmd Exit و Cmd Run قرار داده و مشخصه captioe آنها را نیز به ترتیب Exit وRun قرار دهید .
3- حال لازم است کد برنامه را اضافه کنیم برای این کار روی دکمه Rum دابل کلیک کرده و در صفحه ای که ظاهر شده دستورهای زیر را بنویسید:
Private sub cmd run_click()
Dim intI As byte, intJ As byte
Dim intN As Integer
For intI = 1 to 9
For intJ = 0 to 9
intN=intI*100+intJ*10+intI
Print intN;
Next intJ
Print
Next intI
End sub
4:در پنجره ی پرژوه روی دکمه View Object کلیک کنید تا فرم مجدد نمایش یابد .
این بار روی دکمه Exit کلیک کنید و فرمان End را بنویسید
Private sub cmdExit_Click()
End
End Sub
________________________________________________________________________________
سوال 9 از فصل 4
9-برنامه ای بنویسید که خروجی زیر را تولید کند.
1
12
123
1234
1:در پنجره مشخصه ها ،مشخصه name و captionرا به دلخواه تنظیم کنید.
2:از جعبه ابزار دو command button را به فرم اضافه کرده و مشخصه name آن ها را به ترتیب cmd Exit و Cmd Run قرار داده و مشخصه captioe آنها را نیز به ترتیب Exit وRun قرار دهید .
3- حال لازم است کد برنامه را اضافه کنیم برای این کار روی دکمه Rum دابل کلیک کرده و در صفحه ای که ظاهر شده دستورهای زیر را بنویسید:
Private sub cmdrun_click()
Dim intI as byte,intJ As byte
For intI = 1 to 4
For intJ = 1 to intI
Print intJ;
Next intJ
آمار
وبلاگ:
نظرات کاربران
دیدگاه خود را با ما در میان بگذارید