2017宁波版信息技术九年级系列课件第八课综合应用

合集下载

九年级下信息技术教案第八课

难点
格调与品位
课前
准备
导学过程
教学内容及教师指导过程
学生学习过程
一、导入新课：
引导学生欣赏有关的室内摆设图片资料，让他们指出自己所喜欢的图片，并说明理由，引起学生的学习兴趣。
二、新授讲解：
1、日常生活中，每个人都在平常的活动中表露着自身的文化素质、道德修养和审美情趣。对高尚生活品位的追求，体现着一个人的综合素质和修养。
教
学
反
思
2、介绍造型作品的艺术格调知识，分析艺术格调的取向与个人文化，审美及精神情操修养的关系。分析对高雅格调和高尚生活品位的追求，是个体修养的要求。
3、师生共同欣赏评述：
展示图例，让学生欣赏评述或修改，教师点评，分类进行
（1）、富有文化品位的各钟美术作品
（2）、室内家具的色调及摆设
（3）、室内装饰的摆设
4、世界进入21世纪，人类社会步入现代社会，现代社会要求有与时代发展相适应的现代人的素质，热爱生活，勇于创新，情感丰富，具有较高的生活审美品位，使现代青年应具有的基本人文素养。
5、小组讨论交流，教师点评
如何全面提高自己的修养以适应现代社会的要求
三、学生自主欣赏评述：
1、学生赏析交流自己查找到的图片，进行评述，发表自己的感受和体验。
2、学生对自己的卧室或书桌进行一下设想，可自己画出设计图，进行评价。
四、课堂小结：
通过本节课的学习，我们体会和理解了格调高雅的生活空间，会使我们心情愉快，并体现着我们的生活品位。我们可以根据自己的设计思路对自己的生活空间进行一下布置。
学生听教师讲授。
学生回答教师提出的问题。
学生听教师介绍。
学生回答问题。
学生讨论，发表个人意见。
学生听教师介绍。

信息技术人教版九年级全册第8课《使用定时器控件》教学设计

信息技术人教版九年级全册第8课《使用定时器控件》教学设计一、教材分析本课是九年级信息技术全册中关于VB 编程的重要内容之一。

教材通过介绍定时器控件，让学生了解如何在程序中实现定时触发事件的功能。

定时器控件在动画制作、定时任务等方面有着广泛的应用，能够为程序增添动态效果和实用性。

二、学情分析九年级学生经过前面课程的学习，已经对VB 编程有了一定的基础和理解。

他们对实现动态效果和自动化任务有较高的兴趣，渴望学习新的控件来丰富自己的程序。

然而，对于定时器控件的具体使用方法和原理可能还需要进一步的讲解和实践。

三、教学目标（一）知识目标认识定时器控件的作用和特点。

掌握在VB 程序中添加和设置定时器控件的方法。

了解定时器控件的常用属性和事件。

（二）能力目标能够运用定时器控件实现简单的动画效果或定时任务。

提高分析问题和解决问题的能力。

（三）情感目标培养学生的创新思维和实践能力。

增强学生对编程的兴趣和自信心。

四、教学重难点（一）教学重点定时器控件的添加和属性设置。

利用定时器控件实现动画效果或定时任务。

（二）教学难点理解定时器控件的工作原理和事件触发机制。

合理设置定时器控件的时间间隔和触发事件。

五、教学过程（一）导入新课（5 分钟）展示一个使用定时器控件实现的简单动画效果，如闪烁的星星或移动的图形。

提问学生：“这个动画是如何实现的？定时器控件在其中起到了什么作用？”引出本课主题。

（二）新授内容（30 分钟）定时器控件介绍（10 分钟）讲解定时器控件的作用和特点，如定时触发事件、无需用户干预等。

介绍定时器控件的常见属性，如Interval（时间间隔）、Enabled（是否启用）等。

演示定时器控件的添加方法和属性设置步骤。

利用定时器控件实现动画效果（15 分钟）以一个简单的动画为例，如移动的小球，讲解如何使用定时器控件实现动画效果。

分析动画的实现原理，包括定时器的触发事件和图形的位置变化。

让学生动手实践，使用定时器控件制作一个简单的动画效果。

九年级《信息技术》教案

九年级《信息技术》教案第一章：网络基础知识1.1 教学目标了解计算机网络的定义、分类和应用。

掌握网络协议的基本概念。

理解网络地址和IP地址的转换。

1.2 教学内容计算机网络的定义和分类。

网络协议的基本概念。

网络地址和IP地址的转换。

1.3 教学活动教师讲解计算机网络的定义和分类。

学生通过实例了解网络协议的应用。

教师演示IP地址的转换过程。

1.4 作业与练习完成课后练习题，巩固所学知识。

学生自主探究网络协议的实际应用场景。

第二章：网络应用2.1 教学目标了解网络应用的分类和常用网络应用。

掌握浏览器的使用和搜索引擎的搜索技巧。

学会使用电子邮件和即时通讯工具。

2.2 教学内容网络应用的分类和常用网络应用。

浏览器的使用和搜索引擎的搜索技巧。

电子邮件和即时通讯工具的使用。

2.3 教学活动教师讲解网络应用的分类和常用网络应用。

学生实际操作浏览器和搜索引擎，掌握搜索技巧。

教师示范电子邮件和即时通讯工具的使用方法。

2.4 作业与练习完成课后练习题，巩固所学知识。

学生自主探究其他网络应用的使用方法。

第三章：计算机安全3.1 教学目标了解计算机安全的概念和重要性。

掌握计算机病毒的基本知识。

学会使用防火墙和杀毒软件。

3.2 教学内容计算机安全的概念和重要性。

计算机病毒的基本知识。

防火墙和杀毒软件的使用。

3.3 教学活动教师讲解计算机安全的概念和重要性。

学生了解计算机病毒的基本知识。

教师示范防火墙和杀毒软件的使用方法。

3.4 作业与练习完成课后练习题，巩固所学知识。

学生自主探究计算机安全的其他方面。

第四章：信息处理与演示4.1 教学目标了解信息处理的基本概念和常用工具。

掌握演示文稿的制作和展示技巧。

学会使用文字处理软件和表格处理软件。

4.2 教学内容信息处理的基本概念和常用工具。

演示文稿的制作和展示技巧。

文字处理软件和表格处理软件的使用。

4.3 教学活动教师讲解信息处理的基本概念和常用工具。

学生实际操作演示文稿的制作和展示。

人教版九年级信息技术全第八课使用定时器控件---设计动感抽号机教学课件共16张PPT

【实现思路】
1、设置窗体界面，在窗体中添加两个标签，添加一个文本框，添加两个按钮，添加一个定时器控件。 2、在“开始”按钮中编写代码，实现输入全班人数及启动定时器的功能；在定时器中编写代码，实现在文本框中随机动态显示学号；在“停止”按钮中编写代码，实现停止定时器以及在弹
小组合作探究：界面设计
四、编写代码
(二)、根据“开始”按钮功能算法编写代码：
n = Val(InputBox(“输入人数”)) Timer1.Enabled=true
四、编写代码
(三)、定时器每隔100毫秒循环执行的 Timer 事件过程，根据算法编写代码：
Randomize num = int(rnd()*n+1)
实践：按照项目要求，完成程序界面的设计
Label2
Timer1
Command1
Text1
Command2
三、设计算法
1、“开始”按钮功能算法如下：
2、定时器每隔100毫秒循环执行的Timer 事件过程，算法如下：
3、“停止”按钮功能算法如下：
四、编写代码
(一)、定义变量 Dim n As Interger Dim num As Interger
Text2.text=num
四、编写代码
(四)、根据“停止”按钮功能算法编写代码：
Timer1.Enabled= False
Msgbox”恭喜” & num & “号被抽中”
四、编写代码
（五)、完成所有代码编写
存盘
实践探究
• 在桌面新建一个文件夹
XX班XX学号XX名
• 将文件全部存入此文件夹，文件名抽号机，并生成可执行文件，上交“目录”。

九年级上信息技术第九周第八课时

图像处理
第八课时路径
一．课标教材：
本课将以Photoshop cs为学习工具，学习如何绘图，如何对图像或照片进行各种效果处理。

