EXERCISE 1
CONTROLS NAME CAPTION
Form frmWelcome Welcome to Visual Basic
Label ! lblHeader Enter your name first
Text Box txtInput
Label 2 lblOutput
Command Button cmdEnter Enter
Private Sub cmdEnter_Click()
[Link] = "Welcome " + [Link] + " to Visual Basic Programming "
[Link] = True
End Sub
EXERCISE 2
CONTROLS NAME CAPTION
Form frmPizzaParlor My Pizza Parlor
Frame 1 fraPizza Pizza
Frame 2 fraIngredients Ingredients
Label lblPrice Price:
Text Box txtPrice
Private Sub Form_Load() Private Sub optDeluxe_Click()
[Link] = 0 [Link] = 1
[Link] = 0 [Link] = 0
[Link] = 0 [Link] = 0
End Sub
[Link] = 1
[Link] = 0
[Link] = 1
[Link] = 0
[Link] = 1
[Link] = 0
[Link] = 0
[Link] = "Php185.00"
End Sub
Private Sub optPrimo_Click() Private Sub optSpecial_Click()
[Link] = 0 [Link] = 0
[Link] = 0 [Link] = 1
[Link] = 1 [Link] = 0
[Link] = 1 [Link] = 1
[Link] = 1 [Link] = 1
[Link] = 1 [Link] = 1
[Link] = 1 [Link] = 1
[Link] = 1 [Link] = 1
[Link] = 1 [Link] = 0
[Link] = 1 [Link] = 0
[Link] = "Php290.00" [Link] = "Php250.00"
End Sub End Sub
EXERCISE 3
CONTROLS NAME CAPTION
Form frmListBox List Box
List Box 1 lstList1
List Box 2 lstList2
Command Button 1 cmdTransfer Transfer
Command Button 2 cmdClear Clear
Command Button 3 cmdExit Exit
Private Sub cmdClear_Click() Private Sub cmdExit_Click()
[Link] Unload Me
[Link] = False
End Sub End Sub
Private Sub cmdTransfer_Click() Private Sub Form_Load()
For i = 0 To ([Link] - 1) [Link] "January"
[Link] "February"
[Link] "March"
If [Link](i) = True Then [Link] "April"
[Link] [Link](i) [Link] "May"
End If [Link] "June"
Next [Link] "July"
[Link] = True [Link] "August"
[Link] "September"
[Link] "October"
End Sub
[Link] "November"
[Link] "December"
[Link](0) = True
[Link](1) = True
[Link](2) = True
End Sub
EXERCISE 4
CONTROLS NAME CAPTION
Form frmListBox List Box
List Box 1 lstList1
List Box 2 lstList2
Command Button 1 cmdTransfer Transfer
Command Button 2 cmdClear Clear
Command Button 3 cmdExit Exit
Private Sub cmdClear_Click() Private Sub cmdExit_Click()
[Link] = "" End
[Link] = "" End Sub
[Link] = &HC0C000
[Link]
End Sub
Private Sub cmdGo_Click() Input", vbOKOnly)
Dim sglRadius, sglArea As Single [Link] = &HC0C000
constPi = 3.1416 [Link] = ""
[Link]
sglRadius = Val([Link]) End If
sglArea = constPi * sglRadius ^ 2 End Sub
[Link] = Str(sglArea)
[Link] = &HFF&
If [Link] = "" Then
[Link] = MsgBox("Enter A Numerical
EXERCISE 5
CONTROLS NAME CAPTION
Form frmAssessmentSystem Tuition Fee Assessment
System
Frame fraModePayment Mode of Payment
Label 1 lblEnterTuition Enter Tuition Fee:
Text Box 1 txtEnterTuition
Command Button 1 cmdCompute Compute
Label 2 lblTotalTuition Your Total Tuition Fee:
Text Box 2 txtTotalTuition
Command Button 2 cmdExit Exit
Private Sub optCash_Click() Private Sub optTwoPayments_Click()
[Link] = True [Link] = False
[Link] = False [Link] = True
[Link] = False [Link] = False
End Sub End Sub
Private Sub optThreePayments_Click() Private Sub Form_Load()
[Link] = False Dim sglTuition, sglTotal, sglDiscount,
[Link] = False sglInterest As Single
[Link] = True sglTuition = Val([Link])
[Link] = 0
End Sub [Link] = 0
[Link] = 0
End Sub
Private Sub cmdCompute_Click() Private Sub cmdExit_Click()
If [Link] = True Then End
sglDiscount = Val([Link]) End Sub
* 0.1
sglTotal = Val([Link]) -
sglDiscount
[Link] = Str(sglTotal)
ElseIf [Link] = True
Then
sglInterest = Val([Link])
* 0.05
sglTotal = Val([Link]) +
sglInterest
[Link] = Str(sglTotal)
ElseIf [Link] = True
Then
sglInterest = Val([Link])
* 0.2
sglTotal = Val([Link]) +
sglInterest
[Link] = Str(sglTotal)
End If
End Sub
EXERCISE 6
CONTROLS NAME CAPTION
Form frmAssessmentSystem Tuition Fee Assessment
System
Frame fraModePayment Mode of Payment
Label 1 lblEnterTuition Enter Tuition Fee:
Text Box 1 txtEnterTuition
Command Button 1 cmdCompute Compute
Label 2 lblTotalTuition Your Total Tuition Fee:
Text Box 2 txtTotalTuition
Command Button 2 cmdExit Exit
Private Sub cmdAdd_Click() Private Sub cmdSubtract_Click()
[Link] = Val([Link]) + dblAns = Val([Link]) -
Val([Link]) Val([Link])
[Link] = "Sum:" [Link] = dblAns
[Link] = "Difference:"
End Sub End Sub
Private Sub cmdMultiply_Click() Private Sub cmdDivide_Click()
dblAns = Val([Link]) * dblAns = Val([Link]) /
Val([Link]) Val([Link])
[Link] = dblAns [Link] = dblAns
[Link] = "Product:" [Link] = "Quotient:"
End Sub End Sub
Private Sub cmdClear_Click() Private Sub cmdExit_Click()
[Link] = "" End
[Link] = ""
[Link] = "" End Sub
[Link] = "Answer:"
End Sub
EXERCISE 7
CONTROLS NAME CAPTION
Form frmTempConvert Temperature Converter
Label 1 lblHeader Convert Your Temperature:
Option Button optFahrToCel Fahrenheit to Celsius
Option Button optCelToFahr Celsius to Fahrenheit
Label 2 lblTempInput
Text Box 1 txtTempInput
Label 3 lblTempOutput
Text Box 2 txtTempOutput
Command Button 1 cmdConvert Convert
Command Button 2 cmdExit Exit
Private Sub optFahrToCel_Click() Private Sub optCelToFahr_Click()
If ([Link] = True) Then If ([Link] = True) Then
[Link] = "Enter your [Link] = "Enter your
temperature in degrees fahrenheit" temperature in degrees celsius"
[Link] = "" [Link] = ""
[Link] [Link]
[Link] = "Equivalent [Link] = "Eqiuvalent
temperature in degrees celsius" temperaturein degrees in fahrenheit"
[Link] = "" [Link] = ""
End If End If
End Sub End Sub
Private Sub Form_Load() Private Sub cmdExit_Click()
[Link] = 0 End
[Link] = 0 End Sub
End Sub
Private Sub cmdConvert_Click()
Dim dblTempIn, dblTempOut As Double
dblTempIn = Val([Link])
If ([Link] = True) Then
dblTempOut = (5 / 9) * (dblTempIn -
32)
Else
dblTempOut = 1.8 * dblTempIn + 32
End If
[Link] =
Str(dblTempOut)
End Sub
EXERCISE 8
CONTROLS NAME CAPTION
Form frmDateTimePicker Date – Time Picker
Label 1 lblHeader1 Your System Clock is:
Label 2 lblSystemClock
Label 3 lblHeader2 Today is:
Label 4 lblDateToday
Timer tmrTimer1
Private Sub Form_Load() Private Sub tmrTimer1_Timer()
[Link] If [Link] <> CStr(Time)
[Link] = Format(Now, Then
"dddd,mmmm,d,yyyy") [Link] = Time
End If
End Sub End Sub
EXERCISE 9
CONTROLS NAME CAPTION
Form frmGradeCalculator Grade Calculator
Label 1 lblGrade Grade:
Text Box 1 txtGrade
Label 2 lblRemarks Remarks:
Text Box 2 txtRemarks
Command Button 1 cmdCalculate Calculate
Command Button 2 cmdClear Clear
Command Button 3 cmdExit Exit
Private Sub cmdClear_Click() Private Sub cmdExit_Click()
[Link] = " " End
[Link] = " "
[Link] End Sub
End Sub
Private Sub cmdCalculate_Click()
Dim Grade As Single, Remarks As String
Grade = Val([Link])
Select Case Grade
Case 0 To 49
Remarks = "Fail"
Case 50 To 59
Remarks = "Pass"
Case 60 To 69
Remarks = "Medium"
Case 70 To 79
Remarks = "Good"
Case 80 To 89
Remarks = "Very Good"
Case 90 To 99
Remarks = "Excellent!"
Case Else
MsgBox "Wrong Entry, Please Re-enter
the Grade", 16, "Error"
[Link] = " ": [Link] =
" ": Exit Sub
End Select
[Link] = Remarks
End Sub
EXERCISE 10
CONTROLS NAME CAPTION
Form frmFibonacciSequence Fibonacci Sequence
Picture picOutput
Command Button 1 cmdForNext For Next
Command Button 2 cmdDoWhile Do While
Command Button 3 cmdDoUntil Do Until
Private Sub cmdForNext_Click() Private Sub cmdDoWhile_Click()
Dim a, b, c, series As Integer Dim a, b, c, series As Integer
[Link] [Link]
series = InputBox("Enter number series") series = InputBox("Enter number of series")
a=1 a=1
For x = 1 To series Do While x < series
If x > 2 Then If x > 1 Then
c=a+b c=a+b
a=b a=b
b=c b=c
[Link] c & Space(2); [Link] c & Space(2);
Else Else
[Link] a & Space(2); [Link] a & Space(2);
b=a b=a
End If End If
Next x x=x+1
End Sub Loop
End Sub
Private Sub cmdDoUntil_Click()
Dim a, b, c, series As Integer
[Link]
series = InputBox("Enter number of series")
a=1
Do Until x > series - 1
If x > 1 Then
c=a+b
a=b
b=c
[Link] c & Space(2);
Else
[Link] a & Space(2);
b=a
End If
x=x+1
Loop
End Sub
