怎样用VB编写一个可以算整数加减的小程序啊我才接触电脑不太会 老师布置的作业

不知道是不是你要的样子!

在窗体上画:三个文本框,一个标签,一个按钮,一个组合框控件

然后在按钮的单击事件里写:

Private Sub Command1_Click()

'判断文本框1和2的内容是否为数值型数据

If IsNumeric(Text1Text) And IsNumeric(Text2Text) Then

Select Case Combo1Text

Case "+"

Text3Text = CDbl(Text1Text) + CDbl(Text2Text)

Case "-"

Text3Text = CDbl(Text1Text) - CDbl(Text2Text)

Case ""

Text3Text = CDbl(Text1Text)  CDbl(Text2Text)

Case "/"

If Text2Text = 0 Then  '这里是判断除数不能为零

MsgBox "除数不能为零!", 64, "提示"

Else

Text3Text = CDbl(Text1Text) / CDbl(Text2Text)

End If

End Select

Else

'如果文本框1和2有一个不是数字的话,d出错误警告信息

MsgBox "只能输入数字!", 16, "提示"

End If

End Sub

一定要多练习!!!

Private Sub Command1_Click()

Randomize

Dim a(10) As Integer, b(10) As Integer

Dim c As Integer

For i = 0 To 9

a(i) = Int(Rnd 10)

b(i) = Int(Rnd 10)

c = Int(Rnd 2)

If c = 0 Then

Print a(i) & " + " & b(i) & " = " & a(i) + b(i)

Else

Print a(i) & " - " & b(i) & " = " & a(i) - b(i)

End If

Next

End Sub

我们现在首先要做的就是拉出Label，准备三个Label，把label1，label2，label3，这些改成第一个数、第二个数、结果。

我们现在要text也要拉出三个，把了text里面text1、text2、text3全部删掉。

我们现在要把command拉出四个，把里面command1-4都给成+-/

现在我们现在要双击+，我们开始进行输入代码

在里面我们现在要：text3text=val(text1text)+val(text2text)

我们要把这个（text3text=val(text1text)+val(text2text)）复制，把里面+号分别改成-/

如图，就像这样就可以了，可以行径了，如果你在哪个代码里弄错了，你看一下还要哪些没有拉出来，或者你哪个代码输错了。

感谢观看。

Dim x!, n1!, n2!

'N1,N2分别代表输入的第一个数和第二个数

Dim strn1$, strn2$

'StrN1,StrN2分别代表输入第一个

Dim firstN As Boolean

'判断是否是数字开头

Dim pointflag As Boolean

'判断是否已有小数点

Dim runsign As Integer

'变量Runsign用来储存运算符号

Dim signflag As Boolean

'变量SignFlag判断是否已有运算符号

Private Sub form_load()

n1 = 0: n2 = 0

strn1 = "": strn2 = ""

firstN = True

pointflag = False

'将 PointFlag 设为否，即没有小数点

runsign = 0

signflag = False

'没有运算符号输入

End Sub

Private Sub cmdN_Click(Index As Integer)

Select Case Index

'用Index 作为判断分支的条件

Case 0 To 9

'如果Index是0到9,即数字

If firstNum Then

'输入为第一个数字的话

strn1 = Str(Index)

'实型转字符型

firstN = False

'初赋值标志为假

Else

strn1 = strn1 + Str(Index)

'输入不是第一个数字的话,将输入的字符添加到原有字符串上

End If '结束 if 块

Text1Text = strn1 '将字符串结果显示到标签上

Case 10 '如果输入为小数点

If Not pointflag Then '如果没有小数点

If firstN Then '如果是第一个字符

strn1 = "0" '显示为" 0" 不变

firstN = False

Else

strn1 = strn1 + ""

'初赋值标志为假,否则字符串上加上小数点符号

End If '结束if块

Else

Exit Sub

'已有小数点,则退出单击事件,也就是对单击事件不反应

End If

pointflag = True

Text1Text = strn1

'将小数点标志为真,即在输入串中有了小数点,在显示屏上显示数字串

Case 17

If Sgn(Val(strn1)) = 1 Then

strn1 = "-" + strn1

Else

If Sgn(Val(strn1)) = -1 Then

strn1 = Right(strn1, Len(strn1) - 1)