Photoshop是一个非常优秀的图像处理软件，利用它可以制作出极有创意、非常漂亮的作品。

我们日常生活中见到的书刊封面和各种广告，很大一部分都是用Photoshop制作的。

二．学情分析
通过前面的学习，学生已经掌握了一些绘图工具的使用方法，但是要绘制复杂的图形，还是感觉力不从心。

这节课继续学习可以随心所欲绘制又可以方便修改的工具----路径。

三．教学目标
1.知识方面：掌握路径工具的使用
2.能力方面：新旧知识相结合，达到灵活应用，通过本节课的学习，能让学生掌
握PS里的绘图技巧
3.情感方面：激发学生的学习兴趣；培养探究意识、创新精神、协作精神、竞争
意识；提高学生审美情趣和欣赏水平。

教学重点：
路径工具的正确选用和适时处理能力
四．教学方法和媒体
结合信息技术本身的特点，要求我们知识和技能的传授应以“典型任务”为主，突破一个个“思维障碍”，因此本课采用建构理论下的主体教育模式，通过学生已储备的书本知识和生活经验，设置一个个任务，让学生在学习任务中，自己思考，主动探究，以“任务驱动”的方式发展能力。

教师在整个过程中起到组织、引导、协调、控制、咨询的作用。

启发、诱导贯穿其中，创建自我探究的学习平台。

讲解演示法：投影一部分图片，其中包括生活中常见的，也包括学生只要稍稍动脑就能马上反应过来的，结合课本插图来共同讨论。

五、教学过程
六、课堂教学反思。

2017宁波版信息技术九年级系列课件第四课认识VB

加粗，72 设置字形、字号 1000 自动运行时间间隔（单位毫秒）
试一试，改变Label1字体颜色
（4）对象事件过程的编程
如右图所示，双击窗体中的 Timer1,显示代码窗体，在Timer 事件中输入以下代码：
• Sub Timer1_Timer() • Label1.Caption = Time • End Sub
练习二
• • • • • • • • • • Private Sub Command1_Click() Dim str As String str = "计算机" Label1.Caption = str End Sub Private Sub Command2_Click() Dim str As String str = "computer" Label1.Caption = str End Sub
的“生成电子时钟.exe”,可以编译程序并产生可执行文件。试一试：下载LCD Mono字体（为节约时间，教师应事先准备好，上课前发送到学生桌面），设置Label1对象的Font属性，运行效果如右图
小结：
创建应用程序
新建工程创建应用程序界面
设置属性值
对象事件过程的编程
保存文件
程序运行与调试
（5）保存文件
• 新建一文件夹保存该工程下所有文件，窗体文件保存为“电子时钟.frm”，工程保存为“电子时钟.vbp”
请同学们先建一个文件夹，并命名为4位学号+名字
（6）程序运行与调试
从“运行”菜单中选择“启动”按钮或按【F5】键运行程序，验证结果。单击“结束
”按钮
，可以中止程序，单击“文件”菜单中
第四课认识VB

浙教版信息技术九年级全册第二单元第8课完善基础建模

新知讲解
二、扫描的应用
1.扫描的特点和规则
扫描是沿着一条路径移动轮廓(截面)来生成基体、凸台、切除或者曲面。扫描必须遵循以下规则: (1)对于基体或凸台扫描轮廓必须是闭环的
(2)对于曲面扫描轮廓可以是闭环的，也可以是开环的
(3)不管开环或是闭环，路径的起点必须位于轮廓的基准面上。
新知讲解
（1）路径扫描
新知讲解
一、模型的完善
生活中的茶杯大多都有杯柄，以便于拿握。
杯柄可以看作弯曲的圆柱体。
在3D建模里，绘制杯柄的基本原理是先将其看作一条细线，在 Solidworks 里这条线称为路径。
有了这个基本路径之后，再来确定杯柄的形状。
新知讲解
需要确定一个与此线垂直的平面(基准面)，在基准面画一个横截面的草图，沿着路径扫描一遍就形成了立体图形 (如图所示)。
新知讲解
（2)获取扫描的基准面。
选择“特征”工具“参考几何体” ，选择“基准面”，“第一参考”选曲线的一个端点，“第二参考” 选曲线上的任一点，会生成与曲线相垂直的基准面(如图所示)，单击完成。
新知讲解
(3)绘制杯柄的截面草图。
在这个基准面上，以曲线的一端为中心点，画个杯柄截面的轮廓草图，如圆形就画一个圆的草图。
第8课完善基础建模
浙教版信息技术九年级
新知导入
新知导入
新知导入
新知导入
我们已经学习了3D建模中的草图绘制、拉伸、切除、旋转、阵列等功能应用，可以设计一些比较规则的造型。但是，在日常生活中，不规则的物品随处见，如上面图中的杯柄、弯曲的水管、手推车的扶手等，这一类的模型在设计过程中需要用到路径、扫描等功能。这节课我们来学习这方面的内容。

九年级信息技术上册第二单元第8课数据的集装箱—数组教学设计

中国书法艺术说课教案今天我要说课的题目是中国书法艺术，下面我将从教材分析、教学方法、教学过程、课堂评价四个方面对这堂课进行设计。

一、教材分析：本节课讲的是中国书法艺术主要是为了提高学生对书法基础知识的掌握，让学生开始对书法的入门学习有一定了解。

书法作为中国特有的一门线条艺术，在书写中与笔、墨、纸、砚相得益彰，是中国人民勤劳智慧的结晶，是举世公认的艺术奇葩。

早在5000年以前的甲骨文就初露端倪，书法从文字产生到形成文字的书写体系，几经变革创造了多种体式的书写艺术。

1、教学目标：使学生了解书法的发展史概况和特点及书法的总体情况，通过分析代表作品，获得如何欣赏书法作品的知识，并能作简单的书法练习。

2、教学重点与难点：了解中国书法的基础知识，掌握其基本特点，进行大量的书法练习。

（二）教学难点：如何感受、认识书法作品中的线条美、结构美、气韵美。

3、教具准备：粉笔，钢笔，书写纸等。

4、课时：一课时二、教学方法：要让学生在教学过程中有所收获，并达到一定的教学目标，在本节课的教学中，我将采用欣赏法、讲授法、练习法来设计本节课。

（1）欣赏法：通过幻灯片让学生欣赏大量优秀的书法作品，使学生对书法产生浓厚的兴趣。

（2）讲授法：讲解书法文字的发展简史，和形式特征，让学生对书法作进一步的了解和认识，通过对书法理论的了解，更深刻的认识书法，从而为以后的书法练习作重要铺垫！（3）练习法：为了使学生充分了解、认识书法名家名作的书法功底和技巧，请学生进行局部临摹练习。

三、教学过程：让学生准备好上课用的工具，如钢笔，书与纸等;做好上课准备，以便在以下的教学过程中有一个良好的学习气氛。

（二）引入新课，通过对上节课所学知识的总结，让学生认识到学习书法的意义和重要性！（三）讲授新课1、在讲授新课之前，通过大量幻灯片让学生欣赏一些优秀的书法作品，使学生对书法产生浓厚的兴趣。

2、讲解书法文字的发展简史和形式特征，让学生对书法作品进一步的了解和认识通过对书法理论的了解，更深刻的认识书法，从而为以后的书法练习作重要铺垫！A书法文字发展简史：①古文字系统甲古文——钟鼎文——篆书早在5000年以前我们中华民族的祖先就在龟甲、兽骨上刻出了许多用于记载占卜、天文历法、医术的原始文字“甲骨文”；到了夏商周时期，由于生产力的发展，人们掌握了金属的治炼技术，便在金属器皿上铸上当时的一些天文，历法等情况，这就是“钟鼎文”（又名金文）；秦统一全国以后为了方便政治、经济、文化的交流，便将各国纷杂的文字统一为“秦篆”，为了有别于以前的大篆又称小篆。

九年级信息技术备课第8课

七、教学反思（成功与不足）
通过亲自动手实践、体验感知、形成表象、构建新知。因此，教学中注重给学生创造的发展天地，用研究、探索的自学方式学习，通过交流获得结论，让每位学生有个性化的体验空间。
错题内容
错题人数
错题原因
解决效果
执教：
审查：
日期：年月日
师：没错，只有文字，不够形象生动，而插入图片的幻灯片生动形象、图文并茂，能起到更好的宣传作用。这就是我们这节课要共同挑战的难关《制作图文并茂的幻灯片》。
二、揭示目标，出示问题
第一关：插入图片；
师：在word中我们已经学过插入图片的方法，大家应该都不陌生，相信通过你们自己的探究也一定能探讨出幻灯片插入图片的方法，咱们来比比看谁能最快研究出来。图片都在桌面《爸爸去哪儿》文件夹。开始。（不懂的同学也可以与你隔壁的同学讨论。）1、交流汇报，探讨插入图片的方法。师：完成的请举手。
一、复习检测，引入新课
一、导言揭题
（一）谈话导入
1、（播放音乐：《爸爸去哪儿》）
师：五一班K歌房嗨翻全场，看来你们都很喜欢这个节目，老师也很喜欢，为此我特别为他量身打造了一个属于他的幻灯片来向大家介绍介绍他。做得不好的地方，请大家多多指教！各位同学，请看。（边解说）师：看完幻灯片，你们有什么地方需要修改的？（生：缺少图片）
（四）、自主闯关，探索填充背景的方法
（一看完，有同学立马就说，第一页太白了，就几个字而已）
师：那咱们再来一起研究研究，帮它加一个背景图片，让它美美的，一眼就能牢牢抓住大家的眼球！
四、讨论展示，教师讲解
师：这样看来，其实插入图片并不难，可为了画面的美观，一定要注意调整其大小及位置，这点至关重要。你们都能做到，把掌声送给你们自己！
师：可是，这个颜色不是我的菜，如何改变自选图形的颜色呢？有同学懂吗？师：没关系，交给老师，其实很简单，右击——选中设置自选图形格式，就可以改变填充颜色和线条了。

2017宁波版信息技术九年级系列课件第六课选择结构程序设计

Label1
Label2
Text1 Text2 Command1
BackStyle text text
PasswordChar
Caption
*
登录
编写代码
• • • • • • • Private Sub Command1_Click() If Text2.Text = "happy2014" Then MsgBox "登录成功" '密码正确 Else MsgBox "密码错误" '密码错误 End If End Sub
第六课选择结构程序设计
宁波版九年级信息技术（VB）
（附P27练一练及借阅登录的VB源程序）
2017,6
学习目标
• 掌握If语句格式 • 初步掌握选择结构程序设计方法
If语句
• 选择结构一般用If语句实现，使用形式如下：
• • • • • • • If 条件 Then 语句1[Else 语句2] 或 If 条件 Then 语句1 [Else 语句2] End If
知识林
• MsgBox函数 • 一般格式：MsgBox “内容”，样式参数，“标题” • 第一个参数：显示提示信息内容。 • 第二个参数：样式参数，如有“确定”、“取消”按钮模式等。 • 第三个参数：标题栏显示的标题。 • 期中，第二、第三个参数可以省略。
小结
选择结构
• • • • • • • • If 条件 Then 语句1[Else 语句2] End If 或 If 条件 Then 语句1 [Else 语句2] End if
知识林
• Select Case语句 • 当分支条件过多，我们可以用Select Case语句替代If语句。语句使用形式如下： • Select Case 变量或表达式 • Case 表达式1 • 语句1 • Case 表达式2 • 语句2 • …… • [Case Else • 语句n+1] • End Select

全国人教版信息技术九年级全册第一单元第8课《设计程序界面并设置对象的属性》教学设计

全国人教版信息技术九年级全册第一单元第8课《设计程序界面并设置对象的属性》教学设计一、教材分析本节课的内容来自于全国人教版信息技术九年级全册第一单元的第8课，主要介绍了如何设计程序界面并设置对象的属性。

这一课是在学生已经掌握了基本的编程知识和技能的基础上，进一步深化学习的内容。

通过本节课的学习，学生将能够掌握设计程序界面和设置对象属性的基本方法和技巧，提高编程能力。

