VB编程。输入整数n，计算1！+2！+3！….+n！的值，并在窗体上输出。要求分别用for,while 两种循环实现_百度知道
VB编程。输入整数n，计算1！+2！+3！….+n！的值，并在窗体上输出。要求分别用for,while 两种循环实现
是VB！要求分别用for和while两种循环实现......先在这里谢谢了！我快哭了！
我有更好的答案
Dim&i&&As&Integer,&j&As&IntegerDim&n&As&Integer,&sum&As&Long,&jc&As&Longn&=&InputBox(&请输入：&)&'如果是用文本框text1输入，这里改为&n=val(Text1)sum&=&0For&i&=&1&To&n&&&&jc&=&1&&&&for&j=1&to&i&&&&&&&&jc&=&jc&*&j&&&&next&j&&&&sum&=&sum&+&jcNext&iPrint&sumwhile:Dim&i&&As&Integer,&j&As&IntegerDim&n&As&Integer,&sum&As&Long,&jc&As&Longn&=&InputBox(&请输入：&)sum&=&0i&=&1While&i&&=&n&&&&jc&=&1&&&&j&=&1&&&&While&j&&=&i&&&&&&&&jc&=&jc&*&j&&&&&&&&j&=&j&+&1&&&&Wend&&&&sum&=&sum&+&jc&&&&i&=&i&+&1WendPrint&sum
采纳率：74%
来自团队：
为您推荐：
其他类似问题
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。【图文】VB程序设计：do循环实例_百度文库
赠送免券下载特权
10W篇文档免费专享
部分付费文档8折起
每天抽奖多种福利
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
VB程序设计：do循环实例
阅读已结束，下载本文到电脑
想免费下载本文？
登录百度文库，专享文档复制特权，积分每天免费拿！
你可能喜欢vb新手：在Do while 和For语句执行循环是怎样能结束本次循环去执行下次循环呢？？-CSDN论坛
vb新手：在Do while 和For语句执行循环是怎样能结束本次循环去执行下次循环呢？？
Exit&Do&和Exit&For都是直接从循环退出去了，我想只结束本次循环继续执行下此循环。
在C语言里有Continue，VB里用什么呀？？？
Do&While&snp.EOF&=&False
&&&&&&&&&&&&&&&&a(1)&=&a(1)&+&1:&a(2)&=&a(2)&+&snp("吨座位")
&&&&&&&&&&&&&&&&snp.MoveNext
&&&&&&&&&&&&Loop
刚才太着急了
你的意思是不是要从本次循环中跳出来，进入下一次循环。不清楚。
用goto试试
好象只有在循环前加个判断吧。
Do&While&snp.EOF&=&False
&&&&a(1)&=&a(1)&+&1
&&&&goto&nextdo:&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&'利用goto&跳到下一次循环
&&&&a(2)&=&a(2)&+&snp("吨座位")
&&&&snp.MoveNext
100&aa=1:bb=true
do&while&a=
&&doevents
&&if&bb=false&then&exit&do&&&&'跳出循环
&&if&kk=false&then&goto&200&&&'直接去到别个循环
goto&100　&'回到do&while&初始变量后继续循环
200&for&i=1&to&100
&&&&&&&doevents
&&&&next&i
100&aa=1:bb=true:kk=true
do&while&a&
&&doevents
&&if&bb=false&then&exit&do&&&&'跳出循环
&&if&kk=false&then&goto&200&&&'直接去到别个循环
goto&100　&'回到do&while&初始变量后继续循环
200&for&i=1&to&100
&&&&&&&doevents
&&&&next&i
回复关于DO WHILE循环的用法..【vb吧】_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：108,470贴子：
关于DO WHILE循环的用法..收藏
快试试吧，可以对自己使用挽尊卡咯~◆◆
用do while循环输入框,直到输入0就停止,并且判断输入的数里面有几个负数,正数,和总数 Dim n As IntegerDim z As IntegerDim f As Integerf = 0: z = 0Do While n && 0(为什么这里把0改成其他数就能正常运行,而改成0就没有执行后面的语句?没有弹出输入框呢?)n = InputBox("N=")If n & 0 Thenf = f + 1ElseIf n & 0 Thenz = z + 1End IfLoopPrint "正数有"; "个"Print "负数有"; "个"Print "总共"; z + "个"望达人指点下,谢谢!
快试试吧，可以对自己使用挽尊卡咯~◆◆
.. 是我的问题说得不够清楚吗Do While n && 0 这里是当n不等于0的时候执行下面的语句可是为什么一运行时,连输入框都没弹出来(循环好像被跳过了),直接打印个0出来呢? 各位高手帮帮忙指正下啊,谢谢~
Do While 条件………………Loop 控制结构的概念是：当条件为真时就结束这个DO循环过程你的条件是
不等于0，就是说当不等于0的时候就结束，根据你的意旨，你是想到0就停止，那么你应该写成&&
否则你应该把While改成Until
Dim n As Integer默认为 n=0 Do While n && 0当n不等於0时循环此回圈 当然一下就跳出循环, 因为你的n=0
用vb编程，实现输出提示框判断大小。指定一个值，用户输入比这个数大则输出“你输入的数大了”，用户输入比这个数小则输出“你输入的数小了。用do-while语句如何实现
@景鹤happyRandomize b=int(100*rnd+1)do while a&&b a=inputbox(&猜字&)if a&b then msgbox &小了“if a&b then msgbox &大了”if a=b then msgbox &正确” loop
登录百度帐号一道vb的题 利用Do While循环编写程序 急！！！！！_百度知道
一道vb的题 利用Do While循环编写程序 急！！！！！
设计一个应用程序，利用Do While循环编写程序，判断1到100中有多少个整数能被7整除，求这些数之和并将结果在窗体上输出。
我有更好的答案
Private Sub Form_Click()i = 1num = 0Sum = 0Do While i & 101If i Mod 7 = 0 Thennum = num + 1Sum = Sum + iEnd Ifi = i + 1LoopPrint &能被7整除的个数&; numPrint &能被7整除的数的和&; SumEnd Sub
能把被7整除的数也在窗体里列出来吗？非常感谢！！！！！！
Private Sub Form_Click()i = 1num = 0Sum = 0Do While i & 101If i Mod 7 = 0 Thennum = num + 1Sum = Sum + iprint iEnd Ifi = i + 1LoopPrint &能被7整除的个数&; numPrint &能被7整除的数的和&; SumEnd Sub
采纳率：72%
a1=0a2=0a3=0a4=0input &请输入成绩& ;xdo while x&0
select case x
case x&=90
case x&=80
case x&=60
input &请输入成绩& ;xloopprint &90分以上的学生数& ;a1print &80-90的学生数& ;a2print &60-80的学生数& ;a3print &60分以下的学生数& ;a4
i = 1s = 0n = 0Do While i &= 100
If i Mod 7 = 0 Then
i = i + 1Loop
为您推荐：
其他类似问题
您可能关注的内容
while的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。}