Question

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

Answer 1

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

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

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

Private Sub Command1_Click()

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

If IsNumeric(Text1.Text) And IsNumeric(Text2.Text) Then 

   Select Case Combo1.Text

      Case "+"

       Text3.Text = CDbl(Text1.Text) + CDbl(Text2.Text)

      Case "-"

       Text3.Text = CDbl(Text1.Text) - CDbl(Text2.Text)

      Case "*"

       Text3.Text = CDbl(Text1.Text) * CDbl(Text2.Text)

      Case "/"

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

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

       Else

          Text3.Text = CDbl(Text1.Text) / CDbl(Text2.Text)

       End If

    End Select

Else

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

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

End If

End Sub

一定要多练习!!!

Answer 2

就是做一个计算器程序，你上网找找，很多的，下载了以后要自己多看看了解下别人的思路，看看有没改进的地方。最主要是多学习因为现在你们刚接触，除了天才我想很难独立做出来。但是要自我慢慢培养。

给你个思路，很早前学过，都快忘光了：面板上要3个text3个command
text要等于turetext，最后一个text是结果。1个command的name是+，1个是-，最后1个是=。 然后自己写1个数字在第1个text上面，然后选择command是“+”还是“-”，在第2个text里面写上要+多少或者是-多少，然后再按“=”的那个command ，就计算结果，那个“=”的代码就是写 text1.turetext+text2.turetext=text3.text。大概就是这样了，好多不记得了。

Answer 3

思路：
新建个表单，加上三个文本框、一个标签和一个按钮，

然后进入command，写；text＝text1+text2

如果想改变加减，将标签换为下拉列表或文本框。

不试自己永远也不会明白，得自己动手试。

hello

Answer 4

Private Sub Command1_Click()
MsgBox Int(Val(text1.Text)) + Int(Val(text2.Text))
End Sub

Private Sub Command2_Click()
MsgBox Int(Val(text1.Text)) - Int(Val(text2.Text))
End Sub