نوشته شده توسط : توحید

 1- پروژه‌اي ايجاد كنيد كه 10 عدد را از ورودي دريافت و مرتب آنها را بصورت صعودي برروي فرم نشان دهد.

 

فرمي را ايجاد و سپس برروي آن دوبار كليك كنيد و كد زير را بنويسيد.

Form1.AutoRedraw = True

Dim a(1 To 10) As Integer                                                                                                                                       

For i = 1 To 10

a(i) = Val(InputBox(""))

Next

For i = 1 To 9

For j = i + 1 To 10

If a(i) > a(j) Then

t = a(i)

a(i) = a(j(

a(j) = t

End If

Next

Next

For i = 1 To 10

Print a(i(

Next

ادامه مطلب مورد نظر رمز دارد.
لطفا رمز عبور مربوط به مطلب را وارد کرده ، دکمه تایید را کلیک کنید.
12344321 رمز


:: موضوعات مرتبط: سوالات وی بی , ,
:: بازدید از این مطلب : 348
|
امتیاز مطلب : 62
|
تعداد امتیازدهندگان : 21
|
مجموع امتیاز : 21
تاریخ انتشار : یک شنبه 14 فروردين 1390 | نظرات ()
مطالب مرتبط با این پست
لیست
»
»
می توانید دیدگاه خود را بنویسید


نام
آدرس ایمیل
وب سایت/بلاگ
:) :( ;) :D
;)) :X :? :P
:* =(( :O };-
:B /:) =DD :S
-) :-(( :-| :-))
نظر خصوصی

 کد را وارد نمایید:

آپلود عکس دلخواه: