主题：请教VB高人一个问题，不难，但是我怎么也做不出来。 -- 锦候

给最大值赋值后忘了处理次大值了。

Public Class Form1

Dim a As Double

Dim b As Double

现在也可以比较两个实数了！

Private Sub btnDisplay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDisplay.Click

Dim score As Double

score = CDbl(txtScore.Text)

If (score > a) And (score < b) Then

a = score

ElseIf (score > b) Then

a = b

加了一句，关键的一句哈哈！谢谢呀！

b = score

End If

txtScore.Clear()

txtScore.Focus()

End Sub

Private Sub btnEvaluate_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnEvaluate.Click

txtOutput.Text = a & " " & b

End Sub

End Class

同样用1，2，3，4，5，6，7，8，9做输入结果是8，9。我想了快两个小时，您10秒钟就解决了，太谢谢了！以后您要有空的话还麻烦多多指点。谢谢！花！

• 您老真是高屋建瓴呀，我都晕了。佩服死了！
• 谢谢了，您真是人如其名呀！突突一下就解决了。