本节课的内容与学生的实际生活紧密相连，通过设计程序界面和设置对象的属性，学生可以更好地理解和掌握编程知识，为未来的学习和工作打下坚实的基础。

本节课的教学目标是通过讲解和实践，让学生掌握设计程序界面和设置对象属性的基本方法和技巧，提高学生的编程能力。

二、核心素养目标本节课的教学设计旨在培养学生的信息意识、计算思维和数字化学习与创新。

通过设计程序界面和设置对象属性，学生将能够运用计算机编程语言进行实际操作，提高解决问题的能力。

同时，通过本节课的学习，学生将能够理解编程的基本概念和原理，培养计算思维，为未来的学习和工作打下坚实的基础。

此外，本节课还将引导学生运用数字化工具进行学习和创新，提高数字化学习与创新的能力。

三、学情分析1. 学生层次分析本节课的学生为九年级学生，他们在信息技术课程的学习中已经掌握了一定的编程基础知识和技能。

在知识层次方面，大部分学生已经了解了基本的编程概念和语法，能够编写简单的程序。

在能力层次方面，部分学生已经能够独立完成一些简单的编程任务，具备一定的解决问题的能力。

在素质层次方面，大部分学生对信息技术课程感兴趣，具有一定的学习积极性和主动性。

2. 知识、能力、素质方面的分析在知识方面，学生已经掌握了基本的编程语言和语法，如Python、Java等。

在能力方面，学生能够运用编程语言进行简单的程序编写和调试。

在素质方面，学生具备一定的逻辑思维能力和创新精神。

3. 行为习惯分析学生在信息技术课程的学习中，表现出较高的学习积极性和主动性。

九年级信息技术第八课

