С. Создание списка данных типа String, создание признака конца списка, вывод списка в массив
Date: 2015-10-07; view: 394.
В. Нахождение наибольшего из 2-х элементов, условная инструкция If ... Then ... Else
В университетах M и N число студентов x1 и x2 соответственно, стоимость обучения каждого за весь период обучения равна st1 и st2; обучение длится ja1 и ja2 лет соответственно. Определить где выше стоимость обучения за 1 год. Последовательность действий:
· создать на форме элементы управления CommandButton и TextBox, ввести код, данный ниже:
Private Sub Command1_Click()Dim st1 As Single, st2 As Single, ja1 As Integer, ja2 As IntegerDim x1 As Integer, x2 As Integerx1 = 2000 ' ввод исходных данныхx2 = 3000: ja1 = 4: ja2 = 5: st1 = 250.5: st2 = 300.7If x1 * st1 / ja1 > x2 * st2 / ja2 Thentxt1.Text = "Университет M:" & x1 * st1 / ja1 Elsetxt1.Text = "Университет N:" & x2 * st2 / ja2 End IfEnd Sub· стартовать проект, сделать щелчок на командной кнопке.
Задание: создать список названий футбольных клубов страны. Переписать список в массив football(j). Последовательность действий:
1. Создать на форме элементы управления: CommandButton, 2 элемента управления ListBox, поле метки. Ввести код, данный ниже, пояснения даны под комментариями:
(General) (Declarations)Dim football(20) As String ' описание массива названий клубов Private Sub Form_Load()Dim j As Integer, i As Integer, Аr As String ' Аr - условное название клубаFor j = 0 To 14 ' формирование списка названий клубовAr = "C" ' часть условного названия клуба' формирование условных названий клубовFor i = 0 To 2 Ar = Ar & Int(Rnd * 10 + 1)Next ilst1.List(j) = Ar ' вывод названий в поле ListBoxNext j' создание признака конца списка. После инструкции ' Next значение переменной-счётчик увеличивается на 1lst1.List(j) = "-1" End Sub ' переписывать список в массив football(20) до тех пор, пока не ' появится признак конца спискаPrivate Sub Command1_Click() Dim j As Integerj = 0Do Until lst1.List(j) = "-1"football(j) = lst1.List(j)lst2.List(j) = football(j)j = j + 1Looplbl1.Caption = j ' определить, сколько элементов переписаноEnd Sub2. стартовать проект, сделать щелчок на командной кнопке.
| <== previous lecture | | | next lecture ==> |
| А. Нахождение максимального элемента (массива). | | | D. Задача на выбор ветви из набора условий - блок Select Case |