联系本站客服加+微信号15139388181 或QQ：983228566 |
视频标签：VB随机函数
所属栏目：信息技术优质课视频
视频课题：浙教版高中信息技术选修1算法与程序设计《VB随机函数》山东省优课
本视频配套资料的教学设计、课件 /课堂实录及教案下载可联本站系客服
《VB随机函数》教学设计
一、教材分析
本课是对浙教版教材4.1.5常用标准函数进行的补充扩展，随机函数在现实世界中涉及到很多方面的很多问题，比如彩票号码的随机产生，试题的随机抽取组卷，数学中的取样与概率等等。在浙教版《算法与程序设计》的5.4查找算法的程序实现中使用到了随机函数Rnd。无论使用任何编程语言，都有一个随机函数，用来产生随机的种子，本课对教材中VB随机函数的内容进行了扩展，进一步培养学生的计算思维和理论与实践相结合的能力。 二、学习目标
（一）知识与能力
1、了解VB中Rnd函数的功能。
2、掌握利用Rnd函数产生某范围内随机整数的方法。 3、应用Rnd函数进行程序设计，解决实际问题。 （二）过程与方法
1、通过实例演练，体验使用VB随机函数的代码编写、程序调试与保存的过程 2、通过解决实际问题的过程，领会计算机解决问题的思路与方法 （三）情感与态度
体验计算机解决实际问题的过程，产生学习程序设计的兴趣 三、教学重点
熟练应用Rnd函数进行程序设计。 四、教学难点
利用Rnd函数产生某范围内的随机整数，解决实际问题 五、学情分析
本节课的教学对象是高一年级的学生，经过一段时间的学习，他们已经初步掌握了几个基本控件的相关属性设置，并会进行简单的界面设计，掌握了程序设计的三种基本结构，但是在解决实际问题，独立设计并完成一个完整的小程序方面仍存在一定的难度，需要教师的有效指导，逐步提升学生分析问题、解决问题的能力。 六、教学方法
任务驱动法、演示法、实例演练 七、教学过程
（一）情景创设，引入新课
【情景铺垫】同学们都在手机上抢过红包吗？其实抢红包已经出现了好多年不是什么新鲜事，但为什么直到现在还是被人们喜闻乐见?原因是什么?微信群里最常见的一种群发红包，每个人抢到的金额是一定的还是随机的？
【教学意图】通过对于抢红包的思考，引导学生思考现实世界中的随机事件。
【引入课题】除了抢红包，随机事件还涉及到生活的很多方面，比如彩票抽奖，随机抽题组卷，体育质量检测抽测，还有数学等科学领域的随机取样和概率统计。最简单的可能就是抛硬币的问题，每次都会有正反两种随机结果，通过大量的取药统计会给他的概率作出预测，因此对于随机事件的研究具有相当重要的意义。在VB中也有专门的随机函数，可以实现随机数的效果，本节课我们就一起学习《vb随机函数》 （二）新课讲授
【活动一】谁是手气王
【学生活动】运行程序，点击按钮后获得一个数字
【教师活动】引导学生观察：1.几乎每位同学的获得的数字都不相同2.没有小于0的数字，也没有大于1000的数字 3.请学生打开程序源代码，观察利用哪个函数可以实现随机效果
【师生活动】根据观察手气王的代码得出结论，导出本节所学内容Rnd函数。 在VB中我们可以利用Rnd函数产生任意范围内的随机整数。 【概念讲授】Rnd函数
1.讲解Rnd函数的格式、功能及注意事项 格式：Rnd[（参数）]
功能：产生一个[0，1）范围内的随机数 注意事项：
①Rnd函数后面的圆括号及参数为可选项，本节课直接利用缺省形式RND生成随机数。 ②函数值为single类型
③使用Rnd函数之前，使用Randomize语句初始化随机数发生器，该发生器使用系统时钟的秒数作为随机数种子。
【实例操作】通过实例体会Rnd函数的格式、功能及注意事项 【手气王代码】
Private Sub Command1_Click() Randomize
n= Int(1000 * Rnd) Label1.Caption = n End Sub
【观察体会】
1.RND函数的功能及范围 2. Randomize语句的作用
【学生活动】实践、观察、思考、分析、体会 （三）学以致用 【活动二】数字骰子
将手气王代码，改造成数字骰子，能够显示1-6范围内的随机数 【教师活动】举例讲解
利用Rnd函数生成某个范围内的随机整数 Int（（上限-下限+1）*Rnd）+下限 【举例】
生成[1，6]内的随机整数 生成[0，255]内的随机整数
生成[11，22]内的随机整数
【答案】
Int((6-1+1)*Rnd)+1 Int((255-0+1)*Rnd)+0 Int((22-11+1)*Rnd)+11 【数字骰子代码】
Private Sub Command1_Click() Randomize
n= Int(6 * Rnd) + 1 Label1.Caption = n End Sub
【学生活动】观察、思考
【活动三】数字彩色骰子（注：RGB取值范围是[0,255]） 将数字骰子改造成标签颜色可随机变化的彩色数字骰子 Private Sub Command1_Click() Randomize
n= Int(6 * Rnd) + 1 a = Int(Rnd * 256) b = Int(Rnd * 256) c = Int(Rnd * 256) Label1.Caption = n
Label1.BackColor = RGB(a, b, c) End Sub
【教师活动】展示程序，布置学习任务，归纳程序设计步骤 【教师活动】巡视并解答学生在自主学习中遇到的问题，引导其独立完成各自选择的学习任务。
【学生活动】各组根据学习任务上机实践操作，完成设计要求 【教师活动】巡视并指导学生解决上机操作过程中出现的问题
【师生互评】针对展示的学生作品，各组之间进行互评，教师点评，指出作品中的优点与不足之处。
【活动四】星空背景彩色数字骰子（随机描点） 将彩色数字骰子改造成星空背景的彩色数字骰子 【知识铺垫】pset函数的使用 1.在一个随机位置描点 2.在随机位置描N个点
3.在随机位置描N个随机颜色的点 【星空代码】
Private Sub Command1_Click() Randomize
n = Int(6 * Rnd) + 1 For i = 0 To 999
x = Int(Rnd * Form1.Width) y = Int(Rnd * Form1.Height) a = Int(Rnd * 256) b = Int(Rnd * 256) c = Int(Rnd * 256) PSet (x, y), RGB(a, b, c) Next i
Label1.Caption = n
Label1.BackColor = RGB(a, b, c) End Sub
（四）课堂小结
本节课学习了VB随机函数Rnd的语法及功能，并结合实例讲解了Rnd函数的重要应用——产生某范围内的随机整数，这也是我们学习随机函数Rnd的宗旨所在。也希望同学们在学习Visual Basic的同时，能掌握面向对象编程技术的一般思想和方法，真正感受到编程的乐趣！
（五）课后作业
1、掌握Rnd的语法及功能
2、掌握利用Rnd产生某范围内随机整数的公式
3、利用Rnd随机函数设计程序，完成以下功能：（任选其一） （1）随机显示数字骰子标签中文本的颜色 （2）在文本框中随机显示26个大写英文字母
视频来源：优质课网 www.youzhik.com
