- 1、本文档共354页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
第一章
VisualBasic概述;1.1VB概述;二.VB的特點;三、VB的學習特點;1.2VisualBasic簡介;1.3面向對象的
程式設計方法概論;一、什麼是OOP
(面向對象程式設計);二、什麼是對象及類;2、對象;而這個類的實例—對象,便是一部電話。;品牌;四、什麼是“事件”;五.什麼是“方法”;習題;六、VB的窗體與控件;小結;1.2“工程”的概念;1.2VB的開發環境;標題條; 工程資源管理器窗口又稱為工程流覽器窗口,在窗口中會列出當前工程的所有窗體和模組。; 單擊“查看代碼”按鈕,則會出現該對象的代碼編輯器窗口。;彈出式菜單
在要使用的對象上單擊滑鼠右鍵即可打開彈出式菜單。;屬性窗口
屬性窗口由標題條、對象列表框和屬性列表框及屬性說明幾部分組成;工具欄
VB的工具欄由若干命令按鈕組成,在編程環境下提供對於常用命令的快速訪問。以下給出了各個命令按鈕的名稱及功能。;1.3利用VB開發應用程式的
一般步驟;四.保存工程(P9)
.vbp工程檔
一個工程保存在一個檔夾內
五.測試和調試應用程式
六.創建可執行程式
自己動手!舉例:P9—P10;1.4VB的幫助;小結;VB程式代碼的組織方式;五、過程;事件過程;圖3-1;通用過程;圖3-2;練習;代碼行的書寫規則;語句;語句示例;書寫規範;VB的數據類型;數據類型;常量;數值常量;數值常量示例;字元常量;日期常量;符號常量;變數;變數名及類型說明;表3-2;變數作用域與變數說明語句;變數作用域;變數說明語句;表3-4;關於字串變數的聲明;OptionExplicit語句;運算符與運算式;算術運算符與算術運算式;算術運算符;算術運算式;關係運算符與關係運算式;關係運算符;關係運算式;邏輯運算符與邏輯運算式;邏輯運算符;邏輯運算式;運算規則;VB公共函數(考點);;;;;格式化函數Format$;本章總結;演算法基礎及VB的基本語句第4章;演算法及程式設計基礎;演算法的特徵;演算法的描述;;;基本演算法結構;賦值語句及InputBox、MsgBox函數;賦值語句;賦值語句的形式;賦值語句示例;不同數據類型數據的賦值;圖4-4一個簡單程式示例;InputBox函數;;MsgBox函數;MsgBox函數的幾種使用方法;分支結構與分支結構語句;If-Then-Else-EndIf結構語句;If結構語句的一般形式;If???構的變形1;If結構的變形2;[例4-1]已知三角形三個邊的長度,設計求此三角形面積的程式;[例4-1]演算法流程圖;[例4-2]一個有多個分支的示例程式;[例4-2]程式代碼;Select-Case-EndSelect結構語句;例4-2使用本結構語句實現;迴圈結構與迴圈結構語句;回顧(3.30);當型迴圈和直到型循的不同執行方式;Do-Loop迴圈結構語句;回顧(4.27)補課問題;ExitDo語句;[例4-3]求兩個自然數的最大公約數程式;For-Next迴圈結構語句;For-Next迴圈結構語句的執行方式;注意;[例4-4]求1到10這十個數的和與連乘積;FOR語句的特例;迴圈嵌套;小結;[例4-5]大寫字母逆序輸出的程式;[例4-6]一個模擬搖獎的程式;程式示例;[例4-7]一個簡易函數計算器程式;PrivateSubcmd1_Click()
IfText1.Text=Then
MsgBox請輸入X值!,48+vbOKOnly,程式示例
Text1.SetFocus
ElseIfIsNumeric(Text1.Text)Then
X=Val(Text1.Text) ‘求函數
Label2.Caption=“Exp(X)=:” ‘換門牌
Text2.Text=Str(Exp(X)) ‘送結果
Else
MsgBox輸入數據錯誤!,48+vbOKOnly,程式示例
Text1.Text=”
EndIf
EndSub;初始介面;按月收入額計個人收入調節稅的計稅公式式中,pay為納稅人的月收入。
程式代碼;PrivateSubCommand1_Click()
DimtaxAsSingle,payAsSingle
pay=Text1.Text
IfCheck1.Value=1orpay=1000Then
tax=0
ElseIfpay=1500Then
您可能关注的文档
最近下载
- 2024年G1工业锅炉司炉考试题库附答案.docx VIP
- 《初中诗词鉴赏》课件.ppt VIP
- 北师大版九年级数学上册《菱形的性质与判定》第2课时示范公开课教学设计.docx VIP
- 2024年湖北省武汉市江岸区后湖街道招聘社区工作者真题含答案详解.docx VIP
- 动火安全作业票填写模板(2022版).doc VIP
- 制造业智能制造执行系统(MES开发方案.doc VIP
- 2024年湖北省武汉市江岸区一元街道招聘社区工作者真题含答案详解.docx VIP
- 2025年度全国乡村医生考试复习题库含答案【推荐】.docx VIP
- 锚杆支护工理论考试题库500题(含答案).docx VIP
- NY_T 1966—2010 温室覆盖材料安装与验收规范 塑料薄膜.doc VIP
文档评论(0)