- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
湖南省计算机等级考试VB程序设计辅导 2007年10月 计算机系—刘永逸 内容提要 概括性指导 基础知识、重点结构、常用标准函数、自定义函数、基本处理、逻辑表达式 常用算法:穷举法、递推 分类练习 十多种常见类型(详见下页) 1、简单的求和问题 2、等比数列及求和 3、递推问题(Excel可解) 4、常见数字问题的处理 5、因子问题--因子个数、和 6、组合问题:不定方程求解 7、高精度计算—除法 8、同构数 9、完全平方数 10、数制转换 11、素数(质数)问题 12、猴子选大王 VB面向对象基本概念 对象、事件、方法 对象:窗体、标签、文本框、命令按钮、计时器、…… 事件:Load、Unload、Chang、Click、KeyPress、LostFocus、GotFocus、… 方法:Print、Cls、Show、Move 对象属性 Name、Caption / Text、Left、Top、Width、Height、 Enabled、Visible、 Font、 … VB程序执行方式 事件驱动编程机制 VB常用数据类型 数值型 Integer(%)、Long() Single(!)、Double(#) 字符串型 String($) 变体型 Variant VB常用运算符 数值运算 ^、-(负号)、*、/、\ 、Mod 、 +、- 字符串运算 、+ 逻辑运算 And、Or、Not VB常用函数 系统内部标准函数 取整:Int(x) 求余数:a Mod b 求平方根:Sqr(x) 绝对值:Abs(x) 四舍五入:Round(x,n) 其它... 用户自定义函数 逻辑函数判定:prime(x) 外部函数的方法(不讲) 内部函数的方法(程序的一部分) 见:有关素数程序设计部分 注:二级必备! VB基本输入、输出 InputBox输入和MsgBox输出 文本框输入、输出 x=Val(Text1)、Text1=… 窗体和立即窗口输出 Print 和 Debug.Print Tab(x)、Format(x,…) VB程序基本结构与示例 顺序结构 选择(分支)结构 If...Then … Else ... If...Then … Else ... End If 判断成绩是否合格 x = Val(Text1) If x 60 Then Text2 = 不合格 If x = 60 Then Text2 = 合格 或(第2、3行为) If x 60 Then Text2 = 不合格 Else Text2 = 合格 也可写成多行形式:… 多选择(分支)结构(一) If … Then …ElseIf … Then …Else …End If 判断成绩等级 Private Sub Command1_Click() x = Val(Text1) If x 60 Then Text2 = 不及格 ElseIf x 70 Then Text2 = 及格 ElseIf x 85 Then Text2 = 良好 Else Text2 = 优秀 End If End Sub 多选择(分支)结构(二) Select Case 测试表达式 Case 表达式列表1 … Case Else …End Select 表达式列表:(三种形式,见例题) 判断成绩等级 Private Sub Command1_Click() Select Case Val(Text1) Case Is 60 Text2 = 不及格 Case 60, 61, 62, 63, 64, 65, 66, 67, 68, 69 Text2 = 及格 Case 70 To 84 Text2 = 良好 Case Else Text2 = 优秀 End Select End Sub 循环结构 For ... Next While...Wend (无退出中途语句) Do While...Loop (共4种形式) 中途退出:Exit For/Do 嵌套 分支与分支 循环与循环 循环与分支 For循环输出20以内的奇数 Private Sub Form_Click() For k = 1 To 20 Step 2 Print k; Next End Sub While循环输出20以内的奇数 Private Sub Form_Click() k = 1 While k = 20 Print k; k = k +
您可能关注的文档
- 系统设计.ppt
- 现代远程教育入学测试.ppt
- 项目2 计算机系统的安装.ppt
- 信息安全专业培养计划.ppt
- 信息系统安全.ppt
- 2010大专院校电子商务创意竞赛.ppt
- 信息系统的安全与运行密不可分信息系统的运行必须安全....ppt
- B2C电子商务.ppt
- Visual Basic 的程序设计.ppt
- Workflow应用介面.ppt
- Unit4MyFavoriteSubjectSectionA(1a-Pronunciation)(课件)人教版七年级英语上册.pptx
- Unit4NaturalDisastersListeningandSpeaking课件-高中英语人教版.pptx
- Unit4NaturalDisastersReadingandThinking课件高中英语人教版(1).pptx
- Unit4MyFavouriteSubjectSectionApronunciation课件-人教版七年级英语上册.pptx
- Unit4MyFavouriteSubjectSectionB(1a-1d)(教学课件)人教版英语七年级上册.pptx
- Unit4Lesson1课件冀教版七年级英语上册.pptx
- Unit4Lesson3课件冀教版英语七年级上册.pptx
- Unit4NaturalDisasters词汇笔记清单-高一上学期英语人教版.docx
- Unit4Lesson2课件冀教版英语七年级上册.pptx
- Unit4IusedtobeafraidofthedarkSectionAGrammarFocus-4c课件人教版(2012)九年级英语全册.pptx
最近下载
- 履带吊安拆T及T履带式起重机安拆施工工艺.docx VIP
- 海康威视 扫描仪 台式人证比对终端 DS-K5605 安装指南.pdf
- 教学创新设计汇报-自动控制原理.pptx VIP
- 六枝特区牂牁江景区山水实景水舞秀项目环境影响报告.pdf VIP
- 江苏省常州外国语中学2023-2024学年八年级上学期10月月考英语试卷 .docx VIP
- 混凝土坝安全监测系统施工技术规范-条文说明.pdf VIP
- 家庭医生签约服务培训ppt课件.pptx VIP
- 2025-2026学年小学科学二年级上册(2024)青岛版(六三制2024)教学设计合集.docx
- 食材配送人员配备方案(5篇).doc VIP
- 相声—《口吐莲花》.docx VIP
文档评论(0)