Создание проектов в Visual Basic

Basic»

проекты

для работы с числами.
2. Развить навыки работы с программой
Visual Basic.
3. Воспитать будущих программистов.

integer, string ….)
2.Функция ввода (InputBox)
3.Условный оператор (

IF усл. THEN действ.1 ELSE действ.2 )
4.Операторы цикла ( FOR I=A TO B STEP H тело цикла NEXT ------------------------------- Do While intN>0 тело цикла Loop)

программы.
Анализ полученных результатов.

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

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

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

массив цифрами числа, а во втором цикле со счётчиком обеспечить

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

sngA(1 to 10) As Single
Private

Sub cmd1_click()
intN= Val(InputBox("Введите целое десятичное число”, “Ввод числа”)
intN2=intN
bytI=0
Do While intN>0
bytI=bytI+1
sngA(bytI)=intN Mod 10
intN=Int(intN/10)
Loop
intN1=sngA(1)
For bytJ=2 To bytI
intN1=intN1*10+sngA(bytJ)
Next bytJ
Print “Исходное число “; intN2; “Перевёртыш”;intN1
End Sub

десятичного числа в двоичное число с использованием известного алгоритма последовательного

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

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

программы (проекта)
2. Запуск и редактирование программы.
3. Анализ полученных результатов.