 |
Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | |
Пример программы. 1. Требуетсясоздать программу, позволяющую преобразовать начальную букву строковой переменной в заглавную
|
|
1. Требуется создать программу, позволяющую преобразовать начальную букву строковой переменной в заглавную, если это не пробел.
‘ Пример 3.1
‘Лабораторная работа №3
Sub Lab_rab_3_1()
Dim p, v As String
'объявляем переменные р (входная) и v (выходная) - строковыми
M1: p = InputBox("Введите строку символов", _
"Ввод данных", " абвгдежзе")
'Метка М1: переменной р присваиваем значение строки символов, 'вводимой с клавиатуры
If p = Empty Then Exit Sub
'если нажата кнопка Cancel, тогда завершаем процедуру
If Asc(Left(p, 1)) = 32 Then
'если ASCII код первого символа строки есть "пробел", тогда
MsgBox "Первый символ - пробел. Повторите ввод", _
vbInformation + vbOKOnly, "Внимание!"
'вывод на экран сообщения
GoTo M1
'и переход на метку М1
Else
'иначе
v = UCase(Left(p, 1)) & Right(p, Len(p) - 1)
'Формирование выходной переменной
MsgBox v, vbOKOnly, "Результат"
'Вывод результата
End If
'закрывающая операторная скобка
End Sub
2. Требуется создать программу вывода на экран очередного символа строки. Реализовать режим повтора работы программы по запросу пользователя.
‘ Пример 3.2
‘Лабораторная работа №3
Sub Lab_rab_3_2()
Dim p As String, i, n, k As Integer
met: p = InputBox("Введите строку символов", _
"Ввод данных", "абвгдеж")
If p = Empty Then Exit Sub
For i = 1 To Len(p)
'Цикл по I от 1 до количества символов строки
MsgBox Str(i) & " – тый символ строки - " & Mid(p, i, 1)
Next i
k = MsgBox("Продолжить работу программы", _
vbYesNo + vbQuestion)
'Переменной к присваивается значение, возвращаемое
'функцией MsgBox() в зависимости от нажатой пользователем
'кнопки Да или Нет
If k = vbYes Then GoTo met
End Sub
Дата публикования: 2014-11-04; Прочитано: 228 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!
