O`zbekiston respublikasi oliy va o`rta maxsus ta’lim

Const
 
operatori ishlatiladi:  
Const
 doimiyNomi [As ma’lumotTuri] 
=
 ifoda  
Masalan,  
Const 
 strErrorFile 
As String = "Faylni o`qishda nosozlik"  
Asosiy  matematik  operatorlar. 
Matematik  operatorlar  sonlar  ustida 
hisoblashlarni bajarishga imkon beradi.
  
 
Operatorlar
 
Bajariladigan amallar
 
+  
Qo`shish 
-  
Ayirish 

---

 
311 
 
 
Asosiy matematik funksiyalar ishlatilgan loyiha 
 
 
Quyidagi turdagi formani yaratingiz: 
 
 
 
 
*  
Ko`paytirish 
/  
Bo`lish  
\  
Butun sonli bo`lish  
mod  
Qoldiq  
/\  
Darajaga oshirish  

---

 
312 
Dastur kodi 
Option Explicit 
Private Sub Command1_Click() 
    Dim inta As Integer, intb As Integer 
    Dim dblx As Double, dbly As Double 
    Dim intsum As Integer, intsubstr As Integer 
    Dim intmult As Integer, intdiv As Integer 
    Dim intmod As Integer, intsqr As Integer 
    Dim dblsum As Double, dblsubstr As Double 
    Dim dblmult As Double, dbldiv As Double 
    Dim dblsqr As Double, dblsqrt As Double 
    Dim dbldiv1 As Double, dblsqrt1 As Double 
     inta = Val(Text1.Text) 
    intb = Val(Text2.Text) 
    dblx = Val(Text3.Text) 
    dbly = Val(Text4.Text) 
     intsum = inta + intb 
    intsubstr = inta - intb 
    intmult = inta * intb 
    dbldiv1 = inta / intb 
    intdiv = inta \ intb 
    intmod = inta Mod intb 
    intsqr = inta ^ 3 
    dblsqrt1 = inta ^ (1 / 3) 
    dblsum = dblx + dbly 
    dblsubstr = dblx - dbly 
    dblmult = dblx * dbly 
    dbldiv = dblx / dbly 
    dblsqr = dblx ^ 3 
    dblsqrt = dblx ^ (1 / 3) 

---

 
313 
     
    Text5.Text = Str(intsum) 
    Text7.Text = Str(intsubstr) 
    Text9.Text = Str(intmult) 
    Text11.Text = Str(dbldiv1) 
    Text13.Text = Str(intdiv) 
    Text15.Text = Str(intmod) 
    Text17.Text = Str(intsqr) 
    Text19.Text = Str(dblsqrt1) 
    Text6.Text = Str(dblsum) 
    Text8.Text = Str(dblsubstr) 
    Text10.Text = Str(dblmult) 
    Text12.Text = Str(dbldiv) 
    Text18.Text = Str(dblsqr) 
    Text20.Text = Str(dblsqrt) 
    End Sub 
Private Sub Command2_Click() 
  End 
End Sub