Заглавная страница Избранные статьи Случайная статья Познавательные статьи Новые добавления Обратная связь FAQ Написать работу КАТЕГОРИИ: АрхеологияБиология Генетика География Информатика История Логика Маркетинг Математика Менеджмент Механика Педагогика Религия Социология Технологии Физика Философия Финансы Химия Экология ТОП 10 на сайте Приготовление дезинфицирующих растворов различной концентрацииТехника нижней прямой подачи мяча. Франко-прусская война (причины и последствия) Организация работы процедурного кабинета Смысловое и механическое запоминание, их место и роль в усвоении знаний Коммуникативные барьеры и пути их преодоления Обработка изделий медицинского назначения многократного применения Образцы текста публицистического стиля Четыре типа изменения баланса Задачи с ответами для Всероссийской олимпиады по праву Мы поможем в написании ваших работ! ЗНАЕТЕ ЛИ ВЫ?
Влияние общества на человека
Приготовление дезинфицирующих растворов различной концентрации Практические работы по географии для 6 класса Организация работы процедурного кабинета Изменения в неживой природе осенью Уборка процедурного кабинета Сольфеджио. Все правила по сольфеджио Балочные системы. Определение реакций опор и моментов защемления |
Dim N, X As Integer, A, V As SingleСодержание книги
Поиск на нашем сайте
Form1.Cls N=InputBox("Введите число кубиков", "количество кубиков") For X=1 To N Step 1 A=InputBox("Введите длину стороны кубика", "ввод длины") V=A^3 Print "объем кубика"; X; "="; V Next X 3. Запустить программу и убедиться в правильности ее работы, при необходимости исправить ошибки, а затем сохранить на дискете проект и форму. Практическая работа № 4.8 1. Создать новый проект и программу: в квартире 4 комнаты. Известны длина и ширина каждой комнаты. Вычислить площадь пола всей квартиры. Макет формы показан на рис. 27. 2. Программный код для кнопки пуск: Form1.Cls Dim S, A, B, C, D As Long Dim X1, X2, X3, X4 As Single Dim Y1, Y2, Y3, Y4 As Single X1=InputBox("Введите длину 1 комнаты") Y1=InputBox("Введите ширину 1 комнаты") X2=InputBox("Введите длину 2 комнаты") Y2=InputBox("Введите ширину 2 комнаты") X3=InputBox("Введите длину 3 комнаты") Y3=InputBox("Введите ширину 3 комнаты") X4=InputBox("Введите длину 4 комнаты") Y4=InputBox("Введите ширину 4 комнаты") A=X1*Y1: B=X2*Y2: C=X3*Y3: D=X4*Y4 S=A+B+C+D Text1.Text=S 3. Запустить программу и убедиться в правильности ее работы, при необходимости исправить ошибки, а затем сохранить на дискете проект и форму. Практическая работа № 4.9 1. Создать новый проект и программу: в классе 10 учеников. Вычислить средний балл учеников класса по физике. Макет формы показан на рис. 28. 2. Программный код для кнопки пуск: Dim X, A As Integer, B As Single For X=1 To 10 Step 1 A=InputBox("Введите балл ученика", "ввод баллов") B=B+A Next X B=B/10 Text1.Text=B 3. Запустить программу и убедиться в правильности ее работы, при необходимости исправить ошибки, а затем сохранить на дискете проект и форму. Практическая работа № 4.10 1. Создать новый проект и программу, которая позволить создать список чисел, а затем выполнить со списком одно из 2-х действий: поиск минимального числа в списке, либо подсчет количества отрицательных чисел в списке. Макет формы показан на рис. 29. 2. Программный код для кнопки найти: Dim chismin As Single Dim i, n As Integer If vibor(0).Value Then chismin=chisarr(1) For i=2 To chiskol If chisarr(i)<chismin Then chismin=chisarr(i) Next i result.Caption=chismin ElseIf vibor(1).Value Then For i=1 To chiskol If chisarr(i)<0 Then n=n+1 Next i result.Caption=n End If 3. Программный код для кнопки добавить, а также описание глобальных переменных записать аналогично работе № 3.1, пп. 4 и 5. Запустить программу и убедиться в правильности ее работы, при необходимости исправить ошибки, а затем сохранить на дискете проект и форму.
Практическая работа № 4.11 1. Создать новый проект и программу для вывода на форму двух списков: в первый поместить названия книг, рекомендуемых для чтения, а во второй во время работы программы поместить список прочитанных книг. Макет формы показан на рис. 30. 2. Программный код для кнопки пуск: Dim NazKn1(1 To 3) As String, NazKn2(1 To 5) As String NazKn1(1)="Программирование на VB" NazKn1(2)="Информатика" NazKn1(3)="Основы программирования" Dim x, y As Integer For x=1 To 3 List1.AddItem NazKn1(x) Next x For y=1 To 5 NazKn2(y)=InputBox("Введите, пожалуйста, название книги", "Ввод названий прочитанных книг") List2.AddItem NazKn2(y) Next y 3. Программные коды для списков: Private Sub List1_Click() Label1.Caption=List1.Text End Sub Private Sub List2_Click() Label2.Caption=List2.Text End Sub 4. Запустить программу и убедиться в правильности ее работы, при необходимости исправить ошибки, а затем сохранить на дискете проект и форму. Практическая работа № 4.12 1. Создать новый проект и программу для вычисления длины окружности и площади круга по введенному радиусу. Результат напечатать оператором Print. Макет формы показан на рис. 31. 2. Программный код для кнопки пуск: pi=3.14159
|
||||
Последнее изменение этой страницы: 2016-12-10; просмотров: 452; Нарушение авторского права страницы; Мы поможем в написании вашей работы! infopedia.su Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Обратная связь - 18.217.118.7 (0.008 с.) |