تاریخ : جمعه 26 خرداد 1391
نویسنده : hamidrezakhouri
سوال 1 از فصل 6

برنامه ای بنویسید که بدون استفاده از خاصیت PasswordChar بتواند کلمه رمزی را از ورودی بگیرد و آن را نمایش دهد.

در قسمت General نوشته :

Dim S As String

در قسمت command اجرا نوشته :

()Private Sub Command1_Click

& S"YOUR PASSWORD IS:"MsgBox

End Sub

در قسمت text box نوشته :

(Private Sub Text1_KeyPress(KeyAscii As Integer

If KeyAscii <> 8 Then

(S = S + Chr(KeyAscii

("*")KeyAscii = Asc

Else

(n = Len(S

(If n > 0 Then S = Left(S, n – 1

End If

End Sub

____________________________________________________________________________________
سوال 2 ا فصل 6

2.برنامه ای بنویسید که با هر زدن یک کلید ( حداکثر 4 بار ) یک عکس متفاوت را در کنترل Image نشان دهد و پس از زدن آخرین مرتبه عکس ثابت بماند.

حل : چهار کنترل Image با نامهای image1 تا image4 روی آن قرار می دهیم و خاصیت Stretch آنها را True تنظیم می کنیم .

در قسمت General نوشته :

Dim C As Integer

در قسمت command اجرا نوشته :

()Private Sub command1_Click

If C <= 4 Then

Select Case C

Case 1

Image1.Visible = False

Image2.Visible = True

Case 2

Image2.Visible = False

Image3.Visible = True

Case 3

Image3.Visible = False

Image4.Visible = True

End Select

C = C + 1

If C = 4 Then

"command1.Caption = "Stop

End If

End Sub

در قسمت form-Load نوشته :

()Private Sub Form_Load

C = 1

Image1.Stretch = True

Image2.Stretch = True

Image3.Stretch = True

Image4.Stretch = True

Image1.Visible = True

Image2.Visible = False

Image3.Visible = False

Image4.Visible = False

Image2.Top = Image1.Top

Image2.Left = Image1.Left

Image3.Top = Image1.Top

Image3.Left = Image1.Left

Image4.Top = Image1.Top

Image4.Left = Image1.Left

End Sub

___________________________________________________________________________________
سوال 3 از فصل 6

3- برنامه قبل را به گونه ای تغییر دهید که پس از رسیدن به آخرین عکس دوباره به ابتدا باز گردد.

حل : کافی است در برنامه قبل دو تغییر دهید.

1.فرمان case 4 را به select case اضافه کرده بگونه ای که image4 را خاموش و image1 را روشن کند.

2. دستور شرطی به از select case را بر روی شرط c=5 قرارداده.

جواب : متن های قرمز رنگ

در قسمت General نوشته :

Dim C As Integer

در قسمت command اجرا نوشته :

()Private Sub command1_Click

If C <= 4 Then

Select Case C

Case 1

Image1.Visible = False

Image2.Visible = True

Case 2

Image2.Visible = False

Image3.Visible = True

Case 3

Image3.Visible = False

Image4.Visible = True

Case 4

Image4.Visible = False

Image1.Visible = True

End Select

C = C + 1

If C = 5 Then

C=1

End If

End Sub

در قسمت form-load نوشته :

()Private Sub Form_Load

C = 1

Image1.Stretch = True

Image2.Stretch = True

Image3.Stretch = True

Image4.Stretch = True

Image1.Visible = True

Image2.Visible = False

Image3.Visible = False

Image4.Visible = False

Image2.Top = Image1.Top

Image2.Left = Image1.Left

Image3.Top = Image1.Top

Image3.Left = Image1.Left

Image4.Top = Image1.Top

Image4.Left = Image1.Left

End Sub

_________________________________________________________________________________
سوال 5 از فصل 6

5. برنامه ای بنویسید که یک تصویر را به وسیله کنترل Image نمایش داده و قابلیت بزرگنمایی از 0.25 تا 4 برابر را برای آن ایجاد کند.

حل : یک کنترل Image نمایش داده و خاصیت Stretch آن را True کرده و 5 کنترل Option را به ترتیب 0.25, 0.5 , 1, 2, 4 انتخاب می کنیم.

در قسمت General نوشته

Dim W As Integer, H As Integer

در قسمت Form-load نوشته :

()Private Sub Form_Load

W = Img1.Width

H = Img1.Height

Option5.Value = True

End Sub

در قسمت option1 نوشته :

()Private Sub Option1_Click

Img1.Width = W * 0.25

Img1.Height = H * 0.25

End Sub

در قسمت option2 نوشته :

()Private Sub Option2_Click

Img1.Width = W * 0.5

Img1.Height = H * 0.5

End Sub

در قسمت option3 نوشته :

()Private Sub Option3_Click

Img1.Width = W * 1

Img1.Height = H * 1

End Sub

در قسمت option4 نوشته :

()Private Sub Option4_Click

Img1.Width = W * 2

Img1.Height = H * 2

End Sub

در قسمت option5 نوشته :

()Private Sub Option5_Click

Img1.Width = W * 4

Img1.Height = H * 4

End Sub

_____________________________________________________________________________________

سوال 4 از فصل 6

4. برنامه ای بنویسید که یک تصویر را نمایش داده و سپس به وسیله متد PaintPicture آن را کوچکتر کرده و در یک کنترل تصویر دیگر نشان دهد .

Private Sub Command1_Click()

Pic2.PaintPicture Pic1.Picture, 0, 0, Pic2.ScaleWidth, Pic2.ScaleHeight

End Sub

_______________________________________________________________________________________
سووال6 از فصل 6

6. برنامه قبل را فقط با PictureBox ایجاد کنید.

حل: فقط کافی است یک کنترل Image را بر روی برنامه گذلشت

جواب : کد برنامه

در قسمت General نوشته

Dim W As Integer, H As Integer

در قسمت Form-load نوشته :

()Private Sub Form_Load

W = Img1.Width

H = Img1.Height

Pic1.Height = H

Pic1.Width = W

Pic1.PaintPicture Img1.Picture, 0, 0, W, H

Opt5.Value = True

End Sub

در قسمت opt1 نوشته :

()Private Sub Opt1_Click

Img1.Width = W * 0.25

Img1.Height = H * 0.25

Pic1.PaintPicture Img1.Picture, 0, 0, Pic1.ScaleWidth, Pic1.ScaleHeight

End Sub

در قسمت opt2 نوشته :

()Private Sub Opt2_Click

Img1.Width = W * 0.5

Img1.Height = H * 0.5

Pic1.PaintPicture Img1.Picture, 0, 0, Pic1.ScaleWidth, Pic1.ScaleHeight

End Sub

در قسمت opt3 نوشته :

()Private Sub Opt3_Click

Img1.Width = W * 1

Img1.Height = H * 1

Pic1.PaintPicture Img1.Picture, 0, 0, Pic1.ScaleWidth, Pic1.ScaleHeight

End Sub

در قسمت opt4 نوشته :

()Private Sub Opt4_Click

Img1.Width = W * 2

Img1.Height = H * 2

Pic1.PaintPicture Img1.Picture, 0, 0, Pic1.ScaleWidth, Pic1.ScaleHeight

End Sub

در قسمت opt5 نوشته :

()Private Sub Opt5_Click

Img1.Width = W * 4

Img1.Height = H * 4

Pic1.PaintPicture Img1.Picture, 0, 0, Pic1.ScaleWidth, Pic1.ScaleHeight

End Sub

______________________________________________________________________________________

سوال 7 از فصل 6

7. برنامه ای بنویسید که به وسیله کلید های جهت دار (Arrow Key) یک برچسب حاوی نام شما را حرکت دهد . میزان حرکت به وسیله یک کادر متن تعیین شود.

حل : در برنامه یک Label بر روی برنامه گذاشته که Caption آنرا به دلخواه بگذارید . و یک Textboxبگذارید که خاصیت Visible انرا را False کرده

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

Select Case KeyCode

Case 37

Label1.Left = Label1.Left - (text1.Left)

Case 38

Label1.Top = Label1.Top - (text1.Top)

Case 39

Label1.Left = Label1.Left + (text1.Left)

Case 40

Label1.Top = Label1.Top + (text1.Top)

End Select

End Sub

______________________________________________________________________________

سوال 8 از فصل 6

8. برنامه قبل را به گونه ای تغییر دهید که به وسیله کلید های Page Up و Page Down بتوان میزان حرکت را در هر بار دوبرابر یا نصف کرد .

در قسمت General نوشته :

Dim Z As Integer

در قسمت Form – Load نوشته :

Private Sub Form_Load()

Z = 1

Me.Caption = Z

End Sub

در قسمت Form-Key Down نوشته :

(Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer

Select Case KeyCode

Case 33

Z = Z * 2

Me.Caption = Z

Case 34

Z = Z 2

If Z = 0 Then Z = 1

Me.Caption = Z

Case 37

(Label1.Left = Label1.Left - Val(text1.Left

Case 38

(Label1.Top = Label1.Top - (text1.Top

Case 39

(Label1.Left = Label1.Left + (text1.Lef

Case 40

(Label1.Top = Label1.Top + (text1.Top

End Select

End Sub

_____________________________________________________________________________________

سوال 9 از فصل 6

9. برنامه ای بنویسید که به وسیله یک کادر متن ، رشته ای را دریافت و در همان لحظه ورود ، آن را رمز کند. سپس با زدن دکمه Decode و استفاده از فرمان SendKeys رشته ی کادر متن دیگری بفرستد تا در آن رمز گشایی شود (یعنی به شکل اصلی دیده شود ).

حل : در برنامه دو جعبه متن گذاشته و یک کلید به معنای Decode در فرم قرار می دهیم.

در قسمت Command Decode نوشته :

Private Sub Command1_Click

Text2.SetFocus

SendKeys Text1

End Sub

در قسمت Text1 نوشته :

Private Sub Text1_KeyPress(KeyAscii As Integer)

KeyAscii = KeyAscii + 4

End Sub

در قسمت Text2 نوشته :

Private Sub Text2_KeyPress(KeyAscii As Integer)

KeyAscii = KeyAscii - 4

End Sub

_____________________________________________________________________________________
سوال 10 ا فصل 6

10.برنامه ای بنویسید که تصویری را نمایش دهد و با کلیک روی تصویر ، محل آن بطور تصادفی تغیییر یابد( از فرم خارج نشود ).

حل : ابتدا یک کنترل تصویر در فرم قرار داده و عکسی برای آن انتخاب می کنیم سپس در رویداد Click از کنترل تصویر برنامه زیر را بنویسید .

در قسمت Picture1-Click نوشته :

Private Sub Picture1_Click

Dim Max As Integer, Min As Integer, Left As Integer, Top As Integer

Max = Me.ScaleWidth - Picture1.Width

Max = Me.ScaleHeight - Picture1.Height

Left = (Rnd * Max + 1)

Top = (Rnd * Max + 1)

Picture1.Top = Top

Picture1.Left = Left

End Sub


|
امتیاز مطلب : 0
|
تعداد امتیازدهندگان : 0
|
مجموع امتیاز : 0
تاریخ : جمعه 26 خرداد 1391
نویسنده : hamidrezakhouri
سوال10از فصل5

برنامه اي بنويسيد كه عدد در مبناي16 دريافت كرده و معادل آن را در مبناي 10 نمايش دهد.

حال بايد 2TEXTBOXايجا كرده ونام آنهارا به ترتيبtxt1,.txt2تغيير دهيد

 

Private sub cmdRun_Click()

Dim intn as long,inti as integer,strs as string

Dim strx as string*1,bytx as byte

Strs=ucase(strReverse(txt1))

For inti=len(strs) to 1 step -1

Strx=mid(strs,inti,1)

Select case strx

Case"A"

Bytx=10

Case"B"

Bytx=11

Case"C"

Bytx=12

Case"D"

Bytx=13

Case"E"

Bytx=14

Case"F"

Bytx=15

Case "0" to "9"

Bytx=val(strx)

Case else

Msgbox"Error In Number"

Exit sub

End select

Intn=intn+bytx*16^(inti-1)

Next

Txt2=intn

End sub

 

Private Sub cmdExit_Click()

End

End Sub

____________________________________________________________________________________
سوال 9 از فصل5

برنامه اي بنويسيد كه بدون استفاده از تابع Replace كار اين تابع را شبيه سازي كند.

حال 3TEXTBOX به نامهاي txts,txtf,txtr

Private sub cmdRun_Click()

Dim strs as string,strf,r as string

Dim strl as string,strri as string,intx as integer

Strs=txts

Strf=txtf

Strr=txtr

Intx=instr(strs,strf)

Do while intx>0

Strl=left(strs,inx-1)

Strri=mid(strs,inx+len(strf))

Strs=strl+strr+strri

Intx=instr(strs,strf)

Loop

Textresult=strs

End sub

 

Private Sub cmdExit_Click()

EndEnd Sub

_______________________________________________________________________________________
سوال8ازفصل5

برنامه اي بنويسيد كه رشته اي شامل يك عبارت رياضي را از ورودي دريافت كند. سپس حاصل آن را چاپ كند.

به عنوان مثال,اگر رشته كاربر "=12*3"را وارد عدد خروجي 36در خروجي چاپ كند.

Private sub cmdRun_Click()

Dim c,a,b as double,intn as integer,strs,strop as string

intn=instr(1,strs,"*"):op="*"

If intn=0 then

Intn=instr(1,strs,"+"):op="+"

End if

If intn=0 then

Intn=instr(1,strs,"/"):op="/"

End if

If intn=0 then

Intn=instr(1,strs,"-"):op="-"

End if

If  intn=0 then

Msgbox"Error in Eqution"

Exit sub

End if

A=val(left(strs,intn-1))

B=val(mid(strs,intn+1))

Select case op

Case"*"

C=a*b

Case"+"

C=a+b

Case"/"

C=a/b

Case"-"

C=a-b

End select

Print strs;"="c

End sub

 

Private Sub cmdExit_Click()

EndEnd Sub

________________________________________________________________________________________

سوال7از فصل5

برنامه اي بنويسيد كه يك عدد صحيح مثبت را از ورودي دريافت كندو به صورت حروف چاپ كند.

به عنوان مثال عدد 100 را پيغام One Hundredنمايش دهد.

Private sub cmdRun_Click()

Dim strs as string ,intn,inta,intc as integer

Strs=""

Inta inputbox("Enter Number:")

Intn=inta

If inta=0 then strs="Zero"

Intc=inta\100

If intc<>0 then

Strs=choose(intc,"One","Two","Three","Four","Five","Six","Seven","Eight","Nine")+"Hundred"

End if

Inta=inta mod 100

Intc=inta\10

If intc<>0 then

If intc=1 then

Strs=strs+"Ten"

Else

Strs=strs+choose(intc-1,"Twenty","Thirty","Thirty","Fourty","Fifty","Sixty","Seventy","Eighty","Ninty")

End if

End if

Inta=inta mod 10

Intc=inta\1'intc=inta

If intc<>0 then

Strs=strs+choose(intc,"One","two","three","Four","five","six","seven","Eight","Nine")

End if

Print intn;"="; strs

 

Private Sub cmdExit_Click()

End

End Sub

____________________________________________________________________________________

سوال6از فصل5

برنامه اي بنويسيد كه رشته اي را از ورودي دريافت كند ومجموع ارقام نويسه اي موجود در رشته را محاسبه نمايد و نمايش دهد.

Private sub cmdRun_Click()

Dim stra,strb as string

Dim inti,intc as integer

Intc=0

Stra=inputbox("Enter String:")

For inti=1 to len(stra)

Strb=mid(stra,inti,1)

Intc=intc=intc+val(strb)

Next inti

Print intc

End sub

 

Private Sub cmdExit_Click()

End

End Sub

___________________________________________________________________________________
سوال5 از فصل5

برنامه اي بنويسد كه رشته اي از ورودي در يافت كند و تعيين كند كه آيا رشته از هر دو طرف كه در نظر گرفته شود يكسان است يا خير؟به عنوان مثال رشته"beeb"چنين خاصيتي دارد.

Private sub cmdRun_Click()

Dim stra,strb as string

Stra=inputbox("Enter First sting:")

Strb=strReverse(stra)

If stra=strb then

"دورشته بربراندmsgbox"

Else

"دو رشته برابر نيستند"msgbox

End if

End sub

 

Private Sub cmdExit_Click()

EndEnd Sub

________________________________________________________________________________________


سوال4از فصل5

-برنامه اي بنويسيدكه دو عدد در مبناي دودويي را از ورودي دريافت كند و حاصل جمع آنها را محاسبه كندو نمايش دهد.

 

 

Dim stra ,strb,strs as string

Dim inti,inta,intb,intc as integer,bytp as Byte

Stra=inputbox("Enter First Number:")

Inta=0:bytp=0

For inti=len(stra) to 1 step-1

Intc=val(mid(stra,inti,1))*2^bytp

Inta=inta+intc

Bytp=bytp+1

Next inti

Strb=inputbox("Enter Second Number:")

Intb=0:bytp=02

For inti=len(strb) to 1 step -1

Intc=val(mid(strb,inti,1))*2^bytp

Intb=intb+intc

Bytp=bytp+1

Next inti

Intc=inta+intb

Strs=""

Do while intc>0

Inti=intc\2

Strs=strs & inti

Loop

Strs=strReverse(strs)

Print stra;"+";strb;"=";strs

End sub

 

Private Sub cmdExit_Click()

End
End Sub

__________________________________________________________________________________
سوال3ازفصل5

-برنامه اي بنويسيد كه رشته اي را از ورودي دريافت كند و تعداد حروف بزرگ وتعداد كوچك آن را شمارش كند و با پيغام مناسب چاپ كند.

Private Sub cmdRun _Click ()

Dim stra as string,inti as integer

Dim intu,intl as integer

Dim str as string*1

Stra=inputbox("Enter String:")

Intl=0

Intu=0

For inti=1 to len(stra)

Strs=mid(stra,inti,1)

Select case strs

Case "a" to "z"

Intl=intl+1

Case "A" to "Z"

Intu=intu+1

End select

Next inti

Print "Number of Lower case is:";intl

Print" Number of Upper case is:"intu

End sub

 

 

Private Sub cmdExit_Click()

EndEnd Sub

___________________________________________________________________________________
سوال2ازفصل5

2-برنامه اي بنويسيد كه نام ونام خانوادگي شخصي را از ورودي دريافت و در يك متغير قرار دهد.سپس آنها را بصورت مجزا نمايش دهد.

براي اين برنامه بايد يك فرم داراي 2 Command Button باشد.

و نام Command1 را به cmdRun   تغيير مي دهيم ، و روي دابل كليك ميكنيم و كدهاي زير را در آن مي نويسيم:

 

 

Dim strA,strName,strFamil as string,byN as Byte

strA=trim(inputbox("Enter name&famil:"))

byn=instr(1,stra,"")

if bytN<>0 then

strname=left(strA,byn-1)

strfamil=trim(mid(stra,byn))

else

strname=stra

strfamil=""

end if

print"Name";strname

print"Famil";strfamil

End Sub  

 

Private Sub cmdExit_Click()

End

End Sub

____________________________________________________________________________________

سوال 1 از فصل5

-برنامه اي بنويسيد كه نام سه نفر را دريافت كرده و به ترتيب چاپ كند.

براي اين برنامه بايد يك فرم داراي 2 Command Button باشد.

و نام Command1 را به cmdRun   تغيير مي دهيم ، و روي دابل كليك ميكنيم و كدهاي زير را در آن مي نويسيم:

Private Sub cmdRun _Click ()

Dim strA,strB,strC,strTemp as string

strA=inputbox("Enter Name1:")

strB=inputbox("Enter Name2:")

strC=inputbox("Enter Name3:")

if rstrA>strB then

strA=strB

strB=strTemp

End if

If strA>strC then

strTemp = strA

strA=strC

strC= strTemp

End if

If strB>strC then

strTemp=strB

strB=strC

strC=strTemp

End if

Print strA

Print strB

Print strC

End sub 

Private Sub cmdExit_Click()

End

End Sub


|
امتیاز مطلب : 0
|
تعداد امتیازدهندگان : 0
|
مجموع امتیاز : 0
تاریخ : پنج‌شنبه 25 خرداد 1391
نویسنده : hamidrezakhouri
سوال 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

|
امتیاز مطلب : 0
|
تعداد امتیازدهندگان : 0
|
مجموع امتیاز : 0
تاریخ : پنج‌شنبه 25 خرداد 1391
نویسنده : hamidrezakhouri
سوال 1 از فصل 3

1-دستور if بنویسید که تساوی سه عدد را بررسی کند.

حل : برای مقایسه سه عدد  با یک دستور شرطی لازم است از یک عبارت ترکیبی شرطی استفاده کرد.

جواب :                                                    If A=B And A=C                             

 

___________________________________________________________________________
سوال 2 از فصل 3

2- برنامه ای بنویسید که سه عدد دریافت و بزرگترین مقدار بین آنها را چاپ کند.


حل : برای یافتن بزرگترین مقدار بین سه عدد لازم است دو عدد اول با هم مقایسه و نتیجه را با عدد سوم مقایسه کند.

 

 

در قسمت Form - loadنوشته :

Private Sub Form_Load()

Dim A, B, C, MAX As Single

A = InputBox("Enter a:", "")

B = InputBox("Enter b:", "")

C = InputBox("Enter c:", "")

If A > B Then MAX = C Else: MAX = B

If C > MAX Then MAX = C

Label1.Caption = "MAX=" & MAX

End Sub

_____________________________________________________________________________________

سوال 3 از فصل 3

3- برنامه ای بنویسید که سه عدد از ورودی بگیرد و تعیین کند آیا با این سه عدد می توان یک مثلث ساخت؟

 همواره حاصل جمع دو ضلع باید از ضلع سوم بیشتر باشد. A,B,Cحل : در یک مثلث به اضلاع

 

 

در قسمت form-load نوشته:

Private Sub Form_Load()

Dim A, B, C, MAX As Single

A = InputBox("Enter a:", "")

B = InputBox("Enter b:", "")

C = InputBox("Enter c:", "")

If A + B > C And A + C > B And B + C > A Then

"می توان مثلث ساخت Label1.Caption =

Else

"نمی توان مثلث ساخت Label1.Caption =

End If

End Sub

_____________________________________________________________________________________

سوال 4 از فصل 3

3- برنامه ای بنویسید که سه عدد از ورودی بگیرد و تعیین کند آیا با این سه عدد می توان یک مثلث  قائم الزاویه ساخت؟

حل: در یک مثلث قایم الزاویه رابطه فیثاغورث صادق است. و چون نمی دانیم که کدام از اعداد وارد شده وتر است باید از فرمول زیر بدست آوریم.

C^2=A^2+B^2                                    A^2=C^2+B^2                                 B^2=A^2+C^2

 در قسمت  Form – load نوشته :

Private Sub Form_Load()

Dim A, B, C As Single

A = InputBox("Enter a:", "")

B = InputBox("Enter b:", "")

C = InputBox("Enter c:", "")

If A ^ 2 = B ^ 2 + C ^ 2 Or B ^ 2 = A ^ 2 + C ^ 2 Or C ^ 2 = A ^ 2 + B ^ 2 Then

"مثلث قائم الزاویه بوجود می آید Label1.Caption = "

Else

"مثلث قائم الزاویه بوجود نمی آید Label1.Caption = "

End If

End Sub

______________________________________________________________________________________

سوال 5 از فصل 3

۵- فروشنده ای با صاحب یک فروشگاه قرارداد بسته است تا اجناس وی را بفروشد و درصدی را به عنوان حق الزحمه دریافت کند. درصد حق الزحمه به میزان فروش و جنس کالا بستگی دارد.

کالاهای فروشگاه درجه 1 و درجه 2 و درجه 3 هستند. و حق الزحمه به شرح زیر تعیین می شود .

الف) اگر کالا درجه 1 باشد ، به ازای فروش کمتر از 50000 تومان ، 10 درصد و به ازای فروش بیشتر از 50000 تومان ، 15 درصد حق الزحمه تعلق می گیرد .

ب) اگر کالا درجه 2 باشد ، به ازای فروش کمتر از 50000 تومان ، 4 درصد و به ازای فروش بیشتر از 50000 تومان ، 10 درصد حق الزحمه تعلق می گیرد.

ج) اگر کالا درجه 3 باشد ، به ازای هر میزان فروش ، 7 درصد حق الزحمه تعلق می گیرد.

متغیر B شماره کالا و متغیر Fدستمزد و متغیر C میزان فروش است.

در قسمت Form - load نوشته :

Private Sub Form_Load()

Dim B As Byte

Dim F, C As Single

)"شماره کالا",,"وارد کنید شماره کالا راB = InputBox("

)"میزان کالا",,"وارد کنید میزان کالاراB = InputBox("

Select Case B

Case 1

If C < 50000 Then F = 0.01 * C Else F = 0.015 * C

Case 2

If C < 50000 Then F = 0.04 * C Else F = 0.01 * C

Case 3

F = 0.07 * C

Case Else

"شماره کالا به اشتباه وارد شده است" =Print  

End If

Exit Sub

End Select

"دستمزد":Print

End Sub

_________________________________________________________________________________

سوال 6 از فصل 3

 ۶- برنامه ای بنویسید که ضرایب معادله درجه دوم را بگیرد و ریشه های آن را روی فرم چاپ کند.

*در این برنامه احتیاج به یک دکمه ی اجرا و پنج عدد است.text box .

 در قسمت  command  نوشته :

Private Sub Command1_Click

Dim A, B, C, D, x1, x2 As Single

A = Val(Text1)

B = Val(Text2)

C = Val(Text3)

D = B ^ 2 - 4 * A * C

If D > 0 Then

x1 = (-B + D ^ 0.5) / (2 * A)

x1 = (-B - D ^ 0.5) / (2 * A)

ElseIf D = 0 Then

x1 = -B / (2 * A)

x2 = x1

Else

MsgBox ("ضرایب معادله اشتباه وارد شده است", , "")

Exit Sub

End If

Text4 = x1

Text5 = x2

End Sub

_____________________________________________________________________________________
سوال 7 از فصل 3

حل:لازم است تک تک ارقام عدد چهار رقمی را از هم جدا کرده و سپس با مقلوب بودن آنرا تعیین کند.

 در قسمت  form-Load  نوشته :

Private Sub Form_Load

Dim M1, M2, M3, M4 As Byte, N As Integer

N = InputBox(" وارد کند یک عدد 4 رقمی:", "")

M1 = N Mod 10

N = N 10

M2 = N Mod 10

N = N 10

M3 = N Mod 10

N = N 10

M4 = N

If M1 = M4 And M2 = M3 Then

MsgBox "Yes", , "Reverse Number"

Else

MsgBox "No", , "Reverse Number"

End If

End Sub

___________________________________________________________________________________

سوال 8 از فصل3

۸- برنامه ای بنویسید که عددی از ورودی به عنوان ثانیه گرفته و ساعت و دقیقه و ثانیه معادل آن را چاپ کند.

* این برنامه احتیاج به یک Command و چهار عدد textboxاست.

در قسمتGeneral نوشته:

Dim n, m, h, s As Integer

در قسمت command اجرا نوشته :

Dim n, m, h, s As Integer

Private Sub Command1_Click

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Exit Sub

n = Val(Text1)

h = n 3600

n=n mod 3600

m = n 60

s = n Mod 60

Text2 = h

Text3 = m

Text4 = s

End Sub


__________________________________________________________________________________
سوال 9 از فصل 3

۹- یک بانک به سپرده های مشتریان خود سود می پردازد . و این عمل را بر اساس فرمول زیر انجام میدهد.

I=V*(1+RN)^N*t ) -۷

 این برنامه احتیاج بهtextbox و چهار عدد Command*دارد.

زمان .Tتعداد دفعاتی که در سال سود مپردازد وN= نرخ سود در یکسال ،R=سرمایه اولیه = V، I=سود

حل:لازم است تک تک ارقام عدد چهار رقمی را از هم جدا کرده و سپس با مقلوب بودن آنرا تعیین کند.

 در قسمتcommand اجرا نوشته :

Private Sub Command1_Click

Dim dv As Double, dr As Double, nt As Integer, dl As Double

dv = Val(Text2)

dr = Val(Text3) / 100

Command1.Visible = True

Shape2.Visible = True

Text1.Visible = True

Label1.Visible = True

nt = Val(Text1)

dl = dv * (1 + dr / 12) ^ nt - dv

Text1 = dl

End Sub

__________________________________________________________________________________
سوال 10 از فصل 3

۱0- برنامه ای بنویسید که 4 عدد از ورودی بگیرد و پیغام مناسبی چاپ کند.

 این برنامه احتیاج به textbox و پنج عدد Command*دارد.

در قسمت command اجرا نوشته :

Private Sub Command1_Click

Dim A As Integer, B As Integer, C As Integer, D As Integer, X As Integer

X = 0

A = Val(Text1)

B = Val(Text2)

C = Val(Text3)

D = Val(Text4)

If A = B Then X = X + 1

If A = C Then X = X + 1

If A = D Then X = X + 1

If B = C Then X = X + 1

If B = D Then X = X + 1

If C = D Then X = X + 1

End Sub


|
امتیاز مطلب : 0
|
تعداد امتیازدهندگان : 0
|
مجموع امتیاز : 0
تاریخ : پنج‌شنبه 25 خرداد 1391
نویسنده : hamidrezakhouri
سوال 1 از فصل 2

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 از فصل 2

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

 

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

 

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

 

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

 

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

_________________________________________________________________________________
سوال 3 از فصل 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 از فصل 2

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از فصل 2

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

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

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

Private sub cmdExit_Click()

End

End Sub

_____________________________________________________________________________________
سوال 6 از فصل 2

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 از فصل 2

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 از فصل 2

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 از فصل 2

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

______________________________________________________________________________________
سوال 10 از فصل 2

10-برنامه ای بنویسید که شعاع قاعده و ارتفاع یک استوانه را دریافت وومساحت جانی،مساحت کل و حجم استوانه را چاپ کند.

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

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

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

 

Priveate sub cmd run _ click()

Dim sngR,sngH,sngS1,sngS,sngST,sngV,sngP as single

sngH=inputbox("Enter Height")

sngR=inputbox("Enter Rdius")

sngP=2*3.14*sngR

sngS1=3.14*sngR^2

sngS=sngP*sngH

sngST=sngS+2*sngS1

print"S=";sngS

print"ST=";sngSt

print"V=";sngV

End Sub

Private sub cmdExit_Click()

End

End Sub
|
امتیاز مطلب : 0
|
تعداد امتیازدهندگان : 0
|
مجموع امتیاز : 0
تاریخ : پنج‌شنبه 25 خرداد 1391
نویسنده : hamidrezakhouri
سوال 5 از فصل 1

1-شروع

2-وجوه مخرن را بگیر  * 2 * 14159/ 3 *  4000

3-شعاع رابگیر

5-ارتفاع را بگیر

6-قاعده ی فوقانی را بگیر * 14159/3 * شعاع (توان) ^ 2 * 400

7- وجوه مخزن + قاعده ی فوقانی +2000

8-نتیجه را چاپ کن

_______________________________________________________________________
سوال 4 از فصل 1

1-تعداد کنسروها را گیر

2-نوع کنسرو را بگیر

3-اگر کنسرو 1بود تعداد کنسرو ها * 2400

4-اگر کنسرو 2بود تعداد کنسروها * 3500

5-اگر کنسرو 3بود تعداد کنسروها * 800

6-اگر کنسرو بود 4تعداد کنسروها * 4500

7- نتیجه را چاپ کن

______________________________________________________________________
سوال 3 از فصل 1

1-شروع

2- شعا ع  را بگیر^3 * 14159/3

3- (توان)^2*14159/3

4-نتیجه را چاپ کن

_______________________________________________________________________
سوال 2 از فصل 1

1-شروع

2-سطح زیرین را بگیر

3-سطح جانبی را بگیر

4-سطح زیرین وجانبی *   1000 * 4

5- سطوح فوقانی * 1600

6-سطوح زیرین و جانبی +سطوح فوغا

7-نتیجه را چاپ کن

_______________________________________________________________________

 

سوال1از فصل 1

1-شروع

2-طول را بگیر

3-عرض را بگیر

4-ارتفاع را بگیر

5-طول * عرض * ارتفاع

6-نتیجه را چاپ کن


|
امتیاز مطلب : 0
|
تعداد امتیازدهندگان : 0
|
مجموع امتیاز : 0
تاریخ : چهارشنبه 24 خرداد 1391
نویسنده : hamidrezakhouri

 

زبان تخصصی شهرستان بم طراح : اسماعیل دریجانی

ردیف

شرح سوال

بارم

1         

معنی لغات زیر را بنویسید.

interact:                                             design:

device:                                                peripherals:

configuration:                                    components:

storage capacity:                                optical disk:

develop:                                              resources:

5

2         

جملات زیر را به فارسی ترجمه کنید.

they can hold much more data and spin athigher speed. (0.5)

Information is processed and stored in computers as electrical signals. (0.75)

A computer can replace people in dull, routine tasks, but it has no creativity. (0.75)

Computers store information about the amount of money held byeach client. (0.75)

A mouse allows you to control the curser and move around the screenvery quickly. (0.75)

An operating system is a set of programsthat lies between applications software and the computer hardware. (0.75)

The way the physical units of a computer systemare put together is generally known as the configuration.(0.75)

5

 

3   

جملات درست را با true و جملات نادرست را با false مشخص کنید.

. . . . A computer can make any type of decision by itself.

. . . . Human beings can work much faster than computers if theywant to.

. . . . The speed of the microprocessor is measured in gigahertz ormegahertz.

. . . . “Permanent” storage of information is provided by RAM.

. . . . Hard drives are faster than floppy drives.

. . . . Removable cartridges are not transportable.

1.5

4   

مورد استفاده اصطلاحات ستون A را در ستون B بیابید.

. . . . store                                 a. suitable

. . . . connected                         b. the visual display unit.

. . . . appropriate                      c. keep, save

. . . . monitor                            d. display the output from acomputer on a screen.

. . . . formatting                       e.a catalog of where each piece of datais stored and . . . . . allow                             how to find it

. . . . directory                          f. belonging to a person

. . . . personal                          g. permit

                                                  h. setting tracks and sectors onmagnetic disks

2

5   

کلمات زیر را در جاهای خالی جایگزین نمائید.

byte                                flexible                           mechanical

cycle                               data                                CPU

 

Floppy disks are so called because they consist of . . . . . . . . . . . . . plastic material.

A collection of eight bits is called a . . . . . . . . . .

Instructions needed by the . . . . . . . . . . . are stored in theROM section.

In airplanes, monitors display . . . . . . . . . . . about fuel consumption.

The hardware components are the electronic and . . . . . . . . . . . . . . parts of the system.

A megahertz is equivalent to 1,000,000 . . . . . . . . . . . . . . persecond.

3

6    

به جملات زیر به انگلیسی پاسخ دهید.

What does PC stands for? (0.5)

What is the Software? (1)

Write differences between Desktop PC and Potable PC. (1)

Write Two input device and two output device. (1)

 

3.5

 


 

زبان تخصصی شهرستان بم

ردیف

معنی لغات زیررا بنویسید.

1:real time

2:interact

3:por

4:multitasking                                                                                                                

5:optical disk

6:component

7:oprating system

8:interface

9:command                                                                                                                    

10:resource

ردیفB)

مترادف اصطلاحات ستون Aرادرستون Bبیابید(یک مورد در ستون Bاضافی است)

B                                                     A        

a-automatic                                                  

b-result produced by  computer                

11-self-acting                                          c-task

12-job                                                       d-a catalog of where each piece of  data 

         13-formating                                          e-setting tracks and sectors on magnetic disk

14-carry out                                             f-do

15-directory                                             g-for example

16-allow                                                    h-make able

17-microchip                                            i-permit

18-e.g.

ردیف c)

جملات درست را باtrue وجملات نادرست را با false معین کنید

19-the cpu a software component of the computer.

20-hard disk consist of flexible plastic material.

21-palmtops  are a type of portable computers .

22-when you delete files,they go to the recycle bin.

23-hardware can work without software .

24-permanent  storage  of information is provided by Ram.

ردیف (D

کلمات مناسب را درجاهای خالی جایگزین کنید(یک کلمه اضافه است)

(Fle xible-modem-software-intract-brain-notation-binary)

25-pcs can be used to …………….  with other computers and people.

26-programs with can be used on a  particular computer system are called……………

27-Floppy disk are so called because they consist of……………plastic.

28-It can be said that the cpu is the ………………of the computer .

29-the only way computers can understand any thing is using

Binary……………….

30-bits are is and os;in other words ,they are ………………….digits.

ردیف E)

گزینه مناسب را انتخاب کنید.

31-what operating system can be modified its underlying source code?

a)Novell                   b)Linux                     c)windows Xp                    d)vista

32-computer can replace people in routine tasks,but they have no………….

a)portable               b)creativity             c)permanent                     d)reliable

33-wich one of the following pcs is portable?

a)desktop                 b)main frames       c)micro computer            d)notebook

34-the ………….section is for storing data and programs permanently.

a)Rom                       b)Ram                      c)cpu                                   d)disk drive

35-what is called the information in the form of data and program?

a)software               b)hardware            c)algorithm                         d)procedure

36-you can store and retrieve information form hard disk much……….than with floppies.

a)longer                    b)slower                   c)faster                               d)lighter

37-computers give …………..information in important competitions.

a)real-time               b)data                      c)access                              d)chip

38-the data wich is presented to the computer is called………….

a)monitor                b)input                        c)output                         d)port

39-……………is used to control the curser.

a)mouse                  b)clock                         c)cpu                              d)Rom

40-a word-processing feature wich corrects by itself:……………

a)binary                   b)auto correction      c)bidirectional              d)multi-user

ردیف f)

به سوالات زیر با جملات انگلیسی پاسخ دهید.

41-what does  VCR stand for?

42-why are GUTs like the macintosh and Microsoft windows so successful?

43-what does the abbreviation"GUI"stand for?

44-what is the name of physical units attached to the computer?

ترجمه کنید

 45-an operating system is a set of programs that lies                  between  application software and the computer hardware.

 46- position the keyboard at the same height as your elbows.

47-there are two main type of software:application software  And system software.

   48-much of the work of an oprating system is hidden from       the user.

    49-when you want to delet a word or text,you can highlight  It first with the mouse.

    50-i have never played computer game.

 


 

