Ответы
Ответ дал:
0
Ответ:
Объяснение:
Module Module1
Sub Main()
Dim stroka As String = "Test STRING" '7 прописных символов
Dim i, count As Byte
count = 0
For i = 1 To Len(stroka)
If (Mid(stroka, i) >= "A" And Mid(stroka, i) <= "Z") Then
count = count + 1
End If
Next i
Console.WriteLine("Количество прописных букв= {0}", count)
Console.ReadLine()
End Sub
End Module
Ответ дал:
0
Спасибо, только как по другому записать вот эту строчку:
If (Mid(stroka, i) >= "A" And Mid(stroka, i) <= "Z") Then
count = count + 1
If (Mid(stroka, i) >= "A" And Mid(stroka, i) <= "Z") Then
count = count + 1
Вас заинтересует
1 год назад
1 год назад
1 год назад
1 год назад
7 лет назад
8 лет назад
8 лет назад