كمك براي حل چند مسئله؟ (فوري)

[iranfast]

با سلام
مند چند سوال در مورد وبژوال بيسيك دارم كه مي خواستم اگر ممكنه دوستان در صورت امكان هر چه زودتر به اين سوالا پاسخ بدن.
1- برنامه اي بنويسيد كه اعداد اول 1 تا 100 را چاپ كند.
2- برنام هاي بنويسيد كه عددي صحيح را از ورودي دريافت كند و مجموع ارقام آن را چاپ كند.
3- برنامه اي بنويسيد كه عددي صحيح از ورودي دريافت كرده و مقلوب آن را چاپ كند ( 23->32)
4- برنامه اي بنويسيد كه تمام اعداد صحيح سه رقمي را كه رقم يكان آنها با صدگان برابر است چاپ كند ( 111-121-131-141-242-343 و ...)
برنامه اي بنويسيد كه خروجي زير را توليد كند .
           1 2 3 4 5 6 7 8 9 10
              1 2 3 4 5 6 7 8
                 1 2 3 4 5 6
                   1 2 3 4
                     1 2  

[Payman62]

براي مقلوب تابع StrReverse كارتو راه ميندازه.
اعداد اول 1 تا 100 رو هم با C نوشتم اگه ميتوني تبديل كني بذارم.
مجموع ارقام هم كه كاري نداره.

کد:

Dim intSum As Integer
Private Sub Command1_Click()
    intSum = 0
    For i = 0 To Len(Text1.Text) - 1
        Text1.SelStart = i
        Text1.SelLength = 1
        intSum = intSum + Text1.SelText
    Next i
    Label1.Caption = intSum
End Sub

آخريم خودت بنويس.

[arashrj]

سلام
یه کد برات نوشتم ببین به کارت میاد
برای چاپ اعداد اول 1 تا 100



'Arash RJ
'arashrj@gmail.com
'www.PersianFox.com

Private Sub Command1_Click()
For a = 1 To 100
For aa = 2 To a - 1
If a / aa = a \ aa Then
GoTo 10
End If
Next
Print a
10
Next
End Sub

[arashrj]

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


'Arash RJ
'arashrj@gmail.com
'www.PersianFox.com

Private Sub Command1_Click()
l = 0
For a = 100 To 999
If Mid(a, 1, 1) = Mid(a, 3, 1) Then
l = Val(l) + Val(a)
End If
Next
Print l
End Sub

[arashrj]

سلام
یه کد برات نوشتم ببین به کارت میاد
جواب سوال 2


'Arash RJ
'arashrj@gmail.com
'www.PersianFox.com

Private Sub Command1_Click()
aa = InputBox("Number ?")
For a = 1 To Len(aa)
l = Mid(aa, a, 1)
ll = Val(ll) + Val(l)
Next
Print ll
End Sub

[arashrj]

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

[arashrj]

سلام
یه کد برات نوشتم ببین به کارت میاد
این برنامه خروجی زیر را میدهد
1 2 3 4 5 6 7 8 9 10
1 2 3 4 5 6 7 8
1 2 3 4 5 6
1 2 3 4
1 2

-----------------------------------------

'Arash RJ
'arashrj@gmail.com
'www.PersianFox.com

Private Sub Command1_Click()
For a = 1 To 10 Step 2
l = ""
For aa = 1 To 11 - a
l = l & aa & " "
Next
Print l

Next
End Sub

[iranfast]

منظورم از سوال 3 اينه كه اگر شما يك عددي وارد كرديد مثل 506 در روي فرم با كليك 605 چاپ شه دقيقاً برعكس عدد كه بهش مقلوب مي گن.

[iranfast]

راستي يه برنامه كوچيك ام داشتم كه اگه لطف كنيد
5- برنامه اي بنويسيد كه خروجي زير را توليد كند.
                       1
                    3 2 1
                 5 4 3 2 1
              7 6 5 4 3 2 1
                 5 4 3 2 1
                    3 2 1
                       1

[Iron_Fist]

منظورم از سوال 3 اينه كه اگر شما يك عددي وارد كرديد مثل 506 در روي فرم با كليك 605 چاپ شه دقيقاً برعكس عدد كه بهش مقلوب مي گن.

همو نطور که پیمان خان گفت با تابع strreverse

کد:

Private Sub Form_Load()
Me.AutoRedraw = True
Print "         1"
Print "      1 2 3 "
Print "   1 2 3 4 5"
Print "1 2 3 4 5 6 7"
Print "   1 2 3 4 5"
Print "      1 2 3 "
Print "         1"
End Sub

فاصله هاش رو خودت درست کن چون این کدی بندی کردن کد در فروم
فاصله هاش رو بهم میزنه !

[arashrj]

سلام
یه کد برات نوشتم ببین به کارت میاد
جواب سوال 3

'Arash RJ
'arashrj@ gmail.com
'www.PersianFox.com

Private Sub Command1_Click()
inn = InputBox("?")
For a = 1 To Len(inn)
l = Len(inn) - a
s = Mid(inn, l + 1, 1)
ss = ss & s
Next
Print ss
End Sub