第一篇：VB第5章 《多媒體程序設計》總結

VB第5章 《多媒體程序設計》總結

一、繪圖方法：

1、顏色設置：

（1）顏色函數：

①QBColor：16種基本顏色。

QBColor(0)～QBColor(15)

②RGB顏色：

RGB（紅色值，綠色值，藍色值）

RGB（red，green，blue）

每種顏色值為：0～255

（2）顏色常數：

vbRed，vbGreen，vbBlue等。

（3）16進制顏色：

&H000000～&HFFFFFF2、Pset：畫點

Pset(x，y),c3、Line：畫線等

(1)畫線：Line(x1，y1)－(x2，y2),c

(2)畫矩形：Line(x1，y1)－(x2，y2),c，B

(3)填充矩形：Line(x1，y1)－(x2，y2),c，BF4、Circle：畫圓等

(1)畫圓：Circle(x，y)，r，c

(2)畫弧、畫扇形：Circle(x，y)，r，c，start，end Start、end：0～2π（畫?。?/p>

-2π～-0.000001（畫扇形）

(3)畫橢圓：Circle(x，y)，r，c，，aspect Aspect：縱橫比

二、圖像類控件：

1、Line控件：線條控件

（1）BorderColor：邊框顏色。

（2）BorderStyle：邊框樣式。

（3）BorderWidth：邊框寬度。

2、Shape控件：圖形控件

（1）Shape：形狀。

（2）FillColor：填充顏色。

（3）FillStyle：填充樣式。

3、Picture控件：圖像框控件

（1）功能（簡答）：

①接受和輸出圖像；

②創(chuàng)建動態(tài)繪圖；

③輸出文本；

④作為控件容器。

（2）屬性：

①AutoRedraw：自動重繪。

②AutoSize：自適應尺寸。

③Picture：控件中顯示的圖片。

（3）方法：

①PaintPicture：繪制圖形文件。

②LoadPicture：加載圖片。

對象名.Picture=LoadPicture(“帶路徑文件名”)

4、Image控件：圖像控件

（1）功能：顯示圖像。

（2）屬性：

①Picture：控件中要顯示的圖片。

②Stretch：圖形是否調整大小與控件相適應。

True：圖形調整大小與控件相適應。

False：控件調整大小與圖形相適應。（默認）

（3）方法：

Move方法：

對象名.MoveLeft，Top，Width，Height

三、多媒體控件：

1、Declare語句：用于在模塊級別中聲明對DLL動態(tài)鏈接庫中外部過程的引用。

2、API函數mciSendString：使用字符串作為操作命令來控制媒體的設置。常用操作命令如下：

（1）Open：打開媒體設備。

（2）Close：關閉媒體設備。

（3）Play：播放媒體設備。

（4）Pause：暫停播放媒體文件。

（5）Stop：停止播放媒體文件。

3、ShockWaveFlash控件：Flash動畫播放器

（1）屬性：

①Movie：指定要播放的Flash動畫文件。

②TotalFrames：總幀數。

③CurrentFrame：當前幀編號。

（2）方法：

①Play：開始播放動畫。

②Back：跳到動畫的上一幀。

③Forward：跳到動畫的下一幀。

④Rewind：返回動畫的第一幀。

⑤Stop：暫停Flash動畫播放。

4、MediaPlayer控件：媒體播放器控件

（1）屬性：

①URL：指定媒體文件的位置。

②fullScreen：是否處于全屏顯示狀態(tài)。

③playState：返回當前控件狀態(tài)。

（2）controls：

①Controls.play：播放媒體。

②Controls.stop：停止播放。

③Controls.pause：暫停播放。

④Controls.currentPosition：返回當前播放進度。

⑤Controls.currentPositionString：返回時間格式字符串。

（3）currentMedia：

①currentMedia.duration：返回媒體的總長度。

②currentMedia.durationString：返回時間格式的字符串。

（4）settings：

①Settings.volume：設置音量，設置為0～100。

②Settings.balance：設置立體聲的左聲道和右聲道的音量。

第二篇：VB程序設計實踐總結

VB程序設計實踐總結

現(xiàn)代技術中心何亮

本期從事VB程序設計實踐教學工作。在工作中和工作之余，思考頗多，精簡總結歸納如下：

1.教學輔導方式的多樣化

由于程序語言課程相對于上期的計算機文化基礎課程要難很多，需要學生理解的也多，況且基礎知識薄弱，因此，學生的疑難問題特別多，而上課時間有限，我采取了三中方式及時的解決學生的問題：①教務辦公系統(tǒng)“網上答疑”；本學期共收到學生提問100多條，并及時給予答復；②在線答疑；利用空閑時間，通過QQ，與有疑難的同學進行在線答疑，不光解答學習問題，同學對學生思想生活進行教導，收效甚好；③安排定點不定時的方式答疑；每周星期二，星期三晚上有專門的老師和學生助教輔導學生完成項目，解答項目重點疑難。

