VB6.0除法運(yùn)算求代碼

Option Explicit

創(chuàng)新互聯(lián)建站專注于商丘企業(yè)網(wǎng)站建設(shè),成都響應(yīng)式網(wǎng)站建設(shè)公司,電子商務(wù)商城網(wǎng)站建設(shè)。商丘網(wǎng)站建設(shè)公司,為商丘等地區(qū)提供建站服務(wù)。全流程按需策劃，專業(yè)設(shè)計(jì)，全程項(xiàng)目跟蹤，創(chuàng)新互聯(lián)建站專業(yè)和態(tài)度為您提供的服務(wù)

Private Sub Command1_Click()

Text3.Text = "" '余數(shù)

If IsNumeric(Text1.Text) = False Then

MsgBox "被除數(shù)不是數(shù)字，請(qǐng)重新輸入"

Text1.Text = ""

Text1.SetFocus

Exit Sub

End If

If IsNumeric(Text2.Text) = False Then

MsgBox "除數(shù)不是數(shù)字，請(qǐng)重新輸入"

Text2.Text = ""

Text2.SetFocus

Exit Sub

End If

If Text2.Text = 0 Then

MsgBox "除數(shù)不能為0，請(qǐng)重新輸入"

Text2.Text = ""

Text2.SetFocus

Exit Sub

End If

Text3.Text = Val(Text1.Text) Mod Val(Text2.Text)

if left(text3.text,1)="." then text3.text="0" text3.text '把這行加上

End Sub

求計(jì)算器除法VB代碼

Private Sub Command1_Click()

Dim a, b, c As Single '定義變量a,b,c

a = Val(Text1.Text) '取的第一個(gè)除數(shù)并放到存儲(chǔ)單元a中

b = Val(Text2.Text) '取的第二個(gè)除數(shù)并放到存儲(chǔ)單元b中

'----

IF b = 0 Then

Msgbox "除數(shù)不能為0或空"

exit sub

End If

'----

c = a / b '把兩個(gè)除數(shù)轉(zhuǎn)換數(shù)字后相除，并把計(jì)算的結(jié)果存放到存儲(chǔ)單元c中

Label2.Caption = c '把存儲(chǔ)單元c中的值，顯示在標(biāo)簽中

End Sub

跪求:VB.net加減乘除 代碼

先在form上建立三個(gè)textbox，分別為textbox1,textbox2,textbox3，再建立四個(gè)按鈕，分別為cmdplus,cmdminus,cmdmultiple,cmddivide，代碼如下：

Private Sub cmdplus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdplus.Click

Dim a As Integer

Dim b As Integer

a = TextBox1.Text

b = TextBox2.Text

TextBox3.Text = a + b

End If

Private Sub cmdminus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdminus.Click

Dim a As Integer

Dim b As Integer

a = TextBox1.Text

b = TextBox2.Text

TextBox3.Text = a - b

End If

Private Sub cmdmultiple_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdmultiple.Click

Dim a As Integer

Dim b As Integer

a = TextBox1.Text

b = TextBox2.Text

TextBox3.Text = a * b

End If

Private Sub cmddivide_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmddivide.Click

Dim a As Integer

Dim b As Integer

a = TextBox1.Text

b = TextBox2.Text

TextBox3.Text = a / b

End If