Visual Basic Хелоу Уърлд

от Всичко за 1 лев, свободната енциклопедия

Версия от 09:09, 3 яну 2006 Samael (Беседа | приноси) ← Go to previous diff		Версия от 16:58, 18 юни 2006 165.246.99.101 (Беседа | приноси) Go to next diff →
Ред 1:		Ред 1:
-	Внимание, '''ОПАСНО'''. Не пробвайте това вкъщи. Visual Basic предизвиква трайни увреждания на мозъка!!!.	+	http://www.kibertron.com
-		+
-	Още ''внимание''. Авторът на тази статия '''не е''' достатъчно квалифициран за да работи в [[Майкрософт]] [[България]]. Не се е справил с основното изискване да напише 5 варианта на програмата. От това следват две неща:	+
-		+
-	# Авторът е умствено обременена личност. Имайки предвид, че в еволюционната диаграма на организмите служителите на [[Майкрософт]] [[България]] се намират точно след неорганичната (по произход) печка Раховец, но все пак преди изкуствения интелект, скрит в ''code-behind''-а на страницата за възстановяване на забравени пароли на MSN, вероятно панахидата е била отслужена преди месец.	+
-	# Почти всички, прочели тази статия неминуемо ще станат по-тъпи. Формулата е следната:	+
-	НовКоефициентНаИнтелигентност = (СтарКоефициентНаИнтелигентност^(-3))/(3!).	+
-	Очевидно, "намазват" само индивидите с отрицателен коефициент на интелигентност. Ако нямате '''интерес''' да четете тази статия, натиснете натиснете [[X]].	+
-		+
-	== Вариант 1 ==	+
-		+
-	Private Sub cmdClear_Click()	+
-	txtHello.Text = ""	+
-	End Sub	+
-		+
-	Private Sub cmdExit_Click()	+
-	End	+
-	End Sub	+
-		+
-	Private Sub cmdHello_Click()	+
-	txtHello.Text = "Hello World!"	+
-	With txtHello	+
-	.Font = "Arial"	+
-	.FontSize = 16	+
-	.ForeColor = vbBlue	+
-	End With	+
-	End Sub	+
-		+
-		+
-		+
-	== Вариант 2 ==	+
-		+
-	VERSION 2.00	+
-	Begin Form Form1	+
-	Caption = "Hello World!"	+
-	ClientHeight = 540	+
-	ClientLeft = 1095	+
-	ClientTop = 1515	+
-	ClientWidth = 2445	+
-	Height = 945	+
-	Left = 1035	+
-	LinkTopic = "Form1"	+
-	ScaleHeight = 540	+
-	ScaleWidth = 2445	+
-	Top = 1170	+
-	Width = 2565	+
-	Begin Label Label1	+
-	Alignment = 2 'Center	+
-	Caption = "Hello World!"	+
-	FontBold = -1 'True	+
-	FontItalic = 0 'False	+
-	FontName = "Arial"	+
-	FontSize = 12	+
-	FontStrikethru = 0 'False	+
-	FontUnderline = 0 'False	+
-	Height = 255	+
-	Left = 120	+
-	TabIndex = 0	+
-	Top = 120	+
-	Width = 2175	+
-	End	+
-	End	+
-		+
-	== Вариант 3 ==	+
-		+
-	Private Sub FOrm_Load()	+
-	Static I	+
-	I = 1	+
-	for I = 1 to 10	+
-	msgbox "Hello World"	+
-	Next I	+
-	end sub	+
-	[[Категория:Програмни езици]]	+

---

Версия от 16:58, 18 юни 2006

http://www.kibertron.com