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

 找回密码
 立即注册

QQ登录

只需一步,快速开始

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

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

   关闭 [复制链接]

185

主题

573

帖子

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
2568°C
321
  • lijiayi
  • Arthur
  • 吴吴吴吴吴杰丶
  • LION
  • 王心丽
过: 他们

帖子地址: 

教书育人!
回复

使用道具 举报

0

主题

8

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

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

主题

14

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

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

主题

14

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

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

主题

6

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

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

主题

13

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

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

主题

9

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

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

主题

11

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

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

主题

12

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

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

主题

11

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

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

主题

12

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

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

主题

16

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

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

主题

10

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

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

主题

9

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

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

主题

9

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

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

回复 支持 反对

使用道具 举报

0

主题

8

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

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

主题

8

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

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

主题

8

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

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

主题

8

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

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

主题

8

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
12155
发表于 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-10-19 19:40 , Processed in 0.964335 second(s), 70 queries .

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

商品:笨笨狗食品凤凰卷零食大礼包 香酥可口蛋卷饼干早餐糕点42小包
原价:29.80元 券后价:19.8元
购买链接:Click here!
推荐理由:【第二件半价】爆卖50万件,16万4.9近满分高评,现做现卖,日期新鲜,又酥又脆,香甜可口,一杯牛奶,蛋卷两三,早餐轻松搞定,下午饿了来一包,两种口味,好零食,全家都爱吃! top100:33
优惠券领取处:Click here!
优惠券推送群:Click here!