زبان تخصصی شهرستان بم طراح: اسماعیل پور

بارم

شرح سوال

ردیف

3

معنی لغات زیر را بنویسید. (هر لغت 25/0 نمره )

Client                                             Configuration                                  Random

Aspect                                            Petroleum                                        Surface

Creativity                                      Supervises                                       Digital

Magazine                                      Arrangement                                   Portable

A

6

کلمات مناسب را در جای خالی جایگزین کنید . (هر پاسخ صحیح1 نمره )

Peripherals  -   mechanical  –  input  -   filin   -   brain   – access

1. With the help of computers, you can easily …………………………the Internet.

2. A computer can be used as an electronic ……….............. cabinet which manages large collections of data .

3. The most common ……………. Devices are the mouse and the keyboard .

4. It can be said that the cpu is the ………………. of the computer.

5. The hardware components are the electronic and …………………. Parts of the system.

6. The physical units attached to the computer are called the ………………………….

 

B

3

مترادف اصطلاحات ستون A را در ستون B مشخص کنید .

Column AColumn B

1.  …… solution                                                                              a. belonging to a person

2. ……. dull                                                                                    b. permit        

3. ……..task                                                                                   c. very small chip

4. ……..allow                                                                                 d. answer

5. ……..microchip                                                                         e. boring

