這種問題一般用調(diào)試的方式就可以看到了,報錯的行打個斷點。
創(chuàng)新互聯(lián)是專業(yè)的隆昌網(wǎng)站建設公司,隆昌接單;提供做網(wǎng)站、成都網(wǎng)站建設,網(wǎng)頁設計,網(wǎng)站設計,建網(wǎng)站,PHP網(wǎng)站建設等專業(yè)做網(wǎng)站服務;采用PHP框架,可快速的進行隆昌網(wǎng)站開發(fā)網(wǎng)頁制作和功能擴展;專業(yè)做搜索引擎喜愛的網(wǎng)站,專業(yè)的做網(wǎng)站團隊,希望更多企業(yè)前來合作!
截至今天2016/12/02,VB.net最新版本是VB 14,
對應的IDE為Visual Studio 2015
從VB 7開始,每次.net平臺更新,VB版本也會不斷更新。
VB歷史版本如下(.net平臺)
沒有 VB13?
VB12 對應 VS2013
VB11 對應 VS2012
VB10 對應 VS2010
VB9 對應 VS2008
VB8 對應 VS2005
VB7 對應 VS2003
VB6 是經(jīng)典版本,它不是 .net平臺的
語言是遲早被淘汰的,特別是學習計算機編程語言更新太快了,
我個人覺得vb.net在近幾年不能被淘汰?,F(xiàn)在用vb.net的人很多多。
說明:1.共有4個文本框其,其中三個是填入或輸出數(shù)據(jù)的(名稱分別是:txta txtb txtc),剩下的那個是符號(txtd)2.共7個按鈕,4個是符號按鈕,一個計算,一個清零.這是我弄的程序”袖珍計算器”代碼也是自己編寫的,代碼如下:通用聲明Dim j As Integer '定義j為整型
Private Sub Text1_Change()End SubPrivate Sub Command1_Click()
txtfuhao.Text = "+" '將”+”顯示到文本框txtfuhao.Text中
End SubPrivate Sub Command2_Click()
txtfuhao.Text = "-" ''將”-”顯示到文本框txtfuhao.Text中
End SubPrivate Sub Command3_Click()
txtfuhao.Text = "×" '將”×”顯示到文本框txtfuhao.Text中
End SubPrivate Sub Command4_Click()
txtfuhao.Text = "÷" 將”÷”'顯示到文本框txtfuhao.Text中
End Sub
Private Sub Command5_Click()
Dim a, b, c As Integer
a = Val(txta.Text) '將txta.Text里的內(nèi)容轉(zhuǎn)化為數(shù)值型,然后再賦給a
b = Val(txtb.Text) '將txtb.Text里的內(nèi)容轉(zhuǎn)化為數(shù)值型,然后再賦給b
If txtfuhao.Text = "+" Then '運算過程
c = a + b '運算過程
ElseIf txtfuhao.Text = "-" Then '運算過程
c = a - b '運算過程
ElseIf txtfuhao.Text = "÷" Then '運算過程
c = a / b '運算過程
ElseIf txtfuhao.Text = "×" Then '運算過程
c = a * b '運算過程
Else
j = MsgBox("您輸入的符號不正確", vbOKOnly, "錯誤信息")
End If
txtc.Text = c '將運算結(jié)果c輸出到文本框txtc中
End SubPrivate Sub Command6_Click()
txta.Text = "" '將空字符輸入到文本框內(nèi)(刷新)
txtb.Text = "" '將空字符輸入到文本框內(nèi)(刷新)
txtc.Text = "" '將空字符輸入到文本框內(nèi)(刷新)
txtfuhao.Text = "" '將空字符輸入到文本框內(nèi)(刷新)
End SubPrivate Sub Command7_Click()
End '結(jié)束程序
End SubPrivate Sub Form_Load()End Sub