Дастурлаш асослари фанидан маърузалар матни doc

 
Ob’yekt 
Xossa 
O‘rnatilgan qiymatlari 
Form1 
Caption 
For … Next sikli  2-misol 
Label1 
Caption 
Yig‘indining elementlari soni M butun sonini kiriting 
Label2 
Caption 
Yig‘indining yuqori chegarasi A butun sonini kiriting  
Label3 
Caption 
Qo‘shiluvchilarning soni 
Label4 
Caption 
Olingan yig‘indi 
Command1 
Caption 
Yig‘indini hisoblash 
Command2 
Caption 
Chiqish 
Text1, Text2, 
Text3, Text4 
Text 
Text xossasi maydonini tozalash 
 
 
 
11.34-rasm 
 
         
 
 
 
 
 
 
PDF created with pdfFactory trial version 
www.pdffactory.com

---

 
 Blok – sxema 
 
 
 
Dastur kodi 
Option Explicit 
Private Sub Command1_Click() 
   Dim M, A As Long 
   Dim S, K, C As Long 
   M = Val(Text1.Text) 
   A = Val(Text2.Text) 
   S = 0 
   For K = 1 To M 
     C = K ^ 3 
     S = S + C 
     If S > A Then 
       K = K + 1 
       Exit For 
     End If 
   Next K 
   Text3.Text = Str(K - 1) 
   Text4.Text = Str(S) 
End Sub 
 
Private Sub Command2_Click() 
   End 
End Sub 
 
PDF created with pdfFactory trial version 
www.pdffactory.com

---

 
11.35-rasm 
 
 
11.36-rasm 
 
11.9. Sharti oldinda va oxirida berilgan sikllar 
 
 
Bazi  bir  holatlarda  sikl  tanasining  necha  marta  bajarilishini  oldindan  aniqlab  bo‘lmaydi.  Bunday 
holatlarda sikldagi shartning qiymati True bo‘lguncha bajariladi. 
Bunaqangi sikllarning ikki holati mavjud: 
1.  Sikl sharti iteratsiyaga har bir kirishidan oldin tekshiriladi (sharti oldinda berilgan sikllar) 
2.  Sikl  sharti  har  bir  iteratsiyaning  bajarilishidan  so‘ng    tekshiriladi  (sharti  oxirirda  berilgan 
sikllar)