End If

strn1 = "0"

End If

Text1Text = strn1

Case 12 To 15

firstN = True

'当输入为运算符号时,使下一次可以输入新数据

pointflag = False '还原小数点标记值

If signflag Then '前面已有运算符未运算

Call Run '调用计算子程序,该子程序在下面有说明

Else

signflag = True

'前面没有未运算的,将有无运算符标志设为"有"

strn2 = strn1 '把字符串1复制给字符串2

strn1 = "" '字符串1清空

End If

runsign = Index - 11

Case 11 '如果输入等号

If Not signflag Then '如果没有输入运算符

Text1Text = strn1 '以下均为重置各个变量

ysjg = Val(strn1)

firstN = True

pointflag = False

Else

Call Run

signflag = False

'如果已输入运算符在内,计算清除是否有运算符标志

End If

Case 16

n1 = 0

n2 = 0

'如果输入清除按钮,以下均为重置各个变量,相当于Form_Load中的代码

strn1 = ""

strn2 = ""

firstN = True

pointflag = False

runsign = 0

signflag = False

Text1Text = "0"

End Select

End Sub

Public Sub Run()

Dim ysjg As Single 'Ysjg为局部变量,用来存储运算结果

n1 = Val(strn2) '将字符串转换成数值

n2 = Val(strn1)

Select Case runsign

Case 1

ysjg = n1 + n2

Case 2

ysjg = n1 - n2

Case 3

ysjg = n1 n2

Case 4

ysjg = n1 / n2

End Select

strn2 = Str(ysjg)

strn1 = strn2

Text1Text = strn2

End Sub

Const M = 5

Const N = 5

Dim aa(M, N), bb(M, N), cc(M, N)

Sub printit(a()) '打印矩阵

For i = 1 To M

For j = 1 To N

Print Tab(j 10); a(i, j);

Next j

Print

Next i

End Sub

Sub jzjia(a(), b(), c()) '矩阵相加 c=a+b

For i = 1 To M

For j = 1 To N

c(i, j) = a(i, j) + b(i, j)

Next j, i

End Sub

Sub jzjian(a(), b(), c()) '矩阵相减 c=a-b

For i = 1 To M

For j = 1 To N

c(i, j) = a(i, j) - b(i, j)

Next j, i

End Sub

Sub jzcheng(a(), b(), c()) '矩阵相乘 c=ab

For i = 1 To M

For j = 1 To N

c(i, j) = a(i, j) b(i, j)

Next j, i

End Sub

Private Sub Command1_Click()

Cls

Print "a----------------"

printit aa

Print "b----------------"

printit bb

jzjia aa, bb, cc '相加

Print "c=a+b------------"

printit cc '输出矩阵

jzjian aa, bb, cc '相减

Print "c=a-b------------"

printit cc

jzcheng aa, bb, cc '相乘

Print "c=ab------------"

printit cc

End Sub

Private Sub Form_Load()

'为数组aa和bb赋初值，可根据自己需要进行赋值

For i = 1 To M

For j = 1 To N

aa(i, j) = i j

bb(i, j) = i + j

Next j

Next i

End Sub

先假定：

从左边到右边三个文本框的名称依次是text1、text2、text3；

从上到下四个命令按钮的名字依次是command1、command2、command3、command4。

private sub command1_click()

dim a as single,b as single,c as single

a=val(text1text)

b=val(text2text)

c=a+b

text3text=str(c)

end sub

private sub command1_click()

dim a as single,b as single,c as single

a=val(text1text)

b=val(text2text)

c=a-b

text3text=str(c)

end sub

private sub command1_click()

dim a as single,b as single,c as single

a=val(text1text)

b=val(text2text)

c=ab

text3text=str(c)

end sub

private sub command1_click()

dim a as single,b as single,c as single

a=val(text1text)

b=val(text2text)

c=a/b

text3text=str(c)

end sub

以上就是关于怎样用VB编写一个可以算整数加减的小程序啊 我才接触电脑 不太会 老师布置的作业全部的内容，包括:怎样用VB编写一个可以算整数加减的小程序啊 我才接触电脑 不太会 老师布置的作业、用vb设计出随机出10道10以内的加减法，怎么写程序、用VB做一个简单的加减乘除的计算器，代码是什么等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！