بازدیدکنندگان محترم وبلاگ شما می توانید تمامی سوالات خود را در زمینه های

VB6\Cpp\VCPP\WINDOWS\CorelDraw\FreeHand\Photoshop\Dos\Perl\Pascal

مطرح کنید

امین

شاید دلیل دوری ات از روز گار ما

دردی ست کهنه روی دلت ، یادگار ما

غفلت تمام باورمان را گرفته است

با چشم های خیس تویی غصه دار ما

هی جمعه جمعه می رسد اما نمی رسی

شاید که دل گرفته ای از انتظار ما

سر می زنی به منتظرانت یکی یکی

اما چرا نمی گذری از دیار ما

بی رنگ و بویت ای گل نرگس! قبول کن

جز خاطرات زرد ندارد بهار ما

The day that you see me old and I am already not, have patience and try to

understand me.

روزي كه تو مرا در دوران پيري ببيني، سعي كن صبور باشي و مرا درك كني ....

1  ده عدد را گرفته تعیین کند کدام زوج و کدام فرد است.

Private Sub Command13_Click() '16

Cls

Dim i As Integer, n As Integer

For i = 1 To 10

n = InputBox("Enter the num")

Print n; Tab(10); IIf(n Mod 2 = 0, "Even", "Odd")

Next

End Sub

 

 

2  مجموع اعداد زوج و فرد 0 تا 100 را محاسبه کرده و جداگانه چاپ کند.

Private Sub Command14_Click()

Dim i As Integer, s As Integer

For i = 0 To 100 Step 2

s = s + i

Next

MsgBox Prompt:=s, Title:="Events"

s = 0

For i = 1 To 100 Step 2

s = s + i

Next

MsgBox Prompt:=s, Title:="Odds"

End Sub

 

   3  20 عدد را خوانده، بزرگترین و کوچکترین آنها را نمایش دهد.

Private Sub Command15_Click()

Dim min As Integer, max As Integer, n As Integer, i As Integer

For i = 1 To 20

n = InputBox("Enter a num")

If i = 1 Then min = n

If n > max Then max = n

If n < min Then min = n

Next

MsgBox "Max: " & max & " Min: " & min

End Sub

4   برنامه ای بنویسید که عدد چها رقمی فاقد صفر را به همراه تعداد کل آنها نمایش دهد.

Private Sub Command16_Click()

Cls

Dim i As Integer, b As Boolean, t As Integer, c As Integer

For i = 10 To 99

b = True

t = i

Do While t > 0 And b

If t Mod 10 = 0 Then b = False

t = t \ 10

Loop

If b Then

c = c + 1

Print i;

If c Mod 20 = 0 Then Print

End If

Next

MsgBox "Total: " & c

End Sub