Dim i, nachkod, kolkod As Integer

example4_3.Cls

nachkod=InputBox("Введите начальный код")

kolkod=InputBox("Введите количество кодов")

example4_3.CurrentY=kod.Top+30

For i=1 To kolkod

example4_3.CurrentX=kod.Left

Dim intvar As Integer

intvar=nachkod+i-1

example4_3.Print intvar;

example4_3.CurrentX=simvol.Left

example4_3.Print Chr$(intvar)

Next i

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

Dim a As String

a=MsgBox("Выход?", vbYesNo, "выход")

If a=vbYes Then End

4. Запустить программу и убедиться в правильности ее работы, при необходимости исправить ошибки, а затем сохранить на дискете проект и форму с именами lab4_3 или example4_3 соответствующими командами из меню file.

Выполните самостоятельно!

Практическая работа № 4.4

1. Создать новые проекты для печати в верхнем левом углу формы последовательности чисел [1 … 10]. Форма должна содержать одну командную кнопку. Программный код для кнопки для печати:

a) в строку:

Dim i as Integer

Form1.Cls

For i=1 to 10

Form1.Print i;

Next i

b) в столбец:

Dim i as Integer

Form1.Cls

For i=1 to 10

Form1.Print i

Next i

2. Сохранить на дискете проекты и формы с именами lab4_4 или example4_4.

 

Практическая работа № 4.5

1. Создать новый проект и программу. Программа создает список строк. Заполнение списка осуществляется кнопкой добавить. Кнопка искать предназначена для определения количества и средней длины строк списка, содержащих букву или сочетание букв, указанное в поле искать строки с. Если строки, удовлетворяющие критерию поиска, отсутствуют в списке, программа выдает стандартное сообщение. Кнопка очистить удаляет все содержимое списка.

2. Внешний вид формы показан на рис. 25. Установить на форме все необходимые объекты, свойства Name указаны на рисунке рядом с объектами. Записать для проекта и объектов на форме следующие программные коды:

Программный код для раздела General Declarations:

Dim sarr(1 To 100) As String

Dim snm As Integer

Dim sln As Single

Dim lcn As Integer

Программный код для кнопки добавить:

Private Sub dobav_Click()

If nst.Text<>"" Then

Sp.AddItem nst.Text

lcn=lcn+1

sarr(lcn)=nst.Text

nst.Text=""

End If

Nst.SetFocus

End Sub

Программный код для кнопки очистить:

Private Sub ochis_Click()

Dim i As Integer

Sp.Clear

For i=1 To lcn

sarr(i)=""

Next i

Nst.SetFocus

sred.Caption=""

fst.Caption=""

End Sub

Программный код для кнопки искать:

Private Sub isk_Click()

Dim i As Integer

snm=0

sln=0

For i=1 To lcn

If InStr(sarr(i), fin.Text) Then

snm=snm+1

sln=sln+Len(sarr(i))

End If

Next i

fst.Caption=snm

If snm>0 Then

sred.Caption=sln/snm

Else

MsgBox "Нет строк!", 48

End If

Nst.SetFocus

fin=""

End Sub

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

Практическая работа № 4.6

1. Создать новый проект и программу для вывода на форму сведений о трех студентах: по запрашиваемой фамилии - курс и номер группы. Макет формы показан на рис. 26.

2. Программный код для кнопки пуск:

Dim familia As String

familia=InputBox("введите фамилию", "ввод фамилии")

If familia="Иванов" Then

Text1.Text="1 курс, 13 группа"

Else

If familia="Петров" Then

Text2.Text="2 курс, 21 группа"

Else

If familia="Чёрный" Then

Text3.Text="5 курс, 52 группа"

Else

MsgBox "Данной фамилии нет в списке", 64, "Ошибка"

End If

End If

End If

3. Запустить программу и убедиться в правильности ее работы, при необходимости исправить ошибки, а затем сохранить на дискете проект и форму.

 

Практическая работа № 4.7

1. Создать новый проект и программу: даны стороны N кубиков. Вычислить объем каждого. Форма должна содержать одну кнопку пуск.

2. Программный код для кнопки пуск: