powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите новичку разобраться с массивами.
11 сообщений из 11, страница 1 из 1
Помогите новичку разобраться с массивами.
    #34845150
1Новичок1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Помогите мне решить такую задачу.
Вопрос 1
Дана стринговая переменная b=”a12fras”
Дан массив a(10)
Как стринговую переменную b, вставить в массив a(10)
Так чтобы a(1)=a, a(2)=1, a(3)=2 и т.д.?

Вопрос 2
Дана стринговая переменная b
Дан массив a(10)
Где a(1)=a, a(2)=1, a(3)=2
Как вставить числа из массива в стринговую переменную b по порядку (т.е b=”a12”)?
...
Рейтинг: 0 / 0
Помогите новичку разобраться с массивами.
    #34845158
Артем1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
У класса String есть конструктор String(Char[]) и метод String.ToCharArray()
Подробности в msdn

ms-help://MS.MSDNQTR.v80.en/MS.MSDN.v80/MS.NETDEVFX.v20.en/cpref2/html/T_System_String_Members.htm
...
Рейтинг: 0 / 0
Помогите новичку разобраться с массивами.
    #34845255
1Новичок1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Артем1 извини, я тебя не понял.
Можешь привести пример?
что такое msdn?
...
Рейтинг: 0 / 0
Помогите новичку разобраться с массивами.
    #34845277
Артем1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
msdn - майкрософтская документация.
доступна в онлайне http://msdn2.microsoft.com

я привел ссылку в хелпе для локально установленного msdn-а. там есть примеры
...
Рейтинг: 0 / 0
Помогите новичку разобраться с массивами.
    #34845300
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Sub proba()
Dim myStr As String
Dim myArr() As Variant
Dim i As Long
  myStr = "a12fras"
  ReDim myArr(Len(myStr) -  1 ) As Variant
  For i =  0  To Len(myStr) -  1 
    myArr(i) = Mid(myStr, i +  1 ,  1 )
  Next i
  
  For i =  0  To UBound(myArr)
    Debug.Print myArr(i)
  Next i
  
End Sub
...
Рейтинг: 0 / 0
Помогите новичку разобраться с массивами.
    #34849026
Фотография @TM@ROZчег
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Deggasad
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Sub proba()
Dim myStr As String
Dim myArr() As Variant
Dim i As Long
  myStr = "a12fras"
  ReDim myArr(Len(myStr) -  1 ) As Variant
  For i =  0  To Len(myStr) -  1 
    myArr(i) = Mid(myStr, i +  [b]1 ,  1 )[/b]
  Next i
  
  For i =  0  To UBound(myArr)
    Debug.Print myArr(i)
  Next i
  
End Sub

а что, реально так можно, без ReDm' а?
...
Рейтинг: 0 / 0
Помогите новичку разобраться с массивами.
    #34849085
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
@TM@ROZчега что, реально так можно, без ReDm' а?

?
...
Рейтинг: 0 / 0
Помогите новичку разобраться с массивами.
    #34849155
Фотография HandKot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
для второй задачи

Код: plaintext
b = Join(a, "")


I Have Nine Lives You Have One Only
THINK!
...
Рейтинг: 0 / 0
Помогите новичку разобраться с массивами.
    #34849726
1Новичок1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Всем большое спасибо! :)
...
Рейтинг: 0 / 0
Помогите новичку разобраться с массивами.
    #34851314
Фотография @TM@ROZчег
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Deggasad @TM@ROZчега что, реально так можно, без ReDm' а?

?
ну когда увелечиваю рарзмер безразмерного массива, я пользуюсь оператором ReDim [Preserve] array(0 to amount), а ты в своём примере не используешь этот оператор , апросто присваиваешь. я не знал что так можно
...
Рейтинг: 0 / 0
Помогите новичку разобраться с массивами.
    #34851401
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Deggasad
Код: plaintext
1.
2.
3.
4.
Sub proba()
Dim myStr As String
Dim myArr() As Variant
Dim i As Long
  myStr = "a12fras"
Код: plaintext
ReDim myArr(Len(myStr) -  1 ) As Variant
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
  For i =  0  To Len(myStr) -  1 
    myArr(i) = Mid(myStr, i +  1 ,  1 )
  Next i
  
  For i =  0  To UBound(myArr)
    Debug.Print myArr(i)
  Next i
  
End Sub
...
Рейтинг: 0 / 0
11 сообщений из 11, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите новичку разобраться с массивами.
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]