189 8069 5689
将文本框text1和文本框text2的数值相加，应该写完val(text1.text)+val(text2.text),而不是直接text1.text+text2.text。
站在用户的角度思考问题，与客户深入沟通，找到永吉网站设计与永吉网站推广的解决方案，凭借多年的经验，让设计与互联网技术结合，创造个性化、用户体验好的作品，建站类型包括：网站设计制作、成都做网站、企业官网、英文网站、手机端网站、网站推广、主机域名、虚拟主机、企业邮箱。业务覆盖永吉地区。
由于在vb中，“+”号即可用来将两个字符相连，有可以用来将两个数相加，因为text中的内容默认为字符型，如果直接用“+”号是实现不了两个数的数值相加的，而是直接将两个数当字符相连起来了，所以，通常应将字符转换为数字在相加，也就是使用val()函数。
拓展资料
Visual Basic是一种由 Microsoft 公司开发的结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。
从任何标准来说，VB都是世界上使用人数最多的语言——不管是盛赞VB的开发者还是抱怨VB的开发者的数量。它源自于BASIC编程语言。
VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。
主要优点：
1，简单易学。
2，开发速度快。
3，可读性很好。
dim a as singer
dim b as singer 定义a，b 为单精度型
a=text1.text 将输入文本框1的赋给A 我看不懂textbox是什么 不好意思
b=text2.text 将输入文本框2的赋给b
text3.text=a+b 讲a+b的值赋给text3.text
应该就是这样 我的QQ是349141013 我正在学习VB中 希望可以和你交流
Private Sub cmdand_Click()
txtlabel.Text = "加"
End Sub
Private Sub Cmdchange_Click()
If txtlabel.Text = "" Then
txtfirst.Text = -1 * Val(txtfirst.Text)
Else
txtsecond.Text = -1 * Val(txtsecond.Text)
End If
End Sub
Private Sub cmddouble_Click()
txtlabel.Text = "乘"
End Sub
Private Sub cmdExit_Click()
Unload Me
End Sub
Private Sub cmdhit_Click()
txtlabel.Text = "减"
End Sub
Private Sub cmdmod_Click()
txtlabel.Text = "除"
End Sub
Private Sub cmdresult_Click()
Dim myresult As Double
Select Case txtlabel.Text
Case "加"
myresult = Val(txtfirst.Text) + Val(txtsecond.Text)
Case "减"
myresult = Val(txtfirst.Text - txtsecond.Text)
Case "乘"
myresult = Val(txtfirst.Text * txtsecond.Text)
Case "除"
myresult = Val(txtfirst.Text / txtsecond.Text)
End Select
txtlabel.Text = ""
txtsecond.Text = ""
txtfirst.Text = myresult
txtresult.Text = myresult
End Sub
Private Sub Cmd0_Click()
If txtlabel.Text = "" Then
txtfirst.Text = txtfirst.Text + "0"
Else
txtsecond.Text = txtsecond.Text + "0"
End If
End Sub
Private Sub Cmd1_Click()
If txtlabel.Text = "" Then
txtfirst.Text = txtfirst.Text + "1"
Else
txtsecond.Text = txtsecond.Text + "1"
End If
End Sub
Private Sub Cmdclean_Click()
'txtresult.Text = "0"
'get txtresult.Text = Nothing
txtresult.Text = ""
txtsecond.Text = ""
txtlabel.Text = ""
txtfirst.Text = ""
txtresult.SetFocus
End Sub
Private Sub Cmd2_Click()
If txtlabel.Text = "" Then
txtfirst.Text = txtfirst.Text + "2"
Else
txtsecond.Text = txtsecond.Text + "2"
End If
End Sub
Private Sub Cmd3_Click()
If txtlabel.Text = "" Then
txtfirst.Text = txtfirst.Text + "3"
Else
txtsecond.Text = txtsecond.Text + "3"
End If
End Sub
Private Sub Cmd4_Click()
If txtlabel.Text = "" Then
txtfirst.Text = txtfirst.Text + "4"
Else
txtsecond.Text = txtsecond.Text + "4"
End If
End Sub
Private Sub Cmd5_Click()
If txtlabel.Text = "" Then
txtfirst.Text = txtfirst.Text + "5"
Else
txtsecond.Text = txtsecond.Text + "5"
End If
End Sub
Private Sub Cmd6_Click()
If txtlabel.Text = "" Then
txtfirst.Text = txtfirst.Text + "6"
Else
txtsecond.Text = txtsecond.Text + "6"
End If
End Sub
Private Sub Cmd7_Click()
If txtlabel.Text = "" Then
txtfirst.Text = txtfirst.Text + "7"
Else
txtsecond.Text = txtsecond.Text + "7"
End If
End Sub
Private Sub Cmd8_Click()
If txtlabel.Text = "" Then
txtfirst.Text = txtfirst.Text + "8"
Else
txtsecond.Text = txtsecond.Text + "8"
End If
End Sub
Private Sub Cmd9_Click()
If txtlabel.Text = "" Then
txtfirst.Text = txtfirst.Text + "9"
Else
txtsecond.Text = txtsecond.Text + "9"
End If
End Sub
Private Sub Form_Load()
txtfirst.Text = ""
txtlabel.Text = ""
txtsecond.Text = ""
End Sub
Private Sub Frame2_DragDrop(Source As Control, X As Single, Y As Single)
End Sub
Private Sub m2_Click()
frmAbout.Show 1
End Sub
Private Sub txtfirst_Change()
txtresult.Text = txtfirst.Text
End Sub
Private Sub txtsecond_Change()
txtresult.Text = txtsecond.Text
End Sub
这个VB 6.0 的，你自己改下。。。
1、首先开始编写代码，定义变量，如下图所示。
2、这是一个累加程序，所以会用到相关的累加语句,此题使用For-Next循环语句。具体编写如下图所示。
3、不仅仅需要一个For-Next循环语句，还需要在里面嵌套一个For-Next循环语句。
4、最后将剩下的代码补齐，编写完整的代码如下图所示。
5、然后运行程序，输入一个值检验一下。如果n为8，则1！+2!+3!+4!.......+8!=46233，就完成了。
1、按空格分隔（Split或者正则表达式等）得出字符数组
2、Integer.TryParse()如果为真，则是数字，累加数字