![]() Заглавная страница Избранные статьи Случайная статья Познавательные статьи Новые добавления Обратная связь FAQ Написать работу КАТЕГОРИИ: ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ТОП 10 на сайте Приготовление дезинфицирующих растворов различной концентрацииТехника нижней прямой подачи мяча. Франко-прусская война (причины и последствия) Организация работы процедурного кабинета Смысловое и механическое запоминание, их место и роль в усвоении знаний Коммуникативные барьеры и пути их преодоления Обработка изделий медицинского назначения многократного применения Образцы текста публицистического стиля Четыре типа изменения баланса Задачи с ответами для Всероссийской олимпиады по праву ![]() Мы поможем в написании ваших работ! ЗНАЕТЕ ЛИ ВЫ?
Влияние общества на человека
Приготовление дезинфицирующих растворов различной концентрации Практические работы по географии для 6 класса Организация работы процедурного кабинета Изменения в неживой природе осенью Уборка процедурного кабинета Сольфеджио. Все правила по сольфеджио Балочные системы. Определение реакций опор и моментов защемления |
Dim институт, школа As StringСодержание книги
Поиск на нашем сайте
ВОЗРАСТ=InputBox("Сколько вам лет?", "Введение возраста") If ВОЗРАСТ>17 Then ИНСТИТУТ=InputBox("В каком институте ты учишься?", "введение названия института"): Text1.Text=" Хороший институт!" Else ШКОЛА=InputBox("В какой школе ты учишься?", "введение названия школы"): Text1.Text = "Неплохая школа" End If MsgBox "До следующей встречи!", 64, "Прощание" 3. Запустить программу и убедиться в правильности ее работы, при необходимости исправить ошибки, а затем сохранить на дискете проект и форму. Практическая работа № 4.29 1. Создать новый проект и программу для решения задачи: человек вводит в компьютер число. Если оно находится в интервале от 28 до 30, то нужно напечатать текст – ПОПАЛ, если оно больше или равно 30, то – ПЕРЕЛЕТ, если оно находится на отрезке от 0 до 28, то – НЕДОЛЕТ, если число меньше нуля, то – НЕ БЕЙ ПО СВОИМ. Макет формы показан на рис. 39. 2. Программный код для кнопки пуск: Dim A As Single A=InputBox("Введите число", "Ввод числа") If A<0 Then Text1.Text="Не бей по своим!" Else If A<=28 Then Text1.Text="Недолет" Else If A<30 Then Text1.Text="Попал!" Else Text1.Text="Перелет" End If End If End If 3. Запустить программу и убедиться в правильности ее работы, при необходимости исправить ошибки, а затем сохранить на дискете проект и форму. Практическая работа № 4.30 1. Создать новый проект и программу для решения задачи: пользователь 2. Программный код для кнопки пуск: Dim a, r1, r2, s, s1, s2 As Double Const pi=3.1416 r1=InputBox("введите 1 радиус") r2=InputBox("введите 2 радиус ") a=InputBox("введите сторону квадрата") s1=pi*r1^2 s2=pi*r2^2 s=a^2 If s1>s2 And s1>s Then MsgBox "круг 1 больше" ElseIf s1<s2 And s<s2 Then MsgBox "круг 2 больше" ElseIf s1>s And s1=s2 Then MsgBox "круги равны, квадрат меньше" ElseIf s1<s And s1=s2 Then MsgBox "круги равны, квадрат больше" ElseIf s1<s And s>s2 Then MsgBox "квадрат больше" End If
3. Запустить программу и убедиться в правильности ее работы, при необходимости исправить ошибки, а затем сохранить на дискете проект и форму. Практическая работа № 4.31 1. Создать новый проект и программу для решения задачи: пользователь вводит произвольное число. Вывести с помощью процедуры MsgBox результат сравнения суммы 1-й и 3-й цифры с суммой 2-й и 4-й цифры. Если введенное число имеет меньше 4-х разрядов, сообщить об этом пользователю и сравнение не производить. Макет формы показан на рис. 40. 2. Программный код для кнопки пуск: Dim i, a1, a2 As Integer Dim b As String b=InputBox("введите число") If Len(b)<4 Then MsgBox "недостаточно цифр", 48, "стоп" Else a1=Val(Mid(b, 1, 1))+Val(Mid(b, 3, 1)) a2=Val(Mid(b, 2, 1))+Val(Mid(b, 4, 1)) If a1>a2 Then MsgBox "1 и 3 больше", 64, "результат" ElseIf a1<a2 Then MsgBox "2 и 4 больше", 64, "результат" Else MsgBox "одинаково", 64, "результат" End If End If 3. Запустить программу и убедиться в правильности ее работы, при необходимости исправить ошибки, а затем сохранить на дискете проект и форму. Практическая работа № 4.32 1. Создать новый проект и программу для решения задачи: пользователь вводит произвольное число. Вывести с помощью процедуры MsgBox результат сравнения суммы цифр, расположенных на четных местах в числе с суммой цифр, расположенных на нечетных местах: меньше, больше или одинаковы. Расположить на форме кнопку выхода из проекта. С помощью процедуры MsgBox перед выходом переспросить, уверен ли пользователь в выходе, выход только по ответу – да. Макет формы показан на рис. 40. 2. Программный код для кнопки пуск: Dim i, a1, a2 As Integer Dim b As String b=InputBox("enter number") For i=1 To Len(b) Step 2 a1=a1+Val(Mid(b, i, 1)) a2=a2+Val(Mid(b, i+1, 1)) Next If a1>a2 Then MsgBox "сумма нечетных больше", 64, "результат" ElseIf a1<a2 Then MsgBox "сумма четных больше", 64, "результат" Else MsgBox "равны", 64, "результат" End If 3. Программный код для кнопки выход: Dim a As String a=MsgBox("выход?", vbYesNo, "выход") If a=vbYes Then End 4. Запустить программу и убедиться в правильности ее работы, при необходимости исправить ошибки, а затем сохранить на дискете проект и форму. Практическая работа № 4.33
2. Программный код для кнопки пуск: Dim i, n As Integer Dim a As String For i=0 To List1.ListCount If List1.List(i)=Text1.Text Then n=1 Next If n=1 Then a=MsgBox("есть товар" & vbCrLf & "продолжить?", vbYesNo) Else a=MsgBox("нет товара" & vbCrLf & " продолжить?", vbYesNo) End If If a=vbNo Then End 3. Запустить программу и убедиться в правильности ее работы, при необходимости исправить ошибки, а затем сохранить на дискете проект и форму. Форма отчета: дискета или иной носитель с файлами форм и проектов работы № 4; текстовый файл с изображениями форм и текстами программных кодов.
|
||||||
Последнее изменение этой страницы: 2016-12-10; просмотров: 397; Нарушение авторского права страницы; Мы поможем в написании вашей работы! infopedia.su Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Обратная связь - 3.142.119.166 (0.008 с.) |