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

 找回密码
 立即注册

QQ登录

只需一步,快速开始

查看: 3917|回复: 218
收起左侧

第二十四讲 VB程序结构之循环结构(循环的嵌套)

   关闭 [复制链接]

247

主题

638

帖子

214748万

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
2147483647
QQ
发表于 2018-5-28 17:44:56 | 显示全部楼层 |阅读模式
第二十四讲 VB程序结构之循环结构(循环的嵌套)
学习目标
    1.会用二重For循环语句编写程序。
学习内容
    打印如下图形。
    *
    **
    ***
    ****
    *****
  1. Private Sub Form_Click()
  2. Dim i As Integer, j As Integer
  3. For i = 1 To 5
  4. For j = 1 To i
  5. Print "*";
  6. Next
  7. Print
  8. Next
  9. End Sub
复制代码
   在一个循环语句的循环体中含有另一个循环语句,这就是嵌套循环。For循环语句嵌套的基本要求是:每个循环必须有一个唯一的循环控制变量;内层循环的Next语句必须放在外层循环Next语句的前面。
    二重For循环语句的基本格式:
    for 循环变量= 初值 to 终值 step 步长
        for 循环变量= 初值 to 终值 step 步长
                循环体
        next 循环变量
    next 循环变量
    二重For循环语句的执行过程:外层循环每执行一次,内层循环就要从头开始执行一轮
学习任务
    完善程序:取一元、二元、五元的硬币共十枚,使得总金额为25元,打印所有可能的取法。
    思考 :设一元硬币为a枚,二元硬币为b枚,五元硬币为c枚,由题目可列出方程组:
         a+b+c=10
         a+2b+5c=25
    从数学角度看,上述方程是三元一次方程组,但只有两个方程,故无法直接求解!
    方法:“穷举法”——根据题目的部分条件确定答案的大致范围,并在此范围内对所有可能的情况逐一验证,直到全部情况验证完毕。若某个情况验证符合题目的全部条件,则为本问题的一个解;若全部情况验证后都不符合题目的全部条件,则本题无解。
    考查点:二重For循环语句的基本格式

程序运行效果图
  1. Private Sub Form_Click()
  2. Dim a As Integer, b As Integer, c As Integer
  3. Rem a表示一元硬币的枚数,b表示二元硬币的枚数,c表示五元硬币的枚数




  4.             Print "一元硬币:"; a; "枚,二元:"; b; "枚,五元:"; c; "枚"



  5. End Sub
复制代码

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
楼主热帖




上一篇:第二十三讲 VB程序结构之循环结构(While循环语句)
下一篇:2017级1班《算法与程序设计》期末考试试题
+1
4136°C
219
  • sbcc
  • 南山青纆
  • 丁晓琪
  • 2512221229
  • wudidelihai
过: 他们

帖子地址: 

教书育人!
回复

使用道具 举报

0

主题

10

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
13898
发表于 2018-5-29 17:45:00 | 显示全部楼层
  1. Private Sub Form_Click()
  2. Dim a As Integer, b As Integer, c As Integer
  3. Rem a表示一元硬币的枚数,b表示二元硬币的枚数,c表示五元硬币的枚数
  4. For a = 0 To 10
  5. For b = 0 To 10
  6. c = 10 - a - b
  7. If 1 * a + 2 * b + 5 * c = 25 Then
  8.             Print "一元硬币:"; a; "枚,二元:"; b; "枚,五元:"; c; "枚"
  9. End If
  10. Next
  11. Next
  12. End Sub
复制代码
回复 支持 0 反对 1

使用道具 举报

0

主题

11

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
14273
发表于 2018-5-29 17:39:50 | 显示全部楼层
  1. Private Sub Form_Click()
  2. Dim a As Integer, b As Integer, c As Integer
  3. Rem a表示一元硬币的枚数,b表示二元硬币的枚数,c表示五元硬币的枚数

  4. For a = 0 To 10
  5. For b = 0 To 10
  6. c = 10 - a - b
  7. If 1 * a + 2 * b + 5 * c = 25 Then

  8. Print "一元硬币:"; a; "枚,二元:"; b; "枚,五元:"; c; "枚"
  9. End If
  10. Next
  11. Next
  12. End Sub
