山东省高中信息技术学业水平考试试题网 - 数据与计算|信息系统与社会|数据与数据结构|网络基础|数据管理与分析|移动应用设计|三维设计与创意|开源硬件项目设计|算法初步|智能系统初步

 找回密码
 立即注册

QQ登录

只需一步,快速开始

查看: 1962|回复: 250
收起左侧

第二十三讲 VB程序结构之循环结构(While循环语句)

   关闭 [复制链接]

185

主题

573

帖子

214748万

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
2147483647
QQ
发表于 2018-5-14 19:35:49 | 显示全部楼层 |阅读模式
第二十三讲 VB程序结构之循环结构(While循环语句)
学习目标
    1.会用While语句编写程序。
学习内容
    已知sum=1+2+3+......+n,找出一个最大的整数n,使得sum<=30000。
  1. Private Sub Form_Click()
  2. Cls
  3. Dim sum As Integer, m As Integer, n As Integer
  4. sum = 0
  5. n = 0
  6. m = Val(InputBox("输入m:"))
  7. Do While sum <= m
  8. n = n + 1
  9. sum = sum + n
  10. Loop
  11. Print "1+2+...+n<="; m; "的最大值n是;"; n - 1
  12. End Sub
复制代码
   Do/Loop循环语句常用来解决未知循环次数的程序设计问题,可分为当型循环和直到型循环两种。
    当型循环是指当条件成立时才执行循环,常用Do While/Loop或Do/Loop While循环语句;而直到型循环是指直到条件成立时才跳出循环,常用Do/Loop Until循环语句。
    Do While/Loop循环语句的基本格式:
     Do While <条件>
    <循环体>
  Loop
    Do While/Loop循环语句的执行过程如下:
    每次进入循环都是从Do命令开始,先判断是否满足循环执行条件,若满足条件则执行循环体,否则退出循环。Do循环命令的循环体中必须有能够改变循环执行条件的语句,不然将出现无限次的循环,程序将不能正常结束。
    For循环语句以While循环语句的实现方式:
    上讲案例:求1 + 2 + 3 + ...... +n=?
  1. Private Sub Form_Click()
  2. Dim sum As Single, n As Integer
  3. sum = 0
  4. n = Val(InputBox("输入一个正整数:"))
  5. For i = 1 To n Step 1
  6. sum = sum + i
  7. Next
  8. Print "1 + 2 + 3 + ...... +"; n; "="; sum
  9. End Sub
复制代码
For循环语句
  1. Private Sub Form_Click()
  2. Dim sum As Single, n As Integer
  3. sum = 0
  4. n = Val(InputBox("输入一个正整数:"))
  5. Dim i As Integer
  6. i = 1
  7. Do While i <= n
  8. sum = sum + i
  9. i = i + 1
  10. Loop
  11. Print "1 + 2 + 3 + ...... +"; n; "="; sum
  12. End Sub
