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