**چند سوال در حد دبستان!!

با سلام به همه ي دوستان من مدت زياديه vb كار نكردم و چند سوال ساده دارم
اول:چه جوري كسره زير بايد چاپ بشه؟ چون عدد كسري رو نميشه بنويسي به حروفي منويسم!
<<چون برنامه ها رو ميشه به چندين طريق نوشت در صورت امكان با for باشه بهتره>>
2 سوم ، 7 پنجم ، 11 پانزدهم ، 31 بيست و سوم ، 47 شست و سوم

فقط ميدونم رابطشون اينطوريه كه مثلا صورت كسره اول كه 2 هستش ضرب در 2 ، به علاوه ي 1 ميشه مخرج كسره دوم كه 5 هستش!
بقيه هم همينطوري ، مثلا 3 كه مخرج كسره اوله ضرب در 2 و به علاوه ي 1 ميشه صورت كسره دوم كه 7 هستش....

دوم: با چه كدي ستاره ها اينجوري چاپ ميشه؟ ( با for تو در تو)

*
**
***
****
*****

سوم: بر عكسشو چه جوري بايد چاپ كرد؟؟
*
**
***
****
*****
ممنون

جواب سوال دوم

کد:

---

Private Sub Command1_Click()
Dim s As String
s = "*"
For i = 1 To 10
    Print s
    s = s & "*"
Next i

End Sub

---

:8:

جواب سوال سوم

کد:

---

Private Sub Command1_Click()
Dim s As String

x = 9
s = "*"
' 10 ta space
f = "          "
For i = 1 To 10
    Print f & s
       
        f = Left(f, x)
        x = x - 1
   
    s = s & "*"
Next i

End Sub

---

:8:

جواب سوال اول

کد:

---

x = CStr(adad)
'zero (0)----------------------------
If x = "0" Then
    sooorat = 0
    makhrajj = 1
  GoTo Perint
End If
'------------------------------------
jayem = InStr(1, x, ".")
feex = Fix(x)
toolashar = Len(x) - Len(CStr(feex))
ashar = Right(x, toolashar)
tavan = Val(Len(ashar))
sooorat = Val(x) * (10 ^ tavan)


'makhraj
makhrajj = 1
For i = 1 To Len(ashar)
    makhrajj = makhrajj * 10
Next i


'sade kardan--------------------------
If sooorat - makhrajj < 0 Then
    bozorg = makhrajj
    koochik = sooorat
ElseIf sooorat - makhrajj > 0 Then
    bozorg = sooorat
    koochik = makhrajj
Else
 bozorg = sooorat
 koochik = makhrajj
End If


baghi = bozorg Mod koochik

Do While baghi <> 0
temp = koochik
    koochik = baghi
    bozorg = temp
    baghi = koochik Mod baghi
   
Loop

'Out put(s)=====================
sooorat = sooorat / koochik
makhrajj = makhrajj / koochik

Perint:
 End

---

:8:

نقل قول:

---

نوشته شده توسط BabyBoy [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

:8:

---

با با دمت گرم
ممنون از توجهت .. . دستت درد نكنه زحمت كشيدي
ولي واسه ي چاپ كردن اون كسر اون همه كد ميخواست؟؟؟؟
در هر صورت دستت بيبلا

dll همونم قبلا نوشتم اگه به دردت میخوره بگو برات upload کنم :46:

سلام دوستان ببخشيد دوباره مزاحم ميشم يه سوال ديگه داشتم چه جوري بايد اين كار رو انجام بدم:

1
23
456
78910
(البته از سمت چپ،)( اينجا يه كم بد دراومد)
مثل همون ستاره هاي بالا باشه اما عدد باشه و هر ستون از 1 شروع نشه
مثلا 1،12،123،1234 هر ستون ادامه ي قبلي باشه
ممنون ميشم!

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

کد:

---

Dim A As String
Dim B As Single
A = ""
For B = 1 To 4
A = A & B
Print A
Next B

---

نقل قول:

---

نوشته شده توسط MrJamshidy [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

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

کد:

---

Dim A As String

---

کد:

---

Dim B As Single

A = ""
For B = 1 To 4
A = A & B
Print A

Next B

---

---

ممنون
اما يه كم با اون چيزي كه ميخوام تفاوت داره
تفاوتش اينه كه من ميخام وقتي سطر اول چاپ ميشه 1 ديگه وقتي مياد پايين دوباره چاپ نكنه 1،2 ميخوام وقتي در خط اول 1 چاپ ميشه بعد كه مياد پايين چاپ بشه 2،3 ‌يعني ادامه ي 1 باشه ... و در خط بعد هم همينطور بعد از 2،3 چاپ بشه 3،4،5 و به همين ترتيب....
ممنون ميشم
راستش من مدتي هستش vb كار نكردم و الان دارم تمرين ميكنم تا يه خورده روون بشم!

vb دم دستم نیست امتحانش نکردم امیدوارم کار کنه!!! :8:

کد:

---

s = "12345678910"
k = 1
For i = 1 To 10
  x = Mid(s, i, k)
    Print x
  k = k + 1
  i = (i * 2) - 1
Next i

---

نقل قول:

---

نوشته شده توسط BabyBoy [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

vb دم دستم نیست امتحانش نکردم امیدوارم کار کنه!!! :8:

کد:

---

s = "12345678910"
k = 1
For i = 1 To 10
  x = Mid(s, i, k)
    Print x
  k = k + 1
  i = (i * 2) - 1
Next i

---

---

ممنون
ببخشيد دير جواب دادم
كار كرد دوست عزيز