6. ……..personal                                                                           f. job

C

5/2

کلمات کامل هر یک از مخخف های زیر را بنویسید .

TV …………………………..                                      VCR …………………………

ROM ……………………….                                       CPU…………………………..

D

5/0

جملات درست را با TRUE و جملات غلط را با False معین کنید .

1. …….. Permanent storage of information is provided by RAM

2. …….. Computer can make any type of decision by itself .

E

5

جملات زیر را به فارسی ترجمه کنید .

1. Computers can help students perform mathematical operations and solve difficult problems.

2. We are an international company , and we have offices all over the world .

3. Computers are electronic machines can accept data in a certain form .

4. Mainframes are also large and powerful , but not as large and powerful as supercomputer.

5. Output devices allow us to extract the result from the computer .

F

 


 

زبان تخصصی شهرستان بم

 

 

5/2

 

معنی لغات واصطلاحات زیر را بنویسید.

1.peripherals          2.storage device       3.application            4.secure           5.interface

……………..           ………………..        ………………          ………….       …………….

6.fire wall                7.reliable                  8.binery notation     9.chip              10.portable

…………….                   ………………….             ……………………         ……….                  ……………..

A

 

 

 

 

 

2

 

 

 

 

مترادف اصطلاحات ستون    را در ستون     بیابید. ( یک مورد در ستون     اضافی است.)

   A                                                                                   B

………………                                                                ………………

11.store                                                             a. linked

12.information                                                 b. self  acting

12.carry out                                                      c. keep, save

14.formatting                                                   d. computer software or computer used

                                                                             for writing                                                   

15.RAM                                                            e. hold data read or written to it by

                                                                             the process

16. connected                                                    f. setting tracks and sectors on magnetic disks

                                                                            g. do

 

B

 

 

 

 

 

3

جملات درست را با             ونادرست را با                  مشخص کنید.

17. computrs are divided into different types depending on thire size and power.

18.permanent  storage  of information is provid  by RAM.

19. application software is a software interface between the hardware and the operating  system.

20. floppy disks can hold much more data and spin  a higher speed then hard disks.

21. removable cartridge are not transportable.

22. RAM and ROM and secondary storage devices are  component of the

 main memory.

23. multi tasking mean doing a number of tasks at the same time.

24. the application software  is the most important  type of system soft ware.

C

 

 

 

3

کلمه مناسب را در جاهای خالی جایگزین کنید.

Brain   -  ROM – function – memorize  - hard ware  -  peripherals.

25. user interface are easy to use there are is  no need to ……………complex commands any more.

26. one of the important………….of a computer is the process large amount of data quickly.

27. we can say the central processing unit is  the ………….of the computer.

28. the physical units attached to the computer  are called the ……………

29the…………. Section is for storing data and programs permanently.

30………… physical parts that make up a computer system.

D

 

 

 

 

 

 

 

 

 

 

 

 

5/2

گزینه مناسب را انتخاب کنید.

31.Bits are 1s and 0s in the words .they are …………….digits.

a) Byte             b) notation             c) binary            d) standard

32.if you want to convert a square into a rectangle . you ……………..one corner and stretch it into a rectangle.

a) select            b) grab                    c) drag                d) move

33) the …………….is the  most  important  type of system soft ware.

a) soft ware       b) system software        c) operating system    d)application software

34. the meaning of prefix  bi – in computer scince is :

a) two             b) one             c) small        d) many

35. super computers  are ………….and………….than  main frames.

a)      large – faster                     c) lighter - slower    

b)     smaller – slowe r                d) slower – lighter

E

 

3

به سوالات زیر به طور کامل با جملات انگلیسی  پاسخ دهید.

36.What do OS and RAM?

37. what is a hard ware?

F

 

 

4

 

 

جملات زیر را به فارسی ترجمه کنید.

38. the way the physhcal units of a computer system are put together is generally known as the configoration.

39. most computers use a standard system for the binery  representation  of  characters.

40. the surface of a disk is divided into concentrice circles or “tracks” which are then divided into “sector”.

41. these interface have been so  successful  they are easy to use.

G

 


 

زبان تخصصی استان مازندران

A       معنی اصطلاحات زیر را بنویسید ( هر مورد 25/0 نمره )                                                               3

       1. solve                                            5. installation                            9. occupy

       2. configuration                              6. high_quality                        10. revolutionize

       3. execute                                       7. flexible                                 11. emit

       4. resident                                      8. compatible                           12. Utility

 

 Bاصطلاحات زیر مخفف چه کلماتی هستند ؟ ( هر مورد 75/0 نمره )                                             5/1

       13. ROM                                                                         14. GUI 

  Cکلمات مناسب را انتخاب نموده و جایگزین نمایید. یک کلمه اضافی است. ( هر مورد 25/0 نمره )                          2

directory , permanently ,hidden ,decimal , instruction , Explorer ,binary, manipulate ,user defined

             15. A computer works according to the ………………..given to it.

       16. Word processors ………………..words and text on a screen to print later.

       17. Much of the work of an operating system is …………….from the user.

       18. A  ………………is a catalog of where each piece of data is stored and how to  find it.

       19. Any part of the program can be protected by …………………….password.

       20. The ………….system is the system in which the 10 digits 0 to 9 are used.

       21.By the Internet ……………..you can surf the web.

       22. To delete the file ……………., you can empty the recycle bin.

D       جملات درست را با True و جملات نادرست را با False معین نمایید. (هر مورد 5/0 نمره)                              4

23. A computer can make any type of decision by itself.

       24. laptops are the smallest computers.

 25. System utilities are small programs which reduce a system's performance.

       26. ''temporary'' storage of information is provided by RAM.

 27. A computer database is faster to use than a card index system.

       28. hard disks are rigid rotating disks.

       29. Hardware can work without software.

       30. Windows xp have been replaced by windows 98.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

|
امتیاز مطلب : 0
|
تعداد امتیازدهندگان : 0
|
مجموع امتیاز : 0
تاریخ : چهارشنبه 24 خرداد 1391
نویسنده : hamidrezakhouri

 

سخت افزار– طراح استان کرمان– طراح خانم مهدیه السادات حسینی پور

1- مهمترین شاخص در انتخاب منبع تغذیه کدام است؟

1)ولت                    2 )وات                 3)آمپر                               4)ولتاژ

2- کدام سیگنال سیستم را وادار به راه اندازی مجدد می کند؟

1SB(       2 PS-ON(                    3PW-OK(                     4Stand by(

3- کاربرد حافظه نهان سطح سه (3L)چیست؟

1)برای نگهداری دستور العمل ها                           2)برای نگهداری داده ها

3)برای نگهداری داده هاودستورالعمل ها                 4)برای نگهداری کد برنامه اجرایی

4- کدام کانکتور برای تأمین برق برداصلی است؟

1 )4  ATX P       2 )  EATX           3 ) molex              4 )ATX Main

5 - ............وسیله ای که برق را در خود ذخیره می کند وبا قطع برق به طور اتوماتیک در مدار قرار می گیرد .

1 ) UPS          2 ) online            3 ) off line              4 ) power

6- اطلاعات ........... در حافظه نهان ذخیره می شوند.

1 ) دائمی          2 )موقت            3 ) اخیر استفاده شده         4 ) تصادفی

7- حافظه نهانی که برای انتقال داده بین RAM وپردازنده استفاده می شود ..... نام دارد.

1 )   disk cache   2 ) ram cache     3 )  cache disk   4 )  rom cache

8- کدام یک از ویژگیهای منبع تغذیه نوع ATX نمی باشد؟

1) در این نوع منبع  تغذیه جریان هوا از داخل کیس مکیده می شود.

2) رابط منبع به برد اصلی دارای ولتاژ3/3 ولت می باشد.

3) یک تنظیم کننده ولتاژ روی برد اصلی قرار می گیرد.

4) جریان هوا از قسمت عقب منبع تغذیه به خارج هدایت می شود.

9- اندازه ی گذرگاه داده نشان دهنده ...........................پردازنده برای انتقال داده می باشد.

1) مقدار حافظه        2) سرعت دسترسی به حافظه      3) قدرت وتوانایی   4) همه موارد

 

10- گذرگاهی که پردازنده را به حافظه نهان L2 پیوند می دهد چه نام دارد؟

1) FSB              2) BSB                                3) BBS               4) FBS

11- برای گذرگاه آدرس 32 بیتی ، امکان دسترسی به .........................محل حافظه وجود خواهد داشت.

1) 25                2) 232                                 3) 4 گیگا بایت       4) موارد 3و2

12- در کدام روش انتقال اطلاعات، از دستگاههای مختلف به پردازنده ، وسایل جانبی کنترل گذرگاه سیستم را برای دسترسی مستقیم به حافظه در اختیار می گیرند؟

1) polling          2) programmed I/O            3) DMA             4) Interrupt

13- واحد اندازه گیری سرعت ساعت داخلی کدام است؟

1) مگا هرتز        2) کیلو بایت                            3) بایت                 4) کیلو بایت در ثانیه

14- در کدام فناوری های ساخت پردازنده  چندین پردازشگر به طور جداگانه با یکدیگر در یک برد اصلی کار می کنند؟

1) فناوری چند هسته ای       2) فناوری SMP     3) فناوری thread        4) فناوری hyperthreading

15- معایب پردازنده های دو هسته ای کدام است ؟

1) پهنای باند ثابت ، گرمای بیشتر                             2) مصرف بالا ، پهنای باند ثابت

3) تأخیر در کار سیستم عامل ، گرمای بیشتر             4) تأخیر در کار سیستم عامل ،  پهنای باند ثابت

16- کانکتوری که ارتباط بین برد اصلی وپردازنده را برقرار می کند کدام است؟

1) SOCKET          2) SATA              3) BERG                 4) MOLEX

17- کانکتور ............ برای تأمین برق خنک کننده های سیستم استفاده می شود.

1) atxp4        2) Molex          3) sata          4) Berg

18- کدام سیگنال خروجی منبع تغذیه سبز رنگ بوده وخطوط 3/3 _+ ، 5_+ و12_+ ولتی را تحت تأثیر قرا ر می دهد.

1) ps-on            2)SB                3) pw-ok          4) pw-on

19- کدام نوع پردازنده به مقدار حافظه نهان وتعداد هسته ها به منظور بهبود کارایی سستم توجه دارد ؟

1) core2qua     2) conroe                  3) core2duo          4) core2solo

20- اولین پردازنده 64 بیتی شرکت AMD  کدام مدل بود ؟

1) opteron    2) Athlon 64              3) Barton               4) Sempron

21- IC  که روی برد اصلی قرار دارد و واسط بین سخت افزار ونرم افزار است کدام است؟

1) RAM BIOS                2) POST                  3) Bootstrop loader   4) ROM BIOS

22- تراشه ای که روی برد اصلی قرار دارد و مسؤول برقراری ارتباط بین پردازنده با حافظه و وسایل جانبی است چه نام دارد؟

1) southbridge 2) Northbridge      3) Raidbridge         4) گزینه های الف وب

23- کدام گزینه انواع درگاه ها را عنوان می کند؟

1) COM,LPT,CONTROL,USB  2)USB,FIREWIRE,DATA,LPT

3) COM,LPT, USB,FIREWIRE      4) COM,LPT, USB,ADDRESS

24- حداکثر طول کابل USB کدام است؟

1) m5              2) m5/1       3) m12             4) m2

25- دستگاه هایی که از درگاه سری وموازی استفاده می کنند برای انتقال به پردازنده از چه تراشه ای استفاده می کنند؟

1) southbridge   2)super I/O            3) Northbridge      4) PCI

26- کدام گذرگاه از خاصیت ارتباط نظیر به نظیر استفاده می کند؟

1)AGP              2) PCI                      3) PCI-X          4) PCI-E

27- گذرگاه PCI چند دستگاه را در یک زمان تحت پوشش قرار می دهد؟

1) 5 دستگاه                                        2) 7 دستگاه

3)6 دستگاه                                         4) 3 دستگاه

28- کدام گزینه از کارهای بایاس نمی باشد؟

