برنامه نویس

برنامه انجام توان باعملگر جمع

Dim m,p  As Long

m= Val(Text1.Text)

p = Val(Text2.Text)

c = m

For i = 1 To p - 1

For x = 1 To m

z = z + c

Next x

c = z

z = 0

Next i

Label1.Caption = Str(c(

برنامه ای که تعداد ارغامی از یک عدد چند رقمی

را که بر 2 یا 3 بخش پذیر است را نشان می دهد

Dim a   As Long

a = Val(Text1.Text)

Do

b = a Mod 10

c = b \ 2

d = b \ 3

If b Mod 2 = 0 Or b Mod 3 = 0 Then t = t + 1

a = a \ 10

Loop While a > 0

Label1.Caption = Str(t)

برنامه محاسبه توان

Dim  m, p  As  Integer

m = (Text1.Text)

p = (Text2.Text)

t = 1

If  p > 0  Then

For  i = 1  To  p

t = t * m

Next  i

Text3.Text = Str(t)

Else

If  p < 0  Then

For  i = 1  To  -p

t = t * m

Next  i

Text3.Text = Str(1 / t)

End  If

End  If

عمل ضرب با جمع

Dim  a, b  As  Integer

a = (Text1.Text)

b = (Text2.Text)

For  i = 1  To  a

c = c + b

Next  i

Text3.Text = Str(c)

برنامه ای که منفی یا مثبت بودن عدد را نشان دهد

Dim a As Integer

a = Val(Text1.Text)

If a > 0 Then

Label1.Caption = "مثبت"

Else

If a < 0 Then

Label1.Caption = "منفی"

Else

Label1.Caption = "صفر"

End If

End If

نمایش اعداد مضرب 5 تا عدد مورد نظر

Dim a As Integer

a = Val(Text1.Text)

i = 5

While i <= a

List1.AddItem Str(i)

i = i + 5

Wend

نمایش تعدادارغام غیر از صفر یک عدد

ونمایش تک تک آن ارغام

Dim a, T As Long

a = Val(Text1.Text)

T = 0

While a > 0

If a Mod 10 <> 0 Then T = T + 1

If a Mod 10 <> 0 Then List1.AddItem Str(a Mod 10)

a = a \ 10

Wend

Text1.Text = Str(T)