Презентация "Создание проектов в Visual Basic"

Тема: «Создание проектов в Visual Basic» Цель урока: 1. Научить учащихся составлять

Повторение пройденного материала

Повторение пройденного материала
1.Типы переменных (byte, integer, string ….)
2.Функция ввода (InputBox)
3.Условный оператор ( IF усл. THEN действ.1 ELSE действ.2 )
4.Операторы цикла ( FOR I=A TO B STEP H тело цикла NEXT ------------------------------- Do While intN>0 тело цикла Loop)

Действия выполняемые при создании проектов.

Проект «Подсчёт цифр в числе»

Алгоритм выполнения проекта
1. Поместить на форму кнопку cmd1 и создать для неё событийную процедуру.
2. Ввод чисел осуществить с использованием функции ввода данных InputBox. Для преобразования строкового значения функции в десятичное число использовать функцию Val.
3. Количество цифр в числе равно количеству выполнения тела цикла, в котором десятичное число делится на 10 и выделяется целая часть частного от деления. Для выделения целой части воспользоваться встроенной функцией Int(x), которая возвращает целую часть числа:

Программный код проекта будет следующий:
Dim intDec, intD, intA As Integer, bytK As Byte
Private Sub cmd1_click()
intDec=Val(InputBox(“Введите натуральное десятичное число”, “ Десятичное число”)
intD=intDec
bytK=0
Do While intD>0
intD=Int(intD/10)
bytK=bytK+1
Loop
Print”Количество цифр в натуральном числе”;intDec;” равно “; bytK
End Sub

Проект «Печать цифр числа»

Модернизировать предыдущий проект.
В событийной процедуре для выделения остатка от деления числа X на число Y использовать оператор X Mod Y.
Для печати по зонам в качестве разделителя списка печати использовать запятую:
Do While intD>0
bytB=intD Mod 10
Print bytB,
intD=Int(intD/10)
Loop

Проект «Сумма цифр числа»

Модернизировать предыдущий проект. В программном коде цикла значениями переменной bytB являются цифры числа, а их сумма накапливается в переменной bytS:
Do While intD>0
bytB=intD Mod 10
bytS=bytS+bytB
intD=(intD-bytB)/10
Loop

Объяснение нового материала:

Проект «Числа без одинаковых цифр»

В событийной процедуре используем вложенные циклы и неполное ветвление, которое обеспечи-вает в случае совпадения цифр переход к следую-щей цифре:
Dim intI, intJ As Byte
Private Sub cmd1_click()
For intI=1 to 9
For intJ=0 to 9
If intJ =intI Then intJ=intJ+1
Print intJ*10+intJ;
Next intJ
Next intI
End Sub

Проект «Перевёртыш чисел»

В первом цикле с предусловием заполнить массив цифрами числа, а во втором цикле со счётчиком обеспечить обратный порядок их следования в числе. Программный код проекта будет следующий:

Dim intN, intN1, intN2 As Integer, bytI, bytJ As Byte, sngA(1 to 10) As Single

Проект «Перевод десятичного числа в двоичную систему счисления»

Реализовать перевод натурального десятичного числа в двоичное число с использованием известного алгоритма последовательного деления числа на основание новой системы счисления.
Реализовать последовательное деление введённого числа на 2 в цикле с предусловием intD>0, который будет выполняться до тех пор, пока частное от деления не станет дробным числом.
В переменной intA хранить остатки деления. С помощью оператора ветвления преобразовать числовое значение остатка (переменная intA) в строковую переменную strBin, хранящую двоичное число.

Программный код проекта будет следующий:

Программный код проекта будет следующий:
Dim intDec, intD, intA As Integer, strBin As String
Private Sub cmd1_click()
intDec=Val(InputBox(“Введите натуральное десятичное число”, “ Десятичное число”)
strBin=” “
intD=intDec
Do While intD>0
intA=intD Mod 2
If intA=1 strBin=”1”+strBin Else strBin=”0”+strBin
intD=Int(intD/2)
Loop
Print”Десятичное число”;intDec,”Двоичное число”; strBin
End Sub

Работа с программой Visual Basic

Домашнее задание