1) مدیریت توان دستگاهها

2)اجرای برنامه Post به منظور اطمینان از صحت عملکرد اجزای سخت افزار

3) تشخیص درایو راه انداز سیستم

4) مدیریت برنامه های کاربردی

29- ترتیب عمومی تست دستگاه های زیر به وسیله برنامه Post کدام است ؟

1) تولید کننده پالس ساعت ،پردازنده ، حافظه های نهان ، چیپ ست ،حافظه سیستم ، دستگاه های استفاده کننده از گذرگاه PCI  ، کنترلر گرافیک

2) دستگاه های استفاده کننده از گذرگاه PCI  ، حافظه های نهان ، چیپ ست ،حافظه سیستم ، تولید کننده پالس ساعت ،پردازنده ، کنترلر گرافیک

3) تولید کننده پالس ساعت ،پردازنده ، حافظه های نهان ، دستگاه های استفاده کننده از گذرگاه PCI  ، کنترلر گرافیک، چیپ ست ،حافظه سیستم

4) حافظه های نهان ، چیپ ست ،حافظه سیستم ، دستگاه های استفاده کننده از گذرگاه PCI  ، تولید کننده پالس ساعت ، کنترلر گرافیک

30- وسیله ای که در یکی از اسلات های توسعه قرار گرفته وبا روشن وخاموش شده لامپ هایش نشان می دهد که چه وسیله ای مشکل دارد .............. نام دارد.

1) Bootstrap                                     2) Post Card

3) Post LED                                      4) Post

31- انواع حافظه را بر اساس نحوه نگهداری اطلاعات نام ببرید؟

1) فرار وغیر فرار                                  2) SAM , RAM

3) Volatile , Nonvolatile                       4) گزینه های  1و 2 صحیح می باشد        

32- تراشه های حافظه از طریق کارت هایی که ................... نامیده می شوند قابل دستیابی واستفاده می باشند.

1) سوکت                                          2) ماژول

3) DDR                                              4) SPD

33- اصلی ترین مکان برای ذخیره سازی داده ها در کامپیوتر های شخصی چه نام دارد؟

1) zip Disks                                         2) flash

3) دیسک سخت                                    4) فلاپی

34- گذرگاه های PCI-x  و PCI-E  هر کدام به ترتیب از راست به چپ چند بیتی هستند؟

1) 64و32                                             2) 64و64

3) 32و32                                              4) 128و128

35- تراشه EEPROM کوچکی به نام ............. روی حافظه قرار دارد که این تراشه تمام پارامترهای حافظه مانند سرعت و... را در خود نگه میدارد.

1)SPD                                                  2) SPROM

3)SDRAM                                              4) SDROM

36- جنس پلاتر ها ودیسک های سخت از چه چیزی است؟

1) شیشه ای یا آلومینیومی                        2)مغناطیس

3) مواد رسانه ای                                     4)پلاستیک

37- کل فضای ذخیره سازی دیسک سخت چگونه محاسبه می شود؟

1) 128*sectors*tracks*sides

2) 512*sectors*tracks*sides

3) 512*sectors*tracks*cylinder

4) 128*sectors*tracks* cylinder

38- برای پیوستگی سیگنال در یک کابل ریبونی حداکثر فاصله بین کانکتورهای اول (یک سرکابل) ودوم(میانی) وبین کانکتورهای دوم(میانی) و سوم (سردیگرکابل) به ترتیب از راست به چپ کدام است؟

1)18و12 اینچ                                          2)12و18 اینچ

3) 12و6 اینچ                                           4) 6و12 اینچ

39- کدام مورد از مزایای تکنولوژی RAID است؟

1) قابلیت حذف یا اضافه کردن یک دستگاه در حال کار بدون نیاز با راه اندازی مجدد

2) قابلیت دریافت بیش از یک درخواست در لحظه وقرار دادن آن در صف

3) بازدهی بالا

4) بالا بردن قابلیت اطمینان وامنیت اطلاعات

40- طول عمر دیسک های نوری چند برابر دیسک های مغناطیسی است؟

1) 2 برابر                                             2) 3 برابر

3) 4 برابر                                             4)ازنظر طول عمرفرقی با هم ندارند.

41- در کدام نوع دیسک امکان ضبط وپخش هم زمان داده وجود دارد؟

1) CD                                                2) DVD - ROM

3) DVD - RAM                                     4) Blu-ray

42- دلیل اینکه DVD اطلاعات بیشتری را می تواند بخواند کدام است؟

1) طول موج لیزر در CD  کم تر از طول موج آن در DVD است.

2) طول موج لیزر در DVD  کم تر از طول موج آن در CD است.

3) اساس کار DVD تاباندن اشعه لیزر روی صفحه دیسک است.

4) درCD  از لیزر آبی به جای لیزر قرمز استفاده می شود.

43- وظیفه معماری ...............  هماهنگ کردن سرعت انتقال اطلاعات در قسمت پهنای باند حافظه وFSB سیستم است.

1) Rambus                        2) double channel

3) BUS CHANNEL                                                             4) Dual channel

44- برای آدرس دهی محل خاصی در دیسک سخت از مد آدرس دهی ............می توان استفاده کرد.

1) CHS                           2) DHC

3)LBA                            4) ECHS

45- کارتی که اطلاعات دیجیتال تولید شده توسط رایانه را گرفته وآنها را به اطلاعات قابل مشاهده توسط انسان تبدیل می کند چه نام دارد؟

1) کارت صدا                      2) کارت ویدئو

3) کارت TV                       4) کارت شبکه 

46- جدیدترین حافظه های دو درگاهی که بطور اختصاصی برای محیط سیستم عامل گرافیکی ویندوز طراحی شده است ،کدام است؟

1) VRAM                          2) DRAM

3) WRAM                         4) WROM

47- کدام استاندارد سیگنال های دیجیتال را مستقیماً برای صفحه نمایش ارسال می کند.

1) DVI                                                                                  2) VGA

3) AGP                                                                                 4) PCI

48- با استفاده از کدام فناوری ها در ارتباط با کارت گرافیک می توان تصاویر سه بعدی زیبا وجذابی خلق کرد؟

1) DirectX, SLI                                                                   2) open GL, CROSS FIRE

3) DirectX,open GL                   4) CROSS FIRE, SLI

49- پردازنده ای که صوت های مختلف را از منابع مختلف وبه طور هم زمان پخش می کند چه نام دارد؟

1) مونوفونیک                     2) استریوفونیک

3) تک کاناله                     4) الف وج صحیح می باشند

50- کدام آداپتور ویژگی بیدار سازی رایانه از راه دور را پشتیبانی می کند؟

1) مودم                          2) گرافیک

3) شبکه                          4) ویدئو

51- فناوری Rubber Dome  در کدام سخت افزار زیر استفاده می شود؟

1) صفحه کلید                     2) ماوس

3) صفحه نمایش                    4) مودم

52- طول کابل SATA و IDE به ترتیب راست به چپ کدام است؟

1) cm46 وm1                        2) m1 و cm 46

3) cm46 وm10                        4) m1 و cm 460

53- کدام نوع صفحه نمایش رنگ ها را واقعی تر نمایش می دهد؟

1) LCD                             2) VGA

3) LED                             4) CRT

54- در مرحله خواب یا تعلیق سیستم صفحه نمایش چند وات انرژی مصرف می کند؟

1) 10 تا 15 وات                  2) 3 وات

3) 7 وات                        4) حداقل 15 وات

55- بهترین زاویه دید در صفحه نمایش های LCD هفده اینچ ویا بالاتر چند درجه است ؟

1) 120 درجه                           2) 180درجه

3) 150 تا 170درجه                      4) 120تا 150 درجه

56- واحد اندازه گیری سرعت چاپ چاپگرها کدام است؟

1) dpi                           2) ppm

3) dpm                          4) dri

57- برای اتصال چاپگر از کدام درگاه ها از گذشته تا کنون استفاده می شود؟

1) USB                          2) موازی

3) SCSI                                    4) همه موارد

58- کدام چاپگر از مزایای وضوح بالاتر ،هزینه چاپ کمتر وسرعت چاپ بالاتر برخوردار است؟

1) سوزنی                        2) جوهر افشان

3) لیزری                        4) ماتریسی

59- کدام گزینه مدل های پردازنده های اینتل Core2 است؟

1) Extereme , quad , Conroe       2) Quad , Duo , Solo

3) Opteron , Quad , Athlon        4) Duo , Meron , Solo

60-کدام دستگاه زیر از Super I/O برای اتصال به پردازنده استفاده می کند؟

1) صفحه کلید    ، ماوس                     2) چاپگر

3) همه دستگاههایی که از درگاه سری وموازی استفاده می کنند

4) همه موارد صحیح است

61- با ضعیف شدن باتری اطلاعات کدام حافظه از بین می رود؟

1)CMOS RAM                 2) CMOS ROM

3) ROM                          4) موارد ب و ج صحیح است.

62- برد مداری کوچکی که نحوه دستیابی وذخیره داده ها روی دستگاه های ذخیره سازی را تعیین می کند چه نام دارد؟

1) بافر                               2) کنترلر دیسک

3) موتور دوکی شکل                     4) استپ موتور

63- در صفحه نمایش CRT لرزش تصویر چه زمانی رخ می دهد وهمچنین چه زمانی تصویر شبح گونی ظاهر می شود؟

1) زمانی که پایداری بسیار پایین باشد لرزش تصویر وزمانی که پایداری بسیار بالا باشد تصویر شبح گونی ظاهر می شود.

2) زمانی که پایداری بسیار بالا باشد لرزش تصویر وزمانی که پایداری بسیار پایین باشد تصویر شبح گونی ظاهر می شود.

3) زمانی که پایداری بسیار بالا باشد لرزش تصویر وتصویر شبح گونی ظاهر می شود.

4) زمانی که پایداری بسیار پایین باشد لرزش تصویر و تصویر شبح گونی ظاهر می شود.

64- در زمان مونتاژ سیستم برای تخلیه الکتریسیته ساکن از کدام وسایل زیر می توان استفاده کرد؟

1) دستبند                       2) نوار

3) دست کش                  4) همه موارد صحیح است.

65- بهترین راه برای تنظیم جامپرها کدام است؟

1)بردن سیستم نزد متخصص          2) امتحان کردن حالتهای مختلف جامپر

3) مطالعه کتابچه برد اصلی             4) همه موارد صحیح است.

66- برق خنک کننده پردازنده از کجا تأمین می شود؟

1) مستقیماً از منبع تغذیه              2) از برق برد اصلی

3) از برق پردازنده                    4) از برق هارد دیسک

67- دلیل استفاده از جدا کننده ها در اتصال بین برد اصلی وکیس کدام است ؟

1) برای محکم کردن کیس در جایش  2) برای بستن پشت کیس

3) برای اینکه اتصال کوتاه بین برد اصلی و کیس ایجاد نشود.

4) برای اینکه برد اصلی راحتتر در جایش قرار گیرد.

68- در اغلب سیستم ها برای فعال شدن برنامه Setup از کدام کلیدها می توان استفاده کرد؟

1) ctrl-Alt-Esc                     2) Ctrl-Esc

3) Del یا F2                           4) همه موارد صحیح است.

69- کدام برنامه وضعیت سلامتی دیسک سخت را گزارش می دهد؟

1) Sandra                         2) v2.30Dead pixel Tester

3) GPU-z                         4) HD Tune

70- اگر لرزش صفحه نمایش به شکل جابجایی مکانی جزیی تصویر باشد، ..................نامیده می شود.

1) Jitter                          2) Flicker

3) Gitter                         4) Refresh rate

پاسخ آزمون

1- گزینه 2 صحیح است.

مهمترین شاخص منبع تغذیه میزان وات آن می باشد.

2-  گزینه 3 صحیح است.

اگر مشکلی در منبع تغذیه بوجود آید سیگنال PW-OK فرستاده نمی شود و سیستم را وادار به راه اندازی مجدد می کند.

3 - گزینه 4 صحیح است.

این نوع حافظه بیشتر در پردازنده های جدید،برای نگهداری کد برنامه اجرایی استفاده می شود.

4- گزینه 4 صحیح است.

کانکتور ATX Main برای تأمین برق برداصلی است

5 - گزینه 1 صحیح است.

UPS وسیله ای که برق را در خود ذخیره می کند وبا قطع برق به طور اتوماتیک در مدار قرار می گیرد .

6- گزینه 3 صحیح است.

اطلاعات اخیر استفاده شده در حافظه نهان ذخیره می شوند.

 7- گزینه 2 صحیح است.

حافظه نهان  ram cache برای انتقال داده بین RAM وپردازنده استفاده می شود .

8- گزینه 3 صحیح است.

منبع تغذیه نوع ATX  دارای ولتاژ 3/3 بوده و  نیازی به تنظیم کننده ولتاژ روی برد اصلی ندارد

9- گزینه 3 صحیح است.

اندازه ی گذرگاه داده نشان دهنده قدرت وتوانایی پردازنده برای انتقال داده می باشد.

