Инфоурок Информатика Другие методич. материалыСборник практических заданий MS Visual Basic

Сборник практических заданий MS Visual Basic

Скачать материал

 

 

 

 

 

 

 

 

 

Microsoft Visual Basic

 

 

 


Практические задания.

 

 

 

 

 

   Власов А.А.

 

 

 

 

 

 

 

 

 

 

 

 

2012 г.

 

 

Cодержание:

              I.      Надпись: 2Проект «занимательная форма» -                                   3

   II. Программа для подсчета затрат-                                    6

      III. Программа для решения квадратных уравнений -          9

IV. Проект «Часы» -                                                                 12

      V.Проект «Будильник» -                                                           15

      VI.Проект  - заставка «Точки» -                                             17

VII.Игра «Головоломка» -                                                         19

VIII. Игра «Поймай кнопку» -                                                  21

 

 

 

 

 


          II.      Проект «Занимательная форма».

Создадим форму и поместим на нее шесть командных кнопок, первая кнопка  будет уменьшать размеры формы, вторая – увеличивать, третья – закрашивать форму в красный цвет, четвертая – в синий цвет, пятая – делать все кнопки невидимыми, шестая – возвращать кнопки. Для этого:

1.Запустите Microsoft Visual Basic.

2. Поместите на форму шесть управляющих кнопок:

3. Назначьте следующие свойства элементов управления:

-          Форма:
NamefrmFormFun,
Caption – Занимательная форма.

-          управляющая кнопка Command1:
NamecmdShrink,
caption – Уменьшение формы.

-          управляющая кнопка Command2:
NamecmdGrow,
caption – Увеличение формы.

-          управляющая кнопка Command3:
NamecmdRed,
caption – Красная форма.

-          управляющая кнопка Command4:
NamecmdBlue,
caption – Синяя форма.

-          Надпись: 3управляющая кнопка Command5:
NamecmdHide,
caption – Скрыть кнопки.

-          управляющая кнопка Command6:
Name – cmdShow,
caption – Вернуть
кнопки,
visible - False.

4. Запишите следующие процедуры обработки событий для управляющих кнопок:

cmdShrink –

Private Sub cmdShrink_Click()

'уменьшение формы

'уменьшаем высоту формы на 100 твипов

frmFormfun.Height = frmFormfun.Height - 100

'уменьшаем ширину формы на 100 твипов

frmFormfun.Width = frmFormfun.Width - 100

End Sub

 

Cmd Grow –

Private Sub cmdGrow_Click()

'увеличение формы

'увеличение  высоты формы на 100 твипов

frmFormfun.Height = frmFormfun.Height + 100

' увеличение ширины формы на 100 твипов

frmFormfun.Width = frmFormfun.Width + 100

End Sub

 

CmdRed –

Private Sub cmdRed_Click()

frmFormfun.BackColor = vbRed  ' закрашиваем форму в красный цвет

End Sub

 

CmdBlue –

Private Sub cmdBlue_Click()

frmFormfun.BackColor = vbBlue 'закрашиваем форму в синий цвет

End Sub

Надпись: 4

CmdHide –

Private Sub cmdHide_Click()

'скрыть все кнопки

cmdGrow.Visible = False

cmdShrink.Visible = False

cmdHide.Visible = False

cmdRed.Visible = False

cmdBlue.Visible = False

' показать кнопку

cmdShow.Visible = True

End Sub

 

CmdShow –

Private Sub cmdShow_Click()

'показать кнопки

cmdGrow.Visible = True

cmdShrink.Visible = True

cmdHide.Visible = True

cmdRed.Visible = True

cmdBlue.Visible = True

' скрыть кнопку

cmdShow.Visible = False

End Sub

5. Запустите проект, при необходимости исправьте ошибки.

6. Отредактируйте проект следующим образом:

a)       Щелчок по форме увеличивает ее ширину на 300 твипов.

b)      Щелчок по форме уменьшает ее высоту на 250 твипов.

c)      Нажатие любой клавиши, в тот момент когда кнопка cmdRed активна,  закрашивает форму в зеленый цвет.

d)      Нажатие любой клавиши, в тот момент когда кнопка  cmdBlue активна, закрашивает форму в черный цвет.

