از امروز قصد داریم بخش جدیدی را به بخش موضوعات سایت اضافه کنیم. بخش برنامه نویسی Visual Basic. 

قسمت اول این مجموعه را با 4 برنامه ی ساده شروع می کنیم. 

1. برنامه ای بنویسید که یک عدد چند رقمی را از ورودی گرفته و سپس مقلوب یا معکوس آن را چاپ کند. 
2. برنامه ای بنویسید که فاکتوریل یک عدد را نشان دهد 
3.  برنامه ای بنویسید که دو عدد را از ورودی دریافت کرده و سژس اعداد ما بین آن دو عدد را چاپ کند. 
4. برنامه ای بنویسید که عددی را از ورودی دریافت کرده و زوج یا فرد بودنش را در خروچی با نشان داده پیغامی مناسب چاپ کند.

مشاهده (‌ پروژه های برنامه نویسی Visual Basic (قسمت اول )‌ در ادامه مطلب . . .

مقلوب یا معکوسی کردن اعداد:

Dim n As Long
Private Sub Command1_Click()
n = Text1.Text
While n > 0
Sum = Sum * 10 + n Mod 10
n = n \ 10
Wend
Print Sum
End Sub 

فاکتوریل: 

Option Explicit
Dim f As Long, n As Integer, i As Byte

Private Sub Command1_Click()

    n = Text1.Text
    f = 1
For i = 1 To n Step 1
    f = f * i
Next i
    Label1.Caption = f

   End Sub 

اعداد ما بین دو عدد: 

Option Explicit
Dim m As Integer, n As Integer, i As Integer

Private Sub Command1_Click()
    m = Text1.Text
    n = Text2.Text
For i = m + 1 To n - 1 Step 1
    Label1.Caption = Label1.Caption + Str(i)
Next i

End Sub 

زوج یا فرد بودن عدد:  

 Private Sub Command1_Click() 
Dim x As Integer
x = Val(Text1.Text)
If x Mod 2 = 0 Then
Label2.Caption = "ZOJ"
Else
Label2.Caption = "FARD"
End If
End Sub 

منبع:‌ مجله اینترنتی پونک  www.Poonak.org