10- گزینه 2 صحیح است.

گذرگاهی که پردازنده را به حافظه نهان L2 پیوند می دهد BSB نام دارد.

11- گزینه 4 صحیح است.

برای گذرگاه آدرس 32 بیتی ، امکان دسترسی به 232 (4 گیگا بایت) محل حافظه وجود خواهد داشت.

 

12- گزینه 3 صحیح است.

 در روشDMA ، وسایل جانبی کنترل گذرگاه سیستم را برای دسترسی مستقیم به حافظه در اختیار می گیرند.

13- گزینه 1 صحیح است.

واحد اندازه گیری سرعت ساعت داخلی مگا هرتزاست.

14- گزینه 2 صحیح است.

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

15- گزینه 4 صحیح است.

تأخیر در کار سیستم عامل ،  پهنای باند ثابت

16- گزینه 1 صحیح است.

کانکتوری که ارتباط بین برد اصلی وپردازنده را برقرار می کند SOCKET نام دارد.

17- گزینه 2 صحیح است.

کانکتور Molex برای تأمین برق خنک کننده های سیستم استفاده می شود.

18- گزینه 1 صحیح است.

سیم خروجی ps-on  منبع تغذیه سبز رنگ بوده وخطوط 3/3 _+ ، 5_+ و12_+ ولتی را تحت تأثیر قرا ر می دهد.

19- گزینه 3 صحیح است.

پردازنده core2duo به مقدار حافظه نهان وتعداد هسته ها به منظور بهبود کارایی سستم توجه دارد.

20- گزینه 1 صحیح است.

اولین پردازنده 64 بیتی شرکت AMD  مدل opteron بود.

21- گزینه 4 صحیح است.

ROM BIOS روی برد اصلی قرار دارد و واسط بین سخت افزار ونرم افزار است.

22- گزینه 2 صحیح است.  

تراشه ای که روی برد اصلی قرار دارد و مسؤول برقراری ارتباط بین پردازنده با حافظه و وسایل جانبی است Northbridgeنام دارد.

23- گزینه 3 صحیح است.

انواع درگاه :            COM,LPT, USB,FIREWIRE

24- گزینه 1 صحیح است.

حداکثر طول کابل USBm5 است.

25- گزینه 2 صحیح است.

دستگاه هایی که از درگاه سری وموازی استفاده می کنند برای انتقال به پردازنده از تراشه super I/O استفاده می کنند.

26- گزینه 4 صحیح است.

گذرگاه  PCI-E از خاصیت ارتباط نظیر به نظیر استفاده می کند.

27- گزینه 1 صحیح است.

گذرگاه PCI ، 5 دستگاه را در یک زمان تحت پوشش قرار می دهد

28- گزینه 4 صحیح است.

مدیریت برنامه های کاربردی از کارهای بایاس نمی باشد.

29- گزینه 1 صحیح است.

تولید کننده پالس ساعت ،پردازنده ، حافظه های نهان ، چیپ ست ،حافظه سیستم ، دستگاه های استفاده کننده از گذرگاه PCI  ، کنترلر گرافیک

30- گزینه 2 صحیح است.

Post Card وسیله ای است که در یکی از اسلات های توسعه قرار گرفته وبا روشن وخاموش شده لامپ هایش نشان می دهد که چه وسیله ای مشکل دارد .

31- گزینه 4 صحیح است.

انواع حافظه بر اساس نحوه نگهداری اطلاعات عبارتند از:

فرار (Volatile) وغیر فرار(Nonvolatile)

32- گزینه 2 صحیح است.

تراشه های حافظه از طریق کارت هایی که  ماژول نامیده می شوند قابل دستیابی واستفاده می باشند.

33- گزینه 3 صحیح است.

اصلی ترین مکان برای ذخیره سازی داده ها در کامپیوتر های شخصی دیسک سخت نام دارد.

34- گزینه 2 صحیح است.

گذرگاه های PCI-x  و PCI-E  هر کدام 64 بیتی هستند.

35- گزینه 1 صحیح است.

تراشه EEPROM کوچکی به نام SPD روی حافظه قرار دارد که این تراشه تمام پارامترهای حافظه مانند سرعت و... را در خود نگه میدارد.

36- گزینه 1 صحیح است.

جنس پلاتر ها ودیسک های سخت از جنس  شیشه ای یا آلومینیومی است.

37- گزینه 2 صحیح است.

512*sectors*tracks*sides

38- گزینه 1 صحیح است.

برای پیوستگی سیگنال در یک کابل ریبونی حداکثر فاصله بین کانکتورهای اول (یک سرکابل) ودوم(میانی)12اینچ وبین کانکتورهای دوم(میانی) و سوم (سردیگرکابل) 6اینچ است.

39- گزینه 4 صحیح است.

بالا بردن قابلیت اطمینان وامنیت اطلاعات از مزایای تکنولوژی RAID است.

40- گزینه 1 صحیح است.

طول عمر دیسک های نوری 2 برابر دیسک های مغناطیسی است.

41- گزینه 4 صحیح است.

در دیسک Blu-ray امکان ضبط وپخش هم زمان داده وجود دارد.

42- گزینه 2 صحیح است.

طول موج لیزر در DVD  کم تر از طول موج آن در CD است.

43- گزینه 4 صحیح است.

وظیفه معماری Dual channel  هماهنگ کردن سرعت انتقال اطلاعات در قسمت پهنای باند حافظه وFSB سیستم است.

44- گزینه 1 صحیح است.

برای آدرس دهی محل خاصی در دیسک سخت از مد آدرس دهی CHS می توان استفاده کرد.

45- گزینه 2 صحیح است.

کارتی که اطلاعات دیجیتال تولید شده توسط رایانه را گرفته وآنها را به اطلاعات قابل مشاهده توسط انسان تبدیل می کند کارت ویدئو نام دارد.

46- گزینه 3 صحیح است.

جدیدترین حافظه های دو درگاهی که بطور اختصاصی برای محیط سیستم عامل گرافیکی ویندوز طراحی شده است ، WRAMاست.

47- گزینه 1 صحیح است.

استانداردDVI سیگنال های دیجیتال را مستقیماً برای صفحه نمایش ارسال می کند.

48- گزینه 3 صحیح است.

با استفاده از فناوری DirectX,open GL در ارتباط با کارت گرافیک می توان تصاویر سه بعدی زیبا وجذابی خلق کرد.

49- گزینه 2 صحیح است.

پردازنده ای که صوت های مختلف را از منابع مختلف وبه طور هم زمان پخش می کند استریوفونیک نام دارد.

50- گزینه 3 صحیح است.

آداپتور شبکه ویژگی بیدار سازی رایانه از راه دور را پشتیبانی می کند.

51- گزینه 1 صحیح است.

فناوری Rubber Dome  در صفحه کلید استفاده می شود.

52- گزینه 2 صحیح است.

طول کابل SATA می تواند تا m1باشدو IDEcm 46 است.

53- گزینه 4 صحیح است.

صفحه نمایش CRT رنگ ها را واقعی تر نمایش می دهد.

54- گزینه 1 صحیح است.

در مرحله خواب یا تعلیق سیستم صفحه نمایش 10 تا 15 وات انرژی مصرف می کند.

55- گزینه 3 صحیح است.

بهترین زاویه دید در صفحه نمایش های LCD هفده اینچ ویا بالاتر 150 تا 170درجه است .

56- گزینه 2 صحیح است.

واحد اندازه گیری سرعت چاپ چاپگرها ppm است.

57- گزینه 4 صحیح است.

برای اتصال چاپگر از درگاه های USB ، موازی، SCSI از گذشته تا کنون استفاده می شود.

58- گزینه 3 صحیح است.

چاپگر لیزری از مزایای وضوح بالاتر ،هزینه چاپ کمتر وسرعت چاپ بالاتر برخوردار است.

59- گزینه 2 صحیح است.

Quad , Duo , Solo

60- گزینه 4 صحیح است.

دستگاه هایی مانند صفحه کلید، ماوس ، چاپگر و همه دستگاههایی که از درگاه سری وموازی استفاده می کنند از Super I/O برای اتصال به پردازنده استفاده می کند.

 61- گزینه 1 صحیح است.

با ضعیف شدن باتری اطلاعات حافظه CMOS RAM از بین می رود.

62- گزینه 2 صحیح است.

برد مداری کوچکی که نحوه دستیابی وذخیره داده ها روی دستگاه های ذخیره سازی را تعیین می کند کنترلر دیسک نام دارد.

63- گزینه 1 صحیح است.

زمانی که پایداری بسیار پایین باشد لرزش تصویر وزمانی که پایداری بسیار بالا باشد تصویر شبح گونی ظاهر می شود.

64- گزینه 4 صحیح است.

در زمان مونتاژ سیستم برای تخلیه الکتریسیته ساکن از وسایلی  زیر می توان استفاده کرد:

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

65- گزینه 3 صحیح است.

بهترین راه برای تنظیم جامپرها مطالعه کتابچه برد اصلی است.

66- گزینه 2 صحیح است.

برق خنک کننده پردازنده از برق برد اصلی تأمین می شود.

67- گزینه 3 صحیح است.

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

68- گزینه 4 صحیح است.

در اغلب سیستم ها برای فعال شدن برنامه Setup از کلیدهای ctrl-Alt-Esc ، Del یا F2، Ctrl-Escو Esc می توان استفاده کرد.

69-گزینه 4 صحیح است.

 برنامهHD Tune وضعیت سلامتی دیسک سخت را گزارش می دهد

70- گزینه 1 صحیح است.

اگر لرزش صفحه نمایش به شکل جابجایی مکانی جزیی تصویر باشد، Jitter نامیده می شود.

سخت افزار – طراح استان کرمان– طراحان آقای عباس خیرمند سرگروه رفسنجان  و خانم مریم حسنی سعدی سرگروه کرمان

ردیف

سؤالات

1

کدامیک از ولتاژها در منبع تغذیه ایجاد نمی شود

الف) 5  ب) 5-                                                 ج)10                                 د)12

2

توان واقعی یک منبع تغذیه چیست ؟

الف) توان ورودیب)‌توانی که از حاصلضرب تک تک ولتاژها در جریان آنها بدست می آید

ج)‌توانی که روی منبع نوشته شده استد) توان مصرف شده توسط مانیتور را گویند

3

کدام گزینه در مورد کانکتورهای برد اصلی صحیح نیست ؟

الف) کانکتور ATX P4 ، 20 پین دارد و  وظیفهتامین ولتاژ پردازنده و مادربرد را بر عهده دارد.

ب)‌ کانکتورMolex برای دستگاه های ذخیره سازی (مانند دیسک سخت و...) و تامین برق خنک کننده های سیستم استفاده می شود.

ج) کانکتور BERG  برای تامین برق درایو دیسک نرم استفاده می شود.

د) کانکتور   ATX12v 20 پین دارد و برای  خنک کردنCpu بکار می رود

4

چهار مرحله برای اجرای  برنامه های داخل حافظه Ram توسط cpu   بترتیب  از راست به چپ کدام گزینه می باشد ؟

الف) واکشی دستورات(Fetch) - رمز‌گشایی دستورات (Decode)- اجرای دستورات (Excecute)  - – ذخیره نتایج در حافظه (Writeback)

‌ب) واکشی دستورات(Fetch)  - رمز‌گشایی دستورات (Decode) ‌‌- ذخیره نتایج در حافظه (Writeback) - اجرای دستورات (Excecute) -

ج) واکشی دستورات(Fetch) - اجرای دستورات (Excecute)  - رمز‌گشایی دستورات (Decode) - ذخیره نتایج در حافظه (Writeback) -

‌د) واکشی دستورات (Fetch)  - اجرای دستورات (Excecute) - ذخیره نتایج در حافظه (Writeback)- رمز‌گشایی دستورات (Decode)

5

عمل نوشتن نتایج  توسط Cpu  روی کدام حافظه انجام می شود ؟

الف) فلاپیب) حافظه اصلی

ج) حافظه جانبی                د) هارددیسک

6

در حافظه DRAM برای هر بیت به .......... ترانزیستور نیاز است و در حافظه SRAM  به ............... ترانزیستور نیاز می شود.

الف) یک – شش    ب) دو – شش      ج)شش –  یکد)  شش - دو

7

کدام گزینه در مورد گذرگاه ((bus نادرست می باشد ؟

الف) مسیر ارتباط بین  حافظه و پردازنده  و حافظه نهان است و شامل دو نوع ، گذرگاه FSB  و گذرگاه BSB  می باشند .

ب ) گذرگاه سیستم FSB) ) ،  یک مسیر  بین پردازنده  و حافظه است وگذرگاه BSB(back side bus) ، گذرگاهی است که پردازنده را به حافظه نهان پیوند می‌دهد و سرعت آن از گذرگاه FSB  بیشتر می‌باشد.

ج) سرعت گذرگاه  FSBاز BSB بیشتر می باشد

د) گذرگاه IO شامل سه دسته گذرگاه های داده‌ (Data Bus) ، آدرس (Address Bus) و کنترل (Control Bus) است.

8

