|
Что
будет напечатано на форме после
выполнения программы, записанной на объектно-ориентированном
языке программирования Visual
Basic? |
Dim
strA,
strB As String, I, N As Byte
Sub
Command1_Click()
strA = "информатика"
Do While
I
< Len(strA)
I = I + 1
strB = Mid(strA,
I, 1)
If
strB =
"а" Then N = N + 1
Loop
Form1.Print N
End Sub |