Visual Basic

SELECT CASE ID_dog
    CASE 1
        position_dog = pos1
    CASE 2
        position_dog = pos2
    CASE 3
        position_dog = pos3
END SELECT

My: Blog | Photos | Next SQL Presentation
WDevs.com - Open Source Code Hosting, Blogs, FTP, Mail and More

If (Response <> Num3) Then
    ' if condition is True, execute this block of code,
    lblMessage = "Wrong"
    Total = Total + 1
Else
    ' otherwise, execute this block of code.
    lblMessage = "Correct"
    Counter = Counter + 1
    Total = Total + 1
End If

Option Explicit
Dim Num1 As Long
Dim Num2 As Long
Dim Total As Long
Dim TotalQuestions As Long
Dim CorrectAnswers As Long

Private Sub cmdExit_Click()
    End
End Sub

Private Sub cmdNext_Click()
    TotalQuestions = TotalQuestions + 1
    If CLng(TxtResponse.Text) <> Total Then
        lblMessage = "Wrong"
    Else
        lblMessage = "Correct"
        CorrectAnswers = CorrectAnswers + 1
    End If

    TxtResponse.Text = ""
    lblScore = (CorrectAnswers / TotalQuestions) * 100
End Sub

Private Sub Form_Load()
    Randomize Timer
End Sub

Private Sub GenerateNewTest()
    Num1 = int(Rnd * 11)
    Num2 = int(Rnd * 11)
    Total = Num1 + Num2
    lblNum1 = Num1
    lblNum2 = Num2
End Sub

//Build the Fraction
Whole := (Truncate (Dec));
If Whole = 0 Then
FinalNumerator + "/" + FinalDenom
else
   if FinalNumerator = FinalDenom Then
      Cstr(Whole)
   else
      ToText (Whole, 0) + " " + FinalNumerator + "/" + FinalDenom;