e)      Надпись: 5При нажатии на кнопку cmdRed она закрашивается в красный цвет (свойство Style кнопки установите в положение 1- Graphical).

f)       При нажатии на кнопку cmdBlue она закрашивается в синий цвет (свойство Style кнопки установите в положение 1- Graphical)..

7. Скомпилируйте проект в папку Мои документы под именем Занимательная форма.

 

II. Программа для подсчета затрат.

Создадим программу, для подсчета недельных затрат на питание в школьной столовой, для этого:

  1. Запустите Microsoft Visual Basic.
  2. Поместите на форму четыре метки, два текстовых окна и две управляющие кнопки, как показано на рисунке:

 

 

 

 

 

 

 

 

 

 

 

В текстовое окно 1 будем вводить стоимость обеда, в текстовое окно  2 – количество дней, в метке 4  - получать ответ. Кнопка 1 будет служить для подсчета затрат, кнопка 2 – для выхода из программы.

  1. Назначьте следующие свойства для элементов управления:

-          Форма:
Name – frmE
xpenses,
caption – Подсчет
затрат.

-          Метка 1:
NamelblCost,
caption – стоимость обеда.

-          Надпись: 6Метка 2:
NamelblDays,
caption – количество дней.

-          Метка 3:
NamelblWeekExpenses
caption – Недельные затраты на обед.

-          Метка 4:
Name – lblTotal,
caption – (пустая
графа),

 BackColor – белый цвет,
BorderStyle – 1 – Fixed Single.     

-          Текстовое окно 1:
NametxtCost,
caption – (пустая графа).

-          Текстовое окно 2:
NametxtDays,
caption – (пустая графа).

-          Управляющая кнопка 1:
 
NamecmdCompute,
caption – Подсчитать затраты.

-          Управляющая кнопка 2:
 
NamecmdExit,
caption – Выход.

 

 

 

 

 

 

 

 

 

 

 

 

  1. Введите код  программы:

Объявите переменные:

Надпись: 7Dim Cost As Double ‘стоимость обеда

Dim Days As Integer’количество дней

Dim Total As Double’недельные затраты на обед.

Запишите процедуру обработки события – щелчок по кнопке cmdCompute:

Private Sub cmdCompute_Click()

Cost = Val(txtCost.Text) ' переменной cost присваиваем значение свойства Text текстового окна txtCost (переведя его из символьного значения в числовое)

'аналогично:

Days = Val(txtDays.Text)

Total = Cost * Days ' находим недельные затраты на обед

lblTotal.Caption = Str(Total) ' в метку 1 вписываем значение переменной Total (переведя его из числового значения в символьное)

End Sub

Запишите процедуру обработки события – щелчок по кнопке cmdExit:

Private Sub cmdExit_Click()

End 'выходим из программы

End Sub

  1. Запустите проект, при необходимости исправьте ошибки.

Отредактируйте программу следующим образом:

a)      Щелчок по кнопке cmdCompute закрашивает форму в красный цвет;

b)      Двойной щелчок по метке lblCost делает ее невидимой;

c)      Двойной щелчок по метке lblCost делает кнопку cmdCompute неактивной;

d)      Двойной щелчок по метке lblCost делает кнопку cmdExit неактивной;

e)      Щелчок по текстовому окну 1 закрашивает его в зеленый цвет;

f)       Щелчок по текстовому окну 2 закрашивает его в желтый цвет;

g)      Ответ выводится как в метке lblTotal, так и в метке lblWeekExpenses в виде: Недельные затраты на обед = х рублей.

7. Скомпилируйте проект в папку Мои документы под именем:  Подсчет затрат.

 

Надпись: 8

III. Программа для решения квадратных уравнений.

Создадим программу для решения квадратных уравнений, для этого:

  1. Запустите Microsoft Visual Basic.
  2. Поместите на форму семь меток, три текстовых окна и управляющую кнопку:

В текстовые окна 1, 2 ,3 будем вводить значение коэффициентов А, В, С, кнопка будет служить для решения уравнения, в метке 5 выведем на экран значение дискременанта, а в метках 6 и 7 – корней уравнения.

  1. Надпись: 9Назначьте следующие свойства для элементов управления:
    - Форма:
    NamefrmMain,
    - метка 1:
    NamelblParamA,
    captionA:
    -  метка 2:
    NamelblParamB,
    captionB:
    - метка 3:
    NamelblParamC,
    captionC:
    - метка 4:
    NamelblInscr,
    caption – Результаты решения,
    fontarial black, 12, подчеркнутый.
    - метка 5:
    NamelblD,
    caption – Дискременант,
    fontarial black, 10.
    - метка 6:
    NamelblX1,
    caption – Корень №1,
    fontarial black, 10.
    - метка 7:
    NamelblX2,
    caption – Корень №2,
    fontarial black, 10.
    - управляющая кнопка:
    NamecmdCalculate,
    caption – Решить.
  2. Введите программный код:
    ' объявляем переменные

Dim paramA As Double

Dim paramB As Double

Dim ParamC As Double

Dim X1 As Double

Надпись: 10Dim X2 As Double

Dim D As Double
Запишите процедуру обработки события – щелчок по кнопке
cmdCalculate:

Private Sub cmdCalculate_Click()

'присваиваем переменным значения текстовых окон 1,2,3

paramA = Val(txtParamA.Text)

paramB = Val(txtParamB.Text)

ParamC = Val(txtParamC.Text)

'находим дискременант

D = (paramB * paramB) - (4 * paramA * ParamC)

'находим корни уравнения

If D > 0 Then

    X1 = (-paramB + Sqr(D)) / (2 * paramA)

    X2 = (-paramB - Sqr(D)) / (2 * paramA)

    lblD.Caption = "Дискременант:" + Str(D)

    lblX1.Caption = "корень №1:" + Str(X1)

    lblX2.Caption = "Корень №2:" + Str(X2)

ElseIf D = 0 Then

    X1 = paramB / (2 * paramA)

    X2 = X1

    lblD.Caption = "Дискременант:" + Str(D)

    lblX1.Caption = "корень:" + Str(X1)

    lblX2.Caption = " "

ElseIf D < 0 Then

    lblD.Caption = "Дискременант:" + Str(D)

    lblX1.Caption = "корней нет"

    lblX2.Caption = " "

End If

End Sub

5.      Запустите программу, при необходимости исправьте ошибки.

6. Отредактируйте программу следующим образом:

a)      Надпись: 11Добавьте управляющую кнопку, поместите на нее надпись «Выход», нажатие на эту кнопку должно приводить к выходу их программы;

b)      Добавьте управляющую кнопку с надписью «Подсветка», нажатие на кнопку должно закрашивать текстовые окна в зеленый цвет;

c)      Добавьте кнопку с надписью «Закрась форму», нажатие на кнопку закрашивает форму в желтый цвет,

d)      Добавьте кнопку «Сумма», при нажатии на эту кнопку в метке lblInscr должна выводиться сумма коэффициентов А, В, С;

e)       Добавьте кнопку «Произведение», при нажатии на эту кнопку в метке lblInscr должно выводиться произведение коэффициентов А, В, С;

f)       При загрузке формы кнопка «Решить» не активна, она становится активной при введении в текстовое окно txtParamA какого-либо значения;

g)      При загрузке формы кнопка «Решить» невидима, она становится видимой при введении в текстовое окно txtParamС какого-либо значения.

7. Скомпилируйте программу в папку Мои документы под именем Решение квадратных уравнений.

 

IV. Проект «Часы»

Создадим электронные часы, которые будут показывать текущее время и дату, для этого:

1. Запустите Microsoft Visual Basic.

2. Поместите на форму  Таймер и четыре Метки:

 

 

 

 

 

 

 

 

 

 

 

Надпись: 12

3. Назначьте следующие свойства для элементов управления:

-          Форма:
Name – frmMain,
BackColor – синий
,
Caption – Часы
,

-          Таймер:
Name – tmrTime,

Interval – 1,

-          Метка 1:
Name – lblTimeIns,
Alignment – 2-Center,
BackColor – синий
,
caption – Местное
время,
font – Courier New, жирный
курсив, 20,
foreColor – желтый
,

