代碼如下
Private Sub Command1_Click()
Dim sum As Single, a As Single
a = Text1
If a >= 2000 Then
sum = a + a * 0.1
Else
sum = a + 1
Text2.Text = sum
End If
End Sub
這段代碼 ，點擊命令按鈕，文本框1值輸入大于2000，文本框2無法輸出？
uj5u.com熱心網友回復：
你只在 Else 分支中進行了輸出啊！把陳述句 Text2.Text = sum 移到 End If 后面。
uj5u.com熱心網友回復：
能有才怪呢，也不看看Text2.Text = sum在哪里。改成下面的：
Private Sub Command1_Click()
Dim sum As Single, a As Single
a = csng(Text1.text)
If a >= 2000 Then
sum = a + a * 0.1
Else
sum = a + 1
End If
Text2.Text = sum
End Sub
uj5u.com熱心網友回復：
如果無論輸入的是多少，都要在Text2輸出一個資料的話，那是你的代碼有邏輯錯誤，要把Text2.Text = sum移到 End if后面才對。
uj5u.com熱心網友回復：
謝謝各位，明白了，我把代碼簡化了下Private Sub Command1_Click()
Dim a As Single
a = Text1
If a > =2000 Then
a = a + a * 0.1
Else
a = a + 1
End If
Text2 = a
End Sub
還有個問題 a = Text1與a = Text1.text 是同樣的含義嗎？
uj5u.com熱心網友回復：
文本框的“默認屬性”就是 Text屬性。因此：
a = Text1
a = Text1.Text
這兩句代碼是完全相同的含義。
不過，我覺得還是寫上完整的“物件.屬性”比較好，一看就明白操作的是哪個屬性，
用不著去“想一下應該是操作的什么屬性”。
uj5u.com熱心網友回復：
默認害死人！
uj5u.com熱心網友回復：
恩，謝謝！有時會遇到a=Val（text1.text）,為什么不用a=text1.text呢？uj5u.com熱心網友回復：
參考6樓
uj5u.com熱心網友回復：
你的6樓內容，跟樓主7樓的問題有個毛的關系！
uj5u.com熱心網友回復：
拒絕使用默認以避免默認帶來的副作用。
uj5u.com熱心網友回復：
val（）是將text1.text的內容轉換為數值型，比如你輸入：“456”，你定義的是single單精度型，避免誤認為是字串型引起型別不匹配的錯誤。我的理解，如有不妥，請指正。uj5u.com熱心網友回復：
當然無法輸出，因為你輸出的陳述句寫在else分支里，當你輸入2000，條件成立，就直接執行了if后的陳述句，if這個分支成立就結束if陳述句了。uj5u.com熱心網友回復：
這代碼看得我都萌萌的首先就是邏輯上的問題. 樓主只要按照你自己的想法手指著代碼一句一句模擬過一遍腦子就不會犯這個問題了.
其次就是默認屬性和默認型別轉換的濫用. 這毛病要是不改正, 將來寫稍微大一點的程式就會自食其果. 建議樓主養成在每次賦值之前都先想一下等于號兩邊的變數和內容各自是什么型別.
代碼風格, 縮進什么的都已經算不上問題了.
uj5u.com熱心網友回復：
人必有所不為，然后可以有為。轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/65394.html
標籤：VB基礎類
上一篇：求資源