برنامه زیر رشته ای را از ورودی دریافت میکند و مجموع ارقام نویسه ای موجود در رشته را محاسبه مینماید و نمایش میدهد :
Private Sub Command5_Click()
Cls
Dim t As String, i As Integer, s As Integer, p As String
t = InputBox("Enter string")
For i = 1 To Len(t)
p = Mid(t, i, 1)
If IsNumeric(p) Then s = s + p
Next
Print s
End Sub
پاسخ با نقل قول