-          Метка 2:
Name – lblTime,
Alignment – 2-Center,
BackColor – синий
,
caption –  время
,
font – Courier New, жирный
курсив, 20,
foreColor – ярко
зеленый,

-          Метка 3:
Name – lblDataIns,
Alignment – 2-Center,
BackColor – синий
,
caption – Сегодня
:,
font – Courier New, жирный
курсив, 20,
foreColor – желтый
,

-          Надпись: 13Метка 4:
Name – lblData,
Alignment – 2-Center,
BackColor – синий
,
caption – Дата
,
font – Courier New, жирный
курсив, 20,
foreColor – ярко
зеленый.

4. Напишите программный код

Private Sub tmrTime_Timer()

lblTime.Caption = Time ' выводим в метку 2 системное время

lblData.Caption = Date 'выводим в метку 4 текущую дату

End Sub

5. Запустите программу, при необходимости исправьте ошибки.

6. Отредактируйте программу следующим образом:

a)      Каждую минуту, когда количество секунд = 0, в метке 1  появляется сообщение: «Сейчас (х) минут».

b)      Каждую минуту, когда количество секунд = 0, на экране появляется сообщение: «Сейчас (х) минут».

c)      Каждую минуту, когда количество секунд = 0, раздается звук, установленный в системе как стандартный.

d)      Каждую минуту, когда количество секунд = 0, цвет формы меняется на красный.

e)      Каждую минуту, когда количество секунд = 0, цвет шрифта метки 2 меняется на красный.

f)       Каждую минуту, когда количество секунд = 0, ширина  и высота формы увеличивается на 100 твипов.

g)      Создаете кнопку, нажатие на которую будут выводить на экран сообщение: «Местное время (х) минут».

7. Скомпилируйте проект в папку Мои документы под именем Часы.

 

 

 

 

 

 

 

 

 

 

 

 

 

Надпись: 14

V.Проект «Будильник».

Создадим часы с будильником для этого:

  1. Запустите Microsoft Visual Basic.
  2. Поместите на форму 4 метки, таймер, рамку, 2 управляющие кнопки и текстовое окно:

 

 

 

 

 

 

 

 

 

 

 

 

В метку 2 выведем значение текущего времени, в метку 3 – дату, текстовое окно будет служить для ввода времени срабатывания будильника, управляющая кнопка 1 – для включения будильника, кнопка 2 для отображения элементов будильника.

  1. Задайте следующие свойства для элементов управления:

-          Форма:
Name – frmMain,
caption – Будильник
,

-          Таймер:
Name – tmrClock,
Interval – 1,

-          Метка 1:
Name – lblClock,
Alignment – 2 – center,
caption – Будильник
,
font – Arial, жирные
курсив, 20,

-          Надпись: 15Метка 2:
Name – lblTime,
Alignment – 2 – center,
caption – Time,
font – Arial, жирные
курсив, 20,

-          Метка 3:
Name – lblDate,
Alignment – 2 – center,
caption – Date,
font – Arial, жирные
курсив, 20,

-          Метка 4:
NamelblInscr,
 
caption – не забывайте ставить двоеточие после часов и минут,

-          Метка 5:
Name – lblTimeClock,
Visible – False,

-          Рамка 1:
Name – fraClock,
 caption – Будильник
,
visible – False,

-          Управляющая кнопка 1:
Name – cmdWind,
 caption – Завести
,

-          Управляющая кнопка 2:
Name – cmdClock,
 caption – Будильник
,

-          Текстовое окно 1:
NametxtTime,
text – (пустая графа)

-          Таймер 1:
Name – tmrClock,
interval – 1.

  1. Напишите программный код:

Private Sub cmdClock_Click()

fraClock.Visible = True ' делаем рамку 1 видимой

End Sub

Надпись: 16

Private Sub cmdWind_Click()

lblTimeClock.Caption = txtTime.Text 'заводим будильник

fraClock.Visible = False 'делаем рамку невидимой

End Sub

 

Private Sub tmrClock_Timer()

lblTime.Caption = Time 'выводим в метку 2 системное время

lblDate.Caption = Date 'выводим в метку 3 текущую дату

