Предметный указатель 3 страница

A = Val(txtNumber.Text)

If A > SecretNumber Then 'В этом операторе If вся несложная логика игры

Сообщение = "Много"

ElseIf A < SecretNumber Then

Сообщение = "Мало"

Else

Сообщение = "Вы угадали"

End If

txtMessage.Text = Сообщение

Количество_попыток = Количество_попыток + 1

txtNumberTry.Text = Количество_попыток

Write #1, Количество_попыток; A; Сообщение 'Запись в файл данных очередной попытки

End Sub

Private Sub Загружаем_сохраненную_игру()

Open App.Path & "\Данные.txt" For Input As #1 'Открыть для чтения под номером 1 файл Данные.txt из папки проекта

Input #1, SecretNumber 'Чтение из файла загаданного числа

Show 'Чтобы на форме можно было печатать историю игры

Print "ИСТОРИЯ ИГРЫ"

Do While Not EOF(1) 'Выполняй, пока НЕ наступил КОНЕЦ ФАЙЛА 1

Input #1, Количество_попыток, A, Сообщение 'Чтение из файла данных очередной попытки

Print Количество_попыток, A, Сообщение 'Печать на форме истории угадываний

Loop

Close #1 'Закрыть файл №1

txtNumber.Text = A

txtMessage.Text = Сообщение

txtNumberTry.Text = Количество_попыток

Open App.Path & "\Данные.txt" For Append As #1 'Открыть для дозаписи под номером 1 файл Данные.txt из папки проекта

End Sub

Private Sub Form_Terminate()

Close #1 'Закрыть файл №1

End Sub

'Вариант с использованием массива:

Private Function Fibonacci(Nomer As Integer) As Currency

Dim fib(1 To 70) As Currency

fib(1) = 1: fib(2) = 1

For i = 3 To Nomer: fib(i) = fib(i - 2) + fib(i - 1): Next

Fibonacci = fib(i - 1) 'Потому i - 1, что на выходе из цикла i равно Nomer + 1

End Function

'Вариант без использования массива:

Private Function Fibonacci1(Nomer As Integer) As Currency

fib1 = 1: fib2 = 1

For i = 3 To Nomer

fib3 = fib1 + fib2

fib1 = fib2

fib2 = fib3

Next

Fibonacci1 = fib3

End Function

Private Sub Command1_Click()

Debug.Print Fibonacci(68), Fibonacci1(68)

End Sub

Dim a(1 To 5) As Integer 'Оценки одного класса

Dim b(1 To 5) As Integer 'Оценки другого класса

Private Function Минимум(c As Variant) As Integer

Минимум = c(1)

For i = 2 To 5

If c(i) < Минимум Then Минимум = c(i)

Next

End Function

Private Function Максимум(c As Variant) As Integer

Максимум = c(1)

For i = 2 To 5

If c(i) > Максимум Then Максимум = c(i)

Next

End Function

Private Function Разница(c As Variant) As Integer

Разница = Максимум(c) - Минимум(c)

End Function

Private Sub Command1_Click()

a(1) = 4: a(2) = 5: a(3) = 2: a(4) = 5: a(5) = 4

b(1) = 4: b(2) = 3: b(3) = 4: b(4) = 4: b(5) = 3

If Разница(a) < Разница(b) Then Debug.Print "Первый класс учится ровнее" _

Else Debug.Print "Второй класс учится ровнее"

End Sub

Dim A(1 To 366) As Integer 'Показания термометра на станции A

Dim B(1 To 366) As Integer 'Показания термометра на станции B

Private Sub Исправление(ByVal Поправка As Integer, ByRef c)

For i = 1 To 4 'Для отладки приняли, что в году 4 дня.

c(i) = c(i) + Поправка

Next

End Sub

Private Sub Command1_Click()

A(1) = 24: A(2) = 25: A(3) = 28: A(4) = 25

B(1) = 14: B(2) = 16: B(3) = 14: B(4) = 17

Исправление -2, A

Исправление 3, B

For i = 1 To 4 'Распечатываем исправленные значения температур

Debug.Print A(i), B(i)

Next

End Sub

Private Function fib(N As Integer) As Currency

If N = 1 Or N = 2 Then fib = 1 Else fib = fib(N - 2) + fib(N - 1) 'Изумительная лаконичность!

End Function

'За изумительную лаконичность расплачиваемся удручающе низким быстродействием.

'Когда N переваливает за пару десятков, результата приходится ждать.

'Ничего подобного не было при вычислении чисел Фибоначчи простым циклом.

'Почему так? А попробуйте подсчитать, сколько в памяти компьютера одновременно

'находится недовыполненных экземпляров подсчета функции fib.

Private Sub Command1_Click()

Debug.Print fib(20)

End Sub

'Используем метод пузырька. У нас уже имеется соответствующая программа для одномерного массива.

'Однако, просто так, в лоб, переделать ее для двумерного массива затруднительно. Чтобы не ломать

'уже готовую структуру процедуры метода пузырька, вообразим, что мы работаем не с двумерным массивом,

'а с одномерным, получившимся считыванием двумерного строчка за строчкой. Далее. Все, что делает метод

'пузырька - это берет элемент одномерного массива с указанным номером и ставит его на новое место

'с указанным номером. Поэтому для правильной работы метода нам достаточно написать функцию "Возьми",

'которая по указанному номеру воображаемого одномерного массива вычисляет номер строки и столбца

'реального двумерного массива и берет оттуда элемент, а также процедуру "Положи", которая путем таких же

'вычислений кладет элемент не на воображаемое место, а на реальное.

Const M = 3 'M - число стpок в массиве

Const N = 4 'N - число столбцов

Dim a(1 To M, 1 To N) As Integer 'Исходный массив

Private Function Возьми(ByVal Номер As Integer) As Integer ' "Номер" - воображаемый номер элемента

i = (Номер + N - 1) \ N 'вычисляется номер строки

j = Номер Mod N 'вычисляется номер столбца

If j = 0 Then j = N

Возьми = a(i, j)

End Function

Private Sub Положи(ByVal Номер As Integer, ByVal Элемент As Integer)

' "Элемент" - это то, что мы кладем на место, указанное воображаемым номером "Номер"

i = (Номер + N - 1) \ N

j = Номер Mod N

If j = 0 Then j = N

a(i, j) = Элемент

End Sub

Private Sub Сортируем() 'Сортировка массива методом пузырька. Сравните с ранее написанной процедурой

For k = M * N To 2 Step -1

For i = 1 To k - 1

If Возьми(i) > Возьми(i + 1) Then

c = Возьми(i)

Положи i, Возьми(i + 1)

Положи i + 1, c

End If

Next i

Next k

End Sub

Private Sub Command1_Click()

a(1, 1) = 28: a(1, 2) = 14: a(1, 3) = 49: a(1, 4) = 18

a(2, 1) = 29: a(2, 2) = 28: a(2, 3) = 36: a(2, 4) = 20

a(3, 1) = 45: a(3, 2) = 15: a(3, 3) = 20: a(3, 4) = 25

Сортируем

For i = 1 To M 'Распечатываем массив после сортировки

Debug.Print

For j = 1 To N

Debug.Print a(i, j),

Next

Next

End Sub

Список литературы

1. Н.Г.Волчёнков "Учимся программировать: Visual Basic 5", Москва, ДИАЛОГ-МИФИ, 1998.

Эта книга - для начинающих программистов.

2. Сайлер, Споттс "Использование Visual Basic 6", Издательский дом "Вильямс", 1999.

Эта книга - для программистов средней руки.

3. Мак-Кин н и Брюс "Visual Basic - крепкий орешек"

Эта книга - для программистов высшего класса, знатоков программирования для Windows.

Все три книги хорошие.

-.. 43

!

!.. 46

"

". 43

#

#. 46, 110

$

$. 46

%

%............................................................ 46

&

& 46, 120, 157

(

(.. 44

)

).. 44

*

*. 43, 141

,

,.. 50

/

/.. 43

:

:.. 26

;

;.. 50

@

@........................................................... 46

^

^ 43

+

+. 43, 52, 157

<

<. 56

<=........................................................... 56

