یک دستور IF بنویسید که  تساوی سه عدد را برسی کند .

Dim S , X , Z As Integer

If S = X And X = Z Then

“Print  ” Okay

Else

 ”Print ” Not Equal

End If

برنامه بنویسید که مجموع مربعات اعداد 1 تا 10 را محاسبه و چاپ کند .

Dim I As Integer , Dim S , As Double

For I = 1 To 10

S = S + I ^ 2

Next 1

Print S

End Sub