با سلام
مند چند سوال در مورد وبژوال بيسيك دارم كه مي خواستم اگر ممكنه دوستان در صورت امكان هر چه زودتر به اين سوالا پاسخ بدن.
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
براي مقلوب تابع 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
آخريم خودت بنويس.
سلام
یه کد برات نوشتم ببین به کارت میاد
برای چاپ اعداد اول 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
سلام
یه کد برات نوشتم ببین به کارت میاد
جواب سوال 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
سلام
یه کد برات نوشتم ببین به کارت میاد
جواب سوال 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
سلام
اگه امکان داره درباره سوال 3 بیشتر توضیح بده تا کمکت کنم
سلام
یه کد برات نوشتم ببین به کارت میاد
این برنامه خروجی زیر را میدهد
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
منظورم از سوال 3 اينه كه اگر شما يك عددي وارد كرديد مثل 506 در روي فرم با كليك 605 چاپ شه دقيقاً برعكس عدد كه بهش مقلوب مي گن.
راستي يه برنامه كوچيك ام داشتم كه اگه لطف كنيد
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
iranfast نوشته است:منظورم از سوال 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
فاصله هاش رو خودت درست کن چون این کدی بندی کردن کد در فروم
فاصله هاش رو بهم میزنه !
سلام
یه کد برات نوشتم ببین به کارت میاد
جواب سوال 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