بررسی مشکل این برنامه

سلام دوستان من این برنامه رو نوشتم ولی نمیدونم چرا موقع اجرا type mithmach میده

<<<>>این برنامه قراره با یک روال یه رشته رو دریافت کنه بعدش تعداد فضاهای خالیشو بشمره و ب طرف بگه

کد:

---

Private Sub Command1_Click()

---

کد:

---

k = InputBox("")
Call faza(k)


End Sub

---

این روالش

کد:

---

Public Function faza(ByVal x As Integer) As Integer

---

کد:

---

Dim l As Integer
l = 0
For i = 1 To Len(x)
t = Mid(x, i, 1)
If Asc(t) = 8 Then
l = l + 1
End If
Next
Print l

End Function

---

سلام.../// [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
***********
به تعریف تابع توجه کنید./// این تابع یک مقدار به صورت عدد صحیح دریافت می کنه و یک مقدار به صورت عدد صحیح برمی گردونه../// شما به جای عدد صحیح یه رشته برای این تابع فرستادید که باعث به وجود اومدن خطای type mithmach شد../// [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
**************

کد:

---

Public Function faza(ByVal x As Integer) As Integer

شکل صحیح

Public Function faza(ByVal x As String) As Integer

---

************
مشکل دیگه ای که این برنامه داره مربوط به شرطی میشه که برای بررسی برابر بودن کارکتر با فضای خالی نوشتید// به جای عدد 8 که کد اسکی کلید Backspace هستش باید از عدد 32 (کد اسکی کارکتر فاصله) استفاده کنید تا برنامه نتیجه ی درستی رو نمایش بده../// [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
****************
موفق باشید! [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

داداش مرسی اصلا حواسم ب تابع نبود دمت گرم

ایول:n06::n04:

یه چیز دیگه رفیق

این برنامه قراره یه عدد بگیره ارقامش رو ب وسیله روال جمع کنه ولی مشکلش اینه ک فقط برای اعداد دورقمی کار

میکنه <ارقام 3 رقمی رو کلا اشتپ میده مشکلش چیه

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

کد:

---

Private Sub Command2_Click()

---

کد:

---

a = InputBox("")
Call jam(a)
End Sub

---

این روالش

کد:

---

Public Function jam(ByVal x As Integer) As Integer

---

کد:

---

s = 0
g = 0
For i = 1 To Len(x)
s = Mid(x, i, 1)
g = g + s
Next
Print g

End Function

---

سلام
مشکل شما باز هم در آرگومان تابع هست که اون رو از نوع صحیح تعریف کردید و در خط 4
خواستید اون رو به رشته تبدیل کنه و تغداد کاراکتر ها رو بشماره و همچین در خط بعد از اون
از تابع Mid برای جدا کردن ارقام از اون استفاده کردید پس در کل اون به رشته تبدیل می شه
ولی بهتره که از این کد استفاده کنید

کد:

---

Public Function jam(ByVal x As Integer) As Integer
s = 0
g = 0
While x <> 0
    s = s + (x Mod 10)
    x = x \ 10
Wend
jam = s
End Function

---

کد:

---

Private Sub Command1_Click()
Print jam(InputBox(""))
End Sub

---

از این روش می تونید هر عدد چند رقمی که بخواین وارد کنید و خروجی رو به شکل صحیح ببنید
اگه مشکلی بود من در خدمتم خوشحال می شم کمکتون کنم :n26: