Question

用VB编程，去掉文本框中数据间的空格

从文本框中输入一组数据，数据间用空格隔开，如（20 30 80 90 45 63），最后在窗体中显示数据的平均值，神人啊，怎么编程啊？数据间的空格怎么处理？？

Answer 1

我有一个思路

把文本框的文本一个字符一个字符的判定，是空格键的一概删除

    dim str as string,Tstr as string,ttstr as string    
    tstr=text1.text '读文本
    dim i as int
    if len(str)<1 then '判断文本长度
        exit if '无文本，不执行操作
    else
        for i=1 to len(str) '逐个字符判断
            str=mid(tstr,i,1) '取第i个字符
            if str=" " then
                exit if '空格不操作
            else
                ttstr=ttstr &str '不是空格连接字符至变量ttstr
            end if
        next i
    end if
    text1.text=ttstr '文本框返回最后不是空格的所有字符

Answer 2

假设文本框id 为 Text1

那么代码应该这样写：
Private Sub Main()
Text1.Text = Replace(Text1.Text," ","")
End Sub
Replace函数
vb中的替换函数。
replace(要替换的字符串,要替换的字符,要替换成的字符)

Answer 3

Private Sub Command1_click()
dim a(), sum
a= split(text1.text," ")
for i = 0 to ubound(a)
    sum=sum+a(i)
next i
print "平均值：" ; sum/(ubound(a)+1)
end sub

Answer 4

Private Sub Text1_Change()

Dim k() As String
Dim s
Dim a As Integer
Dim b As Single
Dim c As Integer
If Text1.Text <> "" Then
    k = Split(Trim(Text1.Text), " ")

For Each s In k
    If s = "" Then
        c = c + 1
    Else
        a = a + Val(s)
    End If
Next

Me.Cls
Me.Print "sum=" & a & " avg=" & a / (UBound(k) + 1 - c)

End If

End Sub

Answer 5

你可以先试试用Trim函数全部读出来，然后分字段截取，记得要用Val转换类型哦

追问

怎么用Val转换啊？能具体说一下吗？