<>........................................................... 56

=

=. 56

>

>. 56

>=........................................................... 56

A

Abs........................................................ 44

ActiveX................................................ 209

Add...................................................... 147

Add Form............................................ 31

Add project......................................... 12

Add Project......................................... 31

Add-Ins................................................. 32

AddItem............................................. 153

Alignment............................................ 19

And........................................................ 60

Animation............................................. 25

App................................................ 33, 159

Appearance......................................... 18

Append............................................... 159

As........................................................ 159

Asc...................................................... 158

Assembler.......................................... 218

Atn......................................................... 44

AutoRedraw................................... 48, 95

AutoSize................................................ 89

AVI........................................................ 25

AVIVideo............................................. 25

B

BackColor.................................... 18, 91

BackSpace........................................ 235

BackStyle.............................................. 91

BETWEEN....................................... 208

BMP...................................................... 89

Bold........................................................ 17

Bold Italic................................................ 17

Boolean................................................ 116

BorderStyle........................................ 18

break.................................................... 41

Breakpoints......................................... 78

Bring to Front.................................... 92

Busy.................................................... 203

ByRef................................................. 168

ByVal................................................. 168

C

Call..................................................... 103

Call Stack.............................................. 80

CapsLock.......................................... 234

Caption................................................... 16

CDAudio.............................................. 21

CD-R................................................... 227

CD-ROM........................................... 227

CD-RW.............................................. 227

ChDir................................................. 161

CheckBox........................................... 149

Chr...................................................... 158

Circle............................................. 94, 96

Clear.................................................. 153

Click............................................... 12, 125

Close....................................... 20, 25, 159

Cls.......................................................... 97

Code...................................................... 30

Collection........................................... 147

Color Palette....................................... 30

ComboBox......................................... 152

Command............................................... 19

CommandButton.............................. 10, 90

CommonDialog................................. 173

Components........................................ 31

Const......................................... 106, 182

Continue................................................. 42

Control................................................ 147

Controls.................................................. 31

Copy................................................ 29, 31

Count.................................................. 147

Ctrl-Alt-Del.............................................. 28

Ctrl-Break............................................ 68

CUR...................................................... 89

Currency.......................................... 45, 46

CurrentX...................................... 51, 96

CurrentY....................................... 51, 96

Cut................................................... 29, 31

D

Data..................................................... 206

Date........................................... 110, 111

DateAdd............................................. 111

DateDiff............................................. 111

DatePart............................................ 111

DBGrid................................................. 207

DblClick.......................................... 30, 125

Debug.................................................... 79

Debug.Print.................................. 37, 41

DefDbl.................................................. 46

DefInt................................................... 46

DefLng................................................. 46

DefSng.................................................. 46

Delete........................................... 31, 235

Delphi................................................. 218

DESC................................................... 208

design..................................................... 11

DeviceType............................................. 19

Dim.............................................. 39, 182

DirListBox.......................................... 155

Do.................................................... 70, 71

Do …. Loop......................................... 71

Do …. Loop Until.............................. 72

Do …. Loop While............................ 71

Do Until …. Loop.............................. 73

Do While …. Loop............................ 72

Docking................................................ 30

DocumentComplete........................ 203

Double............................................ 45, 46

DownPicture......................................... 90

DrawMode........................................... 95

DrawStyle............................................. 95

DrawWidth........................................... 94

DriveListBox...................................... 155

DTPicker............................................. 154

E

Edit....................................................... 31

Else....................................................... 54

ElseIf...................................................... 59

Enabled................................................ 19

End......................................... 11, 65, 104

End If.................................................... 59

End Select............................................ 62

End Sub......................................... 12, 103

End Type........................................... 145

Enum................................................... 119

EOF...................................................... 160

Err........................................................ 162

Exit....................................................... 31

Exit Do.................................................... 73

Exit For................................................... 76

Exit Sub.............................................. 104

F

False............................................ 61, 116

File........................................................ 31

FileCopy............................................. 161

FileListBox......................................... 155

FileName........................................... 173

FillColor.......................................... 91, 95

FillStyle........................................... 91, 95

Find...................................................... 31

Fix.......................................................... 44

Font........................................................ 17

Font Style............................................... 17

FontBold.............................................. 51

FontItalic............................................. 51

FontName............................................ 51

FontSize............................................... 51

FontStrikethru................................... 51

FontTransparent............................... 51

FontUnderline.................................... 51

For.......................................... 74, 75, 159

For Each............................................ 147

ForeColor.............................. 18, 51, 95

Form Layout....................................... 30

Form_Load.......................................... 20

Form_Terminate.................................... 20

Form_Unload..................................... 161

Format.......................................... 31, 46

Frame.................................................. 148

FROM................................................ 208

G

GIF........................................................ 89

GotFocus.............................................. 88

GoTo..................................................... 68

Graphical............................................... 90

H

Height.................................................... 22

Help...................................................... 32

HScrollBar.......................................... 151

HTML................................................ 198

HTML-документ............................. 201

I

ICO........................................................ 89

Icon........................................................ 33

if 60

If 54

Image..................................................... 90

ImageCombo.................................... 156

Immediate Window.................... 37, 78

In......................................................... 147

Input.................................................... 159

InputBox.............................................. 38

Insert................................................... 235

InStr................................................... 157

Int................................................. 44, 201

Integer.................................... 39, 45, 46

Internet.............................................. 228

Is 63

IsDate.................................................. 121

IsNumeric............................................ 64

Italic........................................................ 17

J

Java.................................................... 218

JPG........................................................ 89

K

KeyCode............................................. 127

KeyDown............................................ 127

KeyPress............................................. 127

KeyPreview......................................... 128

KeyUp................................................. 128

Kill....................................................... 161

L

Label..................................................... 17

Lcase.................................................. 157

Left............................................... 22, 157

Len...................................................... 157

Let......................................................... 36

Line.......................................... 91, 94, 95

Line Input......................................... 160

LISP.................................................... 218

List...................................................... 153

ListBox............................................... 152

ListCount.......................................... 153

ListIndex........................................... 153

ListView.............................................. 155

Load................................................... 142

LoadPicture............................... 21, 25, 89

Locals.................................................... 78

Lock Controls..................................... 31

Logo.................................................... 218

Long............................................... 45, 46

Loop...................................................... 71

LostFocus............................................ 88

LTrim................................................ 157

M

Main..................................................... 180

Make.............................................. 26, 31

MaxButton.......................................... 19

MDI.................................................... 209

Me........................................................ 180

Menu Editor....................................... 23

Microsoft Multimedia Control 6.0............ 19

Microsoft Windows Common Controls-2 6.0 25

Mid..................................................... 157

MID....................................................... 19

MinButton........................................... 19

MkDir................................................... 161

Mod....................................................... 43

MonthName...................................... 111

MonthView........................................ 154

MouseDown....................................... 125

MouseIcon........................................... 18

MouseMove...................................... 126

MousePointer..................................... 18

MouseUp............................................ 126

Movable............................................... 19

MP3....................................................... 19

MSChart............................................... 156

MSComm.......................................... 156

MSDN Library................................... 32

MsgBox......................................... 23, 25

MultiLine............................................ 19

N

Name............................................. 16, 161

Navigate.............................................. 203

New............................................. 147, 191

New Project.................................. 12, 31

Next....................................................... 75

Not......................................................... 61

Now..................................................... 111

Number............................................... 162

O

Object.......................................... 30, 146

Object Browser............................ 30, 87

Object Pascal.................................... 218

OLE.................................................... 209

On Error.............................................. 162

OnClick................................................. 201

Open................................ 19, 25, 30, 159

Open Project................................ 12, 31

Option base....................................... 140

Option Explicit......................................... 40

OptionButton..................................... 150

Options................................................. 32

Or.......................................................... 61

OR......................................................... 61

Order..................................................... 31

ORDER BY....................................... 208

Output................................................ 159

P

Package & Deployment Wizard.............. 33

PaintPicture.......................................... 97

PasswordChar.................................... 65

Paste................................................ 29, 31

Path............................................... 33, 159

PC Speaker....................................... 227

Дата добавления: 2014-12-23