2.課堂講授的多樣化

由于程序設計語言非常抽象化，許多知識點需要講解具體的實例才能讓學生易于理解；同時了，由于老師的講解和理解方法可能和學生的理解有所出入。因此，為了便于學生更好的理解知識，我在教學過程中采取了以下一些方法：①明確任務，先討論學習，后講解加深；我在每堂前讓學生明確該堂課的學習任務，然后以小組為單位，通過上網，翻書，討論學習任務；然后再根據學生反饋的信息，精講多練；②眼，手，耳并用，提高動手能力；由于VB程序設計涉及很多的對象操作，因此，我在課堂中適時的給學生播放一些“學習視頻”影片，讓學生邊聽，邊看，并操作，這樣的方法比老師操作和講解效果更好；③學生助教講課，氣氛活躍，學生易接受；為了更好的推廣“賞識教育”，鼓勵學生努力學習，我特別把學習好的同學聘請為學生助教，適當的給予機會講解一些知識點，以他們的語言，他們的理解方式講解出來，學生理解快，掌握好，更易于接受。

3.知識框架的系統(tǒng)化和延伸

大家都知道，現(xiàn)在學校里學習的知識和社會上用到的知識相差很遠，很多學生學習了很多知識，可到了社會上去無從下手。鑒于此，我在課堂上適當的延伸該課程的相關知識。比如，在開發(fā)一個成熟的管理信息系統(tǒng)時，我讓學生試著寫系統(tǒng)需求說明書，軟件設計說明書等，同學明確的給學生提出軟件開發(fā)的基本流程，以及一些軟件工程的知識和數據庫的知識。最后，還教學生使用一些安裝程序制作軟件，掌握些社會工作的技能。這樣，擴展了學生的知識面，掌握了更多的技能，學生興趣更高，學習積極性也非常好。

同時，在教學過程中，從學生的信息反饋發(fā)現(xiàn)自己有以下一些問題做的不好：

1.知識點細節(jié)把握不夠，讓學生思考的東西過多；

2.知識點講解和延伸過多，不易于掌握；

以上是我本期教學工作中的創(chuàng)新和探索，如有不妥之處，請領導給予及時的指出，我將在以后的教學中改正。

第三篇：VB程序設計課程設計

VB程序設計課程設計

1、目的

VB程序設計課程設計是考察學生對VB程序設計課程相關知識點掌握情況的重要環(huán)節(jié)，也是激勵學生進一步學習VB、提高運用VB開發(fā)實際計算機程序的能力。課程設計的重點在于學生利用VB開發(fā)程序的能力。

2、課程設計題目

學生信息管理系統(tǒng)

3、程序功能

該程序具有建立數據庫，建立數據庫表，添加數據，刪除數據，查詢學生每學期成績、不及格情況、積點情況等相關信息的功能。

4、實現(xiàn)要求

每個學生建立一個數據庫（名字自擬），數據庫中建立學生基本信息表（學號、姓名、性別、出生年、出生月、出生日、聯(lián)系電話、年級、班級、住址等）、學生成績表（學號、課程號、成績、學期等）、課程信息表（課程號、課程名稱、出版社、出版日期、版次、頁碼、價格、課程類型（基礎課、專業(yè)基礎課、選修課等）、開課學院等）。

把課程信息、每一學期的成績等分別輸入相應的表中，其中學生基本信息表記錄不少于5個學生的信息。

在以上數據的基礎上，實現(xiàn)相關的程序功能（不僅僅第3條指定的功能）。

設計多界面程序，相關查詢結果應由不同的界面顯示，每個同學顯示結果的形式應盡量不同。

5、考核

根據學生實現(xiàn)程序功能多少（40分）、界面設計情況（20分）、課程設計報告撰寫情況（20）、答辯情況（20分）進行考核。雷同者應重做。

6、課程設計報告內容

1）課程設計題目

2）課程設計的目的3）程序功能介紹

4）程序界面設計與控件屬性設置

5）程序代碼編寫

6）程序演示（將運行過程用截圖方式截下來，并對輸入數據、輸出的結果進行適當說明）

7）課程學習與課程設計心得體會

7、上交材料

本次課程設計以小班為單位上交如下資料：

1）光盤：每一小班建立一個目錄（專業(yè)年級班級），在此目錄下建立每個同學的目錄（學號姓名），在每個同學的目錄下保存該同學的電子版的課程設計報告、打包的程序。

2）紙制版的課程設計報告

第四篇：vb程序設計方法

發(fā)表于《中小學信息技術教育》雜志2005年第7期 VB程序設計方法——今天我來做導演！

教學目標：

1、知道創(chuàng)建一個VB程序的基本步驟

2、了解窗口、事件和消息的含義

3、培養(yǎng)學生的自主探究精神

教學重點和難點：

1、窗口，事件和消息的關系

2、屬性的設置

3、代碼的輸入

學生分析：

高一學生，已經學習了程序的三種基本結構，能辨別三種結構，但不會自己書寫程序。對VB基本上一無所知。

教學方法：

采用主動式任務驅動的教學方法，通過創(chuàng)設情境，激發(fā)學生對VB的興趣,使學生產生動手做一個VB程序的欲望.在布置任務的時候,不是教師指定完成什么任務,而是由學生自己提出想完成一個樣的任務，即想做一個什么樣的VB程序，因為任務是學生自己提出來的,所以學生肯定感興趣的,這就避免了教師布置的任務不能照顧到全體學生裝的弊端.而教師作為引導者和技術幫助者,幫助學生一步步地完成任務，引導學生分解任務，分解為界面的創(chuàng)建，屬性的設置，代碼的輸入等幾部分。在實踐過程中，使學生掌握用VB進行程序設計的步驟和方法。

教學過程：

一、激趣引入

師：上節(jié)課中我們演示了一個拋硬幣的VB小程序，大家還有印象嗎？（教師演示這個程序）師：下面我再來演示幾個其他VB小程序（教師演示若干個趣味小程序，如，和劉德華對話，井字棋，心情好嗎，挖地雷，單選復選框與字體，測驗記憶力，彈球游戲，剪刀包袱，在演示過程中，讓學生注意鼠標單擊按鈕，或者鼠標移動，窗口上會有什么反應）

師：窗口——舞臺，事件——導演的命令，反應——演員的表演，控件——演員（以對比方式說明它們之間的關系，讓學生明白，需要哪個演員（控件）作出什么表演，要對這個演員（控件）發(fā)號施令，導演不能瞎指揮，不然表演要亂套的。）

師：有了舞臺，演員，導演在哪兒呢？導演就是你！今天就是請大家當一回導演（出示課題：今天你來做導演?。┮鈭D：

1、在演示過程中，提醒學生注意窗口，事件（點擊按鈕或移動按鈕），消息（事件的反應）。

2、激發(fā)學生的興趣，產生自己動手做一個VB程序的欲望。

二、形成任務 大屏幕展示：

一、確定導演的工作目標，即你想要完成一個什么樣的VB程序？

老師引導，啟發(fā)學生，使每個學生能確定自己的目標，即要完成一個什么樣的VB程序，即名稱是什么？功能是什么？……。（對于不能確定的學生，建議參考老師演示的例子，從中選擇一個自己感興趣的）

意圖：這是很重要的一個過程，要很好地引導學生，使學生清楚地知道自己的任務，即自己要做什么？

三、分解任務

（以演示中的一個小例子，來說明如何完成一個VB程序）大屏幕展示：

二、導演如何完成任務？

師：導演正式上任了，大家都胸有成竹了，明確了要做一個什么樣的VB程序，首先做什么呢？

1、界面的設計（舞臺的布置）師：一個程序，你最先看到是什么？

師：舞臺如何布局？演員如何選??？窗口如何布局？上面要放哪些東西？這些東西怎么放比較好看？……

意圖：引導學生從界面設計入手，學會用控件來輸入文字，圖片，通過對文字的修飾，圖片的插入，引入屬性的設置，突破這個難點。

2、如何讓對象動起來？

師：窗口布置好了，舞臺拱建好了，演員也到位了，那么讓演員如何表演呢？每個演員做什么動作呢？導演發(fā)布命令的時候（輸入代碼）的時候，一定要看清對象，不要亂發(fā)命令啊！意圖：

引入代碼的輸入。為節(jié)省時間，提供演示程序的代碼，避免自己書寫代碼。

四、動手實踐

師：各位躍躍欲試的導演們，按照自己剛才確定的任務，動手來完成自己的第一個VB小程序吧！可能問題：

有些學生在輸入代碼的時候，為分不清代碼需要給哪個控件加上，這時一定要讓學生明白，導演的指令必須是針對某個演員發(fā)的，不能亂發(fā)。對于學生碰到的問題，老師做好技術指導工作。

五、評價交流（展示學生作品，交流評價）

師：不同風格的導演設計的效果是不同的，讓我們來欣賞一下各位導演的作品吧 意圖：

通過電子教室軟件，轉發(fā)一些小組完成的作品，能過交流了解其他同學的制作成果，吸取他人經驗

提醒學生在程序中加入制作人信息，即導演的信息，有初步的版權意識

有些學生可能設計的任務比較大，在課內無法完成，則鼓勵在課后繼續(xù)完成，作為拓展作業(yè)。

五、總結

師：各位導演感覺如何？做一個導演不容易吧，做一個好的導演更不容易。創(chuàng)建一個VB程序的基本步驟：界面設計，屬性設置，代碼輸入。

導演有大有小，但是基本工作是一樣的，就是上面這些步驟，今天我們是小導演，明天我們可能是大導演，期待欣賞到同學們的大作！意圖：回顧過程，總結提高。

附：學案

今天我來做導演

——ＶＢ程序設計方法

一、明確目標

身為導演，最重要的一件事，就是明確自己的目標，請確定你的目標，即你想做個什么樣的VB程序？

提示：如果一時之間想不出來，可以參考老師演示的例子

二、設計舞臺（界面的布局）

１、如果你想在窗口上輸入文字，方法如下：

（１）用鼠標選擇左邊工具欄中的“ＬＡＢＥＬ”標簽

（２）在窗口上拖出一個大小合適的矩形（矩形的大小可以用矩形邊上的八個小方塊進行調整）

２、如果你想插入一張圖片，方法如下：

（１）用鼠標選擇左邊工具欄中的“ＩＭＡＧＥＳ”標簽

（２）在窗口上拖出一個大小合適的矩形

３、如果你想在窗口上增加一個按鈕，方法如下：

（１）用鼠標選擇左邊工具欄中的“ＢＵＴＴＯＮ”標簽

（２）在窗口上拖出一個大小合適的矩形

４、如果你想在窗口上增加一個文本框，方法如下：

（１）用鼠標選擇左邊工具欄中的“ＴＥＸＴ”標簽

（２）在窗口上拖出一個大小合適的矩形

：），增加其他控件的方法類似，相信自己，試一試！

三、對演員進行分工（屬性的設置）

１、如何在窗口上顯示文字？

方法如下：

（１）用鼠標選中Ｌａｂｅｌ控件

（２）在右邊的屬性窗口中找到“Ｃａｐｔｉｏｎ”屬性，在右邊輸入要顯示的文字 思考：如何修改文字的字體？顏色？大??？ 提示：修改相應的屬性

２、如何插入圖片？

方法如下：

（１）用鼠標選中Ｉｍａｇｅ控件

（２）在右邊的屬性窗口中找到“Picture”屬性，點擊旁邊的省略號按鈕，選擇要插入的圖片

3、如何修改Text顯示的文字？ 方法如下：

（1）用鼠標選中Text控件

（2）在右邊鼠性中選中Text屬性，輸入要顯示的文字

4、如何修改按鈕上顯示的文字？ 方法如下：

選中按鈕，修改“Caption”屬性

四、讓演員動起來（輸入代碼）選擇演員，輸入想要演員實現(xiàn)的代碼

五、檢查一下導演工作進展如何？ 方法： 運行、播放

六、你是個合格的導演？還是個優(yōu)秀的導演？

1、你知道如何做一個VB程序了嗎？（知道/不知道）

2、你是個合格的/優(yōu)秀的導演？（是/不是）

第五篇：VB程序設計期末復習總結[范文模版]

1.timer_Tick事件 在指定的時間里調用此事件，比如設置timer1.interval=10，則表示在一秒內執(zhí)行10次timer_Tick事件。

2.Label3.Text = Format(x, “00000”)，設置x是一個五位數，不足左側用零來補。

3.TextBox1.Text = UCase(TextBox1.Text)，將輸入的字母轉換成大寫，用textchanged事件 4.Label1.Font = New Font(“隸書”, 12, FontStyle.Bold)設置字體名：Textbox1.Text.Font.Name = “微軟雅黑”。設置字號：Textbox1.Text.Font.Size = 14。設置粗體：Textbox1.Text.Font.Bold = True。設置斜體：Textbox1.Text.Font.Italic = True。設置下劃線：Textbox1.Text.Font.Underline = True。設置刪除線：Textbox1.Text.Font.Strikethrough = True。Label1.Font = New Font(Font.Name, 12, FontStyle.Italic)也可如此 5.將Button1控件的左上角定位于距窗體左邊框60、距頂部40的位置。Button1.Location = New Point(60,40)等價于：Button1.Left = 60

Button1.Top = 40 6.例如，將Button1控件設置為寬度為80、高度為30。Button1.Size = New Size(80,30)等價于：Button1.Width = 80

Button1.Height = 30 7.Size與clientsize。前者是整個窗體的大小，后者是不含邊框的窗體的大小。

8.Cursor屬性決定運行時鼠標移動到對象上時，顯示出的鼠標指針的圖像。其屬性值是枚舉類型。

9.ControlBox和Icon屬性決定標題欄上是否有控制菜單框、設置其圖標。默認情況下，ControlBox屬性值為True，若設置為False，則不顯示控制菜單框，并且不顯示最大化 按鈕、最小化按鈕和關閉按鈕。

10.FormBorderStyle屬性用于設置窗體邊框的樣式。其他的BorderStyle屬性是用來設置邊框格式的。

11.窗體的常用事件。Click事件，在程序運行時單擊窗體的某個位置，VB將調用窗體的Form_Click事件過程，如果單擊的是窗體內的控件，則只能調用相應控件的Click事件過程。Load事件，當窗體被裝入時觸發(fā)該事件。當應用程序啟動時，自動執(zhí)行該事件過程，因此通常將進行初始化的程序代碼寫在窗體的Load事件過程中。12.TextAlign屬性用于設置文本的對齊方式。Left：正文左對齊，Right：正文右對齊，Center：正文居中。也可用于決定對象的位置。

13.Maxlength屬性用于設置文本框中最多能夠輸入字符的個數。默認情況下，其值為32767。14.ScrollBars屬性用于設置水平滾動條和垂直滾動條。當設置水平滾動條后，文本框的自動換行功能將會自動消失，只有按Enter鍵才能換行。豎直滾動條則正常換行。

15.ReadOnly屬性用于設置文本框是否可以編輯。默認值為False，表示運行程序時能對文本框進行編輯。當其值為True時，不能編輯文本框中的內容，但可以選定文本框中的內容。

16.PassWordChar屬性設置在文本框中取代用戶輸入而顯示的字符。例如，當設置為“*”時，運行程序時文本框中輸入的內容存儲在Text屬性中，但均以“*”顯示。一般用于設置口令。

17.TextChange事件當用戶輸入新內容或程序將Text屬性設置為新值時，文本框的Text屬性值發(fā)生變化，從而觸發(fā)TextChange事件。當用戶輸入一個字符時，就會觸發(fā)一次TextChange事件。例如，在文本框中輸入字符串Basic時，就會5次觸發(fā)TextChange事件。出發(fā)之后開始執(zhí)行設置程序。

18.KeyPress事件當用戶在文本框中按下并釋放鍵盤上的一個鍵時，就會觸發(fā)KeyPress事件。與TextChange事件類似。所不同的是，當按下某些鍵（如方向鍵）時，文本框的值沒有發(fā)生變化，此時僅觸發(fā)KeyPress事件，而不觸發(fā)TextChange事件。KeyPress事件會返回一個e參數，通過e.KeyChar可以獲取按鍵對應的字符。例如，運行程序時按了字符“A”鍵，則e.KeyChar的值為“A”。將命令按鈕的Text屬性設置為“退出(&E)”。運行時，按鈕上顯示“退出(E)”。當用戶按下Alt+E時，相當于單擊了該按鈕，運行其Click事件過程。

19.Picturebox屬性：將圖像文件c:examplerabbit.jpg顯示在PictureBox1圖片框中：PictureBox2.Image=Image.FromFile(“c:examplerabbit.jpg”)20.Picturebox屬性：SizeMode屬性用于設置圖片框中圖像的顯示方式，屬性值有：Normal：默認值，圖像保持其原始尺寸、其左上角與圖片框的左上角對齊。如果圖像比圖片框大，則超過部分被剪裁掉；StretchImage：圖像被拉伸或收縮，使其與圖片框的大小一致；AutoSize：圖像保持其原始尺寸、自動調整圖片框的大小，使其與圖像大小一致；CenterImage：圖像保持其原始尺寸、與圖片框的中心對齊。若圖像比圖片框小，圖像居中顯示；否則，圖像居中，而外邊緣將被剪裁掉；Zoom：圖像大小按其原有的大小比例被縮放，其寬度或高度之一與圖片框一致。

21.Vb中變量命名法：必須以字母或下劃線開頭，由字母、數字和下劃線組成，長度不超過1023個字符。如果名稱以下劃線開頭，則必須包含至少一個字母或數字。不能使用VB中的關鍵字，如：Integer、If等。

22.Boolean類型是邏輯類型，表示true和false。

23.n是十進制/八進制/十六進制整數，八進制在整數前面加&O（是字母O，不是數字0），例如：&O56、&O56S、&O56L。十六進制在整數前面加&H例如：&H56、&HAB12、&HAB、&HABS、&HABL。Decimal、Single、Double只能表示十進制，前者是因為定義，后兩者是因為是浮點數。

24.格式：Mid(s, n[, m])、Left(s, n)、Right(s, n)功能：s是一個字符型數據，n和m是一個整型數據。Mid返回從字符串s中的第n個字符開始的m個字符，無m則表示所有自字符。Left返回字符串s中左邊n個字符，Right返回字符串s中右邊n個字符。

Mid(b, 2, 1)= 0

? Microsoft.VisualBasic.Left(b, 3)= 0

? Mid可用于賦值，left與right不可用于賦值。

25.后綴

26.Char類型，用來存儲單個字符或漢字，占兩個字節(jié)。例如：“A”、“0”、“數”等。String類型，表示包含多個字符的字符串用一對西文雙引號““”括起來表示例如：”Visual Basic“、”2016“、”G“、” “空字符串”“若表示的字符串中包含雙引號“””，則用連續(xù)的兩個雙引號表示。

27.字符串查找：格式：Instr([n,] s1, s2)，功能：n和m是一個整型數據，s1和s2是一個字符型數據。Instr函數在s1字符串中從第n個字符開始查找s2字符串，如果找到s2字符串，返回s2在s1中的起始位置值，否則返回0。若省略n，則從第一個字符開始查找。例如文本框TextBox1中輸入的是書名，判斷書名中是否含有“計算機”三個字的表達式為：If InStr(TextBox1.Text, “計算機”)> 0 Then 28.Date類型變量d的值是d = “[8 / 20 / 2009]6:5:4[AM]”

[月日年]時:分:秒[上下午] 29.算術運算符的優(yōu)先級：指數取負，乘除整除，取余加減（^-*/+-mod）

30.串聯(lián)運算符“+”運算符既可作為字符串運算符，又可作為算術運算符。當“+”運算符兩邊操作數都是字符串時，進行串聯(lián)運算，將兩個字符串連接起來，并作為結果。當“+”運算符兩邊操作數都是數值時，進行加法運算。當一側是數字字符串，另一側是數值時，若option strict為on則顯示錯誤，off則正確轉化為double運算，默認值為off；當一側是數值，另一側是非數字的字符串是，錯誤?！?”運算符不管兩邊操作數的數據類型，直接進行連接操作。

31.關系運算符設計比較時注意：兩個操作數都是數字則直接比較；都是字符則比較ascll碼值；中文最牛逼；比較運算符優(yōu)先級相同；

32.Like函數的用法：Like運算符與通配符：?、*、#、[字符列表]、[!字符列表]結合使用。其中，？表示任何一個字符，* 表示任意多個字符，# 表示任何一個數字（0~9），[字符列表] 表示字符列表中任意一個字符，[!字符列表] 表示不在字符列表中的任意一個字符。

If b Like “[” & A(m)& “]” Then If Not e.KeyChar Like “[a-zA-Z]” Then 33.當多種表達式同時在一個表達式中出現(xiàn)時，其優(yōu)先級的順序如下：

算術運算符＞字符串運算符＞關系運算符＞邏輯運算符

具有相同優(yōu)先順序的運算符將按照它們在表達式中出現(xiàn)的順序從左至右進行計算。當表達式中包含多個運算符時，使用圓括號，可以改變計算順序，圓括號內的表達式優(yōu)先計算。34.35.36.邏輯運算符的功能是對操作數進行邏輯運算（又稱布爾運算），其運算結果是邏輯值True或False。Const PI As Single = 3.1415

'聲明符號常量。聲明一個常量，不一定非得用dim，const也可以

數學函數包含在System.Math類中。該類中包含許多方法和常量，利用這些方法和常量可以進行各種數學運算。這些方法可以作為數學函數使用，使用時，在函數名前面加“Math.”。

四舍五入函數，格式：Round(x[,n])。功能：x是一個數值型量，將x值四舍五入，得到最接近的整數或指定的小數位數n的值。缺省n時，表示四舍五入取整。示例：Math.Round(4.56)的運算結果為5，Math.Round(4.56, 1)的運算結果為4.6 字符和ASCII碼轉換函數，格式：Asc(s)、Chr(x)。功能：c是一個字符型量、x是一個數值型量。Asc計算出字符串的第一個字符的ASCII碼值，Chr則計算出以x為ASCII碼的字符。示例：Asc(“A”)的運算結果為65。Chr(65)的運算結果為“A”。Asc(Chr(x))的運算結果仍然是x，Chr(Asc(c))的運算結果仍然是c。

大小寫字母轉換函數，格式：UCase(s)、LCase(s)。功能：s是一個字符型量，UCase將字符串中的所有字母轉換成大寫字母，LCase將字符串中的所有字母轉換成小寫字母。ucase(“a”)也有引號

判斷文本框TextBox1中輸入的是否為單個字母的表達式為：

If UCase(TextBox1.Text)>= “A” And UCase(TextBox1.Text)<= “Z” Then

If TextBox1.Text Like “[a-zA-Z]” Then If UCase(TextBox1.Text)Like “[A-Z]” Then If LCase(TextBox1.Text)Like “[a-z]” Then 字符串去除空格，格式：Ltrim(s)、Rtrim(s)、Trim(s)。功能：s是一個字符型數據。Ltrim的返回值是去除字符串s左邊（前面）空格后的字符串、Rtrim的返回值是去除字符串s右邊（后面）空格后的字符串、Trim的返回值是去除字符串s前后空格的字符串。字符串替換，格式：Replace(s, s1, s2[, n[, m]])。功能：s、s1和s2是一個字符型數據，n和m是一個整型數據。Replace在字符串s中從第n個字符開始，將前m個字符串s1替換為s2，并將第n個字符之前的字符刪除。若缺省m，替換把第n個字符開始的所有符合條件的字符串。若缺省n，則從第一個字符串開始替換。

字符串與數組元素的轉換，格式：Join(A, “d”)、Split(s, “d”)。功能：A為數組，s和d是一個字符型數據。Join以d為分隔符將數組A各元素的值連接成字符串，并作為返回值。Split的功能與Join相反，它將字符串s以d為分隔符，分隔成數組元素。缺省d時，以空格為分隔符。37.38.39.40.41.42.43.44.45.格式輸出函數Format可以將數值、日期和時間按指定格式轉換成字符串，其格式如下：Format(表達式, “格式字符串”)。格式名General Number、G或g保持原有數值的小數位數，格式名Fixed、F或f則四舍五入保留兩位小數。

46.百分比的數字格式，格式名Percent表示將數字乘以100后、保留兩位小數、并加百分號(%)。示例：Format(0.567,“Percent”)的運算結果為“56.70%”。

47.科學表示法的數字格式，使用標準的科學表示法表示數字。格式名Scientific提供兩個有效位，格式名E或者e提供六個有效位。示例：Format(1234.567,“Scientific”)的運算結果為“1.23E+03” ；Format(1234.567, “e”)的運算結果為“1.234567E+003”。

48.常用的用戶定義數字格式，0 和 #。符號“0”和“#”用于決定顯示數值整數部分和小數部分的位數。其相同之處是：若數值整數部分的位數多于格式字符串的位數，按實際數值返回；若小數部分的位數多于格式字符串的位數，按四舍五入計算。不同之處是：當數值的位數少于格式字符串的位數時，“0”格式將不足部分補0，而“#”則不顯示。49..和 ，符號“.”表示加小數點，“,”表示加千分位。示例：

Format(1234.56, “0,000.00”)的運算結果為“1,234.56”。Format(1234, “0,000.00”)的運算結果為“1,234.00”。

50.日期的格式，根據區(qū)域設置顯示日期。格式名Date、Medium Date或D表示長日期格式，格式名Short Date或者d表示短長日期格式。示例：假設今天是2015年9月25日，F(xiàn)ormat(Now, “Long Date”)的運算結果為“2015年9月25日”； Format(Now, “Short Date”)的運算結果為“2015/9/25”。Label1.Text = Format(TextBox1.Text, “l(fā)ong date”)51.復合賦值語句常用于以下幾個方面：累加sum += s

等價于

sum = sum + s 連乘 n *= i

等價于

n = n * i

顯示多行信息，復合賦值語句使用得最多的是“&=”運算符。要顯示多行信息，一般是利用文本框、標簽，通過“&=”來實現(xiàn)顯示。52.Inputbox（“提示信息”，“標題”，“默認內容”），“提示信息”、“標題”、“默認內容”都可以不填空著，但至少要有一個空著的省略號。

53.InputBox的返回值是一個字符串。如果需要將輸入的數值參加算術運算，必須在進行運算前用Val函數把它轉換為數值類型。但可以用split函數調用。每執(zhí)行一次InputBox函數只能輸入一個值，如果需要輸入多個值，則必須多次調用InputBox函數。這時，通常與循環(huán)語句、數組結合使用。對話框顯示的信息，若要分多行顯示，必須加回車換行符，即Chr(13)+Chr(10)或VB系統(tǒng)常量vbCrLf。

54.定義變量時，可以用簡寫符號表示變量類型，$ 是 String，% 是 Integer，& 是 Long，!是 Single，@ 是 Currency，# 是 Double。例如Dim H%, F%, x%, y% 55.MsgBox(“提示信息”, vbOKOnly, “標題”)“提示信息”, vbOKOnly, “標題”可以都是空的，但至少要有一個空的省略號。MsgBox(“確認數據是否正確？”, MsgBoxStyle.YesNo + MsgBoxStyle.Question , “ 數據驗證”)條件表達式1 F T 條件表達式2 F … 條件表達式n T 語句塊1 語句塊2 F T 語句塊n 語句塊n+1 56.elseif 的用法

57.如果是數字，則沒有is。

58.Do until loop(直到結束)；do while loop(當執(zhí)行)59.在for語句中，執(zhí)行一次next語句，循環(huán)變量增加一個步長

60.UBound函數，格式為：UBound(數組名 [, 維])。使用UBound函數可以計算出數組的任一維可用的最大下標，從而確定數組的任一維的上界。其中：參數維指定返回數組的哪一維。1（默認）代表第一維，2代表第二維，以此類推。61.選擇法排序：

Public Class Form1

Dim A()As Integer = {2, 1, 3, 4}

Dim m, n, i, j, imin As Integer

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs)Handles Button1.Click

m = UBound(A)

For i = 0 To m1

For j = m To i + 1 Step-1

If A(j)< A(j1)

A(j1)+ f(n-2)

End If

End Function

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs)Handles Button1.Click

Dim y As Single

y = 0

For n = 1 To Val(TextBox1.Text)

y = y + 1 / f(n)

Next

Label2.Text = y

End Sub End Class 函數的表示法2 Public Class Form1

Dim a As String

Dim n, m As Integer

Function f(ByRef n As Integer)As String

a = TextBox1.Text

m = Len(CStr(a))

For n = m To 1 Step-1

f &= Mid(a, n, 1)

Next

End Function

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs)Handles Button1.Click

Label1.Text = f(n)

End Sub End Class 65.打開保存等操作的用法：

Public Class Form1

Private Sub 退出ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs)Handles 退出ToolStripMenuItem.Click

End

End Sub

Private Sub 保存ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs)Handles 保存ToolStripMenuItem.Click

SaveFileDialog1.Filter = “簡單文本格式|*.txt|復雜文本格式|*.rtf”

SaveFileDialog1.FilterIndex = 2

SaveFileDialog1.ShowDialog()

MsgBox(SaveFileDialog1.FileName)

If SaveFileDialog1.FileName <> “" Then

If SaveFileDialog1.FilterIndex = 1 Then

RichTextBox1.SaveFile(SaveFileDialog1.FileName,RichTextBoxStreamType.PlainText)'.txt,.TXT

Else

RichTextBox1.SaveFile(SaveFileDialog1.FileName, RichTextBoxStreamType.RichText)'.doc,.DOC

End If

End If

End Sub

Private Sub 打開ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs)Handles 打開ToolStripMenuItem.Click

OpenFileDialog1.FileName = ”“

OpenFileDialog1.Filter = ”簡單文本|*.txt|復雜文本|*.rtf“

OpenFileDialog1.FilterIndex = 1

OpenFileDialog1.Title = ”朕的打開......“

OpenFileDialog1.ShowDialog()

MsgBox(OpenFileDialog1.FileName)

If OpenFileDialog1.FileName <> ”“ Then

Me.Text = OpenFileDialog1.FileName

If OpenFileDialog1.FilterIndex = 1 Then

RichTextBox1.LoadFile(OpenFileDialog1.FileName, RichTextBoxStreamType.PlainText)

Else

RichTextBox1.LoadFile(OpenFileDialog1.FileName, RichTextBoxStreamType.RichText)

End If

End If

End Sub

Private Sub 新建ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs)Handles 新建ToolStripMenuItem.Click

RichTextBox1.Text = ”“

Me.Text = ”我的記事本“

End Sub

Private Sub 剪切ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs)Handles 剪切ToolStripMenuItem.Click

RichTextBox1.Cut()

End Sub

Private Sub 復制ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs)Handles 復制ToolStripMenuItem.Click

RichTextBox1.Copy()

End Sub

Private Sub 粘貼ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs)Handles 粘貼ToolStripMenuItem.Click

RichTextBox1.Paste()

End Sub

Private Sub 刪除ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs)Handles 刪除ToolStripMenuItem.Click

RichTextBox1.SelectedText = ”"

End Sub

Private Sub 全選ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs)Handles 全選ToolStripMenuItem.Click

RichTextBox1.SelectAll()

End Sub

Private Sub 日期時間ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs)Handles 日期時間ToolStripMenuItem.Click

RichTextBox1.SelectedText = Now

End Sub

Private Sub 復制ToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs)Handles 復制ToolStripMenuItem1.Click

Call 復制ToolStripMenuItem_Click(sender, e)

End Sub

Private Sub 剪切ToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs)Handles 剪切ToolStripMenuItem1.Click

剪切ToolStripMenuItem_Click(sender, e)

End Sub

Private Sub 粘貼ToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs)Handles 粘貼ToolStripMenuItem1.Click

粘貼ToolStripMenuItem_Click(sender, e)

End Sub

Private Sub 顯示窗體ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs)Handles 顯示窗體ToolStripMenuItem.Click

Form2.ShowDialog()

End Sub End Class 66.控制輸入可以用e.keychar來做 67.Listbox的用法

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles ListBox1.SelectedIndexChanged

Select Case ListBox1.SelectedIndex

Case 0

TextBox1.Font = New System.Drawing.Font(TextBox1.Font, FontStyle.Bold)

Case 1

TextBox1.Font = New System.Drawing.Font(TextBox1.Font, FontStyle.Italic)

Case 2

TextBox1.Font = New System.Drawing.Font(TextBox1.Font, FontStyle.Underline)

Case 3

TextBox1.Font = New System.Drawing.Font(TextBox1.Font, FontStyle.Strikeout)End Select End Sub