QB Program to supply a sentence and count the alphabets "A" and "S" in the sentence.

Linear Program

Cls
Input "Enter a sentence"; bakya$
capbakya$ = UCase$(bakya$)
For i = 1 To Len(bakya$)
yc$ = Mid$(capbakya$, i, 1)
Select Case yc$
Case "A", "S"
count = count + 1
End Select
Next
Print "The total A and S is "; count
End

---

Using Sub Program

Declare Sub count_A_S(abc$)
Cls
Input "Enter a sentence"; bakya$
Call count_A_S(bakya$)
End

Sub count_A_S (bakya$)
capbakya$ = UCase$(bakya$)
For i = 1 To Len(bakya$)
yc$ = Mid$(capbakya$, i, 1)
Select Case yc$
Case "A", "S"
count = count + 1
End Select
Next
Print "The total A and S is "; count
End Sub

---

Using Function Procedure

Declare Function count_A_S(abc$)
Cls
Input "Enter a sentence"; bakya$
Print "The total A and S is "; count_A_S(bakya$)
End

Function count_A_S (bakya$)
capbakya$ = UCase$(bakya$)
For i = 1 To Len(bakya$)
yc$ = Mid$(capbakya$, i, 1)
Select Case yc$
Case "A", "S"
count = count + 1
End Select
Next
count_A_S = count
End Function

---