Start Visual Basic code typing Practice. basic vb syntax, vb array typing practice, use of loop, each loops and if statment in vb typing practice.Click on the area below to start typing.
| S.No. | Paragraph : Practice repeatedly whatever you would like most for full fifteen minutes | Lessions | click to Practice |
|---|---|---|---|
| 1 | Dim myVar, nextVar, thirdVar Dim myAnswer As String Dim x As Integer, y As Integer, z As Integer Dim x, y, z As Integer Dim myArray() Sub Question() myVar = MsgBox(Prompt:="I enjoy my job.", _ Title:="Answer Box", Buttons:="4") MsgBox myVar End Sub MsgBox Title:="Answer Box", Prompt:="Your answer is correct!" | 1.1 | Visual Basic Syntax |
| 2 | Dim curExpense(364) As Currency Sub FillArray() Dim curExpense(364) As Currency Dim intI As Integer For intI = 0 to 364 curExpense(intI) = 20 Next End Sub Dim varData(3) As Variant varData(0) = "Claudia Bendel" varData(1) = "4242 Maple Blvd" varData(2) = 38 varData(3) = Format("06-09-1952", "General Date") | 1.2 | vb array typing practice |
| 3 | Sub ChkFirstUntil() counter = 0 myNum = 20 Do Until myNum = 10 myNum = myNum - 1 counter = counter + 1 Loop MsgBox "The loop made " & counter & " repetitions." End Sub Sub ChkLastUntil() counter = 0 myNum = 1 Do myNum = myNum + 1 counter = counter + 1 Loop Until myNum = 10 MsgBox "The loop made " & counter & " repetitions." End Sub | 1.3 | use of loops in vb |
| 4 | Sub Add10ToAllCellsInRange() Dim rng As Range For Each rng In Range("A1:A10") rng.Value = rng.Value + 10 Next End Sub Dim TestArray(10) As Integer, I As Variant For Each I In TestArray TestArray(I) = I Next I Sub RoundToZero() For Each rng in Range("A1:D10") If Abs(rng.Value) < 0.01 Then rng.Value = 0 Next End Sub | 1.4 | some for each loops in vb |
| 5 | Sub AlertUser(value as Long) If value = 0 Then AlertLabel.ForeColor = "Red" AlertLabel.Font.Bold = True AlertLabel.Font.Italic = True End If End Sub Sub AlertUser(value as Long) If value = 0 Then AlertLabel.ForeColor = vbRed AlertLabel.Font.Bold = True AlertLabel.Font.Italic = True Else AlertLabel.Forecolor = vbBlack AlertLabel.Font.Bold = False AlertLabel.Font.Italic = False End If End Sub | 1.5 | if statement in vb |