If lblTimeClock.Caption = lblTime.Caption Then 'если системное время совпадает со временем будильника - подаем сигнал

Beep

End If

End Sub

  1. Запустите программу, при необходимости исправьте ошибки.
  2. Отредактируйте программу следующим образом:

a)      При срабатывании будильника цвет формы изменяется на красный.

b)      При срабатывании будильника выходит сообщение: «Пора вставать!».

c)      При срабатывании будильника ширина и высота формы увеличиваются на 500 твипов.

d)      Добавьте в проект управляющую кнопку, нажатие на нее должно выводить на экран сообщение: «Будильник заведен на (время)».

e)      Добавьте а проект кнопку «Подсветка», нажатие на нее должно закрашивать метки со временем и датой в желтый цвет.

f)       При нажатии на кнопку «Завести» рамка «Будильник не становится невидимой, а закрашивается в синий цвет.

  1. Скомпилируйте программу в папку Мои документы под именем Будильник.

 

VI.Проект  - заставка «Точки».

Создадим заставку «Точки». На белом фоне будут хаотично появляться точки разного цвета, для этого:

  1. Надпись: 17Запустите Microsoft Visual Basic.
  2. Поместите на форму таймер.
  3. Задайте следующие свойства элементов управления:
    - Форма:
    NamefrmMain,
    Caption – Точки,
    BackColor – белый,
    - Таймер:
    Nametmr1,
    Interval – 1.

 

  1. Напишите программный код:

'объявляем переменные

Dim R, G, B As Variant

Dim X, Y As Variant

Dim C As Variant

 

Private Sub tmr1_Timer()

For C = 1 To 10 Step 1

' выбираем случайные значения переменных R,G,B для оператора RGB

R = Rnd * 255

G = Rnd * 255

B = Rnd * 255

'выбираем случайные значения координат точки

X = Rnd * frmMain.ScaleWidth

Y = Rnd * frmMain.ScaleHeight

frmMain.PSet (X, Y), RGB(R, G, B)

Next C

 

End Sub

 

  1. Запустите программу, при необходимости исправьте ошибки.
  2. Измените конечное значение цикла на 100, затем на 1000, что изменилось?
  3. Скомпилируйте программу в папку Мои документы под именем Точки.

Надпись: 18

VII.Игра «Головоломка».

Создадим игру «Головоломка», для этого:

1. Запустите Microsoft Visual Basic.

 2. На форму поместите два окна списка, две метки и управляющую кнопку:

 

 

 

 

 

 

 

 

 

 

 

В окно списка 1 запишем 10 чисел, смысл игры заключается в том, чтобы выбрать из этого окна числа, сумма которых равна 50. Выбранные числа будут помещаться в окно списка 2, сумма чисел будет отображаться в метке 2, управляющая кнопка предназначена для выхода из игры.

3. Назначьте следующие свойства элементов управления:

форма:
Name – frmMain,

Caption – Головоломка.

Окно списка 1:
Name – lstNambers,
Style – 1 – Checkbox,
List – 25,27,03,12,06,15,09,30,21,19. (после каждого числа нажимайте Ctrl+Enter).

Окно списка 2:
Name – lstSelectNam.

Надпись: 19Метка 1:
Name – lblAmount,
Caption – Сумма:

Управляющая кнопка:
Name – cmdExit,
Caption – Выход.

  

 

 

 

 

 

 

 

 

 

 

 

4. Напишите программный код:

объявляем переменные

Dim s As Integer

Dim i As Integer

 

Private Sub cmdExit_Click()

End ‘ выход из программы при нажатии на кнопку од

End Sub

 

Private Sub lstNambers_ItemCheck(Item As Integer)

If lstNambers.Selected(Item) Then

lstSelectNam.AddItem lstNambers.List(Item) ' в окно списка 2 выводим выбранные в окне списка 1 значения

Else

For i = 0 To lstSelectNam.ListCount - 1

If lstSelectNam.List(i) = lstNambers.List(Item) Then

lstSelectNam.RemoveItem i

End If

Next i

End If

Надпись: 20s = 0

'слаживаем числа, находящиеся в окне списка 2

