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

 找回密码
 立即注册

QQ登录

只需一步,快速开始

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

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

   关闭 [复制链接]

161

主题

175

帖子

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循环语句)
+1
1079°C
250
  • gxh1234
  • 辛晓龙
  • 渔夫的鱼
  • 时光境千
  • 王帅
过: 他们

帖子地址: 

教书育人!
回复

使用道具 举报

0

主题

5

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
10311
发表于 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

主题

6

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
10247
发表于 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

主题

7

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
10676
发表于 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

主题

6

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
10392
发表于 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

主题

9

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
10535
发表于 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

主题

6

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
10579
发表于 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

主题

8

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
10336
发表于 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

主题

6

帖子

9990

积分

硕士

Rank: 6Rank: 6

积分
9990
发表于 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

主题

5

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
10306
发表于 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

主题

8

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
11431
发表于 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

主题

5

帖子

8874

积分

版主

Rank: 7Rank: 7Rank: 7

积分
8874
发表于 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

主题

4

帖子

9215

积分

硕士

Rank: 6Rank: 6

积分
9215
发表于 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

主题

5

帖子

9847

积分

硕士

Rank: 6Rank: 6

积分
9847
发表于 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

主题

5

帖子

8947

积分

硕士

Rank: 6Rank: 6

积分
8947
发表于 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

主题

2

帖子

9290

积分

硕士

Rank: 6Rank: 6

积分
9290
发表于 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

主题

6

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
10029
发表于 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

主题

6

帖子

9586

积分

硕士

Rank: 6Rank: 6

积分
9586
发表于 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

主题

4

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
10528
发表于 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

主题

7

帖子

9948

积分

硕士

Rank: 6Rank: 6

积分
9948
发表于 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-5-27 01:08 , Processed in 0.410046 second(s), 65 queries .

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

商品:真眼美瞳换装洋娃娃公主儿童玩具女孩婚纱衣服套装大礼盒
原价:94.00元 券后价:54元
购买链接:Click here!
推荐理由:精美原创手工芭比娃娃!Q版超萌,做工精致,精美大礼盒包装,更有超值礼包相送!送给孩子最好的礼物! paoliang:97
淘宝优惠券领取处:Click here!
天猫优惠券推送群:Click here!