第一篇：VB學習材料

《VB期末范圍題總匯》

1． 求隨機10個整數的最大值、最小值、平均值以及和； Dim a(1 To 10)

Private Sub Command1_Click()

Randomize

Picture1.Print “產生的隨機數為：”

For i = 1 To 10

a(i)= Int(Rnd * 99 + 1)

Picture1.Print a(i);

Next i

Picture1.Print

End Sub

Private Sub Command2_Click()

Dim max, min, ave

max = a(1)

min = a(1)

ave = 0.1 * a(1)

For i = 2 To 10

If a(i)> max Then max = a(i)

If a(i)< min Then min = a(i)

ave = ave + 0.1 * a(i)

Next i

Picture1.Print “最大數為：”;max

Picture1.Print “最小數為：”;min

Picture1.Print “平均數為：”;ave

End Sub

2.求水仙花數

Private Sub Form_Click()

Dim a, b, c As Integer 'a(個)b(十)c(百)For a = 0 To 9

For b = 0 To 9

For c = 1 To 9

If a ^ 3 + b ^ 3 + c ^ 3 = a + 10 * b + 100 * c Then MsgBox 100 * c + 10 * b + a

End If

Next c

Next b

Next a

End Sub

3.百元買百雞問題；

Option Explicit

Const a = 5, b = 3, c = 1

Private Sub Form_Activate()

Dim i As Integer, j As Integer, k As Integer, n As Integer For i = 1 To 100

For j = 1 To 100

For k = 1 To 100

If i * a + j * b + k * c = 100 Then

n = n + 1

List1.AddItem “ 公雞：” & i & “ 母雞：” & j & “ 小雞：” & k End If

Next: Next: Next

MsgBox “共有組合：” & n

End Sub

求1000以內的所有完數

一個按鈕里調用的過程

Private Sub Command1_Click()

OutputWanNumber 1000

End Sub

4.'求完數的過程

Private Sub Form_Click()

Dim i, j As Integer

For i = 4 To 100

temp = 1

For j = 2 To i / 2

If i Mod j = 0 Then

temp = temp + j

End If

Next j

If temp = i Then

Print i

End If

Next i

End Sub

5.求各位數字之和

input a:'輸入任意數

do

b=a mod 10:'取a的末位數

sum=sum+b:'求和

a=a 10:'去掉末位數

loop until a=0

print “sum=”;sum:'輸出

end

（dim n as string

input n

for i = 1 to len(n)

sum=sum+val(mid(n,i,1))

next i

print sum）

6.求最小公倍數

Private Sub Form_Load()

Form1.AutoRedraw = True

Dim n1%, m1%, m%, n%, r%

n1 = InputBox(“輸入n1”)

m1 = InputBox(“輸入m1”)

If m1 > n1 Then '為了求最小公倍數，增加m,n變量

m = m1: n = n1

Else

m = n1: n = m1

End If

Do

r = m Mod n

If r = 0 Then Exit Do

m = n

n = r

Loop

Print n1;“,”;m1;“的最大公約數為”;n

Print “最小公倍數=”, m1 * n1 / n

End Sub

7.求逆序數（感覺題目類型太多）

8.級數有限項求和問題（題目類型太多）

9.求質因子問題

Private Sub Command1_Click()

Dim N As Integer, I As Integer

N = Val(InputBox(“請輸入2的整數:”))

I = 2

Do

If N Mod I = 0 Then

Print I;

N = N I

Else

I = I 1

End If

Loop While N 1

End Sub

10.字符統計

Option Base1

Option Explicit

Private Sub Command1_Click()

Dim i as integer，A(26)as integer，n as integer

Dim S as string*1,Strl as string

Strl=Text1

n=Len(Strl)

For i=1 To n

S=Mid(Strl,i,1)

If UCase(S)>=”A” And UCase(S)<=”Z” Then

A(Asc(UCase(S))-64)+1

End If

Next i

For i=1 To 26

List1.Additem Chr(64+i)& “:” & A(i)

Netx i

End Sub

Private Sub Command_Click()

End

End Sub

第二大題

1.判定素數過程

Function isprime(Num As Long)As Boolean

If Num < 2 Then isprime = False: Exit Function

Dim i As Long

For i = 2 To Sqr(Num)

If(Num Mod i)= 0 Then

isprime = False

Exit Function

End If

Next i

isprime = True

End Function

Private Sub Command1_Click()

Dim i As Long

For i = 1 To 1000

If isprime(i)Then

Print i

End If

Next i

End Sub

2.求最大公約數過程；

Function Max公約數(A As Long, B As Long)'求出兩個數的最大公約數 Dim X As Long, Y As Long, K As Long

X = IIf(A >= B, A, B)'x存入最大值

Y = IIf(A <= B, A, B)'y 存入最小值

Do '輾轉相除法

K = X Mod Y: If K = 0 Then Exit Do

X = Y: Y = K

Loop

Max公約數 = Y

End Function

3.冒泡排序過程

Private Sub Command1_Click()

Dim a(9)As Integer

Dim i As Integer

For i = 0 To 9

a(i)= InputBox(“輸入整數”)

Next

Sort a

For i = 0 To 9

Print a(i)

Next

End Sub

Private Sub Sort(ByRef a()As Integer)Dim i As Integer

Dim j As Integer

Dim t As Integer

For i = LBound(a)+ 1 To UBound(a)For j = UBound(a)To i Step-1

If a(j1)

a(j-1)= a(j)

a(j)= t

End If

Next

Next

End Sub

4順序查找過程

Private Sub Command1_Click()

Dim i, j, t, a(1 To 10)

Randomize

Print “原數組:”

For i = 1 To 10

a(i)= Rnd * 10

Print “a(” & i & “)=” & a(i)& Space(2), If i Mod 2 = 0 Then Print

Next i

Print

For i = 1 To 9

For j = i + 1 To 10

If a(j)< a(i)Then

