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

 找回密码
 立即注册

QQ登录

只需一步,快速开始

查看: 845|回复: 321
收起左侧

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

   关闭 [复制链接]

161

主题

175

帖子

214748万

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
2147483647
QQ
发表于 2018-5-7 15:53:18 | 显示全部楼层 |阅读模式
第二十二讲 VB程序结构之循环结构(For循环语句)
学习目标
    1.了解程序的循环结构;
    2.会用For语句编写程序。
学习内容
    求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循环语句的基本格式如下:
        For    循环变量=初值     To     终值     Step     步长
              语句组
        Next    循环变量
    其中:
        1.循环变量为数值型变量。
        2.初值、终值、步长均为数值表达式。
        3.当初值小于终值时,步长应为正数;当初值大于终值时,步长应为负数;如果省略Step,则步长为1.
        4.语句组可以是一个或者多个语句,又称作循环体。
        5.循环体执行的次数为(终值-初值)/步长+1的整数部分。
    For循环语句的执行过程如下:

第二十二讲 VB程序结构之循环结构(上)

第二十二讲 VB程序结构之循环结构(上)

        (1)循环变量被赋予初值;
        (2)判断循环变量是否超过终值,如果超过,则退出循环执行Next后面的语句;如果没有超过则执行循环体。
        (3)遇到Next语句,则循环变量增加一个步长,转到(2),继续循环。
    综述:For循环语句用来解决已知循环次数的程序设计问题。