For i = 0 To lstSelectNam.ListCount - 1

s = s + Val(lstSelectNam.List(i))

Next i

'выводим значение суммы в метку 1

lblAmount.Caption = "Сумма" + Str(s)

If s = 50 Then

lblAmount.Caption = "Победа" + Str(s)

'делаем окно списка 1 и 2 неактивным

lstNambers.Enabled = False

lstSelectNam.Enabled = False

 

End If

End Sub

5. Запустите программу, при необходимости исправьте ошибки.
6. Добавьте в проект управляющие элементы по своему усмотрению.

Надпись: 217. Скомпилируйте проект в папку Мои документы под именем Головоломка.

 

VIII. Игра «Поймай кнопку».

Создадим игру, на поле формы будет появляться в разных местах небольшая кнопка, задача – щелкнуть мышью по ней, для этого:

  1. Запустите Microsoft Visual Basic.
  2. Поместите на форму управляющую кнопку и таймер.
  3. Задайте следующие свойства для элементов управления:
    Форма:
    -
    NamefrmMain,
    -
    BorderStyle – 1-Fixed Single,
    -
    Caption – Поймай кнопку,
    -
    Height – 8000,
    -
    ScaleHeight – 2800,
    -
    ScaleWidth – 4800,
    -
    Width – 5000,

Управляющая кнопка:
-
NamecmdClick,
-
Caption – Нажми сюда!,
-
Height  - 500,
-
Width – 800,
Таймер:
-
Nametmr1,

- Interval – 500.

4. Напишите программный код:
'объявляем переменные

Dim i As Integer

 

Private Sub cmdClick_Click()

cmdClick.Caption = "Попал!"  'при нажатии на кнопку надпись на ней изменяется

cmdClick.Enabled = False 'кнопка становится неактивной

tmr1.Enabled = False 'отключаем таймер

End Sub

 

Private Sub tmr1_Timer()

i = Int(9 * Rnd) ' выбираем целое случайное число от 1 до 9

cmdClick.Top = 200 + 600 * (i / 3) 'определяем местоположение кнопки относительно верхнего края формы

cmdClick.Left = 200 + 900 * (i / 3) 'определяем местоположение кнопки относительно левого края формы

End Sub

 

5. Запустите программу, при необходимости отредактируйте код.

6.      Отредактируйте программу следующим образом:

a)      Добавьте управляющую кнопку с надписью «Медленнее» нажатие на которую будет замедлять движение кнопки (свойство Interval таймера уменьшается на 100).

b)      Надпись: 22Добавьте управляющую кнопку с надписью «Быстрее» нажатие на которую будет увеличивать скорость движения кнопки (свойство Interval таймера увеличивается  на 100).

c)      Добавьте управляющую кнопку «Стоп», нажатие на которую будет останавливать кнопку.

d)      Добавьте управляющую кнопку «Увеличить кнопку», нажатие на которую будет увеличивать высоту и ширину кнопки на 100 твипов.

e)      При каждом щелчке мышью мимо кнопки раздается звук, установленный на компьютере как стандартный.

f)       При попадании по кнопке выходит сообщение «Молодец!».

 

7.      Скомпилируйте программу в папку Мои документы под именем Попади в кнопку.

 

Надпись: 23IX. Проект «Калькулятор».

Создадим простейший калькулятор, который будет осуществлять сложение, вычитание, умножение и деление двух любых чисел, для этого:

  1. Запустите Microsoft Visual Basic.

2.      Поместите на форму три метки, три текстовых окна и четыре управляющих кнопки:

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

В текстовые окна 1 и 2 будем  вводить два числа и, нажав на одну из командных кнопок, произведем над ними нужную арифметическую операцию. Текстовое окно 3 служит для вывода ответа.  

3.      Задайте следующие свойства для элементов управления:

Форма:

- Name – frmMain,

- Caption – Калькулятор.

Метка 1:

-          Name – lblNamber1,

-          Caption –первое число.

Метка 2:

-          Name – lblNamber2,

-          Caption – второе число.

Метка 3:

-          Name – lblResult,

-          Caption – ответ.

Текстовое окно 1:

-          Name – txtNamber1,

-          text –(пустая графа).

