Private Sub Command1_Click()
Dim a, b, c, d, e, f, g, x As Single
x = Val(InputBox("请输入一个三位数", "输入"))
a = x \ 100
b = (x \ 10) Mod 10
c = x Mod 10
If c <> 0 Then
d = c * 100 + b * 10 + a
Else
e = Trim(Str(a))
f = Trim(Str(b))
g = Trim(Str(c))
d = g & f & e
End If
Print d
End Sub
Private Sub Command2_Click()
Dim a, b, c, x1, x2, d As Single
a = Val(InputBox("输入a"))
b = Val(InputBox("输入b"))
c = Val(InputBox("输入c"))
d = b ^ 2 - 4 * a * c
If d > 0 Then
x1 = (0 - b + Sqr(d)) / (2 * a)
x2 = (0 - b - Sqr(d)) / (2 * a)
End If
If d = 0 Then
x1 = (0 - b) / (2 * a)
x2 = x1
End If
If d < 0 Then
Print "无解"
End If
Print "x1="; x1, "x2="; x2
End Sub

Private Sub Command1_Click()
End Sub
Private Sub Picture2_Click()
Randomize
a = Rnd()
a = a * 100
If a <= 90 Then
MsgBox "R"
ElseIf a <= 99 Then
MsgBox "SR"
ElseIf a = 100 Then
MsgBox "UR"
End If
End Sub
Private Sub Picture3_Click()
Randomize
a = Rnd()
a = a * 100
If a <= 90 Then
MsgBox "R"
ElseIf a <= 99 Then
MsgBox "SR"
ElseIf a = 100 Then
MsgBox "UR"
End If
Randomize
a = Rnd()
a = a * 100
If a <= 90 Then
MsgBox "R"
ElseIf a <= 99 Then
MsgBox "SR"
ElseIf a = 100 Then
MsgBox "UR"
End If
Randomize
a = Rnd()
a = a * 100
If a <= 90 Then
MsgBox "R"
ElseIf a <= 99 Then
MsgBox "SR"
ElseIf a = 100 Then
MsgBox "UR"
End If
Randomize
a = Rnd()
a = a * 100
If a <= 90 Then
MsgBox "R"
ElseIf a <= 99 Then
MsgBox "SR"
ElseIf a = 100 Then
MsgBox "UR"
End If
Randomize
a = Rnd()
a = a * 100
If a <= 90 Then
MsgBox "R"
ElseIf a <= 99 Then
MsgBox "SR"
ElseIf a = 100 Then
MsgBox "UR"
End If
Randomize
a = Rnd()
a = a * 100
If a <= 90 Then
MsgBox "R"
ElseIf a <= 99 Then
MsgBox "SR"
ElseIf a = 100 Then
MsgBox "UR"
End If
Randomize
a = Rnd()
a = a * 100
If a <= 90 Then
MsgBox "R"
ElseIf a <= 99 Then
MsgBox "SR"
ElseIf a = 100 Then
MsgBox "UR"
End If
Randomize
a = Rnd()
a = a * 100
If a <= 90 Then
MsgBox "R"
ElseIf a <= 99 Then
MsgBox "SR"
ElseIf a = 100 Then
MsgBox "UR"
End If
Randomize
a = Rnd()
a = a * 100
If a <= 90 Then
MsgBox "R"
ElseIf a <= 99 Then
MsgBox "SR"
ElseIf a = 100 Then
MsgBox "UR"
End If
Randomize
a = Rnd()
a = a * 100
If a <= 90 Then
MsgBox "R"
ElseIf a <= 99 Then
MsgBox "SR"
ElseIf a = 100 Then
MsgBox "UR"
End If
Randomize
a = Rnd()
a = a * 100
If a <= 90 Then
MsgBox "R"
ElseIf a <= 99 Then
MsgBox "SR"
ElseIf a = 100 Then
MsgBox "UR"
End If

Private Sub Command1_Click()
Dim a, b, c, x, x1, x2, d As Single
a = Val(InputBox("输入a"))
b = Val(InputBox("输入b"))
c = Val(InputBox("输入c"))
d = b ^ 2 - 4 * a * c
Select Case d
Case Is < 0
Print "无解"
Case 0
x = (-b) / (2 * a)
Print "x="; x
Case Is > 0
x1 = (0 - b + Sqr(d)) / (2 * a)
x2 = (0 - b - Sqr(d)) / (2 * a)
Print "x1="; x1, "x2="; x2
End Select
End Sub