مساعده عاجلة في حل موضوع هالبرنامج

هذا هو السودو كود (خريطة البرنامج)

number=String(textFiled)
a = len(number)
count =0
for i = 1 to a
   if charAt(i)=='7' then count++
next i

print "Number of 7's in string is "+count

عليك كتابة الكود بالشكل الصحيح

اتمنى أن اكون افدت بالشكل المطلوب

بسم الله الرحمن الرحيم

الكود السابق بالجافا

أما بال VB

Private Sub Command1_Click()
For i = 1 To Len(Text1.Text)
    If Mid(Text1.Text, i, 1) = "7" Then Counter = Counter + 1
Next i

Print Counter
End Sub

والسلام عليكم ورحمة الله وبركاته