Текстовое окно 2:

-          NametxtNamber2,

-    Text  –(пустая графа).

Текстовое окно 3:

-          Name – txtResult,

-          Text –(пустая графа).

Управляющая кнопка 1:

-          NamecmdPlus,

-          Style – 1-Graphical,

-          Caption – (пустая графа),

-          Picture – вставить рисунок из файла Мой компьютер/Общий диск/Плюс.

Управляющая кнопка 2:

-          NamecmdMinus,

-          Style – 1-Graphical,

-          Caption – (пустая графа),

- Picture – вставить рисунок из файла Мой компьютер/Общий диск/Минус.

Управляющая кнопка 3:

-          NamecmdMultiply,

-          Style – 1-Graphical,

-          Caption – (пустая графа),

-          Picture – вставить рисунок из файла Мой компьютер/Общий диск/Умножение.

Управляющая кнопка 4:

-          NamecmdFission,

-          Style – 1-Graphical,

-          Caption – (пустая графа),

-          Picture – вставить рисунок из файла Мой компьютер/Общий диск/Деление.

 

4.      Напишите программный код:

Option Explicit

Dim A As Double

Dim B As Double

Dim C As Double

 

 

Private Sub cmdFission_Click()

A = Val(txtNamber1.Text)

B = Val(txtNamber2.Text)

C = A / B

txtResult.Text = Str(C)

End Sub

 

Private Sub cmdMinus_Click()

A = Val(txtNamber1.Text)

B = Val(txtNamber2.Text)

C = A - B

txtResult.Text = Str(C)

End Sub

 

Private Sub cmdMultiply_Click()

A = Val(txtNamber1.Text)

B = Val(txtNamber2.Text)

C = A * B

txtResult.Text = Str(C)

End Sub

 

Private Sub cmdPlus_Click()

A = Val(txtNamber1.Text)

B = Val(txtNamber2.Text)

C = A + B

txtResult.Text = Str(C)

End Sub

 

5.      Запустите программу, при необходимости исправьте ошибки.

6.      Отредактируйте программу следующим образом:

a)      Добавьте управляющую кнопку «Выход», при нажатии на которую будет осуществляться выход из программы.

b)      Добавьте управляющую кнопку «Сброс», которая будет обнулять все три текстовых окна.

c)      Добавьте рядом с первым текстовым окном две управляющие кнопки «+» и «-», которые будут соответственно увеличивать или уменьшать на 1 число, находящееся в этом текстовом окне.

d)      Добавьте рядом со вторым текстовым окном две управляющие кнопки «+» и «-», которые будут соответственно увеличивать или уменьшать на 1 число, находящееся в этом текстовом окне.

 

7.      Скомпилируйте программу в папку Мои документы под именем Калькулятор.

 

Надпись: 23X. Проект «Случайные числа».

Создадим игральный кубик, позволяющий выбирать случайные числа от 1 до 6, для этого:

  1. Запустите Microsoft Visual Basic.

2.      Поместите на форму управляющую кнопку и шесть Картинок (Image):

 

 

3.      Задайте следующие свойства для элементов управления:

Форма:

- Name – frmMain,

- Caption – Кубик.

Управляющая кнопка:

-          Name – cmdStart,

-          Caption –Жми!!!.

Картинка 1:

-          Name – img1,

-          Picture – вставить рисунок 1 из папки, указанной учителем.

-          Visible – False.

Картинка 2:

-          Name – img2,

-          Picture –  рисунок 2.

-          Visible – False.

Картинка 3:

-          Name – img3,

-          Picture –  рисунок 3.

Картинка 4:

-          Name – img4,

-          Picture –  рисунок 4.

Картинка 5:

-          Name – img5,

-          Picture –  рисунок 5.

Картинка 6:

-          Name – img6,

-          Picture –  рисунок 6.

 

4.      Переместите картинки таким образом, чтобы они налагались друг на друга:

5.      Напишите программный код:

Dim x As Integer

Private Sub cmdStart_Click()

img1.Visible = False

img2.Visible = False

img3.Visible = False

img4.Visible = False

img5.Visible = False

img6.Visible = False

Randomize

