в программе два массива размерностью 5 элементов, присвойте числовые значения
Не могу решить задачу: Опишите в программе два одновременных массива размерностью 5 элементов, присвойте числовые значения элементам массивов. Покажите данные в окне сообщений: в первой строке - элементы второго массива от 5-го до первого. Решение подобной задачи, но другого варианта:
Код:
Dim a(6)
a(0)=1
a(1)=2
a(2)=3
a(3)=4
a(4)=5
a(5)=6
a(6)=7
d = ""
d=d & a(0) & vblf
d=d & a(6) & vblf
d=d & a(1) & vblf
d=d & a(5) & vblf
d=d & a(2) & vblf
d=d & a(4) & vblf
d=d & a(3) & vblf
MsgBox d, vbYesNo
Помогите пожалуйста :) |
Цитата:
Цитата shar9n@vk
два одновременных массива »
|
«Одновременные» массивы — это новое слово в программировании. Может быть, «одномерных»?
Код:
Option Explicit
Dim aFirst(4), aSecond(4)
Dim i
Dim strOut
Randomize Timer
For i = LBound(aFirst) To UBound(aFirst)
aFirst(i) = Int(100 * Rnd)
aSecond(i) = Int(100 * Rnd)
Next
strOut = ""
For i = UBound(aSecond) To LBound(aSecond) Step -1
strOut = strOut & aSecond(i) & vbTab
Next
MsgBox strOut, vbOKOnly + vbInformation, "Results"
WScript.Quit 0
|
shar9n@vk, Еще вариант:
Код:
Mas1 = Array(1, 2, 3, 4, 5)
Mas2 = Array(10, 20, 30, 40, 50)
Out2 = ""
Out12 = ""
For Each iMas In Mas1
Out12 = Out12 + CStr(iMas) + vbTab
Next
Out12 = Out12 + vbCrLf
For Each iMas In Mas2
Out2 = CStr(iMas) + vbTab + Out2
Out12 = Out12 + CStr(iMas) + vbTab
Next
MsgBox Trim(Out2) + vbCrLf + vbCrLf + Out12
|
Время: 22:52.
© OSzone.net 2001-
