用vb编个vb小程序序.要用Do - loop until 语句

来源：蜘蛛抓取(WebSpider) 时间：2012-05-26 17:28 标签： vb小程序
在VB语言里退出do......loop循环可使用的语句是什么_百度知道
在VB语言里退出do......loop循环可使用的语句是什么
提问者采纳
exit do 如： if a&12 then exit do
其他类似问题
vb语言的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁利用VB实现串口通信
扫扫二维码，随身浏览文档
手机或平板扫扫即可继续访问
利用VB实现串口通信
举报该文档为侵权文档。
举报该文档含有违规或不良信息。
反馈该文档无法正常浏览。
举报该文档为重复文档。
推荐理由：
将文档分享至：
分享完整地址
文档地址：
粘贴到BBS或博客
flash地址：
支持嵌入FLASH地址的网站使用
html代码：
&embed src='/DocinViewer-.swf' width='100%' height='600' type=application/x-shockwave-flash ALLOWFULLSCREEN='true' ALLOWSCRIPTACCESS='always'&&/embed&
450px*300px480px*400px650px*490px
支持嵌入HTML代码的网站使用
您的内容已经提交成功
您所提交的内容需要审核后才能发布，请您等待！
3秒自动关闭窗口VB中的do while
loop语句_百度知道
VB中的do while
本人菜鸟，希望高手细细的讲一讲下面的代码是什么意思Private Sub Command1_Click()Dim a, b, s, i As Integera = Val(Text1.Text)b = Val(Text2.Text)s = 0i = aDo While i &= bs = s + ii = i + 1LoopMsgBox &计算结果为:& & sEnd Sub请高手讲一讲每个步骤是什么意思
提问者采纳
Dim a, b, s, i As Integer
'定义变量a = Val(Text1.Text)
'把Text1由字符串转成数值后赋值给变量ab = Val(Text2.Text)
'同上s = 0
's的值归零i = a
'把a的值赋值给变量iDo While i &= b
'当i&=b的时候做循环s = s + i
'把i的值累加到s上i = i + 1
'i增加1Loop
'循环结尾MsgBox
&计算结果为:& & s '用对话框输出计算结果sEnd Sub
提问者评价
谢谢各位了
其他类似问题
按默认排序
其他3条回答
Private Sub Command1_Click()Dim a, b, s, i As Integera = Val(Text1.Text)
'得到文本框1的文本并转换成数值b = Val(Text2.Text)
'得到文本框2的文本并转换成数值s = 0
's的值归零 i = aDo While i &= b
'当i小于等于b时s = s + i
'累加i = i + 1LoopMsgBox &计算结果为:& & sEnd Sub
'就是说从输入两个数字，从数字1一直累加到数字2
a = Val(Text1.Text) b = Val(Text2.Text)在文本框里填入两个数字求和A到B所有的数加起来.
输入两个整数求从第一个整数到第二个整数累加和
while的相关知识
您可能关注的推广
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁last 16* 16光立方的取模工具,用VS2010编写的，是VB语言。 Other windows programs 其他小程序 227万源代码下载-
&文件名称: last& & [
& & & & &&]
&&所属分类:
&&开发工具: Visual Basic
&&文件大小: 328 KB
&&上传时间:
&&下载次数: 0
&&提 供 者:
&详细说明：16* 16光立方的取模工具,用VS2010编写的，是VB语言。-16* 16* 16 light cube modulo tool, written in VS2010 is VB language.
文件列表(点击判断是否您需要的文件，如果是垃圾请在下面评价投诉):
&&last&&....\last&&....\....\last&&....\....\....\Form1.Designer.vb&&....\....\....\Form1.resx&&....\....\....\Form1.vb&&....\....\....\My Project&&....\....\....\..........\Application.Designer.vb&&....\....\....\..........\Application.myapp&&....\....\....\..........\AssemblyInfo.vb&&....\....\....\..........\Resources.Designer.vb&&....\....\....\..........\Resources.resx&&....\....\....\..........\Settings.Designer.vb&&....\....\....\..........\Settings.settings&&....\....\....\bin&&....\....\....\...\Debug&&....\....\....\...\.....\WindowsApplication1.exe&&....\....\....\...\.....\WindowsApplication1.pdb&&....\....\....\...\.....\WindowsApplication1.vshost.exe&&....\....\....\...\.....\WindowsApplication1.vshost.exe.manifest&&....\....\....\...\.....\WindowsApplication1.xml&&....\....\....\...\.....\last.exe&&....\....\....\...\.....\last.pdb&&....\....\....\...\.....\last.vshost.exe&&....\....\....\...\.....\last.vshost.exe.manifest&&....\....\....\...\.....\last.xml&&....\....\....\last.vbproj&&....\....\....\last.vbproj.user&&....\....\....\obj&&....\....\....\...\x86&&....\....\....\...\...\Debug&&....\....\....\...\...\.....\DesignTimeResolveAssemblyReferences.cache&&....\....\....\...\...\.....\DesignTimeResolveAssemblyReferencesInput.cache&&....\....\....\...\...\.....\GenerateResource.read.1.tlog&&....\....\....\...\...\.....\GenerateResource.write.1.tlog&&....\....\....\...\...\.....\TempPE&&....\....\....\...\...\.....\......\My Project.Resources.Designer.vb.dll&&....\....\....\...\...\.....\WindowsApplication1.Form1.resources&&....\....\....\...\...\.....\WindowsApplication1.Resources.resources&&....\....\....\...\...\.....\WindowsApplication1.exe&&....\....\....\...\...\.....\WindowsApplication1.pdb&&....\....\....\...\...\.....\WindowsApplication1.vbproj.FileListAbsolute.txt&&....\....\....\...\...\.....\WindowsApplication1.xml&&....\....\....\...\...\.....\last.exe&&....\....\....\...\...\.....\last.pdb&&....\....\....\...\...\.....\last.vbproj.FileListAbsolute.txt&&....\....\....\...\...\.....\last.xml&&....\....\last.sln&&....\....\last.suo
&输入关键字，在本站227万海量源码库中尽情搜索：

我要回帖

更多关于 vb小程序 的文章

 

随机推荐