最后两空怎么填写，求人造空气帮助人类

来源：蜘蛛抓取(WebSpider) 时间：2016-01-04 21:48 标签： 帮助利空法王
查看: 265|回复: 7
请写代码，求出一行文本每两个数之间的空格个数，谢谢
阅读权限30
在线时间 小时
请复制下面一行文本，然后随便保存为文本名，是要求出各个数值间的空格数
1234567& &01 02 03 04 05 06 07
应该有7个空格，但每个空格长度是多少，请代码求出，谢谢
阅读权限30
在线时间 小时
结果应是7个空格，长度依次
3,1,1,1,1,1,1
能代码求出来吗，谢谢
阅读权限90
在线时间 小时
s=&1234567& &01 02 03 04 05 06 07&
n=len(s)-len(replace(s,& &,&&))
字符&宽度&?一般用像素表达,好像VBA没有方法计算.
阅读权限95
在线时间 小时
& & Dim s, t, i, k, m, w
& & s = &1234567& &01 02 03 04 05 06 07&
& & t = Split([a1], & &)
& & m = UBound(t)
& & For i = 1 To Len(s) - 1
& && & If Mid(s, i, 1) = & & Then k = k + 1 Else w = w & & & & k: k = 0
& & MsgBox &字符串：& & s & vbLf & &空白符总数：& & m & vbLf & &字串中分别为：& & Replace(w, &0&, &&)
阅读权限30
在线时间 小时
<font color="#wchz 发表于
结果应是7个空格，长度依次
3,1,1,1,1,1,1
能代码求出来吗，谢谢Sub test1()
& & Dim T$, ar(), i%, j%, n%, s%, temp$
& & T = &1234567& &01 02 03 04 05 06 07&
& & i = 1
& & Do
& && &&&n = 1
& && &&&If Mid(T, i, 1) = & & Then
& && && && &For j = i + 1 To Len(T)
& && && && && & If Mid(T, j, 1) && & & Then Exit For
& && && && && & n = n + 1
& && && && &Next j
& && && && &s = s + 1
& && && && &temp = temp & & & & n
& && &&&End If
& && &&&i = i + n
& & Loop Until i & Len(T)
& & MsgBox &共有& & s & &个间隔，空格长度分别为：& & Trim(temp)
End Sub复制代码Sub test2()
& & Dim T$, ar, i%
& & T = &1234567& &01 02 03 04 05 06 07&
& & ar = Split(T, & &)
& & For i = LBound(ar) To UBound(ar)
& && &&&If ar(i) && && Then T = Replace(T, ar(i), &,&)
& & Next i
& & ar = Split(T, &,&)
& & T = &&
& & For i = LBound(ar) To UBound(ar)
& && &&&If ar(i) && && Then
& && && && &n = n + 1
& && && && &T = T & & & & Len(ar(i))
& && &&&End If
& & Next i
& & MsgBox &共有& & n & &个间隔，空格长度分别为：& & Trim(T)
End Sub
复制代码
阅读权限30
在线时间 小时
For i = 1 To Len(s) - 1
& && & If Mid(s, i, 1) = & & Then k = k + 1 Else w = w & & & & k: k = 0
为何不循环到len(s)?
len(s)-1是哪里？
阅读权限30
在线时间 小时
能否求出空格长度的数组
阅读权限30
在线时间 小时
本帖最后由 Vicel 于
12:11 编辑
<font color="#wchz 发表于
能否求出空格长度的数组
空格长度数组为br
Sub test()
& & Dim T$, ar, i%, br()
& & T = &1234567& &01 02 03 04 05 06 07&
& & ar = Split(T, & &)
& & For i = LBound(ar) To UBound(ar)
& && &&&If ar(i) && && Then T = Replace(T, ar(i), &,&)
& & Next i
& & ar = Split(T, &,&)
& & For i = LBound(ar) To UBound(ar)
& && &&&If ar(i) && && Then
& && && && &n = n + 1
& && && && &ReDim Preserve br(1 To n)
& && && && &br(n) = Len(ar(i))
& && &&&End If
& & Next i
& & MsgBox &共有& & n & &个间隔，空格长度分别为：& & Join(br, &,&)
End Sub
复制代码
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师其他登录方式：
Hi~亲，欢迎来到题谷网,新用户注册7天内每天完成登录送积分一个，7天后赠积分33个，购买VIP服务可抵相同金额现金哦~
意见详细错误描述：
教师讲解错误
错误详细描述：
当前位置：>>>
（2010，长沙）有四张完全一样的空白纸片，在每张纸片的一个面上分别写上1、2、3、4.某同学把这四张纸片写有字的一面朝下，先洗匀随机抽出一张，放回洗匀后，再随机抽出一张．求抽出的两张纸片上的数字之积小于6的概率．（用树状图或列表法求解）
下面这道题和您要找的题目解题方法是一样的，请您观看下面的题目视频
（2010，长沙）有四张完全一样的空白纸片，在每张纸片的一个面上分别写上1、2、3、4．某同学把这四张纸片写有字的一面朝下，先洗匀随机抽出一张，放回洗匀后，再随机抽出一张．求抽出的两张纸片上的数字之积小于6的概率．（用树状图或列表法求解）
【思路分析】
用列表法列举出所有情况，看所求的情况与总情况的比值即可得答案．
【解析过程】
解：用列表法可得：
P（小于6）==.
抽出的两张纸片上的数字之积小于6的概率是.
列表法可以不重复不遗漏的列出所有可能的结果，适合于两步完成的事件；用到的知识点为：概率=所求情况数与总情况数之比．
给视频打分
电话：010-
地址：北京市西城区新街口外大街28号B座6层601
扫一扫有惊喜！
COPYRIGHT (C)
INC. ALL RIGHTS RESERVED. 题谷教育 版权所有
京ICP备号 京公网安备1,2,4,6,7,18,（ ）,（ ）.找规律填数.求专家,后两个空怎么填?_百度作业帮
1,2,4,6,7,18,（ ）,（ ）.找规律填数.求专家,后两个空怎么填?
1,2,4,6,7,18,（ ）,（ ）.找规律填数.求专家,后两个空怎么填?
第1、3、5……个数的规律是,后一个是前一个加上3,所以第一个括号填10；第2、4、6……个数的规律是,后一个是前一个乘以3,所以第一个括号填54.求解第2题最后一个空为什么填7.2×10四次方? _百度作业帮
求解第2题最后一个空为什么填7.2×10四次方?
求解第2题最后一个空为什么填7.2×10四次方?&
嗯嗯，我也知道等于0.02KW/h，但是不知道为什么等于7.2×10的四次方
因为1kw.h=3.6×10六次方
具体推到过程如下
哦哦谢谢啦！
因为答案是7.2
把你手机号给我
我来告诉你

我要回帖

更多关于 帮助利空法王 的文章

 

随机推荐