Private?Sub?Form_Click()
Randomize
n?=?Int(Rnd?*?90)?+?10
End?SubPrivate?Sub?command1_click()
Dim?x?As?Integer
x?=?Text1.Text
k?=?k?+?1
If?x?>?n?Then
Print?x;?"大了"
ElseIf?x?<?n?Then
Print?x;?"小了"
Else
Print?x;?"恭喜妳猜中了!"
MsgBox?"壹***猜了"?&?k?&?"次"
End?If
End?Sub