要救赎OL，突然有一天就打不开了，弹出这个，求大神解答_百度知道
要救赎OL，突然有一天就打不开了，弹出这个，求大神解答
我有更好的答案
内部文件被损坏，要么重新下载，要么看看这个游戏有没有修复客户端的软件修复一下建议玩游戏的时候关掉一下杀毒软件！望采纳！
采纳率：41%
为您推荐：
其他类似问题
突然有一天的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。363浏览次数
商业房产权多少年？有人了解吗？求大神解答
个人了解：你不需要考量个人房产税如何计算的问题，由于房产产权属国家所有的，由经营管理单位纳税。房产产权属集体和个人所有的，由集体单位和个人纳税。房产产权出典的，由承典人纳税。房产产权所有人、承典人不在房屋所在地的，由房产代管人或者使用人纳税。房产产权未确定及租典纠纷未解决的，亦由房产代管人或者使用人纳税。
其他回答(共3条)
在签订二手房买卖合同前，购房者需要对售房者有较为全面的了解：首先查看产权所有人的身份证件；房屋产权证上的产权所有人是一位还是几位共有假如是几位共有，则共有人是否全部同意出售房产时，房屋的产权共有人一定要全部同意。
购房者应当查看房产证所有人的身份证件。假如售房者与房屋产权证上记载的产权所有人不是同一人，则应当了解售房者与房产所有人之间的关系，要求售房者提供证明文件，并亲自向房产所有人核实。此外，购房者应当详细了解并核实房产所有人是一位还是几位共有。假如房屋为多人共有，则须卖房人提供所有共有人的身份证件及同意出卖房屋的书面文件。在办理房产过户手续时，全部共有人能否都到场。如有特殊情况不能到场，需出具经过公证的委托书及代理人身份证件，由代理人替其签章。
房产税由产权所有人缴纳。产权属于全民所有的，由经营或管理的单位缴纳。产权出典的，在出典期间，由于房产的产权所有人已无权支配房产，房产税由承典人缴纳。为了便于征收管理，保证房产税及时入库，产权所有人、承典人不在房产所在地，或者产权未确定及租典纠纷未解决的，房产税由房产代管人或者使用人缴纳。土地使用税由拥有土地使用权的单位和个人交。
其他热门问题
相关套图推荐查看: 1051|回复: 7
求各位大神帮我看看，哪儿错了，怎么提示loop没有do
阅读权限10
在线时间 小时
Dim x(1 To 5000), cells(5000, 1), i, qh(99), pfh(1999), fc(1999), p(1999), j, y(1999), yc(1999), xx, sx, jj, jm, max, min
Sub 计算()
Dim x(1 To 5000), cells(5000, 1), i, qh(5000), j, y(5000), yc(5000), t, p(1999), xx, sx, jj, jm, max, min
Nvol = Sheets(&sheet2&).cells(24, 3) '输入样品 个数
m = Sheets(&sheet2&).cells(25, 3) '输入元素个数
Ename = & & '赋值
For jm = 1 To m
Ename = Sheets(&sheet1&).cells(1, jm)
max = -20000
min = 20000
For i = 2 To n + 1
x(i - 1) = Sheets(&sheet1&).cells(i, jm)
If x(i - 1) & max Then '求最大值
max = x(i - 1)
If x(i - 1) & min Then '求最小值
min = x(i - 1)
Sheets(&sheet2&).cells(2, jm + 1) = Ename
Sheets(&sheet2&).cells(3, 1) = &原始样品数&
Sheets(&sheet2&).cells(3, jm + 1) = n
Sheets(&sheet2&).cells(10, 1) = &初始最大值&
Sheets(&sheet2&).cells(10, jm + 1) = max
Sheets(&sheet2&).cells(11, 1) = &初始最小值&
Sheets(&sheet2&).cells(11, jm + 1) = min
Do 'do-loop循环
pfh(0) = 0
For j = 1 To n
qh(0) = qh(0) + x(j) '求和
pfh(0) = pfh(0) + x(j) ^ 2 '初平方和
p(0) = qh(0) / n '初平均值
fc(0) = Sqr((pfh(0) - qh(0) ^ 2 / n) / n) '初方差
yc(0) = p(0) + 23 * fc(0) '初异常
If flag = 0 Then
Sheets(&sheet2&).cells(4, 1) = &初和&
Sheets(&sheet2&).cells(4, jm + 1) = qh(0)
Sheets(&sheet2&).cells(5, 1) = &初平均值&
Sheets(&sheet2&).cells(5, jm + 1) = p(0)
Sheets(&sheet2&).cells(6, 1) = &初平方和&
Sheets(&sheet2&).cells(6, jm + 1) = pfh(0)
Sheets(&sheet2&).cells(7, 1) = &初方差&
Sheets(&sheet2&).cells(7, jm + 1) = fc(0)
Sheets(&sheet2&).cells(8, 1) = &初平均-2f&
Sheets(&sheet2&).cells(8, jm + 1) = p(0) - 23 * fc(0)
Sheets(&sheet2&).cells(9, 1) = &初平均+2f&
Sheets(&sheet2&).cells(9, jm + 1) = p(0) + 23 * fc(0)
Sheets(&Sheet2 &).cells(12, 1) = &初异常下限&
Sheets(&sheet2&).cells(12, jm + 1) = yc(0)
xx = p(0) - 23 * fc(0) '计算条件下限
sx = p(0) + 23 * fc(0) '计算条件上限
For i = 1 To n
If xx & x(i) And x(i) & sx Then '判断
y(j) = x(i) '在条件内数据置于y(j)数组
If n = j - 1 Then
max = -20000
min = 20000
'max_min=min
'max=max_min
For jj = 1 To n
x(jj) = y(jj) '在条件内的数组重新赋给x(i)数组
If x(jj) & max Then '求计算最大值
max = x(jj)
If x(jj) & min Then '求计算最小值
min = x(jj)
Sheets(&sheet2&).cells(14, 1) = &计算有效样品数&
Sheets(&sheet2&).cells(14, jm + 1) = n
Sheets(&sheet2&).cells(15, 1) = &计算和&
Sheets(&sheet2&).cells(15, jm + 1) = qh(0)
Sheets(&sheet2&).cells(16, 1) = &计算平均&
Sheets(&sheet2&).cells(16, jm + 1) = p(0)
Sheets(&sheet2&).cells(17, 1) = &计算方差&
Sheets(&sheet2&).cells(17, jm + 1) = fc(0)
Sheets(&sheet2&).cells(18, 1) = &平均-2f&
Sheets(&sheet2&).cells(18, jm + 1) = xx
Sheets(&sheet2&).cells(19, 1) = &平均+2f&
Sheets(&sheet2&).cells(19, jm + 1) = sx
Sheets(&sheet2&).cells(20, 1) = &计算最大值&
Sheets(&sheet2&).cells(20, jm + 1) = max
Sheets(&sheet2&).cells(21, 1) = &计算最小值&
Sheets(&sheet2&).cells(21, jm + 1) = min
Sheets(&sheet2&).cells(22, 1) = &计算异常下限&
Sheets(&sheet2&).cells(22, jm + 1) = sx
Public Sub 退出()
ApplicationQuitEndSub
阅读权限200
在线时间 小时
Dim x(1 To 5000), cells(5000, 1), i, qh(99), pfh(1999), fc(1999), p(1999), j, y(1999), yc(1999), xx, sx, jj, jm, max, min
Sub 计算()
& & Dim x(1 To 5000), cells(5000, 1), i, qh(5000), j, y(5000), yc(5000), t, p(1999), xx, sx, jj, jm, max, min
& & Nvol = Sheets(&sheet2&).cells(24, 3) '输入样品 个数
& & m = Sheets(&sheet2&).cells(25, 3) '输入元素个数
& & Ename = & & '赋值
& & For jm = 1 To m
& && &&&Ename = Sheets(&sheet1&).cells(1, jm)
& && &&&n = Nvol
& && &&&max = -20000
& && &&&min = 20000
& && &&&For i = 2 To n + 1
& && && && &x(i - 1) = Sheets(&sheet1&).cells(i, jm)
& && && && &If x(i - 1) & max Then '求最大值
& && && && && & max = x(i - 1)
& && && && &Else
& && && && && & If x(i - 1) & min Then '求最小值
& && && && && && &&&min = x(i - 1)
& && && && && & End If
& && && && &End If
& && &&&Next i
& && &&&With Sheets(&sheet2&)
& && && && &.cells(2, jm + 1) = Ename
& && && && &.cells(3, 1) = &原始样品数&
& && && && &.cells(3, jm + 1) = n
& && && && &.cells(10, 1) = &初始最大值&
& && && && &.cells(10, jm + 1) = max
& && && && &.cells(11, 1) = &初始最小值&
& && && && &.cells(11, jm + 1) = min
& && &&&End With
& && &&&flag = 0
& && &&&Do 'do-loop循环
& && && && &qh(0) = 0
& && && && &pfh(0) = 0
& && && && &For j = 1 To n
& && && && && & qh(0) = qh(0) + x(j) '求和
& && && && && & pfh(0) = pfh(0) + x(j) ^ 2 '初平方和
& && && && && & p(0) = qh(0) / n '初平均值
& && && && && & fc(0) = Sqr((pfh(0) - qh(0) ^ 2 / n) / n) '初方差
& && && && && & yc(0) = p(0) + 23 * fc(0) '初异常
& && && && &Next j
& && && && &If flag = 0 Then
& && && && && & With Sheets(&sheet2&)
& && && && && && &&&.cells(4, 1) = &初和&
& && && && && && &&&.cells(4, jm + 1) = qh(0)
& && && && && && &&&.cells(5, 1) = &初平均值&
& && && && && && &&&.cells(5, jm + 1) = p(0)
& && && && && && &&&.cells(6, 1) = &初平方和&
& && && && && && &&&.cells(6, jm + 1) = pfh(0)
& && && && && && &&&.cells(7, 1) = &初方差&
& && && && && && &&&.cells(7, jm + 1) = fc(0)
& && && && && && &&&.cells(8, 1) = &初平均-2f&
& && && && && && &&&.cells(8, jm + 1) = p(0) - 23 * fc(0)
& && && && && && &&&.cells(9, 1) = &初平均+2f&
& && && && && && &&&.cells(9, jm + 1) = p(0) + 23 * fc(0)
& && && && && && &&&.cells(12, 1) = &初异常下限&
& && && && && && &&&.cells(12, jm + 1) = yc(0)
& && && && && & End With
& && && && &End If
& && && && &flag = 1
& && && && &'判断
& && && && &xx = p(0) - 23 * fc(0) '计算条件下限
& && && && &sx = p(0) + 23 * fc(0) '计算条件上限
& && && && &j = 1
& && && && &For i = 1 To n
& && && && && & If xx & x(i) And x(i) & sx Then '判断
& && && && && && &&&y(j) = x(i) '在条件内数据置于y(j)数组
& && && && && && &&&j = j + 1
& && && && && & End If
& && && && &Next i
& && && && &If n = j - 1 Then
& && && && && & Exit Do
& && && && && & n = j - 1
& && && && && & max = -20000
& && && && && & min = 20000
& && && && && & For jj = 1 To n
& && && && && && &&&x(jj) = y(jj) '在条件内的数组重新赋给x(i)数组
& && && && && && &&&If x(jj) & max Then '求计算最大值
& && && && && && && && &max = x(jj)
& && && && && && &&&Else
& && && && && && && && &If x(jj) & min Then min = x(jj) '求计算最小值
& && && && && && &&&End If
& && && && && & Next jj
& && && && &End If
& && &&&Loop
& && &&&With Sheets(&sheet2&)
& && && && &.cells(14, 1) = &计算有效样品数&
& && && && &.cells(14, jm + 1) = n
& && && && &.cells(15, 1) = &计算和&
& && && && &.cells(15, jm + 1) = qh(0)
& && && && &.cells(16, 1) = &计算平均&
& && && && &.cells(16, jm + 1) = p(0)
& && && && &.cells(17, 1) = &计算方差&
& && && && &.cells(17, jm + 1) = fc(0)
& && && && &.cells(18, 1) = &平均-2f&
& && && && &.cells(18, jm + 1) = xx
& && && && &.cells(19, 1) = &平均+2f&
& && && && &.cells(19, jm + 1) = sx
& && && && &.cells(20, 1) = &计算最大值&
& && && && &.cells(20, jm + 1) = max
& && && && &.cells(21, 1) = &计算最小值&
& && && && &.cells(21, jm + 1) = min
& && && && &.cells(22, 1) = &计算异常下限&
& && && && &.cells(22, jm + 1) = sx
& && &&&End With
& & Next jm
Public Sub 退出()
& & Application.Quit
阅读权限10
在线时间 小时
还是不行，你标红的哪个地方编译后显示NEXT没有for
阅读权限200
在线时间 小时
有修改，请测试。
阅读权限10
在线时间 小时
编译后这句话“ApplicationQuit“提示属性的使用无效是怎么回事
阅读权限95
在线时间 小时
Dim x(1 To 5000), cells(5000, 1), i, qh(99), pfh(1999), fc(1999), p(1999), j, y(1999), yc(1999), xx, sx, jj, jm, max, min
Sub 计算()
Dim x(1 To 5000), cells(5000, 1), i, qh(5000), j, y(5000), yc(5000), t, p(1999), xx, sx, jj, jm, max, min
Nvol = Sheets(&sheet2&).cells(24, 3) '输入样品 个数
m = Sheets(&sheet2&).cells(25, 3) '输入元素个数
Ename = & & '赋值
For jm = 1 To m
Ename = Sheets(&sheet1&).cells(1, jm)
max = -20000
min = 20000
For i = 2 To n + 1
x(i - 1) = Sheets(&sheet1&).cells(i, jm)
If x(i - 1) & max Then '求最大值
max = x(i - 1)
If x(i - 1) & min Then '求最小值
min = x(i - 1)
Sheets(&sheet2&).cells(2, jm + 1) = Ename
Sheets(&sheet2&).cells(3, 1) = &原始样品数&
Sheets(&sheet2&).cells(3, jm + 1) = n
Sheets(&sheet2&).cells(10, 1) = &初始最大值&
Sheets(&sheet2&).cells(10, jm + 1) = max
Sheets(&sheet2&).cells(11, 1) = &初始最小值&
Sheets(&sheet2&).cells(11, jm + 1) = min
Do 'do-loop循环
pfh(0) = 0
For j = 1 To n
qh(0) = qh(0) + x(j) '求和
pfh(0) = pfh(0) + x(j) ^ 2 '初平方和
p(0) = qh(0) / n '初平均值
fc(0) = Sqr((pfh(0) - qh(0) ^ 2 / n) / n) '初方差
yc(0) = p(0) + 23 * fc(0) '初异常
If flag = 0 Then
Sheets(&sheet2&).cells(4, 1) = &初和&
Sheets(&sheet2&).cells(4, jm + 1) = qh(0)
Sheets(&sheet2&).cells(5, 1) = &初平均值&
Sheets(&sheet2&).cells(5, jm + 1) = p(0)
Sheets(&sheet2&).cells(6, 1) = &初平方和&
Sheets(&sheet2&).cells(6, jm + 1) = pfh(0)
Sheets(&sheet2&).cells(7, 1) = &初方差&
Sheets(&sheet2&).cells(7, jm + 1) = fc(0)
Sheets(&sheet2&).cells(8, 1) = &初平均-2f&
Sheets(&sheet2&).cells(8, jm + 1) = p(0) - 23 * fc(0)
Sheets(&sheet2&).cells(9, 1) = &初平均+2f&
Sheets(&sheet2&).cells(9, jm + 1) = p(0) + 23 * fc(0)
Sheets(&Sheet2 &).cells(12, 1) = &初异常下限&
Sheets(&sheet2&).cells(12, jm + 1) = yc(0)
xx = p(0) - 23 * fc(0) '计算条件下限
sx = p(0) + 23 * fc(0) '计算条件上限
For i = 1 To n
If xx & x(i) And x(i) & sx Then '判断
y(j) = x(i) '在条件内数据置于y(j)数组
If n = j - 1 Then
max = -20000
min = 20000
'max_min=min
'max=max_min
For jj = 1 To n
x(jj) = y(jj) '在条件内的数组重新赋给x(i)数组
If x(jj) & max Then '求计算最大值
max = x(jj)
If x(jj) & min Then '求计算最小值
min = x(jj)
Sheets(&sheet2&).cells(14, 1) = &计算有效样品数&
Sheets(&sheet2&).cells(14, jm + 1) = n
Sheets(&sheet2&).cells(15, 1) = &计算和&
Sheets(&sheet2&).cells(15, jm + 1) = qh(0)
Sheets(&sheet2&).cells(16, 1) = &计算平均&
Sheets(&sheet2&).cells(16, jm + 1) = p(0)
Sheets(&sheet2&).cells(17, 1) = &计算方差&
Sheets(&sheet2&).cells(17, jm + 1) = fc(0)
Sheets(&sheet2&).cells(18, 1) = &平均-2f&
Sheets(&sheet2&).cells(18, jm + 1) = xx
Sheets(&sheet2&).cells(19, 1) = &平均+2f&
Sheets(&sheet2&).cells(19, jm + 1) = sx
Sheets(&sheet2&).cells(20, 1) = &计算最大值&
Sheets(&sheet2&).cells(20, jm + 1) = max
Sheets(&sheet2&).cells(21, 1) = &计算最小值&
Sheets(&sheet2&).cells(21, jm + 1) = min
Sheets(&sheet2&).cells(22, 1) = &计算异常下限&
Sheets(&sheet2&).cells(22, jm + 1) = sx
Public Sub 退出()
ApplicationQuitEndSub
阅读权限10
在线时间 小时
& & & & & & & &
看来没人能解答……
阅读权限20
在线时间 小时
我猜是少了个End If
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师1被浏览11分享邀请回答暂时还没有回答，开始写第一个回答}