کدام گزینه در مورد عملکرد CPU صحیح می باشد ؟

الف) سرعت داخلی CPU توسط سرعت Ram تنظیم  می شود

ب) پردازنده  برای اجرای هر دستور فقط به یک سیکل ساعت نیاز دارد.

ج) بیشترین سرعت پردازنده ، ساعت داخلی است،که بر حسب مگا یاگیگا هرتز می باشد

د) سرعت ساعت داخلی CPU ، نشان دهنده سرعت گذرگاه سیستم یا همان FSB می باشد .

 

 

            صفحه یک                                                                                ادامه سئوال در صفحه بعد

9

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

الف)  کارایی کمتر

ب) دو پردازنده مستقل احتیاج به دو مادربرد دارند

ج) دو پردازنده مستقل با یک منبع تغذیه  نمی توانند کار کنند

د) همه سیستم های عامل از دو پردازنده مستقل پشتیبانی نمی کنند

10

کدام گزینه از خصوصیات تراشه های چیپ ست های برد اصلی نمی باشد ؟

الف) تراشه Northbridge مسئول برقراری ارتباط بین پردازنده و حافظه باشد.

ب) ارتباط Northbridge و حافظه از طریق گذرگاه سیستم(FSB) برقرار می شود.

ج) تراشه Southbridge مسئول برقراری ارتباط بین دستگاههای ورودی خروجی با سیستم است

د) تراشه Northbridge ارتباط وسایل جانبی را با پردازنده برقرار می کند.

11

کدام قطعه در مادربرد برای پیکربندی سخت افزاری است

الف) Jumper                      ب) خازن                            ج) کریستال                                  د) مقاومت

12

سرعت کدام گذرگاه بیشتر است؟

الف)PCI Express                 ب) AGP                             ج) PCI          &nb

|
امتیاز مطلب : 0
|
تعداد امتیازدهندگان : 0
|
مجموع امتیاز : 0
تاریخ : چهارشنبه 24 خرداد 1391
نویسنده : hamidrezakhouri

 

برنامه سازی 3 – طراح استان خوزستان

ردیف

توجه : پاسخهای صحیح را در پاسخنامه که در انتهای سوالات می باشد وارد کنید

سوال

بارم

1

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

1)Filehandle                         2)Open                               3)FreeFile                         4)LineInput

0.5

2

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

ا) Random                                      2)Output                           3)input                               4) Append

0.5

3

ساده ترین نوع فایل کدام است و کدام سرعت بیشتری دارد؟(به ترتیب)

ا)تصادفی تصادفی    2) دودویی ترتیبی3)ترتیبی تصادفی   4)تصادفی ترتیبی

0.5

4

برای خواندن محتوای یک فایل ترتیبی کدام گزینه درست است؟

ا)open "c:a.txt" for input as #1                   do while not eof(1)        

2)          open "c:a.txt" for input as #1                   do while eof(1)

3)           open "c:a.txt" for 0utput as #1                   do while not eof(1)

4)            open "c:a.txt" for output as #1                   do while  eof(1)

0.5

5

کدام دستور برای خواندن یا نوشتن در فایلهای تصادفی بکار میرود؟

ا)put                   2)Get                                  3)Input                               4)موارد 1و 2

0.5

6

برای پیدا کردن درایو جاری در شی DriveListBox از کدام خصوصیت این شی استفاده می کنیم؟

1) Name                                           2)list                                    3)Drive                               4)Path

0.5

7

برای اینکه شی filelistBox فقط فایلهای متنی را نشان بدهد از کدام خصوصیت این شی استفاده می کنیم؟

1)Path                                                 2)MultiSelect                  3)Filter                               4)Pattern

0.5

8

کدام دستور جهت حذف یک فایل است؟

1)Kill                                                   2)Rmdir                              3)DelFile                           4)موارد الف وج

0.5

9

برای ارسال مکانما به سطر بعدی از کدام دستور استفاده می کنیم؟

1) 2)VbCrLf                           

3)Chr(13) & Chr(10)                          4) همه موارد

0.5

10

کدامیک از فرامین زیر مربوط به کنترل چند رسانه ای است؟

1)Eject                                                                2)Pause                              3)Record                            4) هر سه مورد

0.5

11

برای نمایش پرونده ویدیویی  مشخصه DeviceType کدام مقدار را می پذیرد؟

1)CdAudio                                        2)AviVideo                       3)VideoDisc                     4)WaveAudio

0.5

12

برای پخش فایلهای صوتی مشخصه DeviceType کدام مقدار را می پذیرد؟

1)CdAudio                                        2)AviVideo                       3)VideoDisc                     4)WaveAudio

0.5

13

با استفاده از کدام مشخصه می توان فهمید که کنترل چند رسانه ای در حال حاضر مشغول چه کاری است؟

1)Notify                             2)Mode                              3)Wait                                4) چنین مشخصه ای وجود ندارد

0.5

14

کدامیک از فرامین زیر باعث می شود کنترل چند رسانه ای به Track قبلی برود؟

1)next                                 2)Pause                              3)Back                 4)Prev

0.5

15

زبانهای برنامه نویسی شیءگرا در کدام مورد مشترک هستند؟

ا) وراثت        2)چند ریختی               3)کپسوله سازی        4) همه موارد

0.5

16

کدام مورد برای کنترل توابعی است که.محیط ویندوز و رابط کاربر را کنترل می کند؟

1)User32.dll                     2)Gdi32.dll       3)Kernel32.dll                 4)هر سه مورد

0.5

17

مجمو عه ای از روالها ست که در دسترس برنامه نویس Vb است و به معنای رابط برنامه نویسی کاربردی است

 

1) فایلهایDll                            2)API                                   3)Mapi32.Dll       4)موارد الف وب

0.5

18

روال .......................... مقدار جدیدی را برای یک مشخصه تعیین می کند؟

ا) Property Get                            2)Property Set                                3)Property Let                 4) هیچکدام

0.5

19

کدام تابع صدای بوق را از طریق کارت صدا پخش می کند؟

1)Beep(-1)                        2)Beep(1)        3)MessageBeep(-1)  4)MessageBeep(1)

0.5

20

کدامیک رویداد درونی ماژول کلاس محسوب می شود؟

ا)initialize        2)Terminate                     3) مورد 1و2          4) هیچکدام

0.5

21

در ویژوال بیسیک یک کنترل اکتیو ایکس همیشه از ......................................... تشکیل شده است؟

1) یک شیء user control                                                         2) کنترل دیگری

3) مورد 1و2                         4) کد برنامه

0.5

22

کدام شیء امکان ذخیره ی مشخصه های کنترلی که درون محیط تکوین VB تعیین شده اند را فراهم می کند.

ا) WriteProperty         2)WriteProperties        3)Property Change        4)PropertyBag

0.5

23

کدام گزینه در مورد VBA صحیح نمی باشد.

1) VBA  یک زبان مستقل است؟      2) VBA  دارای توابع ریاضی مثل tan(),Sin(),Sqr() است

3)مجموعه Office دارای VBA در درون خودشان هستند.   4)کد نویسی در VBA مانند ویژوال بیسیک است.

0.5

24

ویژوال بیسیک کلاس کنترل را به صورت یک پرونده ی ...................... ذخیره می کند.

1)Cla                                    2)Ocx                                  3)Bas                                   4)Ctl

0.5

25

دلایل استفاده از مؤلفه های com   در برنامه ی کاربردی چیست

ا) قابلیت استفاده ی مجدد   2) کاهش پیچیدگی      3) یهنگام سازی ساده تر   4) همه موارد

0.5

26

برای راهنمایی در مورد قالب روال های Api در Vb  از چه ابزاری استفاده می کنیم؟

1)Api viewer                    2)Component                  3)Reference                     4)همه موارد

0.5

27

با فرض اینکه کلاسی به نام MyClass داریم کدام تعریف درست است؟

1) Dim sum as new                                                                      2)Dim MyClass as new

3)Dim Sum as new MyClass                 4)Dim MyClass as new sum

0.5

28

کدام مورد در Vb رابط دسترسی به داده نیست؟

1)MDB                2)ADO                                 3)  RDO                           4)DAO

0.5

29

در مشخصه RecordSource می توان ............... را مشاهده کرد.

1) نام بانک اطلاعاتی  2)نام جدولها         3) نام فیلدها        4)نام جدولها و فیلدها

0.5

30

برای ثبت اطلاعات یا تغییرات در جدول کدام دستور منا سب است؟

1)Adodc.Refresh                                                            2) Adodc.Recordset.Delete

3)Adodc.Recordset.Update                                      4)Adodc.Recordset.Addnew

0.5

31

کدامیک از کنترلهای زیر را نمی توان به فیلدی از بانک اطلاعاتی متصل کرد؟

1)                      Shape2)TextBox                 3)Label                               4)Image

0.5

32

کدام مشخصه DataGrid در صورت True بودن باعث می شود کاربر با فشردن کلید Delete سطری از DataGrid را حذف کند؟

1)Delete                            2)AllowDelete          3)AllowAddNew            4)AllowArrows

0.5

33

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

ا)F8                                     2)F7                                     3)F6                                     4)F5

0.5

34

گزارشات در CrystalReport با پسوند............. ذخیره میشوند؟

1)Rwp           2)Rpt                                   3)Crp                                   4)Vpt

0.5

35

هر اطلاعاتی که در این بخش از گزارش قرار گیرد فقط یکبار در ابتدای گزارش چاپ خواهد شد

1) Report Footer.  2) Page Footer              3) Report Header         4)Details

0.5

36

برای اینکه از صحت اطلاعات وارد شده در کریستال مطمئن شویم کدام نشانه را انتخاب می کنیم؟

1)         2)               3)               4)

0.5

جمع نمرات

20

 

 

سوال

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

پاسخ

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

سوال

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

پاسخ

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

سوال

33

34

35

36

پاسخ

 

 

 

 

 

سوال

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

پاسخ

3

4

3

1

4

2

4

1

4

4

2

4

2

4

4

1

2

3

سوال

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

پاسخ

4

3

3

4

1

2

4

1

3

1

2

3

1

2

4

2

3

1


|
امتیاز مطلب : 151
|
تعداد امتیازدهندگان : 32
|
مجموع امتیاز : 32
تاریخ : چهارشنبه 24 خرداد 1391
نویسنده : hamidrezakhouri

 

برنامه سازی 2 – شهرستان بم – طراح خانم رنجبر

1-     کاربرد این گزینه ها را بیان کنید

الف : کلیدواژه redim                       ب: تابع strcomp            ج: تابع date diff

د: تابع now                ه : متد pset

2-     برنامه ای بنویسید که دو رشته را درون کادر متنی تایپ کرده و سپس با زدن روی دکمه compare  این دو رشته را با            

هم مقایسه کند؟

3-     SDI و MDI چیست و برای هر کدام جداگانه مثال بزنید ؟ 

4-     برای تبدیل فرم MDI به یک فرم     3D از کدام مشخصه استفاده می کنیم ؟                                                                 

5-     خروجی این قطعه کد

Cdl1.filter="textdocument |*.txt|*.com|*.doc"        

6-     کاربرد خاصیتهای زیر در کنترل Shape

الف:Fillstyle

ب: Fillcolor

ج: Borderstyle

7-     با متد pset یک خط رسم کنید که از 100نقطه تشکیل شده باشد ؟                                                                                 

8-     مستطیل توپری رسم کنید به مختصات (150و175) و (40و35) به رنگ سبز ؟                             

9-     این دستور کدام شکل را رسم می کند

Frm.draw.circle(1000,1250),400,,,,0.2

10-خطی به طول 100و به صورت عمودی با رنگ قرمز ترسیم کنید (استفاده از تابع RGBبرای تعیین رنگ )                         

11-برنامه ای بنویسید که با درگ کردن روی کادر تصویر بتوان هر چیزی نوشت (شبیه تخت سیاه )                                         

12-کدام آرگومان شکل بیضی را تعیین می کند

13-فرایند کامپایل کردن کد یا ساخت فایل اجرایی را شرح دهید ؟                                                                                      

 

 

 

برنامه سازی 2 –شهرستان بم –طراح : ابراهیم پور

1

را بنویسید.Menu editorدر کادر محاوره ای Enabledو  Chekedکاربرد گزینه های 

 

1

5/1

خروجی قطعه برنامه های زیر را مشخص کنید.

I) Text1.text=”VisualBasic”                            II) dim a()  as  integer

Text1.selstart=0                                            redim a( 6 )  as  integer

Text1.sellength=4                                        a( 2 )= 3

Clipboard.settext(text1.seltext)                  a( 4 )= 5

Print clipboard.gettext                                 redim preserve a( 10 )

                                                                         print  a( 2 ) , a( 4 ),a( 9 )

2

2

کاربرد متدها و خصوصیات زیر را بنویسید .

I) list1.clear                                                         II)combo1.additem

III) list1.list                                                         IV) combo1.removeitem

3

1

عملکرد برنامه زیر را بنویسید.

Private Sub CmdRun_Click()

  Commondlg1.Flags=cdlccrgbinit

  Commondlg1.showcolor

