青岛科技大学vb答案实验四
更新时间:2023-06-06 00:36:01 阅读量: 实用文档 文档下载
- 青岛科技大学vb实验七推荐度:
- 相关推荐
实验四 循环结构程序设计(4个学时)
一 、实验目的
1. 掌握For循环语句的使用。
2. 掌握单Do循环语句的使用。
3. 掌握如何控制循环条件,防止死循环或不循环。
二 、实验内容
1. 设计一个程序:用For 循环语句计算1~ n (正整数)的所有的偶数之和。
要求: 程序运行后,单击窗体弹出一个输入框由用户输入n的值,然后在窗体上显示计算的结果。
1)代码设计如下
Private Sub Form_Click()
Dim a As Integer, b As Integer, c As Integer
a = InputBox("请输入n值", n, "")
For b = 2 To a
If b Mod 2 = 0 Then
c = c + b
End If
Next b
Print c
End Sub
2)将输入100 时的运行结果的界面截下来粘贴在下面:
3)调试过程记录(错误情况及改正方法)
2.设计程序:求100 以内所有19的倍数的数。并求这些数的和。
要求:点击“显示”按钮时,将结果显示在窗体上。
点击“求和”按钮时,将结果显示在一个文本框中。
1)代码设计如下
Dim b As Integer, c As Integer
Private Sub Command1_Click()
For b = 1 To 100
If b Mod 19 = 0 Then
Print b
End If
Next b
End Sub
Private Sub Command2_Click()
For b = 1 To 100
If b Mod 19 = 0 Then
c = c + b
End If
Next b
Text1.Text = c
End Sub
2)将运行结果的界面截下来粘贴在下面
3)调试过程记录(错误情况及改正方法)
3. 设计一个程序:我国今年的国民生产总值为45600亿元,若今后每年以9%的增长率增长,计算多少年后能实现国民生产总值翻一番?
要求:单击“计算”按钮时,将计算的结果显示在窗体上。
1)代码设计
Private Sub Command1_Click()
Dim a As Long, b As Long, c As Integer
a = 45600: b = 2 * a: c = 0
Do While a <b
a = 1.09 * a
c = c + 1
Loop
Print c
End Sub
2)将运行结果的界面截下来粘贴在下面
3)调试过程记录(错误情况及改正方法)
4. 编写一个程序,点击窗体时在窗体上输出所有水仙花数(水仙花数是指一个三位十进制正整数,该数的各位数字的立方和等于该数本身,例如153是个水仙花数,因为1^3+5^3+3^3 =153)。
1)代码设计
Private Sub Form_Click()
Dim a As Integer, b As Integer, c As Integer
For a = 1 To 9
For b = 0 To 9
For c = 0 To 9
If (100 * a + 10 * b + c) = (a ^ 3 + b ^ 3 + c ^ 3) Then
Print a & b & c
End If
Next c
Next b
Next a
End Sub
2)将程序运行的结果图截下粘贴在下面。
3)调试过程记录(错误情况及改正方法)
5. 编写一个程序解百马百瓦古题:大、小马和马驹共100匹,共驮100片瓦,大马一驮三,小马一驮二,马驹二驮一,一次驮完,三种马都驮,共有多少种组合?
要求:单击窗体将结果显示在窗体上。
1)代码设计
Private Sub Form_Click()
Dim a As Integer, b As Integer, c As Integer, d As Integer
d = 0
For a = 1 To 100
For b = 1 To (100 - a)
c = 100 - a - b
If (3 * a + 2 * b + c / 2) = 100 Then
d = d + 1
Print d; Tab; "大马" & a & "匹"; Tab; "小马" & b & "匹"; Tab; "马驹" & c & "匹" Print "************************************"
End If
Next b
Next a
Print "共有" & d & "种方法"
End Sub
2)将程序运行的结果图截下粘贴在下面。
3)调试过程记录(错误情况及改正方法)
错误 For a = 0 To 100
For b = 0 To (100 - a)
For c = 0 To (100-a-b)
If (3 * a + 2 * b + c / 2) = 100 Then
d = d + 1
Print d; Tab; "大马" & a & "匹"; Tab; "小马" & b & "匹"; Tab; "马驹" & c & "匹" Print "************************************"
End If
Next c
Next b
Next a
运行后结果远远超出范围,总数也不是一百匹马
改正:c不是循环结构,而是确定的值c = 100 - a - b
正在阅读:
青岛科技大学vb答案实验四06-06
2019年最新简历模板下载(绝对精品)09-05
100句精选的优美的句子11-21
《 绿色植物参与生物圈的水循环》05-14
2019年父亲节的问候作文06-14
我最崇拜的一个人作文600字06-24
2019年我家的年夜饭作文06-13
江苏省徐州市2016年中考物理联考试卷(A卷)(解析版)02-01
2019年我的朋友写人作文06-13
商务谈判04-19
- 教学能力大赛决赛获奖-教学实施报告-(完整图文版)
- 互联网+数据中心行业分析报告
- 2017上海杨浦区高三一模数学试题及答案
- 招商部差旅接待管理制度(4-25)
- 学生游玩安全注意事项
- 学生信息管理系统(文档模板供参考)
- 叉车门架有限元分析及系统设计
- 2014帮助残疾人志愿者服务情况记录
- 叶绿体中色素的提取和分离实验
- 中国食物成分表2020年最新权威完整改进版
- 推动国土资源领域生态文明建设
- 给水管道冲洗和消毒记录
- 计算机软件专业自我评价
- 高中数学必修1-5知识点归纳
- 2018-2022年中国第五代移动通信技术(5G)产业深度分析及发展前景研究报告发展趋势(目录)
- 生产车间巡查制度
- 2018版中国光热发电行业深度研究报告目录
- (通用)2019年中考数学总复习 第一章 第四节 数的开方与二次根式课件
- 2017_2018学年高中语文第二单元第4课说数课件粤教版
- 上市新药Lumateperone(卢美哌隆)合成检索总结报告
- 青岛
- 答案
- 实验
- 大学
- 科技
- 2015小升初英语试题
- 基于复杂网络理论城市交通网络异形化特征研究
- 上海教师资格考试幼儿园中班科学活动说课稿:小树叶找妈妈
- 国际私法案例题集及答案
- 【教育学习文章】全省法治政府建设督察工作部署会讲话稿
- Vmware 9.0 虚拟机支持U盘启动
- 手机零售店面管理
- 国际金融第三版复习重点
- 【2018-2019】政协党建工作总结(精选多篇)-word范文模板 (17页)
- 华科-工程地质勘察报告
- 电磁兼容中的接地技术_吕林强
- 激发学习兴趣,提高教学效果
- “设计-施工总承包”合同模式在国际工程项目管理中的实践研究
- 图像检索中纹理特征提取的研究
- SANGFOR NGAF 2012年度渠道初级认证培训03_防火墙功能介绍20111116_ZJ
- 【2015——2016学年上学期期末考试数学试题】2015——2016学年北师大版小学四年级上册数学期末模拟试卷
- 2015江西公务员考试行测细节梳理:做片段阅读看转折词
- 浅谈PLC在工业控制领域中的应用
- 大班绘本故事我家是动物园
- 大学物理(一)总复习提纲