Форма входа

Пошук
Друзі сайта
Інформатика у 12-річній школі
Видавництво «Шкільний світ» Видавництво «Шкільний світ»

Кращі сайти Рунетa
Рейтинг освітніх сайтів
Телепрограми
Пошукові сервери
Пошук однокласників
Світова бібліотека
МОН України
Сервіси для сайта
Інформери
Довідка фірм і сайтів України
Статистика

Онлайн всього: 1
Гостей: 1
Користувачів: 0
Міні-чат
200
Опитування
Сказати
Всього відповідей: 2173



Вівторок, 21.11.2017, 08:29
Головна » Файли » Для зареєстрованих » Інформатика

Програма мовою VB 2005 "Введення чисел в масив та обчислення їх суми"

[ (55.2Kb) ]
20.04.2009, 18:16
 
Public Class Form1
 Dim mas(3) As Integer
 Dim a As Integer
 Dim i As Integer
 Dim Sum As Integer

 Private Sub Button1_Click(ByVal sender 
As System.Object, ByVal e As System.EventArgs) 
Handles Button1.Click
 For i = 0 To 3
 mas(i) = InputBox("Введіть 4 числa в масив", " ")
 Next
 End Sub

 Private Sub Button2_Click(ByVal sender 
As System.Object, ByVal e As System.EventArgs) 
Handles Button2.Click
 For i = 0 To 3
 Sum = Sum + mas(i)
 Next
 Label1.Text = Sum
 End Sub
End Class
Категорія: Інформатика | Додав: konserg
Переглядів: 743 | Завантажень: 203 | Рейтинг: 0.0/0 |
Всього коментарів: 0

Категорії каталога

Різне [380]Інформатика [173]
Виховна робота [186]Обр. мистецтво [125]
Методика [283]Труд. навчання [90]
Охорона праці [107]Програми для ПК [3]
Музика [117]Сценарії [132]
1-4 класи [127]Робота з батьками [9]


Copyright KonSerg © 2017