- 1、本文档共42页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
本章主要内容 选择程序结构用于判断给定的条件,根据判断的结果来控制程序的流程 关系运算符 关系运算符 关系表达式 关系表达式练习 布尔运算符 布尔表达式练习 ?“a”“b” AND 12 False ?“a”“b” OR 12 True ?NOT 2*511 False ?2^33 AND 510 False 表示一个数是偶数 x Mod 2=0 或 int(x/2)=x/2 表示一个数X能被3或5或7整除 x Mod 3=0 OR x Mod 5=0 OR x Mod 7=0 表示身高不在1.65米以上或不是女生 身高<1.65 OR 性别<>“女” NOT(身高>=1.65 AND 性别=“女”) 布尔表达式练习 ?-3<-2<-1 False a=3:b=4:c=5 ?a=b=c False 表示一个数x是能被3整除的奇数 x Mod 3=0 and x Mod 2 0 x Mod 2=1 and x Mod 2 0 表示一个数x∈[2,5] x>=2 and x<=5 表示一个数x不在[2,5]区间内 x<2 or x>5 运算符的优先顺序 运算符的优先顺序练习 判断闰年的科学依据 选择控制结构 选择结构(IF-THEN) 选择结构(IF-THEN-ELSE) (IF-THEN-ELSE)举例 IIF函数的使用 块结构(IF-THEN-ELSE-END IF) (IF-THEN-ELSE-END IF)举例 (IF-THEN-ELSE-END IF)举例 IF语句的嵌套 嵌套IF举例 嵌套IF举例 嵌套IF举例 IF语句的嵌套格式ELSEIF 嵌套ELSEIF举例 嵌套ELSEIF举例 多分支语句 多分支语句举例 多分支语句举例 多分支语句举例 滚动条 滚动条程序示例 使用计时器控件 计时器控件的常用属性 设计一个闪烁字幕 设计一个计时器 框架控件Frame 框架控件是一个左上方有标题文字的方框。它是一个容器控件。可以对窗体上的控件进行视觉上的分组。 在框架内可以直接绘制控件,也可以将已有控件粘贴到框架内 框架可以提供总体的激活和屏蔽 提供简单选择的控件 单选按钮程序示例 提供简单选择的控件 复选按钮程序示例 有些控件不能自动支持滚动的功能,VB提供的滚动条有水平滚动条(HScrollBar)和垂直滚动条(VScrollBar)两种 常用属性有(均为整型数): Value 滚动条的当前值,即滑块的位置 LargeChange 单击滚动条的前后部位时,Value的改变量 SmallChange 单击滚动条的两端箭头时,Value的改变量 Max Value的最大值 Min Value的最小值 常用事件: Scroll 当拖动滚动条滑块时触发的事件 Change 当滚动条滑块位置改变时触发的事件 Private Sub HScroll1_Scroll( ) Text1.FontSize = HScroll1.Value End Sub 若改为滚动条的Change事件,效果会有什么变化? 计时器(Timer)控件可以在程序运行中以规定的时间间隔产生一个事件。这对不需要与用户交互的代码的执行非常有用。 计时器在设计时显示为一个小时钟图标,而在运行时则看不到,常用来做一些后台处理。 如果需要显示时间,则应当使用标签或文本框 Interval属性是决定Timer控件的计时事件调用间隔的毫秒数 格式:[对象.]Interval [=毫秒数] 说明:当毫秒数为0(缺省)时,Timer控件无效。 Enabled属性(True/False)决定Interval的设置是否有效 只要Timer控件的Enabled属性被设置为True,而且Interval属性0,则以Interval属性指定的时间间隔发生一次Timer事件 Private Sub Form_Load() FontName = 幼圆 FontBold = True FontSize = 100 End Sub Private Sub Timer1_Timer() Form1.ForeColor = RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256)) Form1.CurrentX = Form1.Width / 10 ’输出的水平坐标 Form1.CurrentY = Form1.
您可能关注的文档
最近下载
- GB50863-2013 尾矿设施设计规范.docx VIP
- 2025年陕西省二级造价工程师职业资格考试《基础知识》真题及答案.docx VIP
- 人教版PEP三年级英语下册全册同步练习随堂练习一课一练版(有答案).pdf VIP
- 彩钢管理房单元工程施工质量评定表(1).doc VIP
- 江西婺源篁岭民俗文化村发展规划--规划说明.pdf
- IATF16949-2016事态升级控制规范.doc VIP
- 新收入准则对电商企业运营的影响及应对策略.docx VIP
- 东莞市地图含区县可编辑可填充动画演示矢量分层地图PPT模板.pptx VIP
- XX县2022年度自然资源统一确权登记项目技术设计书模版.docx VIP
- 女儿墙维修工程施工方案(3篇).docx VIP
文档评论(0)