Введение в программирование на VBA - eDrive

51
Next
MsgBox массив
End Sub
Sub ДинамическийМассивСПамятью ()
Dim тест () As Integer, индекс As Integer, массив As String
For индекс = 10 To 20
ReDim Preserve тест (индекс) As Integer
тест (индекс) = индекс
массив = массив & тест (индекс)
Next
MsgBox массив
End Sub
Dim счетчик () As Integer
Sub Очко ()
‘ Популярная игра в очко: вы стараетесь набрать максимум очков, но
‘ не более 21, а компьютер “выбрасывает кубик”. Кроме динамического
‘ массива, здесь вы встретитесь с датчиком случайных чисел Rnd,
‘ с функцией его начальной установки Randomize, и с рекурсией.
Static i As Integer
ReDim Preserve счетчик (i) As Integer
Randomize
счетчик (i) = Rnd * 10
ответ = Info (счетчик (), i)
i = i + 1
If ответ 0 Then ответ = MsgBox (ответ & " Еще", vbYesNo)
If ответ = vbYes Then Очко Else End ' Пример рекурсии
End Sub
Function Info (список () As Integer, количество As Integer) As Integer
Dim сумма As Integer, x As Integer
сумма = 0
For x = 0 To количество
сумма = сумма + список (x)
Next
If сумма > 21 Then
MsgBox Str (сумма) & " - Вы проиграли!"
Info = 0
Else
If сумма = 21 Then
Beep
MsgBox Str (сумма) & " - Вы выиграли!"
Info = 0
Else
Info = сумма
End If
End If
End Function