复制代码

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

使用道具 举报

0

主题

10

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
14829
发表于 2018-5-31 17:29:40 | 显示全部楼层
  1. Private Sub Form_Click()
  2. Dim a As Integer, b As Integer, c As Integer
  3. Rem a表示一元硬币的枚数,b表示二元硬币的枚数,c表示五元硬币的枚数
  4. For a = 0 To 10
  5. For b = 0 To 10
  6. c = 10 - a - b
  7. If 1 * a + 2 * b + 5 * c = 25 Then






  8.             Print "一元硬币:"; a; "枚,二元:"; b; "枚,五元:"; c; "枚"
  9.             End If
  10.             Next
  11.             Next
  12.             



  13. End Sub
复制代码


回复 支持 反对

使用道具 举报

0

主题

5

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
13207
发表于 2018-5-31 16:34:39 | 显示全部楼层
Private Sub Form_Click()
Dim a As Integer, b As Integer, c As Integer
Rem a表示一元硬币的枚数,b表示二元硬币的枚数,c表示五元硬币的枚数
For a = 0 To 10
For b = 0 To 10
For c = 0 To 10 - (a + b)
If a * 1 + b * 2 + c * 5 = 25 And a + b + c = 10 Then
                        Print "一元硬币:"; a; "枚,二元:"; b; "枚,五元:"; c; "枚"
End If
Next
Next
Next
End Sub


回复 支持 反对

使用道具 举报

0

主题

11

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
13685
发表于 2018-5-30 14:38:15 | 显示全部楼层
  1. <div class="blockcode"><blockquote>Private Sub Form_Click()
  2. Dim a As Integer, b As Integer, c As Integer
  3. Rem a表示一元硬币的枚数,b表示二元硬币的枚数,c表示五元硬币的枚数
  4. For a = 0 To 10
  5. For b = 0 To 10
  6. c = 10 - (a + b)
  7. If a * 1 + b * 2 + c * 5 = 25 Then
  8.             Print "一元硬币:"; a; "枚,二元:"; b; "枚,五元:"; c; "枚"
  9. End If
  10. Next
  11. Next
  12. End Sub
复制代码



回复 支持 反对

使用道具 举报

0

主题

9

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
13927
发表于 2018-5-29 16:53:26 | 显示全部楼层
  1. Private Sub Form_Click()
  2. Dim a As Integer, b As Integer, c As Integer
  3. Rem a表示一元硬币的枚数,b表示二元硬币的枚数,c表示五元硬币的枚数
  4. For a = 0 To 25
  5. For b = 0 To 10
  6. For c = 0 To 10
  7. If a + 2 * b + 5 * c = 25 And a + b + c = 10 Then

  8.                       Print "一元硬币:"; a; "枚,二元:"; b; "枚,五元:"; c; "枚"
  9. End If
  10. Next c
  11. Next b
  12. Next a
  13. End Sub
复制代码


回复 支持 反对

使用道具 举报

0

主题

13

帖子

1万

积分

烈士

Rank: 8Rank: 8

积分
19005
发表于 2018-5-31 17:23:30 | 显示全部楼层
  1. Private Sub Form_Click()
  2. Dim a As Integer, b As Integer, c As Integer
  3. Rem a表示一元硬币的枚数,b表示二元硬币的枚数,c表示五元硬币的枚数
  4. For a = 0 To 10
  5. For b = 0 To 10
  6. c = (25 - a - 2 * b) / 5
  7. If b * 2 + a + c * 5 = 25 Then
  8.             Print "一元硬币:"; a; "枚,二元:"; b; "枚,五元:"; c; "枚"
  9.             End If
  10. Next
  11. Next
  12. End Sub
复制代码


回复 支持 反对

使用道具 举报

0

主题

11

帖子

1万

积分

烈士

Rank: 8Rank: 8