木垒县第一中学九年级信息技术
主备教师：赵玉民
时间：2016年10月31日
课题名称
第8课涂鸦王国-----鼠标控制
课型讲授型课时第1 Nhomakorabea时教
学
目
标
知识与技能
1.学习鼠标的抬起和落下事件，并能够进行简单编程。
2.了解Button、Shift参数值的意义，掌握利用X和Y参数值编写相应程序。
3.掌握用Pset方法画点。
Line(x1,y1)-(x2,y2),rgb(255,0,0)
MouseDown(Button As Integer,Shift As Integer,X As Single,Y
MouseUp(Button As Integer.Shift As Integer,X As Single,Y As Single)
4.了解对象名称属性的命名规则。
5.了解窗体的Form_Load事件。
过程与方法
1、通过画点和画线程序掌握鼠标事件的方法
情感态度与价值观
1、通过程序设计帮助学生养成细致耐心的学习习惯
教学重点
（1）MouseDown事件
（2）MouseUp事件
（3）Mousemove事件
教学难点
利用鼠标事件制作点线涂鸦
讲清鼠标事件格式x,y的意义
其中dim定义过程变量作用讲清
通过划线语句达到熟练应用
二、画点程序
1、移动鼠标事件
2、画点语句
Pset(x1,y1),rgb(255,0,0)
Mousemove(Button As Integer.Shift As Integer,X As Single,Y As Single)
三、小结
鼠标的三个事件

1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

小结
• • • • • • 一、随机函数初始化：randomize 二、Rnd产生一个大于等于0且小于1的小数。生成某个范围内的随机整数，可使用以下公式： Int(Rnd*(Max-Min+1)+Min) (其中Max为数据范围的上限，Min为下限) 如：要产生1~9的数字，可用Int(Rnd*9+1)
试一试
• 将例子改为10以内的减法练习，要求被减数大于等于减数
• • • • • • • • • • • • • • • • • • • Private Sub Command1_Click() Dim s As String Dim a, b As Integer Label2.Caption = "" '清空显示内容 Randomize ' 随机种子初始化 For i = 0 To 19 a = Int(Rnd * 9 + 1) '产生减数（或被减数） b = Int(Rnd * 9 + 1) '产生减数（或被减数） If a >= b Then s = a & "-" & b & "=" '产生一个减法练习式 ElseIf a < b Then s = b & "-" & a & "=" End If Label2.Caption = Label2.Caption & s & " " '写入显示框 If i Mod 4 = 3 Then ' 一行显示4个练习式 Label2.Caption = Label2.Caption & vbCrLf End If Next i End Sub
Thank You！
练一练1 题目
• 设计一个猜数游戏。程序自动产生一个数（不显示），让用户进行猜测，程序给出反馈：“大了”、“ 小了”或“相等”。
参考答案一界面
参考答案一源程序
• • • • • • • • • • • • • • • • • • • • • • Private Sub Command1_Click() Randomize Dim a As Integer Dim b As Integer Dim s As String a = Int(Rnd * 100) s = "请输入" For I = 1 To 10 b = Val(InputBox(s, "猜一猜")) If b > a Then s = "太大了，请重新输入" ElseIf b < a Then s = "太小了，请重新输入" Else MsgBox "相等，恭喜你，在第" & I & "次猜中了", vbInformation, "猜一猜" Exit For End If Next I If I > 10 Then '猜题结束 MsgBox "很遗憾,(答案是" & a & ")" & vbCrLf & "猜题结束", vbInformation, "猜一猜" End If End Sub
1-fixed Singleaption
编写代码
• • • • • • • • • • • • • • • Private Sub Command1_Click() Dim s As String Dim a, b As Integer Label2.Caption = "" '清空显示内容 Randomize '随机种子初始化 For i = 0 To 19 a = Int(Rnd * 9 + 1) ‘产生乘数 b = Int(Rnd * 9 + 1) ‘产生乘数 s = a & ‚-‛ & b & ‚=‛ ‘产生一个乘法练习式 Label2.Caption = Label2.Caption & s & " " '写入显示框 If i Mod 4 = 3 Then '一行显示4个练习式 Label2.Caption = Label2.Caption & vbCrLf End If Next i End Sub
效果如下一张PPT
减法练习效果图
补充知识
• 1、Mod 运算符,用来对两个数作除法并且只返回余数。属算术运算符. Mod 运算符示例本示例使用 Mod 运算符来对两数作除法运算，但返回其余数而非商数。如果两数中有一数为浮点数，该数会先被四舍五入成整型后再进行运算。 • 10 Mod 5 = 0。 • 10 Mod 3 = 1。 • 12 Mod 4.3 = 0。 • 12.6 Mod 5 = 3。 • 2、vbCrLf的含义是： • vbCr=Chr(13) 回车符 vbLf=Chr(10) 换行符 vbCrLf=Chr(13) & Chr(10) 回车+换行符
随机函数
• Rnd产生一个大于等于0且小于1的小数。 • 生成某个范围内的随机整数，可使用以下公式： • Int(Rnd*(Max-Min+1)+Min) • (其中Max为数据范围的上限，Min为下限)
试一试
• 用Rnd函数表示产生范围为1~9之间的随机整数
• • • • • • • • Private Sub Command1_Click() Dim a As Integer Max = 9 Min = 1 Randomize ’随机种子初始化 a = Int(Rnd * (Max - Min + 1) + Min) Print a; End Sub
第八课综合运用
宁波版九年级信息技术（VB）
（附P37练一练及乘法练习的VB源程序）
2017,6
学习目标
• 掌握随机数产生的方法 • 熟练运用选择结构设计程序 • 熟练运用循环结构设计程序
复习
选择结构
条件？
Y
N
循环结构
条件？ Y 语句组 N
语句1
语句2
任务分析
• 单击“出题”命令按钮，随机产生10以内的乘法练习题。运行效果如图所示
界面设计
Label1
Label2
Command1
属性设计
对象名属性名属性值
Caption
Form1
乘法练习（根据路径选择）
乘法练习 0-transparent （空）
Picture
Label1 Caption BackStyle caption
Label2
BorderStyle
BackColor
三、选择结构： • If 条件 Then 语句1[Else 语句2] • End If • 或 • If 条件 Then • 语句1 • [Else • 语句2] • End if 四、循环结构：当循环次数确定时，可以用For…Next语句，格式为: • For 循环变量=初值 To 终值[Step 步长] • 循环体 • Next 循环变量