Form1.BackColor=Commondlg.color

End sub

4

1

خروجی هر یک از توابع زیر را مشخص کنید .

I ) Now()                                              II ) Format( 10,”Short Time”)           

5

1

رابنویسید .Step Over  و Step Intoتفاوت

6

2

کاربرد توابع زیر را بنویسید .

I ) IsEmpty( )                                                        II ) IsNumeric( )               

III) CInt( )                                                             IV ) CByte( )

7

1

برنامه ای بنویسید که با کلیک راست روی فرم منوی MNUFile در محل کلیک موس نمایش داده شود.

8

5/2

برنامه ای بنویسید که عناصر یک آرایه یک بعدی با 6عضو رااز ورودی دریافت نماید سپس حاصلجمع و میانگین  عناصر آرایه را محاسبه و روی فرم چاپ نماید.

9

2

یک آرایه دوبعدی با 2  سطر و5 ستون موجود است، برنامه ای بنویسید حاصلجمع ستون های  آرایه را در یک آرایه یک بعدی ذخیره کند.

10

5/2

برنامه ای بنویسید که عددی چند رقمی از ورودی دریافت کند و با استفاده از یک روال ، مجموع ارقام آن عدد را محاسبه و نمایش دهد.

11


5/2

برای هر یک از عبارات زیر دستور مناسبی بنویسید .

الف) رسم خط افقی از نقطه ی (200و100) به طول 1000 پیکسل به رنگ سبز

 ب) رسم دایره به شعاع 200ومرکزیت (500و500) به رنگ آبی

ج) رسم مستطیل  توپربه مختصات (200و500)و(1000و1500) به رنگ تولید شده توسط تابع RGB

 

12

 

 

برنامه سازی 2– طراح استان مازندران

 

/

برنامه سازی 2 – استان زنجان – طراح : حیدری

1- برای ارسال متن اسکی به داخل Clipboard از کدام دستور استفاده می کنیم .25/0

  الف –Setdat a        ب –Getdata          ج –Settext             د- Gettext

 2- کدام گزینه در مورد آرایه ها صحیح نمی باشد ؟ 25/0

 الف- آرایه محلی برای نگهداری تعدادی مقدار هم نوع است .

ب‌-       آرایه متغیری است با چندین خانه .

  ج- اولین عنصر آرایه معمولا در موقعیت یک قرار دارد.

  د- یک آرایه ممکن است هیچ عنصری نداشته باشد.

3- از طریق کدام مشخصه تعداد خطوط لیست مشخص می شود ؟25/0

 الف –Text           ب –List            ج- List Count         د- List Index

4- کدامیک از کنترل های زیر در زمان اجرا قابل رویت نمی باشد ؟25/0

الف –Frame        ب –Timer          ج –CommonDialog          د- ب و ج

5- در کدام گزینه خروجی تابع False  می باشد ؟25/0

الف –IsDate (Date)                       ب –IsDate(#12/5/98#)

ج –IsDate("May 1998")                    ج - IsDate("12/5/1998")

6- با  تابع LoadPictuer ( ) برای کدامیک از کنترل های زیر در زمان کد نویسی نمی توان  تصویر آورد؟ 25/0

الف –Image          ب –PictuerBox            ج –Shape         د- هیچکدام

 7- با استفاده از کدام پنجره می توان محتوای متغیر ها را مشاهده کرد ؟25/0

الف –Date View      ب –Immediate          ج –Watch          د- Variable View

8- برای ایجاد منوی باز شو از دستور.................استفاده می کنیم . 25/0

9- جهت تعریف کلید دسترسی به منو از علامت .....در caption  استفاده می کنیم.25/0

10- با استفاده از دستور ............. می توان کوچکترین اندیس را برای آرایه تعیین کرد.25/0

11-در هنگام استفاده از کنترل CommonDialog   برای مدیریت قلم ها مشخصه ی ........... را بایدمقداردهی کنیم .25/0

12-  مقدار تاریخ بین علامت ...................... قرارداده می شود .25/0

13- پنجره ی ...............................برای دستورات یک خطی مناسب است .5/0

14- جهت اجرای گام به گام خطوط کد روال از دستور .......................و برای خروج از ان از دستور ....................استفاده می کنیم .1

15-جهت خروج از روال از دستور .................استفاده می کنیم .5/0

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

17- هنگام استفاده از آرگومانها ..........و ........... آنها خیلی مهم است .5/0

18- جهت مستند سازی روال آن را در قسمت ........... می نویسیم .5/0

19- در چه مواقعی از منوها استفاده می کنیم ؟5/0

20- در مورد کد زیر توضیح دهید . 5/0

   Dim     A (21  to 25)  As Byte

21- نام دستوری که گزینه ها را به لیست اضافه می کند چیست ؟75/0

22- نتیجه ی اجرای دستور زیر کدام است ؟ 5/0

N= Strcomp("Ali", "ali")

  Print   n

23- جست و جوی دودویی بر روی چه آرایه هایی قابل اجراست ؟5/0

24- کدام مشخصه ها در آرایه های کنترلی یکسان نیست ؟5/0

25-برای اجرای کادر محاوره ای کنترل CommonDialog  از کدام متد استفاده می کنیم ؟25/0

26-مهمترین مشخصه ی کنترل Timer چیست ؟چه عملی را انجام می دهد ؟1

27- برای به دست آوردن تاریخ و ساعت بطور همزمان از کدام تابع استفاده می کنیم ؟25/0

28-خروجی دستور زیر چیست ؟5/0

DateDiff("q", "6/4/76","7/15/86")

29-کپسوله سازی را تعریف کنید ؟5/0

30- دستوری بنویسید که مستطیلی توپر طراحی کند ؟1

31- توابع رنگ آمیزی را نام ببرید ؟75/0

32- خروجی قطعه برنامه زیر چیست ؟ 5/0

 

To    4 For   I = 1

   Pset  step (10,10)

Next I

33- جهت تبدیل فرمی به فرم فرزند کدام مسخصه را برابر با True قرار میدهیم ؟5/0

34-اگر تابعی به صورت زیر تعریف شده باشد دستر فراخوانی آن را بنویسید ؟1

Public  Function   f2(a as integer, b as byte , s as string ) as string

35- برای اطلاع از نوع متغیر از کدام تابع می توان استفاده کرد ؟5/0

36- کاربرد تابع Array چیست ؟1

37- نقش Option Expicit  را در روال توضیح دهید ؟5/0

38- شی Err و دستور OnError Goto  را توضیح دهید؟5/0

39- وی‍‍‍‍‍‍‍زوال بیسیک امکان ذخیره ی تمام اطلاعات را با استفاده از کدام شی فراهم میکند؟5/0

40- کامپایل کردن به چه منظور انجام می شود ؟1

 

 

 

 

 

 

برنامه سازی 2 – استان تهران

فصل اول: ایجادمنو

          1-

یکی از گزینه‌های منوی File به صورتNew…      Ctrl+N    است. کلید N جزء کدام موارد     متداول منوهای استاندارد ویندوز می‌باشد؟

الف)

Caption

ب)

Access Keys

ج)

Shortcut Keys

د)

Check Box

2-

در حالت ایحاد منو به صورت Application Wizard پسوند فایل پروفایل چیست؟

الف)

VBM

ب)

APP

ج)

RWP

د)

MNU

3-

کدام جمله در مورد منوها صحیح است؟

الف)

منوها از نوع کنترل هستند.

ب)

کلیدترکیبی Ctrl+Eبه‌روش Wizard منو ایجادمی‌کند.

ج)

گزینه ToolsMenu Editor فقط منوهای میله‌ای ایجاد می‌کند.

د)

منوهای ایجاد شده توسط دکمه‌ی Menu Editor در نوار استاندارد، نمی‌توانند دارای زیر منو باشند.

4-

در جعبه MenuEditor از کدام گزینه برای شناختن کنترل منو استفاده می‌شود

الف)

Caption

ب)

Name

ج)

Index

د)

WindowList

5-

در محیط ویرایشگر منو کدام گزینه صحیح است؟

الف)

برای سر منوها می‌توان ShortCut قرار داد.

ب)

سر منوها را می‌توان از حالت Enabled خارج کرد.

ج)

هنگام تعیین کلید میانبر تکراری، VB گزینه اول را انتخاب می‌کند.

د)

عدم مقداردهی مشخصه‌ی Caption سبب نمایش پیغام خطا می‌شود.

6-

روال زیر در چه صورت منوی Test را نمایش می‌دهد؟

    Sub Form_MouseDown (Button as integer, Shift as integer, X as single, Y as single)

                                     If Button = 2 and Shift = 2 then PopupMenu Test

الف)

اگر روی فرم دابل کلیک شود.

ب)

اگرروی فرم همراه گرفتن کلید Shift ، چپ کلیک شود.

ج)

اگرروی فرم‌همراه گرفتن کلید Shift ،راست‌کلیک‌شود.

د)

اگرروی فرم همراه گرفتن کلید Ctrl، راست کلیک‌ شود.

7-

دو کنترل کادر متن Txt1 و Txt2 روی فرم وجود دارند. دستورات  زیر چه عملی انجام می‌دهند؟

     Clipboard.SetText (Txt1.SelText)

     Txt2.Text = Clipboard.GetText

الف)

کل محتوای Txt1 را درTxt2 کپی می‌کند.

ب)

کل محتوای Txt2 را درTxt1 قرار می‌دهد.

ج)

متن انتخاب شده‌ی در Txt1 را در Txt2 کپی می‌کند.

د)

متن انتخاب شده‌ی در Txt2 را در Txt1 قرار می‌دهد.

فصل دوم: آرایه‌ها

8-

در تعریف Dim ary(20) As Integer ، اندازه‌ی متغیر ary چند بایت است؟

الف)

20

ب)

21

ج)

40

د)

42

9-

کدام یک از آرایه‌های یک بعدی زیر دارای ده عنصر است؟

الف)

Dim A(10)

ب)

Dim B(-5 To 5)

ج)

Dim C(11 To 20) 

د)

Dim D(0 To 10)

10-

کدام جمله درست است؟

الف)

در VB آرایه حداکثر 60  بُعد دارد.

ب)

آرایه‌های چند بعدی امکان پیمایش ندارند.

ج)

دستور Redim فقط روی آرایه‌های یک بعدی کار می‌کند.

د)

آرایه‌های دو بعدی و بیشتر باید با کلید واژه To تعریف شوند.

 

11-

آرایه‌یA چند بایت اشغال می‌کند؟   Dim A (1 To 4, 1 To 5) As String * 15

الف)

320

ب)

300

ج)

135

د)

20

12-

خروجی برنامة مقابل کدام است؟

A(1) = 1

   For i = 2 To 10

A(i) = A(i-1) + i

   Next i

  Print A(10), i

الف)

10          10

ب)

10          11

ج)

55          10

د)

55          11

13-

برای حذف عناصر List بصورت یکی یکی از کدام متد استفاده می‌شود؟

الف)

AddItem

ب)

RemoveItem

ج)

Clear

د)

Selected

14-

به هنگام طراحی عناصر، چنانچه بخواهیم دسته‌ای از آنها را بصورت آرایه‌ای تعریف کنیم، باید:

الف)

Index آنها را یکسان کنیم.

ب)

Caption آنها را یکسان کنیم.

ج)

به هر یک از آنها Index دهیم.

د)

Name آنها را یکسان کنیم.

15-

در لیست زیر عدد 34 را می خواهیم به روش جست‌وجوی باینری پیدا کنیم. در چندمین مقایسه به     آن خواهیم رسید؟

    13 , 14 , 17 , 22 , 26 , 34 , 39 , 44 , 48 , 53

الف)

5

ب)

4

ج)

3

د)

2

 

 

فصل سوم: کاربرد فرم‌های آماده

16-

کدام خصوصیت Common Dialog نوع فایل‌های نشان داده شده را تعیین می‌کند؟

الف)

Filter

ب)

File Of Type

ج)

InitDir

د)

FileName

17-

برای امکان انتخاب فایل‌های bmp و jpg در پنجره OPEN، کدام الگو باید در خصوصیت Filter نوشته شود؟

الف)

"*.bmp;*.jpg"

ب)

"*.bmp|*.jpg"

ج)

"bitmap|*.bmp;jpeg|*.jpg"

د)

"bitmap|*.bmp|jpeg|*.jpg"

18-

کدام جمله درباره‌ی برنامه‌های MDI صحیح است؟

الف)

دارای چند پنجره فرزند(Child) و چند پنجره والد(Parent) هستند.

ب)

دارای چند پنجره فرزند و فقط یک پنجره والد هستند.

ج)

فقط دارای یک پنجره فرزند و یک پنجره والد هستند.

د)

|
امتیاز مطلب : 0
|
تعداد امتیازدهندگان : 0
|
مجموع امتیاز : 0

آخرین مطالب

/
از این که به وبلاگ من سر زدید خیلی خیلی ممنونم باتشکر حمیدرضاخوری

💬 نظرات کاربران
💬ثبت نام کاربران
💬ورود کاربران