1、按空格分隔（Split或者正则表达式等）得出字符数组
成都创新互联服务紧随时代发展步伐，进行技术革新和技术进步，经过十载的发展和积累，已经汇集了一批资深网站策划师、设计师、专业的网站实施团队以及高素质售后服务人员，并且完全形成了一套成熟的业务流程，能够完全依照客户要求对网站进行成都做网站、成都网站建设、建设、维护、更新和改版，实现客户网站对外宣传展示的首要目的，并为客户企业品牌互联网化提供全面的解决方案。
2、Integer.TryParse()如果为真，则是数字，累加数字
Public Class Form1
Dim n As Integer = 0
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
n += Int(Me.TextBox1.Text)
Me.Label1.Text = n.ToString
End Sub
End Class
你自己最好加上数字判断。如果数字很大就用long吧
1、首先开始编写代码，定义变量，如下图所示。
2、这是一个累加程序，所以会用到相关的累加语句,此题使用For-Next循环语句。具体编写如下图所示。
3、不仅仅需要一个For-Next循环语句，还需要在里面嵌套一个For-Next循环语句。
4、最后将剩下的代码补齐，编写完整的代码如下图所示。
5、然后运行程序，输入一个值检验一下。如果n为8，则1！+2!+3!+4!.......+8!=46233，就完成了。
楼上的代码里面num应该在click事件外定义，否则每次单击时num的值都会重新定义
html
head
meta http-equiv="Content-Type" content="text/html; charset=utf-8" /
title1到100之和/title
/head
script language="javascript"
!--
sum=0
for(i=1;i=100;i++)
{
sum=sum+i;
}
document.write("1到100之和为："+sum)
--
/script
body
/body
/html
Module Module1
Sub Main()
Console.WriteLine(DateTimeAdd("01:23:45"))
Console.ReadLine()
End Sub
''' summary
''' 获取时间的累加值
''' /summary
''' param name="sDatetime"/param
''' returns/returns
''' remarks/remarks
Private Function DateTimeAdd(ByVal sDatetime As String) As DateTime
Dim sysTime As DateTime = DateTime.Now
Return sysTime.Add(TimeSpan.Parse(sDatetime))
End Function
End Module