如何用VB编写一个简单的减法程序？

用vb编写一个简单的程序~

新建一个窗体,画2个文本框 Text1和Text2,代码放在窗体里面...


Option Explicit
Dim arrPY

Private Sub Form_Load()
Text1.Text = ""
Text1.MaxLength = 2
Text2.Text = ""
Text2.Locked = True

arrPY = Array("ling", "yi", "er", "san", "si", "wu", "liu", "qi", "ba", "jiu", "shi")
End Sub

Private Sub Text1_Change()

'只有一位数字
If Len(Text1) = 1 Then
'校验是否为数字
If IsNumeric(Text1) = False Then Exit Sub
Text2.Text = arrPY(Text1)

Else
'两个数字

'校验数据是否正确
If IsNumeric(Left$(Text1, 1)) = False Or IsNumeric(Right$(Text1, 1)) = False Then Exit Sub

'10就是shi 不能是 yi shi
If Text1 = 10 Then
Text2.Text = arrPY(10)
'以0结尾
ElseIf Right$(Text1, 1) = 0 Then
Text2.Text = arrPY(Left$(Text1, 1)) & " " & arrPY(10)
'其它情况 x shi y
Else
Text2.Text = arrPY(Left$(Text1, 1)) & " " & arrPY(10) & " " & arrPY(Right$(Text1, 1))
End If

End If

End Sub

Windows API是Windows应用程序编程的核心，今天就告诉大家如何使用Windows API编写一个Hello World类型的程序吧。 1.首先打开文本编辑器，输入下面的代码： #include int main() { MessageBox(NULL,"Hello","World",MB_OK); return 0; } 2.上面代码中的MessageBox函数是弹出一个对话框。接下来进行编译，在这里使用命令行编译，首先打开命令行文件，后缀是cmd或者bat。 3.在命令行里面输入命令【cl 源代码文件名】。按enter键执行。 4.正确编译链接之后，生成exe可执行文件， 注意事项 这里的命令行窗口是打开的批处理文件，首先要设置好环境变量。 此种方法能够更直观的感受程序编译链接的过程。

Private Sub Command1_Click()
'文本框Text3的内容等于Text1的数值减去Text2的数值
'其中Val 函数用来返回字串表达式的数值
Me.Text3.Text = Val(Me.Text1.Text) - Val(Me.Text2.Text)
End Sub

在窗口放三个textbox控件，一个Commandbutton控件，双击Commandbutton控件，切换到Private Sub Command1_Click()事件代码中，输入以下代码：

Dim a as double, b as double
text3.text = str(val(text1.text) - val(text2.text))

先画3个text 分别为 text1 text2 text3 private sub form1_load( )text1.text=inputbox("请输入第一个数 ")text2.text=inputbox("请输入第二个数 ")text3.text=text1.text-text2.textend sub

dim a as inter...text1=（你控件的名称）text2=（第二个空间的名称）text3=text1-text2end end大概就是这么个，3年没用vb了，肯定有错的，将就一下吧= =

Option ExplicitPrivate Sub Command1_Click()
Text3.Text = Val(Text1.Text) - Val(Text2.Text)
End Sub

---

屏南县13451648522： 如何用VB编写一个简单的减法程序? - ？
贠信排毒： Private Sub Command1_Click() '文本框Text3的内容等于Text1的数值减去Text2的数值 '其中Val 函数用来返回字串表达式的数值 Me.Text3.Text = Val(Me.Text1.Text) - Val(Me.Text2.Text) End Sub

屏南县13451648522： vb代码问题减法怎么做？
贠信排毒： 减法就和平常的减法计算是一样的,也是用＂-＂这个符号运算 把下面代码复制到窗体里直接运行即可 Private Sub Form_Load() Dim a As Single Dim b As Single Dim c As Single a = 10 '定义a为10 b = 5.5 '定义b为5.5 c = a - b '计算a-b MsgBox ＂a-b=10-5.5=＂ & c '显示结果 End Sub

屏南县13451648522： VB减法代码谁能给我说下? - ？
贠信排毒： 数字不能在变量开头(变量开头只能是字母)

屏南县13451648522： 用vb编写一个计算器程序,实现加减乘除, - ？
贠信排毒： Dim v As Boolean Dim s As Integer Dim X As Double Dim Y As DoublePrivate Sub Command1_Click(Index As Integer)If Form1.Tag = ＂T＂ ThenIf Index = 10 ThenText1.Text = ＂0＂ElseText1.Text = Command1(Index).CaptionEnd IfForm...

屏南县13451648522： 怎样用VB编写一个加减乘除计算器啊?? - ？
贠信排毒： 1、建立14个按钮,按钮的名字都要Command1,设置Index属性,0~9分别对应数字0~9,10为小数点,11为等号,12~14分别对应+、-、*和/. 2、输入如下代码: Dim Num1, Num2 As Single Dim StrNum1, StrNum2 As String Dim FirstNum As ...

屏南县13451648522： vb:简易计算器(加减乘除)代码 - ？
贠信排毒： Private Sub Command1_Click() Select Case Text2.Text Case ＂+＂ Text4.Text = Str(Val(Text1.Text) + Val(Text3.Text)) Case ＂-＂ Text4.Text = Str(Val(Text1.Text) - Val(Text3.Text)) Case ＂*＂ Text4.Text = Str(Val(Text1.Text) * Val(Text3.Text)) ...

屏南县13451648522： 用VB设计一个计算器程序,急 - ？
贠信排毒： 简单的加减乘除.界面:窗体包含三个文本框,Text1与Text2用于输入计算数字,Text3用于显示计算结果.四个按钮(加减乘除).一个标签Label4,用于显示计算方法.代码:Private Sub Command1_Click() a = Text1.Text b = Text2.Text result...

屏南县13451648522： 请VB简单的计算机制作减加乘除法程序代码谁给告诉我?？
贠信排毒： dim a ,b,sa=val(inputbox(＂请输入一个数字＂))b=val(inputbox(＂请输入另一个数字＂))if b<>0 thenmsgbox a & ＂+＂ & b & ＂=＂ & a+b &vbcrlf & a & ＂-＂ & b & ＂=＂ & a-b &vbcrlf & a & ＂*＂ & b & ＂=＂ & a*b &vbcrlf & a & ＂/＂ & b & ＂=＂ ...

屏南县13451648522： VB 编个加减运算的小程序？
贠信排毒： '只修改2个地方,其他不变 : Private Sub Command1_Click() Dim temp As String Open Text1.Text For Input As #1 Open Text2.Text For Output As #2 Do While Not EOF(1) Line Input #1, temp Dim S As String, A D = CDbl(Val(Text3.Text)) S = ...

屏南县13451648522： 怎样用VB编写一个可以算整数加减的小程序啊 我才接触电脑 不太会 老师布置的作业 - ？
贠信排毒： 思路:新建个表单,加上三个文本框、一个标签和一个按钮,然后进入command,写;text=text1+text2 如果想改变加减,将标签换为下拉列表或文本框.不试自己永远也不会明白,得自己动手试.hello