判断句型 就是主谓宾 然后句子改错 顺便说下为什么错 我都做完了 但想对个答案 所以拜托大神帮_百度知道
判断句型 就是主谓宾 然后句子改错 顺便说下为什么错 我都做完了 但想对个答案 所以拜托大神帮
判断句型 就是主谓宾
然后句子改错 顺便说下为什么错
我都做完了 但想对个答案 所以拜托大神帮忙看看
我有更好的答案
我很好奇，为什么那么多人不知道怎么不去问老师！而在网上到处求师！
因为这是作业 下次上课前老师不会告诉你
采纳率：21%
为您推荐：
其他类似问题
主谓宾的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。刚才我喜欢的男生和我说话了，求大神帮看看我又没有犯什么错误…【英语吧】_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：1,222,354贴子：
刚才我喜欢的男生和我说话了，求大神帮看看我又没有犯什么错误…收藏
他：hey marty我：Hi daniel!I'm playing the game you send to me他:how is it mannice我：just fine. I want to go to LV next month他:r u going?我：I probably will go with my host familyHave u ever been Vegas？他:yes and it is way too hot there我:Here it is already hot enough for me :3他:this is nothing compaired to LV but it is still very fun over there我:What did you do when u went there?他:go places我:can we gamble?lol他:no :C我:How old i have to be to gamble?他:18 or 21我:I'm almost 18, maybe by the time im going LV i can gamble 他:if u can sneek me in lol jk我:I'll figure a way out lol他：wow that is so funny我:cant u even watch people gamble?他:some places我:I'll be 18 like 4 days later他:nice see if u can but they will most likely say no我:I'll check in web if there're any way.
针对成人英语学习者设计的口语课程,实用性职场谈判,出国旅游,留学,生活口语.现免息分期付款,每月606元起!上沪江学口语就是这么方便!
好有意思。。
刚和我说完话就说这个这难道是！！！难道是！！！！！！我的人品终于爆发了么……！！
他是外国人吗？为什么你们交流用英语？另外，楼主是男的吗？为什么你喜欢的男生？这是什么意思？
楼主你在国外吗？ 感觉你的英文水平很好，很流利，清析。只是有一点点的搭配问题。
marty 和 daniel? 两个都是男生名字，你们是机油？
我有好多词不懂 哭
If you are lucky, you might get a chance to play with slot machine while no one is watching :3
回复 Sine_九成 :一切都可以解释了..
英语?中教/外教面对面互动课堂,科学的学习方法.不怕你学不会!网上注册即可获得30天免费课程,
回复 Sine_九成 :yea. homo relationship is
very common in America, especially when same sex marriage is legal in some
states. but you shall know it's not that appropriate to bring it up here brother. i am straight,
however i am not against that. but you shall know most people here inherit our Chinese tradition. probably your furture boy frind doesn't feel you are silly, but most people here do....i know you believe in free will, but here is not USA. to avoid some embarrassing questions , you need to keep a low profile.
I wonder if you can chat with me over qq
回复 Sine_九成 :放心、你只需要比较安静就好...
楼主是霓虹金。。
无需再纠结，可以上了
这。。。。就是传说中的gay。。。？近距离膜拜下
Vegas...LV...You Might should Be Careful out there cuz you are fresh...
彻底晕 搞基啊
Your words are totally fine by me .
I am an addict to English.
Can we make friends?
and talk online ? I have a Skype account.
good news!
LZ, are you sure he is also a gay people.If not, this isn't gonna be fun.
LZ,I was wondering for what you said.homosexual is not so popular among us-a new generation(I am only a junior high school student,and I am not so good in English).Nevertheless,I admire your bravery for doing such a amazing thing.But,as far as I am concerned,I do not agree with
you.Congratulations to you,anyway.
登录百度帐号推荐应用来大神看看 编译没有错，但是连接时说double型变成了float型，有可能会丢失数据，运行的时候_百度知道
来大神看看 编译没有错，但是连接时说double型变成了float型，有可能会丢失数据，运行的时候
来大神看看 编译没有错，但是连接时说double型变成了float型，有可能会丢失数据，运行的时候结果始终为0.0000000 大神给看看应该怎么改
#include&stdio.h&
#define Pi 3.1415926
float area(R)
return (S);
float perimete...
我有更好的答案
R你没有定义数据类型
定义了啊 FLOAT 啊
自定义函数括号里，要对形参定义
还是提示数据类型变化了。。
不过这次运行成功了，有数值了。
能不能再问一哈
float area(R)前面那个的FLOAT 是不是对这个函数的输出值定义的啊？
采纳率：39%
你的pi值的长度有木有超过float的限度，我忘记是几位了
把pi的值设为3.14试试
你那个47是怎么回事
。 那个是多出来的
看错了，实参与形参
最后输出改为lf试试
你这是什么编程风格
那个47是多出来的
什么编程风格啊
你是不是觉得我把问题复杂化了啊？
我是练习一哈而已的。
我是新手，小白。。。
没事，运行正确就行
为您推荐：
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。查看: 975|回复: 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
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师