已阅读5页,还剩6页未读, 继续免费阅读
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
,VB 编 程,授课对象:高一学生 授 课 人 :黄小君,VB中的选择语句 IF语句,用来解决有关选择结构的问题。,选择结构,单分支结构,双分支结构,嵌套分支结构,If 条件 Then 语句A End If,If 条件 Then 语句A Else 语句B End If,(本节课的重点),选择结构与选择语句,If 条件 Then 语句A End If,If 条件 Then 语句A Else 语句B End If,If和end if 要成对出现,是否为真?,语句块,单分支结构,退出,是,否,退出为真?,Private Sub Command1_Click() If MsgBox(“你真的要退出吗?“, vbOKCancel, “退出“) = vbOK Then End End If End Sub,流程图,单分支结构,你赢了,是,否,电脑出剪刀,你出石头,Private Sub Option1_Click() Dim c As String, d As String, e As String Dim a As Integer c = App.Path & “/1.jpg“ d = App.Path & “/2.jpg“ e = App.Path & “/3.jpg“ a = Int(3 * Rnd) + 1) Picture1(1).Picture = LoadPicture(App.Path & “ & a & “.jpg“),流程图,调取图片的路径,电脑随机出数(1,2,3),显示电脑所出的图片,石头用数字“1”表示,剪刀用“2”表示,布用“3”表示,单分支结构,Picture1(0).Picture = LoadPicture(c) If c = App.Path & “/1.jpg“ And a = 2 Then Label4.Caption = “赢了“ End If If c = App.Path & “/1.jpg“ And a = 3 Then Label4.Caption = “输了“ End If If c = App.Path & “/1.jpg“ And a = 1 Then Label4.Caption = “打平“ End If End Sub,电脑出剪刀,你出石头,电脑出布,你出石头,电脑出石头,你出石头,石头用数字“1”表示,剪刀用“2”表示,布用“3”表示,计算机编程解决问题的过程,分析问题,设计算法,编写程序,调试运行,检测结果,选择结构,单分支结构,双分支结构,嵌套分支结构,if 条件 then 语句A end if,if 条件 then 语句A else 语句B end if,小结,计算机编程解决问题的过程:分析问题,设计算法,编写程序,
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 5G时代电视媒体如何扩展新闻直播的优势-以金华广播电视台《百姓零距离》为例
- 5000T压力机拉伸垫上端盖螺杆断裂原因分析及改造
- 3D打印技术在高校创新创业教育中的应用
- 2019年前3季度挖掘机、装载机市场分析
- 1981-2013年四川省视程障碍类天气现象分析
- 110kV输电线路复合材料杆塔应用研究
- 10kV线路正常停电复送跳闸故障的分析
- 2024年全球三角帆蚌行业总体规模、主要企业国内外市场占有率及排名
- 哮喘患者睡眠质量的影响因素及干预
- 传染病疫情期间4S店员工健康监测
- 《嵌入式技术应用》课程标准
- 四年级科学点亮小灯泡优秀课件
- DB4401-T 19-2019涉河建设项目河道管理技术规范-(高清现行)
- 毕业论文-摇臂轴座零件的工艺工装设计
- DB23∕T 3283-2022 电梯维护保养服务规范
- 湖南省株洲市各县区乡镇行政村村庄村名居民村民委员会明细
- 会议音频系统施工方案
- 低老坏专项整治实施专题方案
- 名词复数(初中)课件
- 人的体细胞治疗及基因治疗临床研究质控要点
- 演练效果评估表
评论
0/150
提交评论