← Апрель 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 за неделю
Программирование на 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 делает анонс свежих тем. Если у Вас есть вопросы - задавате их на нашем форуме. Не умеете решать задачи? Нужно решить курсовую? З...
Программирование на 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-11-25 07:00 Александр Вывести на экран все четные элементы массива и определить количество нечетных элементов. Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim n As Integer Dim A(n) As Integer Dim uneven As Integer Dim x As Integer For x = 0 To UBound(A) A(x) = x ^ 2 + 1 If A(x) Mod 2 = 0 Then TextBox1.Text = ] ...
Программирование на 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 делает анонс свежих тем. Если у Вас есть вопросы - задавате их на нашем форуме. Не умеете решать задачи? Нужно решить курсовую? З...
Вывести все четные числа от m до М
Вывести все четные числа от m до М 2009-11-24 07:00 Александр Вывести все четные числа от m до М Даны целые числа а1.аn. Пусть m и М- наибольшее и наименьшее из них. Вывести все четные числа от m до М, не встречающиеся среди данных в порядке убывания. Для вывода массива пользоваться элементом управления List. Dim a(0 To 20) As Integer Dim i As Byte Dim k As Integer Dim max As ] ...
Программирование на 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-11-23 07:00 Александр Ввод произвольной цифры и вывод её названия. dim digit as String digit = Me.Text1.Text Select Case digit Case is = "0" MsgBox"Ноль) Case is = "1" MsgBox"Один) Case is = "2" MsgBox"Два) Case is = "3" MsgBox"Три) Case is = "4" MsgBox"Четыре) Case is = "5" MsgBox"Пять) Case is = "6" MsgBox"Шесть) Case is = "7" MsgBox"Семь) Case is = "8" MsgBox"Восемь) Case is = "9" MsgBox"Девять) Case Else MsgBox"Ошибочный ввод) End Select ...
В одномерном массиве x(n) поменять местами максимальный и минимальные элементы
В одномерном массиве x(n) поменять местами максимальный и минимальные элементы 2009-11-22 07:00 Александр В одномерном массиве x(n) поменять местами максимальный и минимальные элементы Dim y) As Integer minPos = 1 maxPos = 1 Min = x(1) Max = x(1) For i = 2 To n If x(i) Max Then Max = x(i) maxPos = i End If Next i x(minPos) = Max x(maxPos) = Min For i = 1 To n ReDim Preserve ] ...
Программирование на 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-11-21 07:00 Александр В одномерном массиве B, состоящего из N элементов, найти среднее арифметическое четных чисел. Option Base 1 Private Sub Command1_Click) Dim B) As Long Dim N As Integer N = Val(InputBox"Введите размеренность от 1 до 10 массива, "Задача No1, "N) Select Case N Case Is ...