13518219792
Private Function xxx(ByVal str As String)
鲁山网站建设公司创新互联公司,鲁山网站设计制作，有大型网站制作公司丰富经验。已为鲁山1000+提供企业网站建设服务。企业网站搭建\外贸网站建设要多少钱，请找那个售后服务好的鲁山做网站的公司定做！
str = Replace(str, vbTab, "")'替换tab
str = Replace(str, " ", "")'替换空格
str = Replace(str, " ", "")'替换全角空格，如果不好用，可能是百度转换过了，你自己打一个全角空格作为第二个参数
xxx = str
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = xxx(TextBox1.Text)
End Sub
---------------------------------
replace(要进行替换的字符串，查找的字符串，被替换成的字符串)
例：
replace("abcd","bc","123")
过程：
将"abcd"中的"bc"，全部替换成"123"
结果："a123d"
调用 脚本解析引擎，
textbox2.text=Eval(textbox1.text).ToString()
Function Eval(ByVal Expressions As String) As Double
Dim Mssc = CreateObject("MSScriptControl.ScriptControl")
Mssc.Language = "vbscript"
Return CDbl( Mssc.Eval(Expressions))
End Function
不喜欢上面提示的警告的话
textbox2.text=EvalString(textbox1.text)
Function EvalString(ByVal Expressions As String) As String
dim oType = System.Type.GetTypeFromProgID("MSScriptControl.ScriptControl")
Dim o = System.Activator.CreateInstance(oType)
oType.InvokeMember("Language", System.Reflection.BindingFlags.SetProperty , Nothing, o,New Object(){ "vbscript"})
Return oType.InvokeMember("Eval", System.Reflection.BindingFlags.InvokeMethod, Nothing, o, New Object(){Expressions}).ToString()
End Function
Eval 在VB中使用，刚找到的_vb吧_百度贴吧
a="@1991@1205@844@3276@1104@747@1069@0.9@4@3@104810571073
"
a=Replace(a,"@",",")
a=Replace(a,"",",")
dim b()
b=split(a,",")
可以。字符串的相加为字符串的连接。例如
"a"+"b"="ab".但是字符串不能相减
你给的算式结果为
.04
因为a赋值为12数据类型为数值型。他只是把结果变成了STR型的数据。
这个问题用vb.net比较简单.......
在text1里输入12
85
74
69
73
91
65
在text2里输入第一个数+第二个数
我这个方法的前提是：
text1里的每个数必需由空格分隔
text2里的文本要用+分隔
----------------------------------------------------------
dim
t1()
as
string
dim
t2()
as
string
dim
t1l,
i
as
integer
dim
temp
dim
r
as
integer,
rs
as
string
'用split函数分隔用户的输入
t1
=
split(text1.text,
"
")
t2
=
split(text2.text,
"+")
'获取数组t1中一共有几个元素
for
each
temp
in
t1
t1l
=
t1l
+
1
next
'直接开始相加
for
each
temp
in
t2
r
=
r
+
t1(i)
rs
=
rs
t1(i)
"+"
i
=
i
+
1
next
'显示结果
rs
=
left(rs,
len(rs)
-
1)
rs
=
rs
"="
r
text3.text
=
rs
----------------------------------------------------------
代码就是这样，缺点就是不是说在text2中输入第一个数+第二个数才可以加，输入a+b也可以加
DateAdd函数 返回
返回包含一个日期的 Variant (Date)，这一日期还加上了一段时间间隔。
语法
DateAdd(interval, number, date)
DateAdd 函数语法中有下列命名参数：
部分 描述
interval 必要。字符串表达式，是所要加上去的时间间隔。
number 必要。数值表达式，是要加上的时间间隔的数目。其数值可以为正数（得到未来的日期），也可以为负数（得到过去的日期）。
date 必要。Variant (Date) 或表示日期的文字，这一日期还加上了时间间隔。
DateDiff函数 返回
返回 Variant (Long) 的值，表示两个指定日期间的时间间隔数目。
语法
DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]])
DateDiff 函数语法中有下列命名参数：
部分 描述
interval 必要。字符串表达式，表示用来计算date1 和 date2 的时间差的时间间隔
Date1□date2 必要；Variant (Date)。计算中要用到的两个日期。
Firstdayofweek 可选。指定一个星期的第一天的常数。如果未予指定，则以星期日为第一天。
firstweekofyear 可选。指定一年的第一周的常数。如果未予指定，则以包含 1 月 1 日的星期为第一周。
