�ݺ�ߣ

1 | P a g e
Program 1
Printing Series
? Code
Private Sub Form_Click()
For k = 1 To 5
Print k
Next
End Sub
? Output

2 | P a g e
Program 2
Printing Triangle Series
? Code
For r = 1 To 5
For c = 1 To r
Print c;
Next
Print
Next
End Sub
? Output

3 | P a g e
Program 3
Printing Reverse triangle series
? Code
For r = 5 To 1 Step -1
For c = 1 To r
Print c;
Next
Print
Next
End Sub
? Output

4 | P a g e
Program 4
Multiply Two Numbers
? Code
Private Sub Command1_Click()
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
End Sub
Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
? Output

5 | P a g e
Program 5
Printing Pyramid Series
? Code
For r = 1 To 5
For k = 4 To r Step -1
Print " ";
Next
For c = 1 To r
Print c;
Next
For d = r - 1 To 1 Step -1
Print d;
Next
Print
Next
End Sub

7 | P a g e
Program 6
Simple Calculator
? Code
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub
Text3.Text = Val(Text1.Text) - Val(Text2.Text)
End Sub
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
End Sub
Text3.Text = Val(Text1.Text) / Val(Text2.Text)
End Sub

9 | P a g e
Program 7
Timer Control
? Code
Private Sub Timer1_Timer()
Command1.Left = Command1.Left + 10
If Command1.Left = 9840 Then
Timer1.Enabled = False
Timer2.Enabled = True
End If
End Sub
Command1.Top = Command1.Top + 10
If Command1.Top = 9000 Then
End If
End Sub

10 | P a g e
Command1.Left = Command1.Left - 10
End If
End Sub
Command1.Top = Command1.Top - 10
End If
End Sub
Command2.Top = Command2.Top + 10
End If

11 | P a g e
End Sub
Command2.Left = Command2.Left + 10
End If
End Sub
Command2.Top = Command2.Top - 10
End If
End Sub
Command2.Left = Command2.Left - 10

12 | P a g e
End If
End Sub
? Output

13 | P a g e
Program 8
Chech Box And Option Button
? Code
Private Sub Check1_Click()
If Check1.Value = 1 Then
Text1.FontBold = True
ElseIf Check1.Value = 0 Then
Text1.FontBold = False
End If
End Sub
Text1.FontItalic = True
Text1.FontItalic = False
End If
End Sub

14 | P a g e
Text1.FontUnderline = True
Text1.FontUnderline = False
End If
End Sub
Private Sub Option1_Click()
If Option1.Value = True Then
Text1.BackColor = vbBlue
End If
End Sub
Text1.BackColor = vbGreen
End If
End Sub

15 | P a g e
Text1.BackColor = vbYellow
End If
End Sub
? Output

16 | P a g e
Program 9
Combo Box
? Code
Private Sub Combo1_Click()
If Combo1.ListIndex = 0 Then
Text1.FontName = Combo1.Text
ElseIf Combo1.ListIndex = 1 Then
End If
End Sub

17 | P a g e
Text1.FontSize = Combo2.Text
End If

18 | P a g e
End Sub
Combo1.AddItem "Times New Roman"
Combo1.AddItem "Arial Black"
Combo1.AddItem "Batang"
Combo1.AddItem "Century"
Combo1.AddItem "Courier New"
Combo1.AddItem "impact"
Combo1.AddItem "Lucida Console"
End Sub
? Output

19 | P a g e
Program 10
Calculating Student Result
? Code
Label3.Caption = "data strcture"
Label4.Caption = "visual basic"
Label5.Caption = "database"
Else
Label3.Caption = "accounts"
Label4.Caption = "MIS"
Label5.Caption = "economics"
End If
End Sub
Label12.Caption = Text1.Text
Label18.Caption = Label3.Caption

20 | P a g e
Label17.Caption = Combo3.Text
Label25.Caption = Val(Text3.Text) + Val(Text5.Text) +
Val(Text6.Text)
Text7.Text = ((Val(Text3.Text) + Val(Text5.Text) + Val(Text6.Text)) *
100) / 300
If Val(Text7.Text) >= 80 Then
Label29.Caption = "merit"
ElseIf Val(Text7.Text) >= 60 Then
Label29.Caption = "firstclass"
ElseIf Val(Text7.Text) >= 33 Then
Label29.Caption = "pass"
Else
Label29.Caption = "fail"
End If
End Sub

21 | P a g e
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
End Sub
? Output

22 | P a g e
Program 11
Paint Functions
? Code
Form1.Cls
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer,
X As Single, Y As Single)
Form1.CurrentX = X
Form1.CurrentY = Y
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer,
X As Single, Y As Single)
If Button = 1 Then
'Line (X, Y)-(CurrentX, CurrentY)
Circle (X, Y), 700
End If
End Sub

24 | P a g e
Program 12
Puzzle Game
? Code
If Command2.Caption = "" Then
Command2.Caption = Command1.Caption
Command1.Caption = ""
ElseIf Command4.Caption = "" Then
End If
End Sub
Command1.Caption = 1

25 | P a g e
End Sub
End If
End Sub

26 | P a g e
End If
End Sub
End If
End Sub

27 | P a g e
End If
End Sub

28 | P a g e
End If
End Sub
End If
End Sub

29 | P a g e
End If
End Sub
End If
End Sub

31 | P a g e
Program 13
MENU BAR
? Code
Private Sub Blue_Click()
Form1.BackColor = vbBlue
End Sub
Private Sub Exit_Click()
Unload Me
End Sub
Private Sub Green_Click()
Form1.BackColor = vbGreen
End Sub
Private Sub Maximize_Click()
Form1.WindowState = 2
End Sub
Private Sub Minimize_Click()

32 | P a g e
End Sub
Private Sub Red_Click()
Form1.BackColor = vbRed
End Sub
Private Sub Restore_Click()
End Sub

�ݺ�ߣ

Vbreport program

More Related Content

Vbreport program