Ebben a Vb feladat l�nyege hogy l�trehozok k�t list ablakot �s az egyik ablakb�l a benne l�v� sz�veget k�tszeres klikre �teszi a m�sik ablakba. (a properties listj�be kell be�rni.

Private Sub List1_Click()
Caption = List1.List(List1.ListIndex)
List2.AddItem List1.List(List1.ListIndex)
List1.RemoveItem List1.ListIndex
End Sub

Private Sub List2_Click()
Caption = List2.List(List2.ListIndex)
List1.AddItem List2.List(List2.ListIndex)
List2.RemoveItem List2.ListIndex
End Sub

Valamilyen m�trix szorz�sos tal�n vagy k�pzete r�sz sz�mol�?

a text 1 alatt a text 2 van �s mellet�k a text 3 �s 4 azt�n a gom �s a text 5 alatta a 6

Dim a(2) As Single
Dim b(2) As Single
Dim c(2) As Single

Private Sub Command1_Click()
c(1) = a(1) * b(1) - a(2) * b(2)
c(2) = a(1) * b(2) + a(2) * b(1)
Text5.Text = CStr(c(1))
Text6.Text = CStr(c(2))
End Sub

Private Sub Text1_Change()
a(1) = Val(Text1.Text)
End Sub

Private Sub Text2_Change()
a(2) = Val(Text2.Text)
End Sub

Private Sub Text3_Change()
b(1) = Val(Text3.Text)
End Sub

Private Sub Text4_Change()
b(2) = Val(Text4.Text)
End Sub

Szorzos. osztos �sszead�s, k�l�nbs�gi vb

Az egyenl�s�g jelet a command button caption tulajdons�g�ba kell be�rni.

az m.b,s,p-eket meg a option button (name)-be kell be�rni.

text 1 mellete ezek a gombok mellete a text 2 azt�n az egyenl�s�g gomb v�g�l a text 3

Option Explicit
Dim x As Single, y As Single

Private Sub Command1_Click()
If m.Value Then
Text3.Text = CStr(x + y)
Else
If b.Value Then
Text3.Text = CStr(x - y)
Else
If s.Value Then
Text3.Text = CStr(x * y)
Else
If p.Value Then
If y <> 0 Then
Text3.Text = CStr(x / y)
Else
Text3.Text = "nullaval oszt"
End If
End If
End If
End If
End If
End Sub

Private Sub Text1_Change()
x = Val(Text1.Text)
End Sub

Private Sub Text2_Change()
y = Val(Text2.Text)
End Sub

Szinkever�s program a h�tt�r sz�n�t v�lasztja.

a b,g,r a vscrollbar (name)-be ker�l

h�rom vscroll egym�s melett

Option Explicit

Private Sub b_Change()
BackColor = RGB(r.Value, g.Value, b.Value)
End Sub

Private Sub g_Change()
BackColor = RGB(r.Value, g.Value, b.Value)
End Sub

Private Sub r_Change()
BackColor = RGB(r.Value, g.Value, b.Value)
End Sub

L�nyeg�ben egy pit t�tel a komplex sz�mok halmaz�n ahol k�t kordin�t�b�l megmondja nekedd az �sszeg koordin�t�t.

text 1 mellete a text 2 �s alattuk  a text 3

Option Explicit
Private Type komplex
re As Single
im As Single
End Type
Dim k As komplex

Private Sub Text1_Change()
k.re = Val(Text1.Text)
k.im = Val(Text2.Text)
Text3.Text = CStr((k.re ^ 2 + k.im ^ 2) ^ 0.5)
End Sub

Private Sub Text2_Change()
k.re = Val(Text1.Text)
k.im = Val(Text2.Text)
Text3.Text = CStr((k.re ^ 2 + k.im ^ 2) ^ 0.5)
End Sub

Az egy nevet gener�l a f�jnak majd ha be�rsz a text 1-ek hely�re sz�mot annak az �sszeg�t teszi be.

a harmadik pedig a list mellet elhelyezett labelnek a fel�tat�t fltoztatja a listben elhelyezett bet�t�pusok szerint

Private Sub Command1_Click()
Dim i As Integer, s As Single
s = 0
For i = 0 To 2
s = s + Val(Text1(i).Text)
Next i
 Caption = CStr(s)
 End Sub
 Sub from_load()
 Dim i As Integer
 For i = 0 To Screen.FontCount - 1
 List1.AddItem Screen.Fonts(i)
 Next i
 
 End Sub
 Private Sub List1_Click()
Label1.Font.Name = List1.List(List1.ListIndex)
End Sub
 

a program egy list ablakb�l �lll melette n�gy command buttin gomb van az els� h�rom melett m�g text mez�k is �lnak.

az els� command button kikeresi a legnyagobb sz�mot

a m�sodik �sszeadja �ket

a harmadik �sszeszorozza �ket

a negyedik sorba rendezi �ket (cs�kken� szerint)

az �t�dik utas�t�s a lsit ablakba gener�l 0-10 k�z�tti sz�mot v�letlenszer�en �s azokal hajtattjuk v�gre az el�bbi m�veleteket

Option Explicit
Dim t(1 To 10) As Single

Private Sub Command1_Click()
Dim maxi As Single, i As Single
maxi = -100
For i = 1 To 10
If t(i) > maxi Then
maxi = t(i)
End If
Next i
Text1.Text = CStr(maxi)
End Sub

Private Sub Command2_Click()
Dim s As Single, i As Single
s = 0
For i = 1 To 10
s = s + t(i)
Next i
Text2.Text = CStr(s)
End Sub

Private Sub Command3_Click()
Dim p As Single, i As Single
p = 1
For i = 1 To 10
p = p * t(i)
Next i
Text3.Text = CStr(p)
End Sub

Private Sub Command4_Click()
Dim i As Integer, j As Integer
Dim s As Single
For i = 1 To 9
For j = i + 1 To 10
If t(j) > t(i) Then
s = t(i): t(i) = t(j): t(j) = s
End If
Next j
Next i
List1.Clear
For i = 1 To 10
List1.AddItem CStr(t(i))
Next i

End Sub

Private Sub form_load()
Dim i As Integer
For i = 1 To 10
t(i) = Rnd
List1.AddItem CStr(t(i))
Next i

End Sub