学习任务
    完善程序:求1 X 3 X 5 X …… X N=?
    提示:编写完程序代码之后,务必要运行程序,1观察程序能否运行通过2验证结果是否符合要求
    考查点:For循环语句的基本格式
    技巧:VB编写程序时,会自动弹出适配代码,当首个选项恰好是要编写的代码时,只需要按一下TAB键即可,省时又省力!
    注意:VB不区分大小写,关键字会按照系统标准自动变化!程序代码中的符号皆为英文符号,比如英文逗号(,),英文圆括号((  )),英文双引号("),英文等号(=),英文加号(+),等其他字符。

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

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

程序运行效果图(验证程序是否正确,比如,输入:17,验证结果是:34459425)

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

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

程序运行效果图(验证程序是否正确,比如,输入:17,验证结果是:34459425)
  1. Private Sub Form_Click()
  2. Cls
  3. Dim total As Double, n As Integer
  4. total = 1
  5. n = Val(InputBox("输入一个正奇数:"))
  6. If n Mod 2 <> 1 Then
  7. MsgBox ("你输入的是正奇数吗?莫乱来!")
  8. Exit Sub
  9. End If



  10. Print "1 X 3 X 5 X ...... X"; n; "="; total
  11. End Sub
复制代码
待完善的程序代码
楼主热帖



上一篇:第二十一讲(选修) 三角形成立的条件
下一篇:第二十三讲 VB程序结构之循环结构(While循环语句)
+1
1166°C
321
  • lijiayi
  • Arthur
  • 吴吴吴吴吴杰丶
  • LION
  • 王心丽
过: 他们

帖子地址: 

教书育人!
回复

使用道具 举报

0

主题

5

帖子

9707

积分

硕士

Rank: 6Rank: 6

积分
9707
发表于 2018-5-8 17:36:33 | 显示全部楼层
  1. Private Sub Form_Click()
  2. Cls
  3. Dim total As Double, n As Integer
  4. total = 1
  5. n = Val(InputBox("输入一个正奇数:"))
  6. If n Mod 2 <> 1 Then
  7. MsgBox ("你输入的是正奇数吗?莫乱来!")
  8. Exit Sub
  9. End If
  10. For i = 1 To n Step 2
  11. total = total * i
  12. Next
  13. Print "1 X 3 X 5 X ...... X"; n; "="; total
  14. End Sub
  15. [code]Private Sub Form_Click()
  16. Cls
  17. Dim total As Double, n As Integer
  18. total = 1
  19. n = Val(InputBox("输入一个正奇数:"))
  20. If n Mod 2 <> 1 Then
  21. MsgBox ("你输入的是正奇数吗?莫乱来!")
  22. Exit Sub
  23. End If
  24. For i = 1 To n Step 2
  25. total = total * i
  26. Next
  27. Print "1 X 3 X 5 X ...... X"; n; "="; total
  28. End Sub
复制代码
[/code]
回复 支持 反对

使用道具 举报

0

主题

11

帖子

9879

积分

硕士

Rank: 6Rank: 6

积分
9879
发表于 2018-5-8 17:39:18 | 显示全部楼层
Private Sub Form_Click()
Cls
Dim total As Double, n As Integer
total = 1
n = Val(InputBox("输入一个正奇数:"))
If n Mod 2 <> 1 Then
MsgBox ("你输入的是正奇数吗?谢啥嫩娘!")
Exit Sub
End If
For i = 3 To n Step 2
total = total * i
Next
Print "1 X 3 X 5 X ...... X"; n; "="; total
End Sub

  1. Private Sub Form_Click()
  2. Cls
  3. Dim total As Double, n As Integer
  4. total = 1
  5. n = Val(InputBox("输入一个正奇数:"))
  6. If n Mod 2 <> 1 Then
  7. MsgBox ("你输入的是正奇数吗?谢啥嫩娘!")
  8. Exit Sub
  9. End If
  10. For i = 3 To n Step 2
  11. total = total * i
  12. Next
  13. Print "1 X 3 X 5 X ...... X"; n; "="; total
  14. End Sub

复制代码
回复 支持 反对

使用道具 举报

0

主题

10

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
10601
发表于 2018-5-10 17:25:28 | 显示全部楼层
  1. Private Sub Form_Click()
  2. Cls
  3. Dim total As Double, n As Integer
  4. total = 1
  5. n = Val(InputBox("输入一个正奇数:"))
  6. If n Mod 2 <> 1 Then
  7. MsgBox ("你输入的是正奇数吗?莫乱来!")
  8. Exit Sub
  9. End If
  10. For i = 1 To n Step 2
  11. total = total * i
  12. Next
  13. Print "1 X 3 X 5 X ...... X"; n; "="; total
  14. End Sub
  15. Private Sub Form_Click()
  16. Cls
  17. Dim total As Double, n As Integer
  18. total = 1
  19. n = Val(InputBox("输入一个正奇数:"))
  20. If n Mod 2 <> 1 Then
  21. MsgBox ("你输入的是正奇数吗?莫乱来!")
  22. Exit Sub
  23. End If
  24. For i = 1 To n Step 2
  25. total = total * i
  26. Next
  27. Print "1 X 3 X 5 X ...... X"; n; "="; total
  28. End Sub
复制代码


回复 支持 反对

使用道具 举报

0

主题

3

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
10727
发表于 2018-5-9 14:38:05 | 显示全部楼层
Private Sub Form_click()
Cls
Dim total As Double, n As Integer
total = 1
n = Val(InputBox("输入一个正奇数:"))
If n Mod 2 <> 1 Then
MsgBox ("你输入的是正奇数吗?莫乱来!")
Exit Sub
End If
For i = 1 To n Step 2
total = total * i
Next
Print "1 X 3 X 5 X ...... X"; n; "="; total

End Sub
  1. Private Sub Form_click()
  2. Cls
  3. Dim total As Double, n As Integer
  4. total = 1
  5. n = Val(InputBox("输入一个正奇数:"))
  6. If n Mod 2 <> 1 Then
  7. MsgBox ("你输入的是正奇数吗?莫乱来!")
  8. Exit Sub
  9. End If
  10. For i = 1 To n Step 2
  11. total = total * i
  12. Next
  13. Print "1 X 3 X 5 X ...... X"; n; "="; total

  14. End Sub
复制代码



回复 支持 反对

使用道具 举报

0

主题

9

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
10017
发表于 2018-5-8 16:39:13 | 显示全部楼层
  1. Private Sub Form_Click()
  2. Cls
  3. Dim total As Double, n As Integer
  4. total = 1
  5. n = Val(InputBox("输入一个正奇数:"))
  6. If n Mod 2 <> 1 Then
  7. MsgBox ("你输入的是正奇数吗?莫乱来!")
  8. Exit Sub
  9. End If
  10. For i = 1 To n Step 2
  11. total = total * i
  12. Next
  13. Print "1 X 3 X 5 X ...... X"; n; "="; total
  14. End Sub

复制代码

Private Sub Form_Click()
Cls
Dim total As Double, n As Integer
total = 1
n = Val(InputBox("输入一个正奇数:"))
If n Mod 2 <> 1 Then
MsgBox ("你输入的是正奇数吗?莫乱来!")
Exit Sub
End If
For i = 1 To n Step 2
total = total * i
Next
Print "1 X 3 X 5 X ...... X"; n; "="; total
End Sub
回复 支持 反对

使用道具 举报

0

主题

6

帖子

9308

积分

硕士

Rank: 6Rank: 6

积分
9308
发表于 2018-5-8 11:28:41 | 显示全部楼层
Private Sub Form_Click()
Cls
Dim total As Double, n As Integer
total = 1
n = Val(InputBox("输入一个正奇数:"))
If n Mod 2 <> 1 Then
MsgBox ("你输入的是正奇数吗?莫乱来!")
Exit Sub
End If
For i = 1 To n Step 2
total = total * i
Next
Print "1 X 3 X 5 X ...... X"; n; "="; total
End Sub
  1. Private Sub Form_Click()
  2. Cls
  3. Dim total As Double, n As Integer
  4. total = 1
  5. n = Val(InputBox("输入一个正奇数:"))
  6. If n Mod 2 <> 1 Then
  7. MsgBox ("你输入的是正奇数吗?莫乱来!")
  8. Exit Sub
  9. End If
  10. For i = 1 To n Step 2
  11. total = total * i
  12. Next
  13. Print "1 X 3 X 5 X ...... X"; n; "="; total
  14. End Sub
复制代码


回复 支持 反对

使用道具 举报

0

主题

7

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
10483
发表于 2018-5-8 16:35:10 | 显示全部楼层
  1. Private Sub Form_Click()
  2. Cls
  3. Dim total As Double, n As Integer
  4. total = 1
  5. n = Val(InputBox("输入一个正奇数:"))
  6. If n Mod 2 <> 1 Then
  7. MsgBox ("你输入的是正奇数吗?莫乱来!")
  8. Exit Sub
  9. End If
  10. For i = 1 To n Step 2
  11. total = total * i
  12. Next
  13. Print "1 X 3 X 5 X ...... X"; n; "="; total
  14. End Sub
复制代码

老师,这是我认认真真做的作业……
回复 支持 反对

使用道具 举报

0

主题

8

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
10336
发表于 2018-5-8 17:35:27 | 显示全部楼层
  1. Private Sub Form_Click()
  2. Cls
  3. Dim total As Double, n As Integer
  4. total = 1
  5. n = Val(InputBox("输入一个正奇数:"))
  6. If n Mod 2 <> 1 Then
  7. MsgBox ("你输入的是正奇数吗?莫乱来!")
  8. Exit Sub
  9. End If
  10. For i = 1 To n Step 2
  11. total = total * i
  12. Next
  13. Print "1 X 3 X 5 X ...... X"; n; "="; total
  14. End Sub
复制代码
高一三班 李朋远
回复 支持 反对

使用道具 举报

0

主题

7

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
10494
发表于 2018-5-10 16:45:34 | 显示全部楼层
Private Sub Form_Load()
Private Sub Form_Click()
Cls
Dim total As Double, n As Integer
total = 1
n = Val(InputBox("输入一个正奇数:"))
If n Mod 2 <> 1 Then
MsgBox ("你输入的是正奇数吗?莫乱来!")
Exit Sub
End If
For i = 1 To n Step 1
total = total * 1
Next
Print "1 X 3 X 5 X ...... X"; n; "="; total
End Sub

回复 支持 反对

使用道具 举报

0

主题

8

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
10685
发表于 2018-5-10 08:15:36 | 显示全部楼层
  1. Private Sub Form_Click()
  2. Cls
  3. Dim total As Double, n As Integer
  4. total = 1
  5. n = Val(InputBox("输入一个正奇数:"))
  6. If n Mod 2 <> 1 Then
  7. MsgBox ("你输入的是正奇数吗?莫乱来!")
  8. Exit Sub
  9. End If
  10. For i = 1 To n Step 2
  11. total = total * i
  12. Next
  13. Print "1 X 3 X 5 X ...... X"; n; "="; total
  14. End Sub
复制代码
17级6班申家臣

回复 支持 反对

使用道具 举报

0

主题

13

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
10626
发表于 2018-5-8 11:19:16 | 显示全部楼层
本帖最后由 MXL 于 2018-5-8 11:34 编辑
  1. Private Sub Form_Click()
  2. Cls
  3. Dim total As Double, n As Integer
  4. total = 1
  5. n = Val(InputBox("输入一个正奇数:"))
  6. If n Mod 2 <> 1 Then
  7. MsgBox ("你输入的是正奇数吗?莫乱来!")
  8. Exit Sub
  9. End If
  10. For i = 1 To n Step 2
  11. total = total * i
  12. Next
  13. Print "1 X 3 X 5 X ...... X"; n; "="; total
  14. End Sub
复制代码

回复 支持 反对

使用道具 举报

0

主题

7

帖子

9795

积分

硕士

Rank: 6Rank: 6

积分
9795
发表于 2018-5-8 11:25:20 | 显示全部楼层
本帖最后由 永不言弃@ 于 2018-5-8 11:33 编辑
  1. Private Sub Form_Click()
  2. Cls
  3. Dim total As Double, n As Integer
  4. total = 1
  5. n = Val(InputBox("输入一个正奇数:"))
  6. If n Mod 2 <> 1 Then
  7. MsgBox ("你输入的是正奇数吗?莫乱来!")
  8. Exit Sub
  9. End If
  10. For i = 1 To n Step 2
  11. total = total * i
  12. Next
  13. Print "1 X 3 X 5 X ...... X"; n; "="; total
  14. End Sub
复制代码

回复 支持 反对

使用道具 举报

0

主题

6

帖子

9265

积分

硕士

Rank: 6Rank: 6

积分
9265
发表于 2018-5-8 11:25:24 | 显示全部楼层
本帖最后由 m1801150141 于 2018-5-8 11:33 编辑
  1. Private Sub Form_Click()
  2. Cls
  3. Dim total As Double, n As Integer
  4. total = 1
  5. n = Val(InputBox("输入一个正奇数:"))
  6. If n Mod 2 <> 1 Then
  7. MsgBox ("你输入的是正奇数吗?莫乱来!")
  8. Exit Sub
  9. End If
  10. For i = 1 To n Step 2
  11. total = total * i
  12. Next
  13. Print "1 X 3 X 5 X ...... X"; n; "="; total
  14. End Sub
复制代码

回复 支持 反对

使用道具 举报

0

主题

6

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
10029
发表于 2018-5-8 11:25:30 | 显示全部楼层
老师,这是我认认真真做的作业……

回复 支持 反对

使用道具 举报

0

主题

4

帖子

9872

积分

硕士

Rank: 6Rank: 6

积分
9872
发表于 2018-5-8 11:26:39 | 显示全部楼层
  1. Private Sub Form_Click()
  2. Cls
  3. Dim total As Double, n As Integer
  4. total = 1
  5. n = Val(InputBox("输入一个正奇数:"))
  6. If n Mod 2 <> 1 Then
  7. MsgBox ("你输入的是正奇数吗?莫乱来!")
  8. Exit Sub
  9. End If
  10. For i = 1 To n Step 2
  11. total = total * i
  12. Next
  13. Print "1 X 3 X 5 X ...... X"; n; "="; total
  14. End Sub
复制代码


回复 支持 反对

使用道具 举报

0

主题

5

帖子

8909

积分

硕士

Rank: 6Rank: 6

积分
8909
发表于 2018-5-8 11:26:53 | 显示全部楼层
  1. Private Sub Form_Click()
  2. Cls
  3. Dim total As Double, n As Integer
  4. total = 1
  5. n = Val(InputBox("输入一个正奇数:"))
  6. If n Mod 2 <> 1 Then
  7. MsgBox ("你输入的是正奇数吗?莫乱来!")
  8. Exit Sub
  9. End If
  10. For i = 1 To n Step 2
  11. total = total * i
  12. Next
  13. Print "1 X 3 X 5 X ...... X"; n; "="; total
  14. End Sub
复制代码


回复 支持 反对

使用道具 举报

0

主题

5

帖子

9580

积分

硕士

Rank: 6Rank: 6

积分
9580
发表于 2018-5-8 11:26:55 | 显示全部楼层
  1. Private Sub Form_Click()
  2. Cls
  3. Dim total As Double, n As Integer
  4. total = 1
  5. n = Val(InputBox("输入一个正奇数:"))
  6. If n Mod 2 <> 1 Then
  7. MsgBox ("你输入的是正奇数吗?莫乱来!")
  8. Exit Sub
  9. End If
  10. For i = 1 To n Step 2
  11. total = total * i
  12. Next
  13. Print "1 X 3 X 5 X ...... X"; n; "="; total
  14. End Sub

复制代码


回复 支持 反对

使用道具 举报

0

主题

5

帖子

9659

积分

硕士

Rank: 6Rank: 6

积分
9659
发表于 2018-5-8 11:27:04 | 显示全部楼层
  1. Private Sub Form_Click()
  2. Cls
  3. Dim total As Double, n As Integer
  4. total = 1
  5. n = Val(InputBox("输入一个正奇数:"))
  6. If n Mod 2 <> 1 Then
  7. MsgBox ("你输入的是正奇数吗?莫乱来!")
  8. Exit Sub
  9. End If
  10. For i = 1 To n Step 2
  11. total = total * i
  12. Next
  13. Print "1 X 3 X 5 X ...... X"; n; "="; total
  14. End Sub
复制代码


回复 支持 反对

使用道具 举报

0

主题

5

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
10114
发表于 2018-5-8 11:27:08 | 显示全部楼层
  1. Private Sub Form_Click()

  2. Cls
  3. Dim total As Double, n As Integer
  4. total = 1
  5. n = Val(InputBox("输入一个正奇数:"))
  6. If n Mod 2 <> 1 Then
  7. MsgBox ("你输入的是正奇数吗?莫乱来!")
  8. Exit Sub
  9. End If
  10. For i = 1 To n Step 2
  11. total = total * i
  12. Next
  13. Print "1 X 3 X 5 X ...... X"; n; "="; total
  14. End Sub
复制代码


回复 支持 反对

使用道具 举报

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

本版积分规则

站务公告栏:
百度一下 百度二下 百度三下

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

GMT+8, 2018-5-27 01:13 , Processed in 0.409529 second(s), 65 queries .

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

商品:朵赞凉鞋2018新款女鞋百搭凉鞋女夏 平底粗跟凉鞋子女夏季女鞋子
原价:149.00元 券后价:99元
购买链接:Click here!
推荐理由:精美一字扣带鞋型,稳固粗跟,穿着舒适,吸汗透气,性感露趾,展现女性优美,惊艳众人。【赠送运费险】 top100:36
淘宝优惠券领取处:Click here!
天猫优惠券推送群:Click here!