Private Sub Command1_Click()
Dim i, n As Integer
n = 12
List1.List(0) = "multiply"
i = 1
Do While i <= n
List1.AddItem (i & " x " & n & vbTab & "=" & i * n)
i = i + 1
Loop
End Sub
Private Sub Command1_Click()
Dim i, n As Integer
n = 12
List1.List(0) = "multiply"
i = 1
Do While i <= n
List1.AddItem (i & " x " & n & vbTab & "=" & i * n)
i = i + 1
Loop
End Sub
Private Sub Command1_Click()
Dim Num As Integer
Select Case Val(Text1.Text)
Case 80 To 100: MsgBox "Grade A" & vbCrLf & "Oh Very Good !"
Case 70 To 79: MsgBox "Grade B"
Case 60 To 69: MsgBox "Grade C"
Case 50 To 59: MsgBox "Grade D"
Case 0 To 49: MsgBox "Grade F" & vbCrLf & "Oh sorry You Fall"
Case Else: MsgBox "Sorry , Press your number Between 0 to 100"
End Select
End Sub
Source code and tutorial please check http://gratisbogor.wordpress.com
Bookmarks