← Апрель 2024 | ||||||
1
|
2
|
3
|
4
|
5
|
6
|
7
|
---|---|---|---|---|---|---|
8
|
9
|
10
|
11
|
12
|
13
|
14
|
15
|
16
|
17
|
18
|
19
|
20
|
21
|
22
|
23
|
24
|
25
|
26
|
27
|
28
|
29
|
30
|
Рассылка посвящена программированию на Visual Basic, постоянно обновляемые статьи, примеры, и многое другое поможет вам постигнуть язык Visual Basic! Будет интересен как новичкам, так и гуру. Для новичков будут уроки и книги легкие в понимании.
Статистика
0 за неделю
Изменение регистра текста
Изменение регистра текста 2010-01-07 07:00 Александр Изменение регистра текста Private Sub Form_Load) 'Преобразует строку в нижний регистр MsgBox LCase"Привет! Как дела) 'Преобразует строку в ВЕРХНИЙ РЕГИСТР MsgBox UCase"привет! как дела) 'Делает первый символ каждого слова ЗАГЛАВНЫМ MsgBox StrConv"привет! как дела, vbProperCase) 'Помимо этого, функция StrConv также позволяет 'конвертировать текст в верхний и нижний регистр: 'Конвертирует строку в нижний регистр MsgBox StrConv"Привет! Как дела, vbUpperCase...
Из элементов массива D сформировать массив A той же размерности по правилу
Из элементов массива D сформировать массив A той же размерности по правилу 2009-12-28 07:00 Александр Из элементов массива D сформировать массив A той же размерности по правилу Из элементов массива D сформировать массив A той же размерности по правилу: если номер четный, то значение элемента находится по формуле Ai = Di^2, а если нечетный, то по формуле Ai = Di / i. dim A(1 to 10) as long, D(1 to 10) ] ...
Заполнить одномерный текстовый массив словами
Заполнить одномерный текстовый массив словами 2009-12-26 07:00 Александр Заполнить одномерный текстовый массив словами Option Base 1 Private Sub Command1_Click) myArray = Array"Hello, "World, "VB, "Programming) For a = 1 To 4 Text1(a.Text = myArray(a) Next a For b = 1 To 4 If b Mod 2 = 0 Then myArray(b) = StrReverse(myArray(b) Text1(b.Text = myArray(b) End If Next b End Sub ...
Заполнить одномерный (двумерный) текстовый массив случайными символами латинского алфавита
Заполнить одномерный (двумерный) текстовый массив случайными символами латинского алфавита 2009-12-25 07:00 Александр Заполнить одномерный (двумерный) текстовый массив случайными символами латинского алфавита Dim arrayLetters(n) As String Private Sub Command1_Click) For a = 0 To n Randomize arrayLetters(a) = Chr(65 + Val(Rnd * 25) List1.AddItem (arrayLetters(a) Text1.Text = Text1.Text & vbCrLf & arrayLetters(a) Next a End Sub ...
Заполнить массив А[200] случайными целыми числами x[0,1000] и посчитать их сумму
Заполнить массив А[200] случайными целыми числами x[0,1000] и посчитать их сумму 2009-12-24 07:00 Александр Заполнить массив А[200] случайными целыми числами x[0,1000] и посчитать их сумму Dim myArray(200) As Integer Dim amount As Long Private Sub Command1_Click) Randomize For a = 0 To 200 myArray(a) = Rnd * 1000 Next a For b = 0 To 200 amount = amount + myArray(b) Next b Label1.Caption = amount End Sub ...
Заполнить двумерную квадратную матрицу
Заполнить двумерную квадратную матрицу 2009-12-23 07:00 Александр Заполнить двумерную квадратную матрицу k=1 For i=1 To n For j = 1 To n A(i, j) = k k = k + 1 Next Next ...
Заполнить двумерную квадратную матрицу
Заполнить двумерную квадратную матрицу 2009-12-22 07:00 Александр Заполнить двумерную квадратную матрицу Private Sub Command1_Click) Dim A) As Integer, i As Integer, j As Integer, n As Integer n = InputBox"Введите размерность матрицы) If n ...
Программирование на Visual Basic, VB .NET и VBA
Разделы форума: Visual Basic 6.0 Microsoft VB.Net Visual Basic for Applications (VBA) Visual Basic FAQ Другие рассылки, подпишись: Анекдот на каждый день | Видео юмор - смешное бесплатное онлайн видео | Фото Тюмени - фотографии города Тюмень Скачать: Visual Basic , ActiveX , MSDN , видео уроки , утилиты , модули , книги по программированию Форум: Программирование на Visual Basic делает анонс свежих тем. Если у Вас есть вопросы - задавате их на нашем форуме. Не умеете решать задачи? Нужно решить курсовую? З...
Заполнить двумерную квадратную матрицу
Заполнить двумерную квадратную матрицу 2009-12-21 07:00 Александр Заполнить двумерную квадратную матрицу Private Sub Form_Load) Dim A) As Integer N = 7 'РАЗМЕР МАТРИЦЫ ReDim A(N, N) For Y = 1 To N For X = 1 To N A(X, Y) = X + (Y - 1) * N 'ВОТ И ВСЯ ФОРМУЛА Print A(X, Y, Next X Print Next ] ...
Программирование на Visual Basic, VB .NET и VBA
Разделы форума: Visual Basic 6.0 Microsoft VB.Net Visual Basic for Applications (VBA) Visual Basic FAQ Другие рассылки, подпишись: Анекдот на каждый день | Видео юмор - смешное бесплатное онлайн видео | Фото Тюмени - фотографии города Тюмень Скачать: Visual Basic , ActiveX , MSDN , видео уроки , утилиты , модули , книги по программированию Форум: Программирование на Visual Basic делает анонс свежих тем. Если у Вас есть вопросы - задавате их на нашем форуме. Не умеете решать задачи? Нужно решить курсовую? З...