将输入的字符串用split函数分开，把所有得到的部分检查是不是数字，如果是累加一下
成都创新互联公司坚持“要么做到，要么别承诺”的工作理念，服务领域包括：网站制作、网站设计、企业官网、英文网站、手机端网站、网站推广等服务，满足客户于互联网时代的余杭网站设计、移动媒体设计的需求，帮助企业找到有效的互联网解决方案。努力成为您成熟可靠的网络建设合作伙伴！
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 的，你自己改下。。。
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
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 只是一个变量，晕，可以改成别的。
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
1、首先开始编写代码，定义变量，如下图所示。
2、这是一个累加程序，所以会用到相关的累加语句,此题使用For-Next循环语句。具体编写如下图所示。
3、不仅仅需要一个For-Next循环语句，还需要在里面嵌套一个For-Next循环语句。
4、最后将剩下的代码补齐，编写完整的代码如下图所示。
5、然后运行程序，输入一个值检验一下。如果n为8，则1！+2!+3!+4!.......+8!=46233，就完成了。
