关于VB的TEXT问题

2007-02-23 02:28:19 183 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

从SVN完美迁移到Git，我只用了5分钟从SVN完美迁移到Git，我只用了5分钟SVN （Subversion）是一个曾经热门的集中式版本控制工具，然而 Git 作为分布式版本控制工具，近年来特别受欢迎，很多公司、开发人员开始使用 Git 来替代 SVN。阅读详情

我输入了

Private Sub Command1_Click()
Dim a As Integer
If Text2.Text > "1000" Then
Text2.SetFocus
Text2.Text = ""
Randomize
Select Case 1
Case 1
Label1.Caption = "简单难度"
End Select
Else
If Text2.Text > "300" Then
Select Case 1
Case 1
Label1.Caption = "普通难度"
End Select
Else
Label1.Caption = "困难难度"
End If
End If
If Len(Text2) > 4 Then
MsgBox "不必这么慢吧？"
End If
If Len(Text2) < 2 Then
MsgBox "太快了，把速度调慢点吧。"
End If
End Sub

然后在TEXT2中输入 200却提示说简单难度

再有就是输入10它不提示说"太快了" 请问高手如何解决?

...全文