积分
15546
发表于 2018-5-31 17:19:33 | 显示全部楼层
  1. Private Sub Form_Click()
  2. Dim a As Integer, b As Integer, c As Integer
  3. Rem a表示一元硬币的枚数,b表示二元硬币的枚数,c表示五元硬币的枚数
  4. For a = 0 To 10
  5. For b = 0 To 10
  6. c = (25 - a - 2 * b) / 5
  7. If a + 2 * b + 5 * c = 25 Then
  8.             Print "一元硬币:"; a; "枚,二元:"; b; "枚,五元:"; c; "枚"
  9.             End If
  10. Next
  11. Next
  12. End Sub
复制代码


回复 支持 反对

使用道具 举报

0

主题

9

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
14035
发表于 2018-5-29 11:38:40 | 显示全部楼层
  1. Private Sub Form_Click()
  2. Dim a As Integer, b As Integer, c As Integer
  3. Rem a表示一元硬币的枚数,b表示二元硬币的枚数,c表示五元硬币的枚
  4. For a = 0 To 10
  5.     For b = 0 To 10
  6.         c = 10 - b - a
  7.         If a + 2 * b + 5 * c = 25 And c >= 0 Then
  8. Print "一元硬币:"; a; "枚,二元:"; b; "枚,五元:"; c; "枚"
  9. End If
  10. Next b
  11. Next a

  12. End Sub
复制代码


回复 支持 反对

使用道具 举报

0

主题

7

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
13572
发表于 2018-5-30 14:38:59 | 显示全部楼层
Private Sub Form_Click()
Dim a As Integer, b As Integer, c As Integer
Rem a表示一元硬币的枚数,b表示二元硬币的枚数,c表示五元硬币的枚数
For a = 0 To 10
For b = 0 To 10
c = 10 - (a + b)
If 1 * a + 2 * b + 5 * c = 25 Then




                        Print "一元硬币:"; a; "枚,二元:"; b; "枚,五元:"; c; "枚"
End If
Next
Next
End Sub


回复 支持 反对

使用道具 举报

0

主题

12

帖子

1万

积分

烈士

Rank: 8Rank: 8

积分
15079
发表于 2018-5-29 16:41:56 | 显示全部楼层
Private Sub Form_Click()
Dim a As Integer, b As Integer, c As Integer
Rem a表示一元硬币的枚数,b表示二元硬币的枚数,c表示五元硬币的枚数
For a = 1 To 10
For b = 1 To 10
c = 10 - a - b
If a + 2 * b + 5 * c = 25 Then
            Print "一元硬币:"; a; "枚,二元:"; b; "枚,五元:"; c; "枚"
End If
Next
Next
End Sub
回复 支持 反对

使用道具 举报

0

主题

12

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
13679
发表于 2018-5-29 16:41:59 | 显示全部楼层
Private Sub Form_Click()
Dim a As Integer, b As Integer, c As Integer
Rem a表示一元硬币的枚数,b表示二元硬币的枚数,c表示五元硬币的枚数
For a = 1 To 10
For b = 1 To 10
c = 10 - a - b
If a + 2 * b + 5 * c = 25 Then
            Print "一元硬币:"; a; "枚,二元:"; b; "枚,五元:"; c; "枚"
End If
Next
Next
End Sub


回复 支持 反对

使用道具 举报

0

主题

11

帖子

1万

积分

烈士

Rank: 8Rank: 8

积分
16625
发表于 2018-5-29 16:42:23 | 显示全部楼层
  1. Private Sub Form_Click()
  2. Dim a As Integer, b As Integer, c As Integer
  3. Rem a表示一元硬币的枚数,b表示二元硬币的枚数,c表示五元硬币的枚数
  4. For a = 0 To 10
  5. For b = 0 To 10
  6. c = 10 - a - b
  7. If a + 2 * b + 5 * c = 25 Then
  8. Print "一元硬币:"; a; "枚,二元:"; b; "枚,五元:"; c; "枚"
  9. End If
  10. Next
  11. Next
  12. End Sub
复制代码


回复 支持 反对

使用道具 举报

0

主题

14

帖子

1万

积分

烈士

Rank: 8Rank: 8

