Отправляет email-рассылки с помощью сервиса Sendsay

Изменение регистра текста

Изменение регистра текста 2010-01-07 07:00 Александр Изменение регистра текста Private Sub Form_Load) 'Преобразует строку в нижний регистр MsgBox LCase"Привет! Как дела) 'Преобразует строку в ВЕРХНИЙ РЕГИСТР MsgBox UCase"привет! как дела) 'Делает первый символ каждого слова ЗАГЛАВНЫМ MsgBox StrConv"привет! как дела, vbProperCase) 'Помимо этого, функция StrConv также позволяет 'конвертировать текст в верхний и нижний регистр: 'Конвертирует строку в нижний регистр MsgBox StrConv"Привет! Как дела, vbUpperCase...

2010-01-07 08:30:25 + Комментировать

Из элементов массива 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-28 08:30:27 + Комментировать

Заполнить одномерный текстовый массив словами

Заполнить одномерный текстовый массив словами 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-26 08:31:40 + Комментировать

Заполнить одномерный (двумерный) текстовый массив случайными символами латинского алфавита

Заполнить одномерный (двумерный) текстовый массив случайными символами латинского алфавита 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 ...

2009-12-25 11:31:45 + Комментировать

Заполнить массив А[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-24 09:32:20 + Комментировать

Заполнить двумерную квадратную матрицу

Заполнить двумерную квадратную матрицу 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-23 13:33:15 + Комментировать

Заполнить двумерную квадратную матрицу

Заполнить двумерную квадратную матрицу 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 ...

2009-12-22 08:33:16 + Комментировать

Программирование на 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-22 05:43:09 + Комментировать

Заполнить двумерную квадратную матрицу

Заполнить двумерную квадратную матрицу 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 ] ...

2009-12-21 09:32:16 + Комментировать

Программирование на 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 08:25:35 + Комментировать

Рекомендуем подписаться: