《VisualBasic程序設(shè)計(jì)教程》電子教案(“控件”相關(guān))共518張

計(jì)算機(jī)技術(shù)基礎(chǔ)課VisualBasic程序設(shè)計(jì)任課教師：AAAAAAAAA

電子郵件：BBBBBBBBBBBB

教學(xué)網(wǎng)站：CCCCCCCCCCCC《VisualBasic程序設(shè)計(jì)教程》

(第2版)

林卓然編著

電子工業(yè)出版社出版

2007年7月

書號:

ISBN7-121-04056-6

定價(jià):

24元

退出《VisualBasic程序設(shè)計(jì)》課程介紹程序設(shè)計(jì)語言常用種類教學(xué)目的關(guān)于VB教學(xué)內(nèi)容學(xué)習(xí)方法教學(xué)目的教學(xué)內(nèi)容教學(xué)安排《計(jì)算機(jī)程序設(shè)計(jì)》是一門計(jì)算機(jī)技術(shù)基礎(chǔ)課程。

工具性：掌握一種計(jì)算機(jī)開發(fā)工具，解決實(shí)際問題

基礎(chǔ)性：為學(xué)習(xí)后繼課程打下良好基礎(chǔ)

抽象性和邏輯性：培養(yǎng)抽象、邏輯思維能力

提高計(jì)算機(jī)的應(yīng)用能力教學(xué)目的

1.C及C++系列：C，C++(C++Builder，VC++，VC++.Net)

2.Basic系列：QBASIC，VB

，3.數(shù)據(jù)庫管理系統(tǒng)

VisualFoxPro、PowerBuilder、Oracle等

4.Java：Sun公司研制，開發(fā)網(wǎng)絡(luò)應(yīng)用軟件，從C發(fā)展而來

5.Net：微軟公司研制支持Web服務(wù)的軟件開發(fā)環(huán)境，采用分布式計(jì)算技術(shù)。

包含，，VC++.Net，等程序設(shè)計(jì)語言常用種類

目前世界上兩大主流軟件一是Java，二是Net

本課程以VisualBasic

為語言背景

VB是從原有的BASIC（最近版本是QBASIC）發(fā)展起來的，它的語法簡單，但功能強(qiáng)大。

VB用于開發(fā)Windows環(huán)境下的應(yīng)用程序

VB語言采用先進(jìn)的程序設(shè)計(jì)方法(面向?qū)ο蟆⒖梢暬?，且簡單易學(xué)

VB近年來得到迅速發(fā)展和應(yīng)用；成為普通用戶首選的程序設(shè)計(jì)語言關(guān)于VisualBasic(簡稱VB)關(guān)于VB

目前可供選擇的程序設(shè)計(jì)語言很多，如C++、Java等，但不可否認(rèn)的是，VB是目前最通用、最易于使用的編程語言之一。美國微軟公司始終對Basic語言充滿信心，積極推動Basic語言的發(fā)展。

1975年比爾.蓋茨為Altair微型機(jī)配置了一個(gè)只占4KB的BASIC解釋程序。

89年在慶祝BASIC語言25周年時(shí)，蓋茨說：

“我至今仍是BASIC的狂熱愛好者”，“我已經(jīng)向程序員們挑戰(zhàn)，為解決任一問題他們可以選用任何工具編程，我打賭，我用BASIC會更快地編出同樣的程序”

蓋茨說過：“如果您有任何解決不了的問題，都可以給我拿來，我都可以用Basic來解決?！北葼?蓋茨微軟董事會主席關(guān)于VB

當(dāng)Windows操作系統(tǒng)問世不久，人們在開發(fā)Windows應(yīng)用程序時(shí)遇到了很大困難時(shí)，就是VB改變了這種狀況。蓋茨說：VB是“用Basic語言開發(fā)Windows應(yīng)用程序最強(qiáng)有力的工具”、“令人震驚的新奇跡”。教學(xué)目的教學(xué)內(nèi)容教學(xué)安排

VB程序設(shè)計(jì)基礎(chǔ)輸入輸出選擇程序設(shè)計(jì)循環(huán)程序設(shè)計(jì)數(shù)組過程數(shù)據(jù)文件程序的調(diào)試標(biāo)準(zhǔn)控件的使用數(shù)據(jù)庫編程教學(xué)內(nèi)容

學(xué)習(xí)方法上機(jī)實(shí)習(xí)學(xué)習(xí)者看書聽課作業(yè)練習(xí)VB程序設(shè)計(jì)課是一門實(shí)踐性很強(qiáng)的課程。要多練，并要善于模仿?！禫isualBasic程序設(shè)計(jì)教程》

(第2版)

林卓然編著

電子工業(yè)出版社出版

2007年7月

書號:

ISBN7-121-04056-6

定價(jià):

24元第1章認(rèn)識VisualBasic

學(xué)習(xí)一門程序設(shè)計(jì)語言，首先要了解其特點(diǎn)和開發(fā)環(huán)境。

VB程序設(shè)計(jì)思想和編程方法與傳統(tǒng)編程語言有著重大差別。

第1章認(rèn)識VisualBasic

本章主要內(nèi)容

退出VB概述設(shè)計(jì)VB應(yīng)用程序的初步認(rèn)識對象與事件的基本概念VB的集成開發(fā)環(huán)境工程的管理

VB概述

1.1.1VB的發(fā)展過程

Windows的產(chǎn)生，推動了Windows應(yīng)用程序的開發(fā)基本BASIC→結(jié)構(gòu)化BASIC→可視化BASIC→網(wǎng)絡(luò)化BASIC(VB.Net)1.1.2VB的特點(diǎn)

1.可視化的設(shè)計(jì)平臺

2.事件驅(qū)動的編程機(jī)制

3.結(jié)構(gòu)化的設(shè)計(jì)語言

4.友好的VB集成開發(fā)環(huán)境

5.強(qiáng)大的功能

1.啟動VB

按運(yùn)行一般應(yīng)用程序的方法來啟動它()。創(chuàng)建一個(gè)默認(rèn)的“標(biāo)準(zhǔn)EXE”類型的VB應(yīng)用程序

VB集成開發(fā)環(huán)境

2.退出VB1.1.3VB的啟動和關(guān)閉

窗體編輯器工具箱窗體屬性窗口窗體布局窗口工程資源管理器窗口

1.2.1設(shè)計(jì)VB應(yīng)用程序的步驟大致分為兩大部分工作：

設(shè)計(jì)用戶界面和編寫程序代碼

設(shè)計(jì)VB應(yīng)用程序的大致步驟如下：

(1)建立用戶界面的對象；用戶界面最重要對象是窗體（即窗口）所有Windows應(yīng)用程序都是以“窗口”的形式運(yùn)行的，其他控件對象都建立在窗體上。

(2)設(shè)置對象的屬性值；

(3)編寫程序代碼，建立事件過程；

(4)保存和運(yùn)行應(yīng)用程序

1.2對VB應(yīng)用程序設(shè)計(jì)的初步認(rèn)識

1.2.2第一個(gè)簡單程序

例

在運(yùn)行中當(dāng)用鼠標(biāo)單擊窗體時(shí)，窗體上顯示出“歡迎您來到VB世界!”

先看運(yùn)行效果例1.1窗體Form1運(yùn)行中，當(dāng)用鼠標(biāo)單擊窗體時(shí)，窗體上顯示開始運(yùn)行時(shí)顯示窗體程序設(shè)計(jì)步驟

(1)創(chuàng)建窗體在系統(tǒng)默認(rèn)提供的窗體上輸出若干文字

(2)編寫程序代碼，建立事件過程

(3)保存工程保存窗體文件(.frm)和工程文件(.vbp)

(4)運(yùn)行程序執(zhí)行“啟動”命令，即用解釋方式運(yùn)行程序執(zhí)行“結(jié)束”命令，即可結(jié)束程序的運(yùn)行窗體Form1

過程框?qū)ο罂驑?biāo)題代碼窗口Private表示局部使用Sub…EndSub定義一個(gè)過程程序代碼過程名格式：對象名_事件名表示單擊窗體時(shí)執(zhí)行這個(gè)過程Print表示在窗體上顯示

例

設(shè)計(jì)一個(gè)應(yīng)用程序，由用戶輸入一個(gè)數(shù)，計(jì)算并輸出該數(shù)的平方數(shù)。

先看運(yùn)行效果1.2.3第二個(gè)簡單程序例文本框Text1用于輸入1個(gè)數(shù)文本框Text2用于輸出計(jì)算結(jié)果單擊時(shí)執(zhí)行計(jì)算單擊時(shí)結(jié)束執(zhí)行

(1)創(chuàng)建窗體(應(yīng)用程序用戶界面)(2)在窗體上添加界面的控件

(3)設(shè)置對象屬性程序設(shè)計(jì)步驟

命令按鈕Command2標(biāo)簽Label1標(biāo)簽Label2窗體Form1文本框Text1文本框Text2命令按鈕Command1(4)編寫程序代碼，建立事件過程

例的程序代碼(圖1.8)

程序說明：Dim語句；數(shù)據(jù)類型Single(單精度)；Val函數(shù)；語句“Text2.Text=x*x”的作用單擊按鈕Command1時(shí)執(zhí)行單擊按鈕Command２時(shí)執(zhí)行定義單精度類型的變量x取文本框Text1中的內(nèi)容，轉(zhuǎn)換為數(shù)值并存入x結(jié)束求x的平方，顯示在文本框Text２中(5)保存工程

(6)運(yùn)行程序

單擊工具欄上的“啟動”按鈕，即可采用解釋方式來運(yùn)行程序。單擊“結(jié)束”按鈕，可以啟動事件過程Command2_Click，則執(zhí)行End語句來結(jié)束程序的運(yùn)行。

1.3對象和事件的基本概念

1.3.1對象及其屬性、方法和類

1.對象

對象是VB系統(tǒng)中的基本運(yùn)行實(shí)體，如窗體(Form)、標(biāo)簽(Label)、文本框(TextBox)、命令按鈕(CommandButton)等。對象是一組程序代碼和數(shù)據(jù)的集合。

2.容器對象其他對象的載體或容器。如窗體

窗體對象又是容器命令按鈕對象VB程序設(shè)計(jì)以對象為基礎(chǔ)對象和事件的基本概念

3.

屬性對象的特征。不同的對象有不同的屬性。每一個(gè)對象都有一組特定的屬性。例如文本框的屬性有Name(名稱)、Text(文本內(nèi)容)、Maxlength(最大字符數(shù))、Multiline(多行)等。屬性默認(rèn)值。如文本框顏色的默認(rèn)值為白色文本框的屬性名稱：Name如Text1內(nèi)容：Text表示為顏色：Color表示為……設(shè)置對象屬性的常用兩種方法

(1)

在屬性窗口中設(shè)置

(2)

在程序運(yùn)行中更改對象的屬性(動態(tài)修改)

［對象名.］屬性名=屬性值

示例：

Text1.Text="VB程序設(shè)計(jì)"

′設(shè)置的文本框的內(nèi)容

Text1.Color=RGB(255,0,0)

′設(shè)置的文本框的顏色

方法是對象能夠執(zhí)行的動作。它是對象本身內(nèi)含的函數(shù)或過程，用于完成某種特定的功能一般格式：

［對象名.］方法名［(參數(shù))］

示例：

Form1.Cls′消除窗體Form1上的內(nèi)容

Print"VisualBasic"′在當(dāng)前窗體上顯示4.方法

省去當(dāng)前窗體名5.類

一組用來定義對象的相關(guān)屬性和數(shù)據(jù)的集合類是創(chuàng)建對象的模型，對象則是按模型生產(chǎn)出來的成品

工具箱中的每一個(gè)控件都代表一個(gè)類，當(dāng)將這些控件添加到窗體上時(shí)就創(chuàng)建了相應(yīng)的對象。由同一個(gè)類創(chuàng)建的對象（如Command1、Command2等）具有由類定義的公共的屬性、方法和事件。

工具箱用類生成對象對象具有類的特征類具有封裝性隱藏其內(nèi)部的復(fù)雜性可視化提高程序的可重用性和可維護(hù)性窗體1.3.2事件、事件過程及事件驅(qū)動

1.事件由系統(tǒng)預(yù)先設(shè)置好的、能被對象識別的動作。例如：鼠標(biāo)的移動(MouseMove)、單擊(Click)和雙擊(DblClick)，窗體的裝載(Load)等。每一種對象能識別的事件是不同的

2.事件過程事件過程的語法格式如下

Sub對象名_事件名()

處理事件的程序代碼

EndSub命令按鈕可以識別單擊(Click)，但不能識別雙擊(DblClick)命令按鈕的單擊事件過程

SubCommond1_Click()……EndSub3.

事件驅(qū)動

當(dāng)某個(gè)事件(一般由用戶操作來觸發(fā))發(fā)生時(shí)，系統(tǒng)就會自動執(zhí)行此事件的事件過程

當(dāng)用戶單擊該命令按鈕時(shí)，系統(tǒng)就會自動執(zhí)行相應(yīng)的事件過程命令按鈕的單擊事件過程

SubCommond1_Click()……EndSub事件過程名：對象名_事件名

示例

命令按鈕Command1的單擊(Click)事件過程為：

PrivateSubCommand1_Click()Forml.Caption="在窗體上畫圓"

′以圓心(2400，1500)，半徑為800畫圓

Forml.Circle(2400,1500),800EndSub示例1設(shè)計(jì)界面運(yùn)行界面對象(命令按鈕)事件驅(qū)動運(yùn)行時(shí)單擊命令按鈕，即觸發(fā)了Click事件，系統(tǒng)就會自動執(zhí)行事件過程Command1_Click中的程序代碼程序代碼(事件過程)

PrivateSub對象名_事件名()

處理事件的程序代碼

EndSub指定什么情況下執(zhí)行這個(gè)過程（即執(zhí)行的條件）當(dāng)指定對象上發(fā)生指定事件時(shí)執(zhí)行本過程；由系統(tǒng)自動執(zhí)行處理些什么通過程序代碼來實(shí)現(xiàn)Sub…EndSub定義一個(gè)過程再次認(rèn)識事件過程格式本過程的作用范圍

Private：局部（如當(dāng)前窗體）

Public：全局（如多個(gè)窗體）（）為一對圓括號這是簡單格式；對于復(fù)雜情況，圓括號內(nèi)還有參數(shù)事件驅(qū)動方式

事件過程要經(jīng)過事件的觸發(fā)才能被執(zhí)行，這種工作模式稱為事件驅(qū)動方式由事件控制整個(gè)程序的執(zhí)行流程（以下是一個(gè)示例）

SubCommond1_Click()……EndSubSubCommond2_Click()……EndSubSubCommond3_Click()……EndSub單擊該命令按鈕，系統(tǒng)就會自動執(zhí)行相應(yīng)的事件過程Commond1_Click()用戶界面(窗口)程序代碼(一系列過程)單擊該命令按鈕，系統(tǒng)就會自動執(zhí)行相應(yīng)的事件過程Commond2_Click()單擊該命令按鈕，系統(tǒng)就會自動執(zhí)行相應(yīng)的事件過程Commond3_Click()

VB的集成開發(fā)環(huán)境

集VB程序的設(shè)計(jì)、編輯、編譯和調(diào)試于一體，集中提供程序開發(fā)所需要的各種工具、窗口和方法

1.4.1主窗口

由標(biāo)題欄、菜單欄和工具欄組成

VB工作狀態(tài)(模式)：設(shè)計(jì)、運(yùn)行和中斷(Break)1.4.2工具箱和控件VB工具箱中包含了各種VB標(biāo)準(zhǔn)控件。包含一個(gè)指針和20個(gè)標(biāo)準(zhǔn)控件(表1.1)

控件就像蓋房子使用的門、窗、磚瓦等，都是現(xiàn)成部件，只要到現(xiàn)場組合就可以了。

1.在窗體上添加一個(gè)控件

2.控件的縮放、移動、復(fù)制和刪除

3.選定多個(gè)控件

4.控件的布局工具箱

1.4.3其他窗口

1.窗體編輯器窗口

2.工程資源管理器窗口

3.屬性窗口

4.代碼窗口

5.窗體布局窗口

1.5工程的管理

VB是通過工程(Project,也稱為項(xiàng)目)來管理應(yīng)用程序中的所有不同文件的。

1.5.1工程中的文件（常用）工程文件.vbp

窗體文件.frm

標(biāo)準(zhǔn)模塊文件.bas1.5.2創(chuàng)建、打開和保存工程創(chuàng)建工程；打開工程；保存工程；關(guān)閉工程

說明：一個(gè)應(yīng)用程序可以包括多個(gè)工程。但對于初學(xué)者來說，一般只用到單個(gè)工程，因此通常不必執(zhí)行“添加工程”命令

1.5.3添加、刪除和保存文件

添加文件、刪除文件和保存文件1.5.4生成可執(zhí)行文件

兩種運(yùn)行程序的方式：解釋方式；編譯方式

執(zhí)行“文件”菜單中的“生成....exe”命令

將例的應(yīng)用程序“編譯”成可執(zhí)行文件，然后進(jìn)入Windows環(huán)境，直接運(yùn)行該程序文件

示例2“時(shí)鐘”程序

示例2一個(gè)較為復(fù)雜的程序

第1章習(xí)題討論

退出單選題多選題編程題單選題(補(bǔ)充)1.在VB中，編寫程序代碼應(yīng)在____中進(jìn)行。

A.對象窗口B.屬性窗口

C.代碼窗口D.窗體布局窗口

2.VB有三種工作狀態(tài)，其中不包括______。

A.編輯B.設(shè)計(jì)C.運(yùn)行D.中斷CA多選題(補(bǔ)充)

3.在設(shè)計(jì)階段中，從代碼窗口切換到窗體窗口，可以采用

A.雙擊代碼窗口B.單擊代碼窗口

C.單擊工程資源管理器窗口中的“查看對象”按鈕

D.選擇“視圖”菜單中的“對象窗口”命令

E.單擊工程資源管理器窗口中的“切換文件夾”按鈕CD編程題2.在窗體上建立一個(gè)標(biāo)簽，當(dāng)單擊窗體時(shí)，在標(biāo)簽上顯示“你單擊了窗體”；當(dāng)雙擊窗體時(shí)，在標(biāo)簽上顯示“你雙擊了窗體”（第23頁）

(1)創(chuàng)建用戶界面和設(shè)置對象屬性

(2)編寫程序代碼（2個(gè)動作或事件）

（2個(gè)事件過程）

PrivateSub="你單擊了窗體“

EndSubPrivateSub="你雙擊了窗體"EndSub____？____Form_Click()____？____Form_DblClick()_____？________？____編程題單擊時(shí)觸發(fā)雙擊時(shí)觸發(fā)

寫事件過程名時(shí)窗體對象名均為Form，而不寫成Form1、Form2…對象的屬性第2章程序設(shè)計(jì)基礎(chǔ)

常量、變量、函數(shù)及表達(dá)式是構(gòu)成VB應(yīng)用程序的基本元素，也是程序設(shè)計(jì)的重要基礎(chǔ)知識。學(xué)習(xí)和熟悉掌握這些元素，對以后的程序設(shè)計(jì)是十分重要的。第2章

程序設(shè)計(jì)基礎(chǔ)

程序中的大部分實(shí)際工作是采用程序代碼來處理的任何一門程序設(shè)計(jì)語言都有一套嚴(yán)格的編程規(guī)定

本章主要內(nèi)容

退出數(shù)據(jù)類型常量與變量表達(dá)式常用內(nèi)部函數(shù)

數(shù)據(jù)類型

在使用計(jì)算機(jī)來處理數(shù)據(jù)時(shí)，會遇到各種不同類型的數(shù)據(jù)。例如，一個(gè)人的姓名是由一串文本(字符)組成，成績、年齡和體重都是一個(gè)數(shù)值，而是否大學(xué)畢業(yè)則是一個(gè)邏輯值，等等。為了更好地處理各種各樣的數(shù)據(jù)，VB定義了多種數(shù)據(jù)類型

數(shù)值型

數(shù)據(jù)類型字符型邏輯型日期型對象型變體型整數(shù):整型/長整型字節(jié)型浮點(diǎn)型:單/雙精度貨幣型數(shù)值型數(shù)據(jù)(1)整型(Integer)和長整型(Long)

不帶小數(shù)部分的數(shù)，表示正整數(shù)、負(fù)整數(shù)和零

整型數(shù):-32768～32767

長整型數(shù)：-2147483648～2147483647

(2)字節(jié)型(Byte)

字節(jié)型數(shù)可以表示無符號的整數(shù)

0～255

(3)單精度型(Single)和雙精度型(Double)

浮點(diǎn)數(shù)。表示帶有小數(shù)部分的數(shù)

表示數(shù)的范圍大，但有誤差。

如超出某個(gè)表示范圍，則用科學(xué)記數(shù)法

例如：4.53E8(4.53×108)，，

(4)貨幣型(Currency)

專門為處理貨幣而設(shè)計(jì)的數(shù)據(jù)類型

它可最多保留小數(shù)點(diǎn)右邊4位和小數(shù)點(diǎn)左邊15位其他類型數(shù)據(jù)

(1)字符型是用雙引號括起來的一串字符。例如:“Canton”、”1+2=?”、”Good└┘Morning”等

“″”稱為起止界限符。

字符串長度。分為:變長字符串(長度不固定)

定長字符串(長度固定)

例如：DimaAsString′a是不定長字符串

DimbAsString*4′b是定長字符串(4個(gè)字符)a=“VB”

′a的值為2個(gè)字符“VB”a=“VisualBasic”

′a的值為12個(gè)字符“VisualBasic”

b=“VB”

′b的值為4個(gè)字符“VB”

(后面有2個(gè)空格)b=“VisualBasic”

′b的值為4個(gè)字符“Visu”

其他類型數(shù)據(jù)

(2)邏輯型數(shù)據(jù)只有True(真)和False(假)兩個(gè)值

(3)日期型數(shù)據(jù)用兩個(gè)“#”符號把日期和時(shí)間的值括起來

如：#08/20/2001#、#2001-08-20#(4)

變體型(Variant)數(shù)據(jù)是一種可變的數(shù)據(jù)類型，可以存放任何類型的數(shù)據(jù)，VB會自動完成必要的轉(zhuǎn)換

不特別說明時(shí)，VB會自動將該變量默認(rèn)為Variant型變量

例：Temp=“22”

’字符串

Temp=Temp-1’數(shù)值

Temp=#01/01/2002#’日期2.2常量與變量2.2.1常量

在程序運(yùn)行期間其值始終保持不變的量

一般常量：在程序代碼中直接給出的數(shù)據(jù)。例如：123，-263，”VisualBasic”

，””等

符號常量：在程序中用符號表示的常量。格式：

[Public｜Private]Const常量名[As數(shù)據(jù)類型]=表達(dá)式例如：ConstPI=3.14159AsSingle

變量

變量是在程序運(yùn)行期間其值可以發(fā)生變化的量

1.變量的命名規(guī)則應(yīng)遵守一些規(guī)則

2.變量的聲明

(1)聲明變量(顯式聲明)

用Dim、Public、Private或Static語句來聲明變量例如：DimsumAsInteger′把sum定義為整型變量

sum=3(2)隱式聲明

不加說明就直接使用變量，此時(shí)默認(rèn)的變量類型為變體型例如：sum=3

(1)“值可變”：當(dāng)將某個(gè)數(shù)據(jù)存放到一個(gè)變量時(shí)，就把變量中原有的值“沖”掉，換成新的值。例如，以下2個(gè)賦值語句：

a=3a=8

同一變量在不同時(shí)刻可以取不同的值

(2)“取之不盡”：在運(yùn)算過程中，如果沒有改變該變量的值，那么，不管使用變量的值進(jìn)行多少次運(yùn)算，其值始終保持不變。例如

x=5a=3+x′x的值始終保持為5b=x*x–4*x3.變量的兩個(gè)重要特點(diǎn)

五類表達(dá)式：算術(shù)表達(dá)式、字符串表達(dá)式、日期表達(dá)式、關(guān)系表達(dá)式和邏輯表達(dá)式

1.算術(shù)表達(dá)式：運(yùn)算符及其優(yōu)先級：

^(乘方)→-(求負(fù))→*/→\→Mod→+-

示例：5*x^10+x/6–x^(1/3)

15Mod6

2.

字符串表達(dá)式：運(yùn)算符有兩個(gè)：&和+

”計(jì)算機(jī)”

&”網(wǎng)絡(luò)”

結(jié)果為”計(jì)算機(jī)網(wǎng)絡(luò)”

3.日期表達(dá)式：

#8/8/2001#-#6/3/2001#

結(jié)果為66#12/1/2000#-32結(jié)果為#10/30/2000#2.3表達(dá)式結(jié)果？1+2*14Mod17\6/2=？

求出下列表達(dá)式的值想一想1.按運(yùn)算符的優(yōu)先級分成若干運(yùn)算步驟

先乘除，再整除\和求Mod，后加運(yùn)算

2.根據(jù)運(yùn)算符的運(yùn)算功能求出各步驟的結(jié)果思考題

1+28Mod5

結(jié)果為4

內(nèi)部函數(shù)是由VB系統(tǒng)提供函數(shù)調(diào)用的一般格式為：

函數(shù)名(參數(shù)1，參數(shù)2，…)

返回函數(shù)值

例如：

y=Sqr(x)

Sqr是內(nèi)部函數(shù)名，x為參數(shù)，運(yùn)行時(shí)該語句調(diào)用內(nèi)部函數(shù)Sqr來求x的平方根，其計(jì)算結(jié)果由系統(tǒng)返回給變量yVB的內(nèi)部函數(shù)大體上分為四大類：數(shù)學(xué)函數(shù)，字符串函數(shù)，日期與時(shí)間函數(shù)和轉(zhuǎn)換函數(shù)。2.4常用內(nèi)部函數(shù)

說明：

·

函數(shù)Int(x)是求小于或等于x的最大整數(shù)。例如Int(2)=2,Int(-2.5)=-3,Int(-3)=-3

利用Int函數(shù)可以對數(shù)據(jù)進(jìn)行四舍五入。例如，對一個(gè)正數(shù)x舍去小數(shù)位時(shí)進(jìn)行四舍五入，可采用如下式子：

Int(x+0.5)

當(dāng)時(shí)，Int(9.4+0.5)=9

當(dāng)時(shí)，Int(9.5+0.5)=102.4.1數(shù)學(xué)函數(shù)

·

隨機(jī)函數(shù)Rnd可以模擬自然界中各種隨機(jī)現(xiàn)象。它可產(chǎn)生一個(gè)(0,1)的隨機(jī)數(shù)。在VB中，有一個(gè)稱為隨機(jī)數(shù)生成器的隨機(jī)數(shù)生成程序，能產(chǎn)生一個(gè)隨機(jī)數(shù)序列，用戶每次調(diào)用Rnd即可得到這個(gè)隨機(jī)數(shù)序列中的一個(gè)。使用Randomize語句可以為隨機(jī)數(shù)生成器指定不同的初值或者稱為隨機(jī)數(shù)序列的“種子”，這樣可以得到不同的隨機(jī)數(shù)序列。

Rnd通常與Int函數(shù)配合使用生成[a,b]區(qū)間范圍內(nèi)的隨機(jī)整數(shù)，可以采用

Int((b-a+1)*Rnd+a)

例如Int(4*Rnd+1)可以產(chǎn)生1～4之間(含1和4)的隨機(jī)整數(shù)。可以是1，2，3或4，這由VB運(yùn)行時(shí)隨機(jī)給定。

編寫的窗體單擊事件過程代碼如下：

PrivateSubForm_Click()DimaAsSingle,bAsSingle,cAsSinglea=6b=9c=Sqr(a*a+b*b)Print"c=";cEndSub

運(yùn)行程序后單擊窗體，輸出結(jié)果是：

例

已知a=6，b=9，計(jì)算c=例編寫的窗體單擊事件過程代碼如下：

PrivateSubForm_Click()DimaAsInteger,bAsInteger,cAsIntegerRandomize

'初始化隨機(jī)數(shù)生成器

a=Int(90*Rnd+10)

'產(chǎn)生[10,99]區(qū)間內(nèi)的隨機(jī)整數(shù)

b=Int(90*Rnd+10)c=a+b

'求兩數(shù)之和

Print"產(chǎn)生的兩個(gè)隨機(jī)數(shù):";a,bPrint"和數(shù):";cEndSub運(yùn)行程序后單擊窗體，輸出結(jié)果是：

產(chǎn)生的兩個(gè)隨機(jī)數(shù)：5671

和數(shù)：127例

通過隨機(jī)函數(shù)產(chǎn)生2個(gè)兩位正整數(shù)，求這2個(gè)數(shù)之和并顯示出來

再次運(yùn)行程序，單擊窗體后輸出另一組結(jié)果是：

產(chǎn)生的兩個(gè)隨機(jī)數(shù)：1837

和數(shù)：55例

用于進(jìn)行字符串處理說明：(1)函數(shù)Mid(字符串，p[，n])從第P個(gè)開始取n個(gè)字符

示例：Mid(“ABCDEG”,3,2)的結(jié)果為”CD”

若省略n，則得到的是從P開始的往后所有字符，如

Mid(“ABCDE”，2)

的結(jié)果為“BCDE”(2)函數(shù)Instr(f,串1,串2,k)

查找串2在串1中的位置

f和k均為可選參數(shù)，f表示開始搜索的位置(默認(rèn)值為1)，k表示比較方式，若k為0(默認(rèn))，表示區(qū)分大小寫；若k為1，則不分大小寫。例如Instr(3,”A12a34A56”,

”A”)

的結(jié)果為7

Instr(3,”A12a34A56”,”A”,1)

的結(jié)果為4

Instr(”A12a34A56”,

”A”)

的結(jié)果為1(3)函數(shù)Left(字符串，n)取左邊n個(gè)字符示例:Left(”ABCDE”

，2)

的結(jié)果為”AB”字符串函數(shù)

先從字符串a(chǎn)中找出某個(gè)指定字符(本例為空格)，再以此字符為界拆分成兩個(gè)字符串。編寫的窗體單擊過程代碼如下：

PrivateSubForm_Click()DimaAsString,bAsString,cAsString,nAsIntegera="Visual└┘Basic"

'└┘表示空格

n=InStr(a,"└┘")

'查找空格位置

b=Left(a,n-1)

'取左邊部分

c=Mid(a,n+1)

'取右邊部分

Printb'顯示左邊部分

Printc

'顯示右邊部分

EndSub

程序運(yùn)行后單擊窗體，輸出結(jié)果是：

Visual

Basic例

使用字符串函數(shù)示例例

處理方法

"Visual└┘Basic"

先查找空格位置取右邊部分取左邊部分PrivateSubForm_Click()DimaAsString,bAsString,cAsString,nAsIntegera=“Visual└┘Basic”

'└┘表示空格

n=InStr(a,“└┘”)

'查找空格位置

b=Left(a,n-1)

'取左邊部分

c=Right(a,_______)

'取右邊部分

Printb

'顯示左邊部分

Printc

'顯示右邊部分

EndSub

程序運(yùn)行后單擊窗體，輸出結(jié)果是：

Visual

Basic

若用Right函數(shù)來代替Mid函數(shù),應(yīng)如何改動？想一想思考題nB.Len(a)-nC.Len(a)B

日期/時(shí)間函數(shù)用于進(jìn)行日期和時(shí)間處理

例如：函數(shù)Date返回系統(tǒng)日期，如返回日期為#11/03/2001#

函數(shù)Time返回系統(tǒng)時(shí)間，如返回時(shí)間為#7:03:28#2.4.3日期與時(shí)間函數(shù)

轉(zhuǎn)換函數(shù)用于數(shù)據(jù)類型的轉(zhuǎn)換

說明：Val函數(shù)將數(shù)字字符串轉(zhuǎn)換為數(shù)值型數(shù)字時(shí)，會自動將字符串中的空格去掉，并依據(jù)字符串中排列在前面的數(shù)值常量來定值，例如：

Val("A12")的值為0Val("12A12")的值為12Val("1.2e2")的值為120

使用轉(zhuǎn)換函數(shù)的示例

PrivateSubForm_Click()

x="123"y=123

a=Chr(Asc(x)+5)

b=Str(Val(x)+5)

c=Val(Str(y)+"5")

Printa,b,c

EndSub

運(yùn)行程序后單擊窗體，輸出結(jié)果是什么?

類型轉(zhuǎn)換函數(shù)想一想61281235轉(zhuǎn)換函數(shù)例思考題

在編寫程序代碼時(shí)，要遵守一定的規(guī)則。不能超越其規(guī)定來自由發(fā)揮。

(1)一行寫多條語句。冒號分隔

Sum=Sum+x:Count=Count+1

(2)一條語句寫成多行使用續(xù)行符(一個(gè)空格后面跟隨一個(gè)下劃線“_”)，將長語句分成多行。例如：

PrintText1.Text&Text2.Text&Text4.Text└┘，3)

(3)不區(qū)分大小寫字母

VB不區(qū)分應(yīng)用程序代碼字母的大小寫。

代碼書寫規(guī)則

(4)

各關(guān)鍵字之間，關(guān)鍵字和變量名、常量名、過程名之間一定要有空格分隔。

示例：Private└┘Sub└┘Form_Click()

(5)使用縮進(jìn)

在編寫程序代碼時(shí)，可以使用縮進(jìn)來反映代碼的邏輯結(jié)構(gòu)和嵌套關(guān)系。例如：

PrivateSubForm_Click()

x=4

Ifx<1Then

Print"x<1"

Else

Print"x>=1"

EndIf

EndSub

(6)嚴(yán)格按照VB規(guī)定的格式和符號編寫程序。

與其他高級語言一樣，在VB中使用的分號、引號、括號等符號都是英文狀態(tài)下的半角符號，而不能使用中文狀態(tài)下的全角符號。

許多程序錯(cuò)誤都是由此而起!!!!

例如：

Ifa<5Thenx=10Print"x=";x

不能寫成

Ifa〈5Thenx=10Print“x=”；x全角符號全角符號

VB支持結(jié)構(gòu)化的程序設(shè)計(jì)方法其程序結(jié)構(gòu)清晰，可讀性好，也易于查錯(cuò)和修改

結(jié)構(gòu)化程序設(shè)計(jì)方法有三種基本控制結(jié)構(gòu)：

順序結(jié)構(gòu)、選擇結(jié)構(gòu)和循環(huán)結(jié)構(gòu)具有單入口，單出口的特點(diǎn)

(a)(b)(c)

順序結(jié)構(gòu)選擇結(jié)構(gòu)循環(huán)結(jié)構(gòu)AB假真LE真假ABE

結(jié)構(gòu)化程序的基本結(jié)構(gòu)

第2章習(xí)題討論

退出單選題多選題填空題編程題單選題(P38)

1.下列①各項(xiàng)中，只有____才是數(shù)值常量；②各項(xiàng)中，___不是常量。①②A.1.E-3B.13C."abc"D.X1*3

6.表達(dá)式33Mod17＼3*2的值為_____。

A.10B.1C.2D.3

16.設(shè)變量A的值為-2，則_____函數(shù)的執(zhí)行結(jié)果與其他三個(gè)不一樣。

A.Val("A")B.Int(A)C.Fix(A)D.-Abs(A)①D②DBA

復(fù)習(xí)：常量與變量

常量：在程序運(yùn)行期間其值始終保持不變的量一般是在程序代碼中直接給出的數(shù)據(jù)；不需要計(jì)算的。含數(shù)值常量、字符串常量、邏輯常量等（P27）

變量：在程序運(yùn)行期間其值可以發(fā)生變化的量

x=12x=x+2+3*2s=”ABC”

s=s+”123”

12，2，

"ABC"，"123"都是常量

3*2不是常量，它必須經(jīng)過運(yùn)算才有結(jié)果x是變量，但"x"不是變量數(shù)值常量有兩類：一般形式的數(shù)：如12，2，，.12等指數(shù)形式：如12E2，，

.12e3，.12D-03等。單選題(補(bǔ)充)1.在以下字符串中，只有______可以作為變量名。

A.End.9B.3XYC.End_9D.End2．如果a，b，c的值分別是3，2，-3，則下列表達(dá)式的值是

Abs(b*c-a)+b*Int(Rnd)A.8B.9C.10D.113．下列函數(shù)中，______函數(shù)的執(zhí)行結(jié)果與其他三個(gè)不一樣。

A.Val("-1")B.Int(-0.9)C.Sgn(-1)D.Fix(-0.9)4．用字符串連接符“&”連接兩邊的操作數(shù)時(shí)，兩邊的操作數(shù)應(yīng)是

A.均為數(shù)值型B.均為字符型

C.字符型或非字符型D.均為變體型CBDC

二、多選題第2題(P40)

2.已知A=Space(1)，要產(chǎn)生3個(gè)空格，可以采用_____函數(shù)

A.Right(A,3)B.Space(3*A)C.String(3,A)D.A&A&AE.3*ACD三、填空題

第1題之(3)

下列哪一個(gè)正確？

A.x^3/8+Sqr((y*y+4*a*a/(x+y^3)))B.x^(3/8)+(y*y+4*a*a/x+y^3)^1/2C.x^(3/8)+(y*y+4*a*a/(x+y^3)^(1/2)C.x^(3/8)+(y*y+4*a*a/x+y^3^(1/2)C

注意：使用空格分隔符Printa,b,c應(yīng)寫成Printa,b,caMod7應(yīng)寫成aMod7

編程及上機(jī)調(diào)試6.編制程序，在一個(gè)文本框中輸入一串字符（長度大于2），單擊“處理”按鈕時(shí)，則取出該字符串的頭、尾部各一個(gè)字符，合并后顯示在第二個(gè)文本框中。如輸入“ABCDEF”，則輸出“AF”。

請指出下列事件過程有哪些錯(cuò)誤？

PrivateSubCommand1_Click()DimxAsStringx=Val(Text1.Text)Text2.Text=Left(x,1)+Right(x,1)EndSub編程第6題Val函數(shù)將數(shù)字字符串轉(zhuǎn)換為數(shù)值如Val("12")的值為12Val("ABCD")的值為0第3章順序結(jié)構(gòu)程序設(shè)計(jì)

學(xué)習(xí)程序設(shè)計(jì)，初學(xué)者要善于模仿，并要多練。任何一門程序設(shè)計(jì)語言都有一套嚴(yán)格的編程規(guī)定(如語法規(guī)則)，在編程時(shí)一定要遵守這些規(guī)定(只能遵守，不能創(chuàng)造)。一個(gè)完整的VB應(yīng)用程序，一般都包含三部分內(nèi)容，即

輸入→處理→輸出

可通過VB語句、各種控件實(shí)現(xiàn)輸入輸出操作

本章主要內(nèi)容第3章順序結(jié)構(gòu)程序設(shè)計(jì)賦值語句注釋、結(jié)束及暫停語句使用Print方法輸出數(shù)據(jù)窗體和基本控件對話框程序舉例命令按鈕標(biāo)簽文本框輸入框消息框退出1.賦值語句［Let］變量名=表達(dá)式

示例：

2.注釋、結(jié)束和暫停語句

(1)注釋語句

Rem注釋內(nèi)容或′注釋內(nèi)容

(2)結(jié)束語句End(3)暫停語句Stop

也可以通過單擊工具欄上的“中斷”按鈕來實(shí)現(xiàn)使用Ctrl+Break組合鍵,可強(qiáng)制程序暫停運(yùn)行賦值與輸入輸出

(1)表達(dá)式中的變量必須是賦過值的，否則變量的初值自動取零值(變長字符串變量取空字符)。例如：

a=1c=a+b+3

′b未賦過值，為0

執(zhí)行后，c值為4

(2)賦值語句跟數(shù)學(xué)中等式具有不同的含意，例如

x=x+1

表示把變量x的當(dāng)前值加上1后再將結(jié)果賦給變量

“先讀后寫”：讀出x的內(nèi)容→加1→

寫回x（覆蓋原有內(nèi)容）說明

(3)變量出現(xiàn)在賦值號的右邊和左邊，其用途是不相同的。出現(xiàn)在右邊表達(dá)式中時(shí)，變量是參與運(yùn)算的元素(其值被讀出)；出現(xiàn)在左邊時(shí)，變量起存放表達(dá)式的值的作用(被賦值)。例如

x=2a=3x=2*a+5

當(dāng)執(zhí)行第3行語句“x=2*a+5”時(shí)，將讀出變量a的值(即3)，把該值乘2后加5，然后將結(jié)果(11)賦值給變量x。

(4)賦值號兩邊的數(shù)據(jù)類型必須一致，即同時(shí)為數(shù)值型或同時(shí)為字符型。說明編寫的窗體單擊事件過程代碼如下：

PrivateSubForm_Click()DimxAsInteger,aAsIntegerDimbAsInteger,cAsIntegerx=36a=Int(x/10)

'求十位數(shù)

b=xMod10

'求個(gè)位數(shù)

c=b*10+a

'生成新的數(shù)

Print"處理后的數(shù):";cEndSub運(yùn)行程序后單擊窗體，輸出結(jié)果是：

處理后的數(shù)：63例3.1

給定一個(gè)兩位數(shù)(如36)，交換個(gè)位數(shù)和十位數(shù)的位置，把處理后的數(shù)顯示在窗體上例

處理方法兩位數(shù)

ab

b取出個(gè)位數(shù)

a取出十位數(shù)新兩位數(shù):

b*10+a

編寫的VB程序代碼如下：

PrivateSubForm_Click()

DimxAsInteger,aAsInteger

DimbAsInteger,cAsInteger

x=InputBox(“輸入一個(gè)２位數(shù)”)

‘運(yùn)行時(shí)由用戶任意給定一個(gè)２位數(shù)

a=Int(x/10)'求十位數(shù)

b=xMod10'求個(gè)位數(shù)

c=b*10+a'生成新的數(shù)

Print"處理后的數(shù):";c

EndSub

執(zhí)行后，彈出一個(gè)輸入對話框，若用戶輸入“83”，輸出結(jié)果：處理后的數(shù):38

例3.1A運(yùn)行時(shí)由用戶任意給定一個(gè)兩位數(shù)，交換個(gè)位數(shù)和十位數(shù)的位置，把處理后的數(shù)顯示在網(wǎng)頁上。例一種靈活輸入方式InputBox是VB函數(shù)，見P58例3.2設(shè)計(jì)程序，實(shí)現(xiàn)兩個(gè)文本框內(nèi)容的交換

(1)在窗體上建立兩個(gè)標(biāo)簽、兩個(gè)文本框和一個(gè)命令按鈕

(2)編寫程序代碼

借助于另一個(gè)變量(假設(shè)為t)

，并直接在控件中交換數(shù)據(jù)

PrivateSubCommand1_Click()

′“交換”按鈕

DimtAsStringText1.Text=Text2.TextText2.Text=tEndSubText1Text2例有的對象屬性具有變量的特性

編寫的程序代碼如下：

PrivateSubCommand1_Click()

′“交換”按鈕

Text2.Text=tEndSub

采用變體型變量

說明：對于初學(xué)者來說，為了節(jié)省時(shí)間，有時(shí)可以不采用Dim等語句聲明就直接使用變量(默認(rèn)為變體型，如t)。但在規(guī)范的軟件開發(fā)中，通常都要求程序中使用的變量必須預(yù)先聲明。沒用Dim語句t是變體型變量

把上述程序改為以下形式，效果是否一樣？PrivateSubCommand1_Click()

′“交換”按鈕

Text1.Text=Text2.TextEndSub思考題想一想

下列程序的運(yùn)行結(jié)果是什么？

運(yùn)行時(shí)，在文本框Text1中輸入5，單擊“計(jì)算”按鈕后，在文本框Text2顯示的結(jié)果是什么?

PrivateSubCommand1_Click()'“計(jì)算”按鈕

DimaAsInteger,bAsInteger,cAsIntegera=Val(Text1.Text)b=7c=2*aModb/3+1a=a+1b=2*b-1c=c+a+bText2.Text=cEndSub思考題想一想Text1Text2例20

3.3.1Print方法

用于顯示(輸出)文本格式：［對象名.］Print［表達(dá)式列表］說明：(1)使用的對象可以是窗體等

Print“程序設(shè)計(jì)”

′在當(dāng)前窗體上輸出

Picture1.Print“程序設(shè)計(jì)”

′在圖片框上輸出

(2)表達(dá)式列表是一個(gè)或多個(gè)表達(dá)式，如果省略，則輸出一個(gè)空行

3.3使用Print方法輸出數(shù)據(jù)

例3.3Print輸出示例

PrivateSubForm_Click()

a=3:b=4Printa,b,4+a,Print2*bPrinta,,bPrintPrint"a=";a,"b=";bEndSub

運(yùn)行結(jié)果

例分號“；”——緊湊格式逗號“，”——按區(qū)格式(14個(gè)字符位置)語句行末尾有分號或逗號,則輸出本行輸出項(xiàng)后不換行輸出數(shù)值數(shù)據(jù)時(shí)，前面有一個(gè)符號位(正號以空格表示)，后面留有一個(gè)空格；輸出字符串時(shí)，前后不留空格每個(gè)Print輸出一行。

1.Spc函數(shù)

格式：Spc(n)

功能：在輸出下一項(xiàng)之前插入n個(gè)空格。例如：

Print"學(xué)號"；Spc(2)；"姓名"；Spc(5)；"成績"

輸出結(jié)果(└┘表示空格)：

學(xué)號└┘└┘姓名└┘└┘└┘└┘└┘成績

特殊打印格式

函數(shù)格式：Tab(n)

功能：把輸出位置移到第n列。例如：

PrintTab(2);"學(xué)號"；Tab(11);"姓名"；Tab(21);"成績"

輸出結(jié)果是(1個(gè)漢字占2個(gè)位置)：

└┘學(xué)號└┘└┘└┘└┘└┘姓名└┘└┘└┘└┘└┘└┘成績2.Tab函數(shù)

格式：Format(表達(dá)式[,格式串])

功能：根據(jù)格式串規(guī)定的格式來輸出表達(dá)式的值

示例

PrintFormat(a,"##,###.##")PrintFormat(a,"$##,###.00")

輸出結(jié)果是：

格式符號#和0都能顯示數(shù)字，但符號#會剔除不必要的0，符號0會按規(guī)定補(bǔ)足03.Format函數(shù)

窗體(Form)是設(shè)計(jì)VB應(yīng)用程序的基本平臺

窗體本身是一個(gè)對象，又是其他對象的載體或容器

多數(shù)應(yīng)用程序是從窗體開始執(zhí)行的

;一個(gè)程序可以有多個(gè)窗體

3.4.1窗體的基本屬性

設(shè)置窗體的屬性，可在程序設(shè)計(jì)時(shí)在屬性窗口中手工設(shè)置，也可以在程序運(yùn)行時(shí)由代碼實(shí)現(xiàn)默認(rèn)屬性3.4窗體

一些常用的窗體屬性：

·Name屬性：用于設(shè)置窗體的名稱。指定窗體的名稱。只讀，不能在應(yīng)用程序中修改

·Caption屬性：用于設(shè)置窗體標(biāo)題欄上的標(biāo)題內(nèi)容。

·Maxbutton和Minbutton屬性：用于設(shè)置最大化和最小化按鈕

·Height和Width屬性：確定窗體的初始高度和寬度

·Left和Top屬性：確定窗體的左上角在屏幕上的橫、縱坐標(biāo)

·BackColor和ForeColor屬性：設(shè)置窗體的背景色和前景色

·FontName屬性：用于在窗體上設(shè)置字體。

·FontSize屬性：用于在窗體上設(shè)置字號。

·Visible(可見性)：設(shè)置對象的可見性，默認(rèn)值為True

坐標(biāo)原點(diǎn)(0,0)在窗體的左上角坐標(biāo)軸刻度單位為緹(Twip,567緹為1厘米)

當(dāng)前位置的橫坐標(biāo)(CurrentX)和縱坐標(biāo)(CurrentY)

YX

·

(CurrentX,CurrentY)

當(dāng)前位置窗體坐標(biāo)系統(tǒng)

窗體事件過程的一般格式為：

PrivateSubForm_事件名([參數(shù)表])……End

在事件過程中只能使用Form，而在過程內(nèi)對窗體進(jìn)行引用時(shí)才會用到窗體名字(如Form1等)3.4.2窗體的事件只能寫成Form,不能寫成Form1

與窗體有關(guān)的常用事件有以下幾種。

Load(裝載)事件：啟動程序時(shí)，通常先執(zhí)行Form_Load

Unload(卸載)事件

Click(單擊)事件

DblClick(雙擊)事件

KeyPress(按鍵)事件：當(dāng)按下鍵盤上的某個(gè)健時(shí)，將觸發(fā)KeyPress事件。其事件過程的格式為：

PrivateSub對象_KeyPress(KeyAsciiAsInteger)……EndSub

示例：PrivateSubForm_KeyPress(K