x = Int((Rnd * 6) + 1)

If x = 1 Then

img1.Visible = True

ElseIf x = 2 Then

img2.Visible = True

ElseIf x = 3 Then

img3.Visible = True

ElseIf x = 4 Then

img4.Visible = True

ElseIf x = 5 Then

img5.Visible = True

Else

img6.Visible = True

End If

End Sub

6.      Запустите программу, при необходимости исправьте ошибки.

7.      Скомпилируйте программу в папку Мои документы под именем Кубик.

Просмотрено: 0%
Просмотрено: 0%
Скачать материал
Скачать материал "Сборник практических заданий MS Visual Basic"

Методические разработки к Вашему уроку:

Получите новую специальность за 3 месяца

Электронный архивариус

Получите профессию

Копирайтер

за 6 месяцев

Пройти курс

Рабочие листы
к вашим урокам

Скачать

Краткое описание документа:

Данный сборник содержит 10 алгоритмов выполнения практических заданий с целью освоения среды программирования MS Visual BasicCодержание:I.Проект «занимательная форма» II. Программа для подсчета затрат III. Программа для решения квадратных уравнений IV. Проект «Часы» V.Проект «Будильник» VI.Проект - заставка «Точки» VII.Игра «Головоломка» VIII. Игра «Поймай кнопку» IX. Проект «Калькулятор» X.Проект «Случайные числа»

Скачать материал

Найдите материал к любому уроку, указав свой предмет (категорию), класс, учебник и тему:

6 626 985 материалов в базе

Скачать материал

Другие материалы

Вам будут интересны эти курсы:

Оставьте свой комментарий

Авторизуйтесь, чтобы задавать вопросы.

  • Скачать материал
    • 04.11.2020 1279
    • DOCX 1 мбайт
    • 26 скачиваний
    • Оцените материал:
  • Настоящий материал опубликован пользователем Синицына Людмила Алексеевна. Инфоурок является информационным посредником и предоставляет пользователям возможность размещать на сайте методические материалы. Всю ответственность за опубликованные материалы, содержащиеся в них сведения, а также за соблюдение авторских прав несут пользователи, загрузившие материал на сайт

    Если Вы считаете, что материал нарушает авторские права либо по каким-то другим причинам должен быть удален с сайта, Вы можете оставить жалобу на материал.

    Удалить материал
  • Автор материала

    Синицына Людмила Алексеевна
    Синицына Людмила Алексеевна
    • На сайте: 3 года и 3 месяца
    • Подписчики: 0
    • Всего просмотров: 84627
    • Всего материалов: 220

Ваша скидка на курсы

40%
Скидка для нового слушателя. Войдите на сайт, чтобы применить скидку к любому курсу
Курсы со скидкой

Курс профессиональной переподготовки

Интернет-маркетолог

Интернет-маркетолог

500/1000 ч.

Подать заявку О курсе

Курс профессиональной переподготовки

Информатика: теория и методика преподавания с применением дистанционных технологий

Учитель информатики

300 ч. — 1200 ч.

от 7900 руб. от 3950 руб.
Подать заявку О курсе
  • Сейчас обучается 20 человек из 13 регионов

Курс профессиональной переподготовки

Информационные системы и технологии: теория и методика преподавания в профессиональном образовании

Преподаватель информационных систем и технологий

300/600 ч.

от 7900 руб. от 3950 руб.
Подать заявку О курсе

Курс профессиональной переподготовки

Математика и информатика: теория и методика преподавания в образовательной организации

Учитель математики и информатики

500/1000 ч.

от 8900 руб. от 4450 руб.
Подать заявку О курсе
  • Сейчас обучается 679 человек из 79 регионов

Мини-курс

Профориентация детей и подростков

4 ч.

780 руб. 390 руб.
Подать заявку О курсе
  • Сейчас обучается 30 человек из 15 регионов

Мини-курс

Сохранение и продвижение традиционных российских ценностей и культуры

4 ч.

780 руб. 390 руб.
Подать заявку О курсе

Мини-курс

Коррекционно-развивающая работа и оценивание в образовании для детей с ОВЗ

6 ч.

780 руб. 390 руб.
Подать заявку О курсе