积分
15035
发表于 2018-5-29 16:42:44 | 显示全部楼层
  1. Private Sub Form_Click()
  2. Dim a As Integer, b As Integer, c As Integer
  3. Rem a表示一元硬币的枚数,b表示二元硬币的枚数,c表示五元硬币的枚数
  4. For a = 0 To 10
  5. For b = 0 To 10
  6.     c = 10 - b - a
  7. If a + 2 * b + 5 * c = 25 And c >= 0 Then
  8. Print "一元硬币:"; a; "枚,二元:"; b; "枚,五元:"; c; "枚"
  9. End If
  10. Next
  11. Next
  12. End Sub
复制代码

老师,这次作业很简单啊,一会就做完了,已经上传,希望过关……
回复 支持 反对

使用道具 举报

0

主题

10

帖子

1万

积分

烈士

Rank: 8Rank: 8

积分
15188
发表于 2018-5-29 16:42:56 | 显示全部楼层
  1. Private Sub Form_Click()
  2. Dim a As Integer, b As Integer, c As Integer
  3. Rem a表示一元硬币的枚数,b表示二元硬币的枚数,c表示五元硬币的枚数
  4. For a = 1 To 10
  5. For b = 1 To 10
  6. c = 10 - a - b
  7. If a + 2 * b + 5 * c = 25 Then
  8.             Print "一元硬币:"; a; "枚,二元:"; b; "枚,五元:"; c; "枚"
  9. End If
  10. Next
  11. Next
  12. End Sub
复制代码


回复 支持 反对

使用道具 举报

0

主题

11

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
11845
发表于 2018-5-29 16:43:34 | 显示全部楼层
Private Sub Form_Click()
Dim a As Integer, b As Integer, c As Integer
Rem a表示一元硬币的枚数,b表示二元硬币的枚数,c表示五元硬币的枚数
For a = 1 To 10
For b = 1 To 10
c = 10 - a - b
If a + 2 * b + 5 * c = 25 Then
            Print "一元硬币:"; a; "枚,二元:"; b; "枚,五元:"; c; "枚"
End If
Next
Next
End Sub


回复 支持 反对

使用道具 举报

0

主题

12

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
14180
发表于 2018-5-29 16:45:29 | 显示全部楼层
  1. Private Sub Form_Click()
  2. Dim a As Integer, b As Integer, c As Integer
  3. Rem a表示一元硬币的枚数,b表示二元硬币的枚数,c表示五元硬币的枚数
  4. For a = 1 To 10
  5. For b = 1 To 10
  6. c = 10 - a - b
  7. If a + 2 * b + 5 * c = 25 Then
  8.            Print "一元硬币:"; a; "枚,二元:"; b; "枚,五元:"; c; "枚"
  9. End If
  10. Next
  11. Next
  12. End Sub
复制代码
回复 支持 反对

使用道具 举报

0

主题

9

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
12333
发表于 2018-5-29 16:45:37 | 显示全部楼层
Private Sub Form_Click()
Dim a As Integer, b As Integer, c As Integer
Rem a表示一元硬币的枚数,b表示二元硬币的枚数,c表示五元硬币的枚数
For a = 0 To 10
For b = 0 To 10
    c = 10 - b - a
If a + 2 * b + 5 * c = 25 And c >= 0 Then
Print "一元硬币:"; a; "枚,二元:"; b; "枚,五元:"; c; "枚"
End If
Next
Next
End Sub


回复 支持 反对

使用道具 举报

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

本版积分规则

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

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

GMT+8, 2019-8-19 04:02 , Processed in 0.528460 second(s), 46 queries .

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

商品:夏季魔术黑色九分打底裤女裤子外穿薄款小脚2019新款高腰显瘦铅笔
原价:69.00元 券后价:34元
购买链接:Click here!
推荐理由:【杨幂同款,超好质量的魔术裤】高弹力亲肤面料,提臀收腹,一秒变瘦,塑型修身,不起球不抽丝褪色,无压迫无束缚,真正的魔术裤,穿出女神范!下单赠送运费险,任何不喜欢免费退! top100:96
优惠券领取处:Click here!
优惠券推送群:Click here!