Дістемелік нұсқаулар

 

Циклдік бағдарламалар.

Visual Basic процедураларында ќайталану процестерін ұйымдастыру үшін келесі циклдік операторлар ќолданылады:

1. For K=m To n Step p

Цикл денесі

Next K

Цикл параметрі алғашќы мәні мен соңғы мәнінің арасында жаса цикл денесі орындалады, әйтпесе цикл тоќтап, басќару циклден кейінгі операторға беріледі.

2. While K<n

Цикл денесі

Wend

While операторындағы шарт орындалғанша цикл денесі орындалады, әйтпесе цикл тоќтап, басќару циклден кейінгі операторға беріледі.

3.Do While K<n

цикл денесі

Loop

Do While операторындағы шарт орындалғанша цикл денесі орындалады, әйтпесе цикл тоќтап, басќару циклден кейінгі операторға беріледі.

4.Do Until K<n

цикл денесі

Loop

Do Until операторындағы шат орындалмаса цикл денесі орындалады, орындалса цикл тоќтап, басќару циклден кейінгі операторға беріледі.

Сондай-аќ бағдарламалаушы Visual Basic процедураларында цикл операторларын ќолданып цикл ішіндегі цикл ұйымдастыруына болады. Оларды ұйымдастыру және орындалу ережелері Бейсиктегі сияќты.

Тапсырма мақсаты: 1 санынан бастап 500-ге дейінгі таңдалған бүтін сандардың жалпы қосындысын беретін программа жасау.

“Қосынды” программасының орындалуы:

o Visual Basic ортасын ашып, жаңадан проект құрыңыз.

o Формаға келесі элементтерді орналастырыңыз және қасиеттерін өзгертіңіз:

 

Объект	Қасиеті	Мәні
Form1	Name Caption	FrmSum Программа «Сумма»
CommandButton	Name Caption	CmdExit &Выход
TextBox	Name Alignment Text Multiline Enabled	TxtResult 2-center - 1-True 0-False
VscrollBar	Name Max Min Value	VsbNum
CommandButton	Name Caption	CmdSumlt &Суммировать
Label	Name Caption	LblNum Выбранное число: 1

 

Келесі кодты жазу:

o cmdExit элементін екі рет шертіп, ашылған код терезесіне келесі процедураны енгізіңіз:

Private Sub CmdExit_Click()

End

End Sub

o CmdSumlt_Click() элементін екі рет шертіп, ашылған код терезесіне келесі процедураны енгізіңіз:

Private Sub CmdSumlt_Click()

Dim i

Dim r

For i=1 To VSbNum.Value Step 1