نمونه سئوالات شماره ۱

1

برنامه بنویسید که:

تعدادی عدد را دریافت کند و در یک ماتریس 4 × 4 قرار دهد. سپس این ماتریس را روی فرم نشان دهد و با پیغامی اعلان کند که آیا عناصر قطر اصلی ماتریس با هم برابر هستند یا نه.

اطلاعات را در آرایه ذخیره کنید.

2

برنامه بنویسید که:

مضارب معادله درجه 2 را دریافت کند و با استفاده ار یک روال، ریشه های آن را بدست آورده و نمایش دهد.

3

برنامه بنویسید که:

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

مقدار شمارنده =  2:15:00

نمره سئوالات شمازه ۲
 

1

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

1-1

inta = array(1.2 , 3.4 , 1.7)

2-1

line (100 , 200)-(200 , 200),RGB(255,0,0)

3-1

form1.pset(100,200) 

4-1

cmdnext.ensbled=false

5-1

number1=int(RND*21)

6-1

lblage.caption=cstr(lngsec) 

7-1

time1.interval=300 

8-1

commonDlg.showcolor 

9-1

form2.hide 

10-1

dim s as integer

11-1     

public sub cmdnext_click() 

12-1

select case str

2

براي هر کدام از فرمان های زیر دستور مناسب را بنویسید ؟

1-2

عنوان فرم 2 (form2) را به نام خود تغییر دهید ؟

2-2

لیست باکس (list5) را خالی کنید ؟

3-2

حلقه با شمارنده P از 5 تا 25 با پرش 5 تایی ؟

4-2

آرایه ای به نام Pd تعریف کند یک بعدی با 20 خانه از نوع عددی ؟

5-2

آدرس عکس (pic1) را به آدرس c:\pic3.bmp تغییر دهید ؟

6-2

شرطی بنویسید که بزرگتر بدون int1 را از int2 چک کند ؟

7-2

خانه شماره 12 آرایه arrayname ساخته شده را با مقدار "ALIREZA" پر کنید؟

8-2

عرض کنترل cmdnext را 250 قرار دهید ؟

9-2

مقدار "Home" را به لیست (list25) اضافه کنید ؟

10-2

مقدار موجود در آرایه (خانه : بعد اول 5 و بعد دوم 6 ) مربوط به آرایه arraytel را در متغییر inttel بریزید ؟

11-2

تابعی به نام Cou از نوع سراسری بسازید که ورودی آن str1 و str2 از نوع رشته ای و خروجی آن از نوع عددی باشد ؟

12-2

نوع خط (line5) را به نقطه چین (3) تغییر دهید ؟

3

 

 

 

 

 

برنامه بنویسید که:

1-    یک عددی را از ورودی دریافت کند. ( با یک پیغام مناسب )

2-    عددی ورودی را به تابعی که ساخته اید جهت عملیات ارسال کند.

3-    عدد ورودی به تابع را به توان خودش برساند.

4-    حاصل عملیات را از تابع خارج کند.

5-    پاسخ را در یک پیغام روی صفحه نمایش دهد. 

4

 

 

 

 

 

 

 

تکه برنامه نوشته شده زير را كامل توضیح دهید و نتیجه خروجی روی مانیتور را بنویسید ؟

 

Public Sub count(a as integer , b as integer)

Dim c as integer

If a

If b

Print ( cstr(c) )

End sub

نمنه سئوالات شماره ۳

1

در کادر Menu Editor  گزینه Name به چه منظوری مورد استفاده قرار می گیرد؟

2

کاربرد توابع زیر را بنویسید ؟

الف )   Time()

 

ب )    Date()

 

ج )      Now()

 

3

دستورات زیر چه عملی را انجام می دهند ؟

A) Image1.Picture=Image2.Picture                  

 

 

 

B) frmDram.Line(100,100)-(150,150)

 

 

 

C) frmDram.Circle(300,200),100

 

 

 

D) Number1=int(Rnd*21)

 

 

 

E) cmdNExt.Enabled=False

 

 

 

F) TXTAnswer.text=""

 

4

برنامه اي بنویسید که نام و نمره ریاضی 8 نفر را گرفته و نام رتبه اول را اعلام کند ؟

 

5

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

نمونه سئوالات شماره ۴

1

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

1-1

inta = array(1.2 , 3.4 , 1.7)

2-1

line (100 , 200)-(200 , 200),RGB(255,0,0)

3-1

form1.pset(100,200) 

4-1

cmdnext.ensbled=false

5-1

number1=int(RND*21)

6-1

lblage.caption=cstr(lngsec) 

7-1

time1.interval=300 

8-1

commonDlg.showcolor 

9-1

form2.hide 

10-1

dim s as integer

11-1

public sub cmdnext_click() 

12-۱     

select case str

2

براي هر کدام از فرمان های زیر دستور مناسب را بنویسید ؟

1-2

عنوان فرم 2 (form2) را به نام خود تغییر دهید ؟

2-2

لیست باکس (list5) را خالی کنید ؟

3-2

حلقه با شمارنده P از 5 تا 25 با پرش 5 تایی ؟

4-2

آرایه ای به نام Pd تعریف کند یک بعدی با 20 خانه از نوع عددی ؟

5-2

آدرس عکس (pic1) را به آدرس c:\pic3.bmp تغییر دهید ؟

6-2

شرطی بنویسید که بزرگتر بدون int1 را از int2 چک کند ؟

7-2

خانه شماره 12 آرایه arrayname ساخته شده را با مقدار "ALIREZA" پر کنید؟

8-2

عرض کنترل cmdnext را 250 قرار دهید ؟

9-2

مقدار "Home" را به لیست (list25) اضافه کنید ؟

10-2

مقدار موجود در آرایه (خانه : بعد اول 5 و بعد دوم 6 ) مربوط به آرایه arraytel را در متغییر inttel بریزید ؟

11-2

تابعی به نام Cou از نوع سراسری بسازید که ورودی آن str1 و str2 از نوع رشته ای و خروجی آن از نوع عددی باشد ؟

12-2

نوع خط (line5) را به نقطه چین (3) تغییر دهید ؟

3

 

 

 

 

  

برنامه بنویسید که:

1-    یک عددی را از ورودی دریافت کند. ( با یک پیغام مناسب )

2-    عددی ورودی را به تابعی که ساخته اید جهت عملیات ارسال کند.

3-    عدد ورودی به تابع را به توان خودش برساند.

4-    حاصل عملیات را از تابع خارج کند.

5-    پاسخ را در یک پیغام روی صفحه نمایش دهد.

4

 

 

 

 

 

 

 

تکه برنامه نوشته شده زير را كامل توضیح دهید و نتیجه خروجی روی مانیتور را بنویسید ؟

 

Public Sub count(a as integer , b as integer)

Dim c as integer

If a

If b

Print ( cstr(c) )

End sub

نمونه سئوالات شماره ۵

1

برنامه بنویسید که:

10 دانش آموز و 3 نمره از هر یک را از ورودی دریافت کنید، سپس نام هر دانش آموز را به همراه معدل سه
نمره ی او نمایش دهید. در پایان نام دانش آموزانی که بالاترین و پایین ترین معدل را دارند اعلام کنید.

اطلاعات را در آرایه ذخیره کنید.

2

برنامه بنویسید که:

عددی را دریافت کند و فاکتوریل آن را به کمک یک تابع محاسبه و نمایش دهد.

3

برنامه بنویسید که:

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

مقدار شمارنده =  1:30:00

نمونه سئوالات شماره ۶

1

برنامه بنویسید که:

تعدادی عدد را دریافت کند و در یک ماتریس 4 × 4 قرار دهد. سپس این ماتریس را روی فرم نشان دهد و با پیغامی اعلان کند که آیا عناصر قطر اصلی ماتریس با هم برابر هستند یا نه.

اطلاعات را در آرایه ذخیره کنید.

2

برنامه بنویسید که:

مضارب معادله درجه 2 را دریافت کند و با استفاده ار یک روال، ریشه های آن را بدست آورده و نمایش دهد.

3

برنامه بنویسید که:

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

مقدار شمارنده =  2:15:00

نمونه سئوالات شماره ۷

1

Access Key   و   Shortcut Key     در منو هاي استانداد ويندوز هركدام چه مفهومي دارد ؟

2

مي خواهيم  يك آرايه دو بعدي عمومي  به نام  Test   كه داراي 25 عنصرعدد صحيح باشد راتعريف كنيم فرمام مربوط رابنويسيد ؟

3

اگر سبك  Combo Box   را به صورت   1-simple combo   تعيين كنيم ، بر روي فرم چگونه نمايش مي يابد .

4

كد برنامه مربوط به  مرتب سازي يك آرايه 15 عنصري به نام Testarray  را از كوچك به بزرگ بنويسيد ؟

5

تابع  Isdate( )  را توضيح دهيد ؟

6

فرمان زير چه عملي و چگونه انجام ميدهد دقيفاٌ بنويسيد ؟

Circle(100,200),200,Qbcolor(4)

7

جهت تعيين آيكن براي برنامه كاربردي از چه مسيري استفاده ميكنيد؟

8

Option Explicit   چيست ؟

9

فرمان On Error   جهت چه كاري استفاده مي شود ؟

10

كاربرد Package And Deployment Wizard    چيست ؟ 

نمونه سئوالات شماره ۸

1

دستورات زیر هر کدام چه عملی را انجام می دهند؟                                                                                                      Dim I As integer

2

   Dim j(10) As string

3

   List1.AddItem "Ali"

4

   Label1.Caption = Label2.Caption

5

   Dim h(10,15) As string

6

   Dim g(,,) As integer

7

   Combo1.ListIndex = 1

   List1.ListIndex = 1

8

   End

9

   Text1.text = Text1.text + "Good"

10

   Private Sub TEST( a As integer , b As string , c As string )

11

   Public Function Ball( )

   Ball = "B"

   End Function

12

تکه برنامه های زیر چه عملیاتی را انجام می دهند ؟ خروجی این تکه برنامه ها را دقیقا مشخص کنید ؟

   Dim s As String

   s = "Mohammad"

   s = s + "Ali"

S=?

13

   Dim k As string

   Dim p As integer

   k = Cstr(54)

   p = Val("54")

   k = k + k

   p = p + p

k,p=?

14

   Dim i , p , j As integer

   p = 0

   j = 1

   For i = 0 to 20 step 5

      p = p + 1

      j = j + i

   Next i

   MsgBox ( "i= " + i + "j= " + j + "p= " + p )

i,j,p=?

15

Private Sub Timer1_Timer()

   Label1.Caption = Cstr(Time)

   Label2.Caption = Cstr(Date)

   Label3.Caption = Cstr(Now)

End Sub

Label1,Label2,Label3.caption=?