t = a(i)a(i

第二篇：VB學習心得體會

VB學習心得體會

VB學習>心得體會

VB是一門程序設計語言，也需要一定的英語基礎。VB既能充實我們的生活，武裝我們的頭腦，鍛煉我們的意志，又能在以后需要的時候成為幫助我們成功的推進動力。對于VB的學習，我個人覺得興趣愛好占一部分，更重要的還是自身的努力程度和平時的學習習慣。下面，我也簡要介紹一下我對于VB課程的看法。

VB程序設計的入門學習并不難，但需要在學習的過程中掌握一個良好的程序設計習慣，這時，做好課前預習，上課認真聽講，下課認真消化所學內容顯得十分重要。上機實驗課努力完成老師留的課堂作業，能加深對所學知識點的理解和運用。能做到這些，也是積極主動學習的表現。

對于VB,每一個VB老師都是一個嚴謹的老師，要求嚴格是應該的。剛學習VB,嚴格要求格式，這是熟練之后能隨意運用的基礎，也是學好VB課程的重要前提。在課上，應該注意老師所提到的每一點要求，上機課認真完成老師布置的作業，注意每一個細節，爭取做到零失誤。

正式踏入VB課之后你會發現，編寫程序代碼其實是一件很有意思的事情。每一個程序當你完成時你都會有一種成就感。遇到問題時，程序代碼可能會讓很多人無從下手，建議大家多看別人設計好的程序代碼，包括教材上的例題程序。讀懂別人的程序后，要想他為什么這么設計，學到別人優秀的東西。積極跟同學討論程序問題，在大家一起研究出一個正確的程序時，高興的同時也促進了彼此的友情。

細節決定成敗，VB程序設計的成敗正是在于細節。紙上得來終覺淺，自己調試程序的時候總會犯很多錯誤，比如'文件未找到''下標越界'等等，都是平時沒有機會解決和一些曾經被忽視的問題，為了找到代碼中錯誤和不符合要求的地方，標點符號都不能放過。細節決定成敗，一個小小的分號也會起著扭轉乾坤的作用。我個人，經常出現問題的地方在于與滾動條有關的事件。與滾動條有關的事件主要是Scroll和Change.當在滾動條內拖動滾動框時會觸發Scroll事件，但注意單擊滾動箭頭或滾動條時不發生Scroll事件，而改變滾動框的位置后會觸發Change事件。Scroll事件用于跟蹤滾動條中的動態變化，Change事件則用來得到滾動條的最后的值。不注意時，容易忽略Scroll事件與Change事件的區別，出現編程的問題不容易得到解決。VB中，這樣的小細節比比皆是，一定要注意細節才能學好VB這門課。

我對VB的興趣從何而來呢？從我對電腦的喜愛說起。我參加過一個學校的計算機>培訓班，之后在沒事的時候自己還設計個ppt,photoshop什么的。大學加入廣播站的網絡技術部之后也學習了不少關于AU,AE,視頻方面的制作。學習VB,我覺得能加深我對計算機已有認識的理解，能促進我對計算機的喜愛熱情的提高，同時又能增長計算機知識。這么好的一門課，我為什么不好好學呢？興趣來自于生活，來自于習慣，以來自于自身對VB這門課的看法。

通過對VB的學習，對VB語言有了初步的認知，對程序有了初步的設計方案，能根據要求設計出想要的程序，鍛煉了自己的創造性思維，是培養邏輯思維的好方法，同時我經常看同學設計好的程序代碼，然后想想別人為什么這么設計就能達到效果，我的設計能不能完成更多的功能，這樣優秀了自己，幫助了自己，提高了自身水平，同樣，也欣賞了別人，對別人是贊美，對自己是幫助，總而言之，VB課程對我的計算機水平起到了推動的作用。對VB更多的是喜愛，那一點點，是寵愛。

第三篇：VB學習心得體會

篇一：vb學習的心得體會 vb學習的心得體會 ————劉師桐

這學期選修了vb這門學科，想從學習中對計算機有更深刻的認知，也對我大學中的2級考試奠定基礎。那么談談這學期的學習中對vb的認知和心得體會。

vb全稱為visual basic，是微軟公司推出的可視化編程工具msdn之一，是目前世界上使用最廣泛的程序開發工具。vb提供的是可視化的開發環境，我們可以象搭積木一樣構建出程序的界面，而且vb提供了豐富的控件組，省去了我們自己寫代碼實現這些效果的麻煩，這樣我們就能把更多的精力放在程序功能的實現上，所以vb學起來簡單，用起來方便。因此，我學了vb，并有了如下收獲：

1.富業余生活。業余時間到處游手好閑的身影不見了，沒事我肯定一動不動的坐在電腦面前擺弄vb。是啊，想想以前，真是一無是處，一會找人砍大山，一會找人打游戲，一會就傻傻的坐在小板登上兩眼無光，似是厭倦了紅塵。現在生活有了寄托，是vb給了我無窮的快樂，讓我樂此不疲。

2、多了一門技術。vb是一門計算機編程語言，也算是一項知識含量較高的東西。采用的是可視化程序設計。學習的這段時間，我明白了萬事開頭難，剛剛開始，遇到些困難沒關系，慢慢來。編程是一個不斷學習，不斷積累的過程，編程的樂趣也正是存在于學習的過程中。我們每學一點，就趕快把它用到實際的程序中去，自己多學多用多實踐，水平才能不斷提高，這就是“學以致用”。多看多練是我獨門絕技，一般人我不告訴他：多看------別人的代碼，即使看不懂也沒關系，可以把這些代碼輸入到機子里運行，然后根據運行結果去體會程 序的思路和用途。

3、鍛煉意志。編程可不是一項輕松的活，尤其是一個人開發制作軟件時，那工作量就多了。沒有一定的坐功、細心程度及耐性那是絕對做不到的。有時，把程序做完了需要調試運行，但是就是不能達到自已設計的效果和目的，那你得戴上放大鏡找啊找啊，也許就是因為一個符號或一個字母，你就得花上個幾個小時，半天，甚至更長。越是這樣越不要灰心，應該放松心態，一點一滴的去查。只要有一顆永不退縮的心，我相信你一定能找到問題所在，最后一定能見到你開心的笑容，也一定能找到成功者的感覺。通過這個學期的學習，對了vb這種高級語言有了初步的認知，對一些小的程序有了初步的設計方案，能根據要求設計出想要的程序，鍛煉了自己的創造性思維，是培養邏輯思維的好方法，同時我經常看同學設計好的程序代碼，包括教材上的例題程序，然后想想別人為什么這么計就能達到效果，我的設計能不能完成更多的功能，這樣優秀了自己，幫助了自己，提高了自身水平，同樣，也欣賞了別人，對別人是贊美，對自己是幫助，總而言之，這學期的vb課程讓我收獲了很多，我對下學期的計算機2級考試很有信心！！篇二：vb學習總結也心得 學習vb兩個星期以來，（其實真正時間也不到兩個星期吧平時有空閑就學習了下 在這里是想告訴大家 vb基本操作不難，）第一個串口調試程序通了 能夠實現更改波特率，串口號，接收數據實現字符也十六進制顯示，在發送文本框輸入數據 電機發送將在接收框內顯示 記住將rs232的2和3管腳直接接起來

下面是我測試實際過程

大家也可以和我一樣練習練習

下面是我的源代碼可以供大家參考下也希望高手指點下（框架就沒必要給了）dim baud as string dim text2enbale, asciflag as boolean 停止顯示標志 false將不能顯示 private sub check2_click()end sub end select end sub case 300 baud = 300 case 600 baud = 600 case 1200 baud = 1200 case 2400 baud = 2400 case 4800 baud = 4800 case 9600 baud = 9600 case 19200 baud = 19200 case 38400 baud = 38400 end select else case 300 baud = 300 case 600 baud = 600 case 1200 baud = 1200 case 2400 baud = 2400 case 4800baud = 4800 case 9600 baud = 9600 case 19200 baud = 19200 case 38400 baud = 38400 end select end if end sub dim s as string dim a()as byte msgbox 串口未打開，請打開串口, 48, 警告 end if redim a(3)a(0)= &hf a(1)= &hfe a(2)= &hdd a(3)= &hcc s = text3.text a = s end if call delay(20)end sub dim idata as variant dim arr()as byte redim arr(intinputlen)和上面一樣 if asciflag = true then for i = 0 to ubound(arr)text2.text = text2.text + chr$(arr(i))next ielse for i = 0 to ubound(arr)text2.text = text2.text + & arr(i)next i end if end select end sub private sub option1_click()if option1.value = true then asciflag = true end if end sub private sub option2_click()if option2.value = true then asciflag = false end if end sub private sub timer1_timer()label11.caption = time end sub private sub uart_open_click()shape2.backcolor = &hff& uart_open.caption = 關閉串口 else shape2.backcolor = &he0e0e0 uart_open.caption = 打開串口 end if end sub private sub text2_clr_click()text2.text = end sub private sub text2_en_click()text2enable = not text2enbale end sub end end sub private sub form_load()show 沒有show后面的設置焦點將失敗 錯誤 text2enbale = true option2.value = true 默認顯示是以16進制顯示 text3.text = text3.setfocus end sub 至此 一個簡單的小工程就完成了，因為我是電子信息工程專業對高級編程還是很菜鳥的，其實這個功能也是我一直想能夠自己實現的，因為之前一直以為學習vb 會花好多時間，就像之前一直在學習arm一樣半天模不著頭腦。所以遲遲不敢接觸。估計也好多人和我一樣，其實學習開始了 也會發現并不是想象中那樣。2012-7-30 青檐鈴風篇三：vb學習心得體會 vb學習心得體會

這學期選修了vb這門學科，想從學習中對計算機有更深刻的認知，也對我大學中的2級考試奠定基礎。那么談談這學期的學習中對vb的認知和心體會。

通過學習vb我基本學會了編輯一些小程序，掌握了一些基本的知識，得到了以下一些收獲： 1.富業余生活。曾經業余時間到處游手好閑的身影不見

了，以前沒事我肯定一動不動的坐在電腦面前擺弄電腦。是啊，想想以前，真是一無是處，一會找人砍大山，一會找人打游戲，一會就傻傻的坐在小板登上兩眼無光，似是厭倦了紅塵。現在有了vb，它給了我無窮的快樂，讓我樂此不疲。

2、多了一門技術。vb是一門計算機編程語言，也算是一 項知識含量較高的東西。采用的是可視化程序設計。學習的這段時間，我明白了萬事開頭難，剛剛開始，遇到些困難沒關系，慢慢來。我們每學一點，就趕快把它用到實際的程序中去，自己多學多用多實踐，水平才能不斷提高，這就是“學以致用”。只有這樣我才呢學有所成

3、鍛煉意志。編程可不是一項輕松的活，尤其是一個人

開發制作軟件時，那工作量就多了。沒有一定的坐功、細心程度及耐性那是絕對做不到的。有時，把程序做完了需要調試運行，但是就是不能達到自已設計的效果和目的，那你得戴上放大鏡找啊找啊，也許就是因為一個符號或一個字母，你就得花上個幾個小時，半天，甚至更長。只要有一顆永不退縮的心，我相信你一定能找到問題所在，最后一定能見到你開心的笑容，也一定能找到成功者的感覺。

通過這個學期的學習，對了vb這種高級語言有了初

步的認知，對一些小的程序有了初步的設計方案，能根據要求設計出想要的程序，鍛煉了自己的創造性思維，是培養邏輯思維的好方法，同時我經常看同學設計好的程序代碼，然后想想別人為什么這么計就能達到效果，我的設計能不能完成更多的功能，這樣優秀了自己，幫助了自己，提高了自身水平，同樣，也欣賞了別人，對別人是贊美，對自己是幫助，總而言之，這學期的vb課程讓我收了很多。

第四篇：VB學習札記

VB學習札記

在大二上學期學習過VB.NET，但由于將近1年時間沒有接觸，本學期剛開學時vb水平已經退化到沒學過的水平了。所以，必須要利用前3周來復習已經學過的知識，一邊做練習一邊鞏固。

首先，我找到以前的VB書以及筆記本，大致的看了一遍，了解到所學知識的大致框架。之后，開始著手做第一題的練習題。題目中涉及到的VB語句就翻書再細致的去看。順便把這一類型的語句復習一遍。

按照這樣的流程，花了兩個多禮拜，陸續把VB復習的差不多了。而且作業也完成的差不多了。

我總結了一下我學習VB的方法：

首先，要保持良好的學習心態

1、要有自信,自強,積極主動學習.2、不要畏懼困難，克服畏難情緒,樹立學好程序設計的信心

之后，我覺得要有良好的學習習慣

然后，我覺得學習程序設計要注重理解一些重要的概念.VB程序設計本身并不復雜,翻開一本程序設計學習的書籍,看到的無非就是變量,函數,條件語句,循環語句等概念.但要真正能進行程序設計,需要深入理解這些概念.因此,在 程序入門階段還是應該重視概念的學習.我覺得務必要自己動手編寫程序。遇到問題時，自己去琢磨，進行試驗。再不行的時候，會找同學來幫忙。一起討論檢查語句中的錯誤。

程序設計入門階段要經常自己動手抄寫或編寫一些小程序,親自動手進行程序設計是創造性思維應用的體現,是培養邏輯思維的好方法.因此一定要多動手編寫程序,而且要從小程序開發開始,逐漸提高寫程序的能力.程序設計課是高強度的腦力勞動,不是聽會的,也不是看會的,而是練會的。只有自己動手,編寫一些程序,才會有成就感,進而對課程產生興趣,學起來才比較從容。

同時，也閱讀、借簽別人設計的好程序。我也會參與討論同學遇到的問題。我發現在大家一起討論，發現問題并最終解決問題時，學到的或許比自己單獨一個做學到的更多。多看別人設計好的程序代碼,包括教材上的例題程序.在讀懂別人程序后,要想他為什么這么設計能不能將程序修改完成更多的功能 則可以學到別人優秀的東西,幫助自己 提高自身水平.最后，我發現上機調試程序的時候應認真把實驗題在用紙上做一做(包括窗體界面設計,事件代碼的編寫等)每次上機后應總結,把沒有搞清楚的問題記錄下來,請教老師或同學.平時應多抽課余時間多上機調試程序，同時時常注意系統的提示信息,遇到問題多問幾次為什么。

第五篇：VB指導學習

2005-7-24

VB指導學習

1、if語句的另一種寫法：

if num=10 then print num

當then后面（同一行）有執行語句時，if語句不能加end if

如有end if，則then后（同一行）不能有語句

2、兩條語句放在同一行時用“：”分割

如：print num:print num+13、語句分多行寫用“ _”連接，注意“空格&下劃線”

如：print num _

+14、除法：a/bab

C++：“/”是除法，a、b都是int，則結果是int，如果其中一個是float，則結果float“”是轉義字符。

VB：“/”是除法，有小數。“”取整（小數點后舍）

5、case語句用法：

private sub form1_click()

dim a

select case a

case 1to4,7to9,11,13<5

print a

case else

msgbox”不在范圍內”

end select

end sub6、VB中假是”0”，真是”-1”

C++中假是“0”，真是“1”

7、private sub form_click()

for I=2to4 step-1讀完完整的一句之后，如發現問題，則跳過此句執行下一句。print I

next

print I本程序只執行此句一次

end sub8、倒序輸出字符串

取字符函數mid(string,2,3)表示從string字符串中第二位開始，一共取三位如：mid(abcdefg,2,3)，則結果為 bcd

lift(abcd,2)=ab

right(abcd,2)=cds

例：private sub command1_click()

dim x as integer,str_len as integer

dim str as string

for x=str_len to 1 step –1

text1.text=text1.text + dim(str,x,1)

next

end sub

form1窗體里有兩個文本框和一個按鈕

9、循環for I=1to5

??

next(I)(next后最好不要加i)

10、聲明變量：dim a,b as integer則a是變體，b是int

dim a as integer,b as integer則a,b都是int11、webbrowser 網頁

添加部件 ms internet controls 控件

private sub form_click()

webbrowser1.navigate app.path & “a心理測試.html”app.path表示當前目錄end sub

private sub form1.resize()

wenbrowser1.height=form1.scaleheight-10“-10”可不寫

webbrower1.width=form1.scalewidth-10如不加scale，則會覆蓋一點邊

12、有退出按鈕的窗體，點擊退出時詢問，點擊窗體右上角X則不詢問，怎么辦？Private sub form_unload(canel as integer??)

If msgbox（”是否退出？”,vbokcancel,”詢問”）=vbok=true=false

Cancel=true-?取消關閉

End if

End sub13、”關于”窗體

添加“關于”對話框

14、使用“選項卡”省地方

添加控件“ms tabbed dialog control 6.0”

如添加控件“ms windows common control 6.0”->”tabstrip”也可以作，但不好用。

15、幫助文件 msdn是世界最大的幫助文件，CHM格式的幫助文件

html help workshop

1.目錄-> 節點&頁面-> 編譯

2.new-> project-> ok-> 下一步-> 保存路徑&名稱-> 下一步-> 勾中 html

files(.htm)-> 點擊Add-> 下一步-> 完成3.搜索proj-> 屬性 compiler-> 勾中compiler-> ok

4.作節點 頁面 關鍵字

project(工程)->contents(目錄)->index(索引)->ok->保存節 鑰匙增加關鍵字contents(目錄)->是否創建->ok->保存->點左第二個文件夾則屬性換成書圖標

16、用VB調用幫助文件

設工程屬性的“幫助文件名”后，按“f1”彈出幫助

設一個“幫助菜單”，在菜單click事件中加入sendkeys“{F1}”，模擬用戶按鍵盤還可以模擬alt + f4 , 但不可以模擬 control + alt + del(重啟),17、MDI無子窗體時，幫助無作用，調用ADI/ATI

把目錄的成app.path，把此文件拷貝到其它位置仍可使用

18、shell 只能調用.exe文件hh.exe是windows 自帶的幫助打開“幫助文件”的exe文件shell”hh.exe 幫助文件的路徑及文件名”

19、private sub a_click()

sendkeys”{f1}”

shell”hh.exe d:qiaosl??.chm”,vbnormal focus

end sub

private sub form_load()

ap.help file=app.path &”??.chm”

20、1．工程屬性設“幫助菜單名”

2．App.helpfile= ??

3．Sendkeys”{f1}”

4.shell(“hh.exe??”)

1&2作用是：按F1出幫助，便用2好一些，3是模擬按鍵盤F1，4可完全單獨使用，3&4用在按鍵或菜單。

Api例子

下午

21、設置象素：窗體的lemode屬性1-twip->緹，pixel->象素

22、動態生成控件必須用控件組

23、缺省事件是雙擊控件時自動出現的事件

缺省屬性可省略：text1.text=”a”可寫成text1=”a”,可省略“.text”

24、cotfouse->事件

25、模式&非模式窗體：

26、參數傳遞：默認按引用傳遞，Byval是按值傳遞

subs(byval x as single,y as single)則x按值，y按引用，VB中真為-127、第十章，error

語法錯誤：

運行時錯誤：一般不出錯，特定時出錯，考慮不周全，如除數為0

邏輯錯誤：不報錯，寫的不對，如循環次數不對。

錯誤處理代碼

1． 創建捕獲錯誤代碼

2． 處理此錯誤

3． 繼續執行

on error goto 1標號（數字&字母都可以）

exit sub

1:

msgbox(“除數不為0”)

text1.text=””

text1.setfouse

end sub

resume（next/line）回到出錯行，或出錯行的下一行，或指定位置

on error resume next忽略錯誤/延遲最好少用，延遲后改不了

F8是單步運行

28、對象 –> err.屬性&方法 number(錯誤編號)

29、dbpath=commondialog.filename

if dbpath=””

end

con.open

else resume

showopen30、C++復習題：

簡單

1． 用戶接收一個數，調用一個函數，輸出該數的立方

2． 寫一個函數min(int a[])，求主程序中傳來的數組中最小值

難度適中

3． 民主投票方法選班長，候選人編號A、B、C、D每位同學只能選一人作班長，輸入每張選票的候選人編號A~D，輸入0終止，調用函數process()輸出每人得票數及當選人

4． 接收用戶輸入的數，直到有5個奇數，顯示此5個奇數，調用max()函數顯示此5個奇數中最大數

高難度

5． 字符串變量A、B，B是A中的一部分，將B摳出A，再輸出

超難度

6． 賣票，車站一共15，每站上（剩下站數）個人，然后剩下每站依次下一個人，問應

設幾個座位，賣出多少張票

7． 發牌：按順序發隨機牌（使用隨機數）