别小看这题，VB高手也不一定会

sunxianjunld

想在text1文本框里输入30/0.2/-0.4通过command1在text2文本框里计算出平均值，0.2和-0.4是公差，请教啦？？？？

陈飞

你不会把30/0.2/-0.4分别输入三个文本框，在第四个文本框中输出平均值吗，干嘛钻进死胡同？

刀疤五

回复 sunxianjunld 的帖子

这么低级的问题，高手们根本就不屑一顾,你自已动动脑子,就能解决的.

1.找书或网上查找:VB6.0----常用的字符串处理函数

Trim(string):删除string的前导和尾随空白.
Ltrim(string):删除string的前导空白.
Rtrim(string):删除string的尾随空白.
Left(string,length):返回string从左边起length个字符.
Right(string,length):返回string从右边起length个字符.
Mid(string,start[,length]):返回string从start起length个字符.
Lcase(string):返回转换成小写的string.
Ucase(string):返回转换成大写的string.
Len(string):返回string的字符数.
Asc(string):返回string中首字符的代码.
Instr([start,]string1,string2[,compare]):返回string2在string1中最先出现的位置.
InstrRev(string1,string2[,start[,compare]]):返回string2在string1中出现的位置.从末尾算起.
Val(string):把string转换成数字.
Str(number):把数字转换成字符串.
Cint(string):把string转换成整数.


2.代码
Private Sub Command1_Click()
Dim str1 As String
Dim L, L1, L2 As Integer
Dim a1, a2, a3 As Double
str1 = Text1.Text '字符赋值,text1中允许空格,  "+",  "-" , 字符
L = Len(str1)  '返回str1的字符数
L1 = InStr(str1, "/")  '从左到右查找"/",返回 "/" 在str1中出现的位置
L2 = InStrRev(str1, "/") '从右到左查找"/",返回 "/" 在str1中出现的位置
a1 = Val(Mid(str1, 1, L1 - 1)) '名义值
a2 = Val(Mid(str1, L1 + 1, L2 - L1 - 1)) '上差值
a3 = Val(Mid(str1, L2 + 1, L - L2)) '下差值
Text2.Text = a1 + (a2 + a3) / 2 '平均值
End Sub

陈飞

楼主故弄玄虚，藐视高手，不大厚道吧。

sunxianjunld

呵呵 ，还真有高手，洪都诺夫斯基 还真猛啊；不是故弄玄虚，真觉得这个挺难的，没想到你们一下就给解决啦。。。。还真是人外有人，天外有天啊

天行健

楼主是刚入门吧?

sunxianjunld

也可以这么说，我没怎么太深入地学过，只是碰到啦问题在解决，嘿嘿；不过看来高手还真是有啊.....

wysongc

真还没想到用字符串函数来解决

yongxiangle1969

刀哥是高手