Dim ris As Single, a As Integer, b As Integer, op As Integer
Dim s As String, sfondo As Integer, backg As String
Sub operazione(num As Integer)
Select Case num
Case 0
s = "+"
ris = a + b
Case 1
s = "-"
ris = a - b
Case 2
s = "x"
ris = a * b
Case 3
s = ":"
ris = a / b
End Select
lblop.Caption = s
End Sub
Private Sub cmdcanc_Click()
Txtc.Text = ""
End Sub
Private Sub cmdinit_Click()
Call Form_Load
End Sub
Private Sub cmdok_Click()
If Txtc.Text <> "" Then
If CSng(Txtc.Text) = ris Then
MsgBox "Il risultato è corretto", vbInformation, "Corretto"
Else
MsgBox "Sbagliato!!!!Il risultato corretto è " & ris, vbInformation, "Errato"
Txtc.Text = ris
End If
End If
End Sub
Private Sub Form_Load()
Randomize
a = 0
b = 0
c = 0
Txta.Text = ""
Txtb.Text = ""
Txtc.Text = ""
a = CSng(Rnd * 100)
b = CSng((Rnd * 100) + 1)
op = Int(Rnd * 4)
Call operazione(op)
sfondo = Int((Rnd * 6) + 1)
backg = Trim(CStr(sfondo))
Form1.Picture = LoadPicture(App.Path & "\" & backg & ".jpg")
Txta.Text = a
Txtb.Text = b
End Sub
Private Sub Txtc_Change()
If Not IsNumeric(Txtc.Text) Then
Txtc.Text = ""
End If
End Sub