vb.net 如何让一个textbox中的数字相加

将输入的字符串用split函数分开，把所有得到的部分检查是不是数字，如果是累加一下

成都创新互联公司坚持“要么做到，要么别承诺”的工作理念，服务领域包括：网站制作、网站设计、企业官网、英文网站、手机端网站、网站推广等服务，满足客户于互联网时代的余杭网站设计、移动媒体设计的需求，帮助企业找到有效的互联网解决方案。努力成为您成熟可靠的网络建设合作伙伴！

vb.net只使用一个textbox实现两数相加

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 的，你自己改下。。。

VB.NET 中datagrid一列怎么求和

Dim textColumn As New DataGridViewTextBoxColumn() '定义一个新的textbox格式的列

textColumn.Name = "Column1" '定义该列的Name

textColumn.HeaderText = "Column1" '定义该列的标题

DataGridView1.Columns.Add(textColumn)

For Each r As DataGridViewRow In DataGridView1.Rows '循环DataGridView的行

r.Cells(textColumn.Index).Value = r.Cells(0).Value + r.Cells(1).Value '将第一列和第二列单元格数据相加，并显示在新添加的单元格上

Next

用VB.NET的FOR语句怎么编写1到100所有奇数的和啊 ！！！马上要考试了 急！！！

dim sSum as long

for i=1 to 100

if i mod 2 =1 then

sSum=sSum + i

endif

next i

msgbox "1、100的奇数和为：" sSum,"提示"

==========================================

Sum 是关键字，是个系统函数

sSum 只是一个变量，晕，可以改成别的。

VB.net中的求和问题

Private Sub Command1_Click()

MsgBox CalcResult(2)

End Sub

Public Function CalcResult(X As Long) As Double

Dim dblMinLevel As Double

Dim dblItem As Double

Dim dblN As Double

Dim dblMember As Double, dblBase As Double

Dim i As Double

Dim dblResult As Double

dblMinLevel = 10 ^ (-6)

dblN = 0

Do

dblMember = X ^ dblN

dblBase = 1

i = dblN

Do While i 1

dblBase = dblBase * i

i = i - 1

Loop

dblItem = dblMember / dblBase

dblResult = dblResult + dblItem

dblN = dblN + 1

Loop While dblItem = dblMinLevel

CalcResult = dblResult

End Function

用VB怎么把输入的数值相加起来，代码哦

1、首先开始编写代码，定义变量，如下图所示。

2、这是一个累加程序，所以会用到相关的累加语句,此题使用For-Next循环语句。具体编写如下图所示。

3、不仅仅需要一个For-Next循环语句，还需要在里面嵌套一个For-Next循环语句。

4、最后将剩下的代码补齐，编写完整的代码如下图所示。

5、然后运行程序，输入一个值检验一下。如果n为8，则1！+2!+3!+4!.......+8!=46233，就完成了。

新闻标题：vb.net整数求和,整数问题求解VB
文章转载：http://kswjz.com/article/hcdoeh.html