کمک در مورد حلقه

[nima3p2p]

سلام دوستان من توی کد زیر نمیدونم توی حلقه زیر چی بنویسم تا حلقه بسته بشه الان حلقه بینهایته
توی دستور While num > 0

صورت مسئله هم ( برنامه ای بنویسید که اعداد صحیح را گرفته و تعداد ارقام غیر صفر را در خروجی نمایش دهد)


num = Val(Text1.Text)
Sum = 0

While num > 0
If num Mod 10 <> 0 Then
Sum = Sum + 1
num = num \ 10
End If
Wend
Label1.Caption = Str(Sum)

[meys34]

سلام

همه چیز درسته فقط num = num \ 10 رو باید بیارید بیرون If

num = Val(Text1.Text)
Sum = 0

While num > 0
If num Mod 10 <> 0 Then
Sum = Sum + 1
End If
num = num \ 10
Wend
Label1.Caption = Str(Sum)