Visual Basic. Практика. Ищенко В.А - 52 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

52
5. Задать дополнительные свойства форме и объектам управления, рас-
положенным на ней (аналогично табл . 2).
6. Изучить и проанализировать программный код приложения. В отче-
те по лабораторной работе сформулировать суть выполняемых дей-
ствий в каждой из приведенных ниже процедур.
Option Explicit
Option Base 1
Dim k, l, m, n, i, j As Integer
Dim q2, q23, q3, q34, q4, q45, q5 As Integer
Dim sr, sum, max, min As Single
Dim a(), c(), v As Variant
Dim b(), zzz As Variant
Dim sTemplate As String
Private Sub КнопкаВвестиОценки _Click()
If ТекстКоличествоСтудентов.Text = "" Or ТекстКоличествоЭк-
заменов.Text = "" Then zzz = MsgBox("Не введны данные для
расчета",vbOKOnly,"Ошибка"): ТекстКоличествоСтудентов.SetFocus:
GoTo 30
m = CInt(ТекстКоличествоСтудентов.Text)
n = CInt(ТекстКоличествоЭкзаменов.Text)
ReDim a(m, n)
ReDim b(m)
ReDim c(m)
For i = 1 To m
sum = 0
20 c(i) = InputBox("Введите фамилию " & i & " студента")
If c(i) > 0 And c(i) < 9 Then zzz = MsgBox("Неправильно введены
данные. Возможно, Вы ввели оценку вместо фамилии. Повторите
ввод. ", vbOKOnly, "Ошибка ввода данных"): GoTo 20
ЛистОценки .AddItem c(i)
For j = 1 To n
10 a(i, j) = InputBox("Введите " & j & "-ю оценку студента " & c(i))
If a(i, j) <> 2 And a(i, j) <> 3 And a(i, j) <> 4 And a(i, j) <> 5 Then zzz
= MsgBox("Неправильно введены данные. Повторите ввод. ",
vbOKOnly, "Ошибка ввода данных"): GoTo 10
ЛистОценки .AddItem a(i, j)
sum = sum + a(i, j)
Next j
ЛистОценки .AddItem ""
sr = sum / n
b(i) = sr
ЛистСредБаллы .AddItem c(i) & " " & b(i) 
                                            52
   5. Зад а т ь д опол н ит ел ь н ые свойст ва ф орм е и объект а м у пра вл ен ия, ра с-
      пол ож ен н ым н а н ей (а н а л огичн о та бл . 2).
   6. И зу чит ь и проа н а л изирова т ь програ м м н ый код прил ож ен ия. В от че-
      т е по л а бора т орн ой ра бот е сф орм у л ирова т ь су т ь выпол н яем ых д ей-
      ст вий в ка ж д ой из привед ен н ыхн иж е процед у р.

      Option Explicit
      Option Base 1
      Dim k, l, m, n, i, j As Integer
      Dim q2, q23, q3, q34, q4, q45, q5 As Integer
      Dim sr, sum, max, min As Single
      Dim a(), c(), v As Variant
      Dim b(), zzz As Variant
      Dim sTemplate As String


       Private Sub К нопкаВ вес тиО ценки_Click()
       If Т екс тК олич ес твоС ту дентов.Text = "" Or Т екс тК олич ес твоЭ к-
зам енов.Text = "" Then zzz = MsgBox("Н е введны данны е для
рас ч ета",vbOKOnly,"О ш ибка"): Т екс тК олич ес твоС ту дентов.SetFocus:
GoTo 30
       m = CInt(Т екс тК олич ес твоС ту дентов.Text)
       n = CInt(Т екс тК олич ес твоЭ кзам енов.Text)
       ReDim a(m, n)
       ReDim b(m)
       ReDim c(m)
       For i = 1 To m
       sum = 0
20     c(i) = InputBox("В ведитеф ам илию " & i & " с ту дента")
       If c(i) > 0 And c(i) < 9 Then zzz = MsgBox("Н еправиль но введены
данны е. В озм ожно, В ы ввели оценку вм ес то ф ам илии. П овторите
ввод. ", vbOKOnly, "О ш ибкавводаданны х "): GoTo 20
       Л ис тО ценки.AddItem c(i)
       For j = 1 To n
10 a(i, j) = InputBox("В ведите" & j & "-ю оценку с ту дента" & c(i))
       If a(i, j) <> 2 And a(i, j) <> 3 And a(i, j) <> 4 And a(i, j) <> 5 Then zzz
= MsgBox("Н еправиль но введены данны е. П овторите ввод. ",
vbOKOnly, "О ш ибкавводаданны х "): GoTo 10
       Л ис тО ценки.AddItem a(i, j)
       sum = sum + a(i, j)
       Next j
       Л ис тО ценки.AddItem ""
       sr = sum / n
       b(i) = sr
       Л ис тС редБ аллы .AddItem c(i) & " " & b(i)

Страницы