pseudocode
Sep. 30th, 2005 02:42 am![[personal profile]](https://www.dreamwidth.org/img/silk/identity/user.png){kind=small}
phthalombrageDim intPirouettes As Integer
intPirouettes = Val(Me.txtNumberOfRotations.Text)
Select Case intPirouettes
Case Is > 4
Me.lblTeacherMessage.Text = "Wow."
Case 4
Me.lblTeacherMessage.Text = "That was acceptable."
Case 3
Me.lblTeacherMessage.Text = "Meh."
Case Else
Me.lblTeacherMessage = "You suck."
End Select
'I miss Mark and Ginny
intPirouettes = Val(Me.txtNumberOfRotations.Text)
Select Case intPirouettes
Case Is > 4
Me.lblTeacherMessage.Text = "Wow."
Case 4
Me.lblTeacherMessage.Text = "That was acceptable."
Case 3
Me.lblTeacherMessage.Text = "Meh."
Case Else
Me.lblTeacherMessage = "You suck."
End Select
'I miss Mark and Ginny