复制代码
While循环语句
学习任务
    完善程序:输出n以内的偶数。
    提示:编写完程序代码之后,务必要运行程序,1观察程序能否运行通过2验证结果是否符合要求
    考查点:While循环语句的基本格式
    技巧:VB编写程序时,会自动弹出适配代码,当首个选项恰好是要编写的代码时,只需要按一下TAB键即可,省时又省力!
    注意:VB不区分大小写,关键字会按照系统标准自动变化!程序代码中的符号皆为英文符号,比如英文逗号(,),英文圆括号((  )),英文双引号("),英文等号(=),英文加号(+),等其他字符。

第二十三讲 VB程序结构之循环结构(While循环语句)

第二十三讲 VB程序结构之循环结构(While循环语句)

第二十三讲 VB程序结构之循环结构(While循环语句)

第二十三讲 VB程序结构之循环结构(While循环语句)

程序运行效果图(验证程序是否正确,比如,输入:5,验证结果是:0  2  4)
  1. Private Sub Form_Click()
  2. Cls
  3. Dim n As Integer, m As Integer
  4. m = 0
  5. n = Val(InputBox("输入n:"))




  6. End Sub
复制代码
楼主热帖




上一篇:第二十二讲 VB程序结构之循环结构(For循环语句)
下一篇:第二十四讲 VB程序结构之循环结构(循环的嵌套)
+1
2212°C
250
  • gxh1234
  • 辛晓龙
  • 渔夫的鱼
  • 时光境千
  • 王帅
过: 他们

帖子地址: 

教书育人!
回复

使用道具 举报

0

主题

9

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
12557
发表于 2018-5-17 15:39:07 | 显示全部楼层
Private Sub Form_Click()
Cls
Dim n As Integer, m As Integer
m = 0
n = Val(InputBox("输入n:"))
Do While m <= n
Print m;
m = m + 2
Loop
End Sub
回复 支持 1 反对 0

使用道具 举报

0

主题

10

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
11915
发表于 2018-5-17 17:43:23 | 显示全部楼层
Private Sub Form_Click()
Cls
Dim n As Integer, m As Integer
m = 0
n = Val(InputBox("输入n:"))
Do While m <= n
m = m + 2
Loop
Print m; m - 2
End Sub
  1. Private Sub Form_Click()
  2. Cls
  3. Dim n As Integer, m As Integer
  4. m = 0
  5. n = Val(InputBox("输入n:"))
  6. Do While m <= n
  7. m = m + 2
  8. Loop
  9. Print m; m - 2
  10. End Sub
复制代码



回复 支持 反对

使用道具 举报

0

主题

10

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
12597
发表于 2018-5-17 15:39:12 | 显示全部楼层
  1. <div class="blockcode"><blockquote>Private Sub Form_Click()
  2. Cls
  3. Dim n As Integer, m As Integer
  4. m = 0
  5. n = Val(InputBox("输入n:"))
  6. Do While m <= n
  7. Print m;
  8. m = m + 2
  9. Loop
  10. End Sub
复制代码



回复 支持 反对

使用道具 举报

0

主题

10

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
12541
发表于 2018-5-15 16:49:05 | 显示全部楼层
  1. Private Sub Form_Click()
  2. Dim n As Integer, m As Integer
  3. m = 0
  4. n = Val(InputBox("输入n:"))
  5. Do While m <= n
  6. Print m;
  7. m = m + 2
  8. Loop
  9. End Sub

复制代码

老师,已上传作业,花了很长时间的,麻烦帮看看是否还有改进的空间……
回复 支持 反对

使用道具 举报

0

主题

13

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
12306
发表于 2018-5-15 16:47:36 | 显示全部楼层
  1. Private Sub Form_Click()
  2. Cls
  3. Dim n As Integer, m As Integer
  4. m = 0
  5. n = Val(InputBox("输入n:"))
  6. Do While m <= n
  7. Print m;
  8. m = m + 2
  9. Loop
  10. End Sub
复制代码

老师,这是本节课我辛苦努力的杰作,望批评指正……
回复 支持 反对

使用道具 举报

0

主题

9

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
12440
发表于 2018-5-17 15:40:28 | 显示全部楼层
  1. Private Sub Form_Click()
  2. Cls
  3. Dim n As Integer, m As Integer
  4. m = 0
  5. n = Val(InputBox("输入n:"))
  6. Dim i  As Integer
  7. Do While m <= n
  8. Print m
  9. m = m + 2
  10. Loop









  11. End Sub
复制代码
回复 支持 反对

使用道具 举报

0

主题

12

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
12283
发表于 2018-5-15 17:46:18 | 显示全部楼层
  1. Private Sub Form_Click()
  2. Cls
  3. Dim n As Integer, m As Integer
  4. m = 0
  5. n = Val(InputBox("输入n:"))
  6. Do While m <= n
  7. Print m;
  8. m = m + 2
  9. Loop
  10. End Sub

复制代码
高一三班 李朋远
回复 支持 反对

使用道具 举报

0

主题

10

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
11805
发表于 2018-5-15 17:45:20 | 显示全部楼层
  1. Private Sub Form_Click()
  2. Cls
  3. Dim n As Integer, m As Integer
  4. m = 0
  5. n = Val(InputBox("输入n:"))
  6. Do While m <= n
  7. Print m;
  8. m = m + 2
  9. Loop
  10. End Sub
复制代码

张园威高一三班
回复 支持 反对

使用道具 举报

0

主题

8

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
11731
发表于 2018-5-17 08:35:31 | 显示全部楼层
Private Sub Form_Click()
Cls
Dim n As Integer, m As Integer
m = 0
n = Val(InputBox("输入n:"))
Do While m <= n
m = n + 2
Loop
Print "0 2 4 6 8 10 "; n - 1
End Sub


回复 支持 反对

使用道具 举报

0

主题

11

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
11845
发表于 2018-5-15 16:54:36 | 显示全部楼层
Private Sub Form_Load()
Private Sub Form_Click()
Cls
Dim n As Integer, m As Integer
m = 0
n = Val(InputBox("输入n:"))
Do While i <= n
Print m;
m = m + 2
Loop
End Sub

回复 支持 反对

使用道具 举报

0

主题

8

帖子

1万

积分

版主

Rank: 7Rank: 7Rank: 7

积分
10167
发表于 2018-5-15 11:36:25 | 显示全部楼层
Private Sub Form_Click()
Cls
Dim n As Integer, m As Integer
m = 0
n = Val(InputBox("输入n:"))
Do While m <= n
Print m
m = m + 2
Loop

End Sub


回复 支持 反对

使用道具 举报

0

主题

6

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
10888
发表于 2018-5-15 11:36:51 | 显示全部楼层
  1. Private Sub Form_Click()
  2. Cls
  3. Dim n As Integer, m As Integer
  4. m = 0
  5. n = Val(InputBox("输入n:"))
  6. Do While m <= n
  7. Print m;
  8. m = m + 2
  9. Loop
  10. End Sub
复制代码



回复 支持 反对

使用道具 举报

0

主题

8

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
11276
发表于 2018-5-15 11:37:08 | 显示全部楼层
Private Sub Form_Click()
Cls
Dim n As Integer, m As Integer
m = 0
n = Val(InputBox("输入n:"))
Do While m <= n
Print m
m = m + 2
Loop


End Sub
回复 支持 反对

使用道具 举报

0

主题

8

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
10067
发表于 2018-5-15 11:37:22 | 显示全部楼层
Private Sub Form_Click()

Cls
Dim n As Integer, m As Integer
m = 0
n = Val(InputBox("输入n:"))
Do While m <= n
Print m;
m = m + 2
Loop

End Sub

回复 支持 反对

使用道具 举报

0

主题

5

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
10768
发表于 2018-5-15 11:37:22 | 显示全部楼层
Private Sub Form_Click()
Cls
Dim n As Integer, m As Integer
m = 0
n = Val(InputBox("输入n:"))
Do While m <= n
Print m
m = m + 2
Loop
End Sub

回复 支持 反对

使用道具 举报

0

主题

9

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
11816
发表于 2018-5-15 11:37:29 | 显示全部楼层
Private Sub Form_Click()
Cls
Dim n As Integer, m As Integer
m = 0
n = Val(InputBox("输入n:"))
Dim i As Integer
Do While m <= n
Printm m
m = m + 2
Loop
End Sub


回复 支持 反对

使用道具 举报

0

主题

9

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
11045
发表于 2018-5-15 11:37:31 | 显示全部楼层
  1. Private Sub Form_Click()
  2. Cls
  3. Dim n As Integer, m As Integer
  4. m = 0
  5. n = Val(InputBox("输入n:"))
  6. Do While m <= n
  7. Print m
  8. m = m + 2
  9. Loop
  10. End Sub
复制代码


回复 支持 反对

使用道具 举报

0

主题

6

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
11201
发表于 2018-5-15 11:37:32 | 显示全部楼层
Private Sub Form_Click()
Cls
Dim n As Integer, m As Integer
m = 0
n = Val(InputBox("输入n:"))
Do While m <= n
Print m
m = m + 2
Loop
End Sub

回复 支持 反对

使用道具 举报

0

主题

10

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
11579
发表于 2018-5-15 11:37:44 | 显示全部楼层
Private Sub Form_Click()
Cls
Dim n As Integer, m As Integer
m = 0
n = Val(InputBox("输入n:"))
Do While m <= n
Print m
m = m + 2
Loop
End Sub


回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

站务公告栏:
百度一下 百度二下 百度三下 开门大吉

QQ|Archiver|手机版|小黑屋|山东省高中信息技术学业水平考试试题网 ( 鲁ICP备16049757号 )|网站地图|申请友情链接

GMT+8, 2018-10-19 20:00 , Processed in 0.468202 second(s), 78 queries .

快速回复 返回顶部 返回列表

商品:冲水热水袋注水暖水袋大号成人防爆小号随身灌水橡胶热敷绒布男女
原价:15.10元 券后价:5.1元
购买链接:Click here!
推荐理由:【五天后涨价】送绒布套,防爆车压不破,超大!超便宜!再也不怕来姨妈肚子痛了,赶紧屯着,现在不买,旺季被宰哟~ top100:97
优惠券领取处:Click here!
优惠券推送群:Click here!