Главная / Информатика / Сборник практических заданий MS Visual Basic

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










Microsoft Visual Basic





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






Власов А.А.













2012 г.



Cодержание:

  1. П

    2

    роект «занимательная форма» - 3

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

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

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

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

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

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

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






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

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

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

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

hello_html_m49644ce7.png

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. Отредактируйте проект следующим образом:

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

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

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

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

  5. П

    5

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

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


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

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

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

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












В текстовое окно 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 – Выход.

hello_html_7fb7c31f.png













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

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

D

7

im 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. Запустите проект, при необходимости исправьте ошибки.

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

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

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

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

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

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

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

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

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


8


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

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

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

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

Вhello_html_m659bc356.pnghello_html_m36ac2cdc.png текстовые окна 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

D

10

im 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

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

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

  1. Д

    11

    обавьте управляющую кнопку, поместите на нее надпись «Выход», нажатие на эту кнопку должно приводить к выходу их программы;
  2. Добавьте управляющую кнопку с надписью «Подсветка», нажатие на кнопку должно закрашивать текстовые окна в зеленый цвет;

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

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

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

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

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

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


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

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

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

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

hello_html_m793f0de6.png












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. Отредактируйте программу следующим образом:

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

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

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

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

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

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

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

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














14


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

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

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

  2. Пhello_html_4838ba3f.gifоместите на форму 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. Отредактируйте программу следующим образом:

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

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

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

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

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

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

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


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. На форму поместите два окна списка, две метки и управляющую кнопку:

hello_html_591e1536.png











В окно списка 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 –
Сумма:

Уhello_html_m5b81419.pngправляющая кнопка:
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

s

20

= 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. Добавьте в проект управляющие элементы по своему усмотрению.

7

21

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


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. Запустите программу, при необходимости отредактируйте код.

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

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

    2. Д

      22

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

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

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

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


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


I

23

X. Проект «Калькулятор».

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

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

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

hello_html_med065d9.png















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

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

Форма:

- 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 – вставить рисунок из файла Мой компьютер/Общий диск/Деление.


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

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


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

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

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

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

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

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


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


X

23

. Проект «Случайные числа».

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

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

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


hello_html_m620b4b1d.png


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

Форма:

- 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.


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

hello_html_6bfbc0a.png

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

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

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

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

Сборник практических заданий MS Visual Basic
  • Информатика
Описание:

Данный сборник содержит 10 алгоритмов выполнения практических заданий с целью освоения среды программирования MS Visual Basic

Cодержание:

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

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

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

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

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

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

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

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

IX. Проект «Калькулятор»

X.Проект «Случайные числа»

Автор Власов Андрей Анатольевич
Дата добавления 05.11.2015
Раздел Информатика
Подраздел Другое
Просмотров 547
Номер материала MA-061961
Скачать свидетельство о публикации

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

Введите символы, которые изображены на картинке:

Получить новый код
* Обязательные для заполнения.


Комментарии:

↓ Показать еще коментарии ↓