之前讓師傅點了一下學生系統，我的內心是忐忑的。學生系統已經進行了快一個月了，而且中間還經厲了一個寒假，但是感覺自己已經改不出來什么東西了，也是有點不想改吧，所以就一直拖到了現在。后來讓師傅點完之后感覺自己還是不細心，有些地方想的不夠周全吧，

1.登錄界面的文本框不能復制粘貼

這個限制不能復制粘貼的問題吧，其實我在修改密碼的界面限制了，但是這里確實沒有想到也應該限制一下，結果師傅復制了個別的字符，就跳出了bug，很難受啊。其實這里的核心問題還是我的字符限定的種類不夠多：

Private Sub txtUserName_KeyPress(KeyAscii As Integer)

? Const a As String =

"'!','@','#','$','%','^','&','*','(',')','<','>','?',':',' ','{','}','-','+','=','_','[',']',',','.','?','\','|','/',''','’'"

? KeyAscii = IIf(InStr(a, Chr(KeyAscii)), 0, KeyAscii)

End Sub

2.修改密碼后需要重新登錄

其實這是個常識了，但是我做學生的時候竟然給忘了做，想想微信或者QQ，在修改完密碼后就應該讓用戶重新登錄一下。代碼很簡單就是卸載此窗體隱藏，讓登錄窗體顯示。

3.查詢時文本框先是灰色不能點擊，要等到選中單選框后才能點擊。

就是說當我沒有選擇查詢條件時，是不能輸入信息的，只有當我點擊了“1”里面的條件，“2”的文本框才可以輸入信息，這樣是符合邏輯的。

4.在添加成績超出限制后會跳出兩次msgbox

這個問題說簡單也簡單，因為我用的是change過程，如果輸入的數值大于150或者小于0，它就會跳出提示，然后把文本框清空，此過程中文本框又被改變了一次，所以它就會跳兩次提示，但是文本框不清空的話邏輯上也不好，

Private Sub txtResult_Change()

? If Trim(txtResult.Text) > 150 Or Trim(txtResult.Text) < 0 Then

???? MsgBox "請輸入成績數值在0-150范圍內！", vbOKOnly = vbExclamation, "提示"

??? ?txtResult.SetFocus

???? txtResult.Text = ""

? End If

End Sub

一開始我研究了半天也不知道是哪里錯了，后來在嘉城的幫助下發現原來是函數用錯了：

If Trim(txtResult.Text) > 150 Or Trim(txtResult.Text) < 0 Then

trim應該換成val，val是求里面的數值，而trim是去掉里面的空格。

trim()是去除字符串頭或尾部的空格，但不包含中間的空格。

VAL(字符串表達式)將數字字符串換成數值。

?

看來知識還是掌握的不夠徹底，還要繼續努力，之前的知識也要經?；毓?。

總結

以上是生活随笔為你收集整理的学生系统优化（三）- -细节优化的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。