第一篇：VB學(xué)習(xí)材料

《VB期末范圍題總匯》

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

Private Sub Command1_Click()

Randomize

Picture1.Print “產(chǎn)生的隨機(jī)數(shù)為：”

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 “最大數(shù)為：”;max

Picture1.Print “最小數(shù)為：”;min

Picture1.Print “平均數(shù)為：”;ave

End Sub

2.求水仙花數(shù)

Private Sub Form_Click()

Dim a, b, c As Integer 'a(個(gè))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以內(nèi)的所有完數(shù)

一個(gè)按鈕里調(diào)用的過程

Private Sub Command1_Click()

OutputWanNumber 1000

End Sub

4.'求完數(shù)的過程

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.求各位數(shù)字之和

input a:'輸入任意數(shù)

do

b=a mod 10:'取a的末位數(shù)

sum=sum+b:'求和

a=a 10:'去掉末位數(shù)

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.求最小公倍數(shù)

Private Sub Form_Load()

Form1.AutoRedraw = True

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

n1 = InputBox(“輸入n1”)

m1 = InputBox(“輸入m1”)

If m1 > n1 Then '為了求最小公倍數(shù)，增加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;“的最大公約數(shù)為”;n

Print “最小公倍數(shù)=”, m1 * n1 / n

End Sub

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

8.級(jí)數(shù)有限項(xiàng)求和問題（題目類型太多）

9.求質(zhì)因子問題

Private Sub Command1_Click()

Dim N As Integer, I As Integer

N = Val(InputBox(“請(qǐng)輸入2的整數(shù):”))

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.字符統(tǒng)計(jì)

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.判定素?cái)?shù)過程

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.求最大公約數(shù)過程；

Function Max公約數(shù)(A As Long, B As Long)'求出兩個(gè)數(shù)的最大公約數(shù) 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 '輾轉(zhuǎn)相除法

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

X = Y: Y = K

Loop

Max公約數(shù) = 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(“輸入整數(shù)”)

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 “原數(shù)組:”

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學(xué)習(xí)心得體會(huì)

VB學(xué)習(xí)心得體會(huì)

VB學(xué)習(xí)>心得體會(huì)

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

VB程序設(shè)計(jì)的入門學(xué)習(xí)并不難，但需要在學(xué)習(xí)的過程中掌握一個(gè)良好的程序設(shè)計(jì)習(xí)慣，這時(shí)，做好課前預(yù)習(xí)，上課認(rèn)真聽講，下課認(rèn)真消化所學(xué)內(nèi)容顯得十分重要。上機(jī)實(shí)驗(yàn)課努力完成老師留的課堂作業(yè)，能加深對(duì)所學(xué)知識(shí)點(diǎn)的理解和運(yùn)用。能做到這些，也是積極主動(dòng)學(xué)習(xí)的表現(xiàn)。

對(duì)于VB,每一個(gè)VB老師都是一個(gè)嚴(yán)謹(jǐn)?shù)睦蠋煟髧?yán)格是應(yīng)該的。剛學(xué)習(xí)VB,嚴(yán)格要求格式，這是熟練之后能隨意運(yùn)用的基礎(chǔ)，也是學(xué)好VB課程的重要前提。在課上，應(yīng)該注意老師所提到的每一點(diǎn)要求，上機(jī)課認(rèn)真完成老師布置的作業(yè)，注意每一個(gè)細(xì)節(jié)，爭(zhēng)取做到零失誤。

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

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

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

通過對(duì)VB的學(xué)習(xí)，對(duì)VB語言有了初步的認(rèn)知，對(duì)程序有了初步的設(shè)計(jì)方案，能根據(jù)要求設(shè)計(jì)出想要的程序，鍛煉了自己的創(chuàng)造性思維，是培養(yǎng)邏輯思維的好方法，同時(shí)我經(jīng)?？赐瑢W(xué)設(shè)計(jì)好的程序代碼，然后想想別人為什么這么設(shè)計(jì)就能達(dá)到效果，我的設(shè)計(jì)能不能完成更多的功能，這樣優(yōu)秀了自己，幫助了自己，提高了自身水平，同樣，也欣賞了別人，對(duì)別人是贊美，對(duì)自己是幫助，總而言之，VB課程對(duì)我的計(jì)算機(jī)水平起到了推動(dòng)的作用。對(duì)VB更多的是喜愛，那一點(diǎn)點(diǎn)，是寵愛。

第三篇：VB學(xué)習(xí)心得體會(huì)

篇一：vb學(xué)習(xí)的心得體會(huì) vb學(xué)習(xí)的心得體會(huì) ————?jiǎng)熗?/p>

這學(xué)期選修了vb這門學(xué)科，想從學(xué)習(xí)中對(duì)計(jì)算機(jī)有更深刻的認(rèn)知，也對(duì)我大學(xué)中的2級(jí)考試奠定基礎(chǔ)。那么談?wù)勥@學(xué)期的學(xué)習(xí)中對(duì)vb的認(rèn)知和心得體會(huì)。

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

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

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

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

下面是我測(cè)試實(shí)際過程

大家也可以和我一樣練習(xí)練習(xí)

下面是我的源代碼可以供大家參考下也希望高手指點(diǎn)下（框架就沒必要給了）dim baud as string dim text2enbale, asciflag as boolean 停止顯示標(biāo)志 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 串口未打開，請(qǐng)打開串口, 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 = 關(guān)閉串口 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后面的設(shè)置焦點(diǎn)將失敗 錯(cuò)誤 text2enbale = true option2.value = true 默認(rèn)顯示是以16進(jìn)制顯示 text3.text = text3.setfocus end sub 至此 一個(gè)簡(jiǎn)單的小工程就完成了，因?yàn)槲沂请娮有畔⒐こ虒I(yè)對(duì)高級(jí)編程還是很菜鳥的，其實(shí)這個(gè)功能也是我一直想能夠自己實(shí)現(xiàn)的，因?yàn)橹耙恢币詾閷W(xué)習(xí)vb 會(huì)花好多時(shí)間，就像之前一直在學(xué)習(xí)arm一樣半天模不著頭腦。所以遲遲不敢接觸。估計(jì)也好多人和我一樣，其實(shí)學(xué)習(xí)開始了 也會(huì)發(fā)現(xiàn)并不是想象中那樣。2012-7-30 青檐鈴風(fēng)篇三：vb學(xué)習(xí)心得體會(huì) vb學(xué)習(xí)心得體會(huì)

這學(xué)期選修了vb這門學(xué)科，想從學(xué)習(xí)中對(duì)計(jì)算機(jī)有更深刻的認(rèn)知，也對(duì)我大學(xué)中的2級(jí)考試奠定基礎(chǔ)。那么談?wù)勥@學(xué)期的學(xué)習(xí)中對(duì)vb的認(rèn)知和心體會(huì)。

通過學(xué)習(xí)vb我基本學(xué)會(huì)了編輯一些小程序，掌握了一些基本的知識(shí)，得到了以下一些收獲： 1.富業(yè)余生活。曾經(jīng)業(yè)余時(shí)間到處游手好閑的身影不見

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

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

3、鍛煉意志。編程可不是一項(xiàng)輕松的活，尤其是一個(gè)人

開發(fā)制作軟件時(shí)，那工作量就多了。沒有一定的坐功、細(xì)心程度及耐性那是絕對(duì)做不到的。有時(shí)，把程序做完了需要調(diào)試運(yùn)行，但是就是不能達(dá)到自已設(shè)計(jì)的效果和目的，那你得戴上放大鏡找啊找啊，也許就是因?yàn)橐粋€(gè)符號(hào)或一個(gè)字母，你就得花上個(gè)幾個(gè)小時(shí)，半天，甚至更長(zhǎng)。只要有一顆永不退縮的心，我相信你一定能找到問題所在，最后一定能見到你開心的笑容，也一定能找到成功者的感覺。

通過這個(gè)學(xué)期的學(xué)習(xí)，對(duì)了vb這種高級(jí)語言有了初

步的認(rèn)知，對(duì)一些小的程序有了初步的設(shè)計(jì)方案，能根據(jù)要求設(shè)計(jì)出想要的程序，鍛煉了自己的創(chuàng)造性思維，是培養(yǎng)邏輯思維的好方法，同時(shí)我經(jīng)?？赐瑢W(xué)設(shè)計(jì)好的程序代碼，然后想想別人為什么這么計(jì)就能達(dá)到效果，我的設(shè)計(jì)能不能完成更多的功能，這樣優(yōu)秀了自己，幫助了自己，提高了自身水平，同樣，也欣賞了別人，對(duì)別人是贊美，對(duì)自己是幫助，總而言之，這學(xué)期的vb課程讓我收了很多。

第四篇：VB學(xué)習(xí)札記

VB學(xué)習(xí)札記

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

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

按照這樣的流程，花了兩個(gè)多禮拜，陸續(xù)把VB復(fù)習(xí)的差不多了。而且作業(yè)也完成的差不多了。

我總結(jié)了一下我學(xué)習(xí)VB的方法：

首先，要保持良好的學(xué)習(xí)心態(tài)

1、要有自信,自強(qiáng),積極主動(dòng)學(xué)習(xí).2、不要畏懼困難，克服畏難情緒,樹立學(xué)好程序設(shè)計(jì)的信心

之后，我覺得要有良好的學(xué)習(xí)習(xí)慣

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

程序設(shè)計(jì)入門階段要經(jīng)常自己動(dòng)手抄寫或編寫一些小程序,親自動(dòng)手進(jìn)行程序設(shè)計(jì)是創(chuàng)造性思維應(yīng)用的體現(xiàn),是培養(yǎng)邏輯思維的好方法.因此一定要多動(dòng)手編寫程序,而且要從小程序開發(fā)開始,逐漸提高寫程序的能力.程序設(shè)計(jì)課是高強(qiáng)度的腦力勞動(dòng),不是聽會(huì)的,也不是看會(huì)的,而是練會(huì)的。只有自己動(dòng)手,編寫一些程序,才會(huì)有成就感,進(jìn)而對(duì)課程產(chǎn)生興趣,學(xué)起來才比較從容。

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

第五篇：VB指導(dǎo)學(xué)習(xí)

2005-7-24

VB指導(dǎo)學(xué)習(xí)

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

if num=10 then print num

當(dāng)then后面（同一行）有執(zhí)行語句時(shí)，if語句不能加end if

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

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

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

如：print num _

+14、除法：a/bab

C++：“/”是除法，a、b都是int，則結(jié)果是int，如果其中一個(gè)是float，則結(jié)果float“”是轉(zhuǎn)義字符。

VB：“/”是除法，有小數(shù)?！啊比≌ㄐ?shù)點(diǎn)后舍）

5、case語句用法：

private sub form1_click()

dim a

select case a

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

print a

case else

msgbox”不在范圍內(nèi)”

end select

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

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

7、private sub form_click()

for I=2to4 step-1讀完完整的一句之后，如發(fā)現(xiàn)問題，則跳過此句執(zhí)行下一句。print I

next

print I本程序只執(zhí)行此句一次

end sub8、倒序輸出字符串

取字符函數(shù)mid(string,2,3)表示從string字符串中第二位開始，一共取三位如：mid(abcdefg,2,3)，則結(jié)果為 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窗體里有兩個(gè)文本框和一個(gè)按鈕

9、循環(huán)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 網(wǎng)頁

添加部件 ms internet controls 控件

private sub form_click()

webbrowser1.navigate app.path & “a心理測(cè)試.html”app.path表示當(dāng)前目錄end sub

private sub form1.resize()

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

webbrower1.width=form1.scalewidth-10如不加scale，則會(huì)覆蓋一點(diǎn)邊

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

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

Cancel=true-?取消關(guān)閉

End if

End sub13、”關(guān)于”窗體

添加“關(guān)于”對(duì)話框

14、使用“選項(xiàng)卡”省地方

添加控件“ms tabbed dialog control 6.0”

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

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

html help workshop

1.目錄-> 節(jié)點(diǎn)&頁面-> 編譯

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

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

4.作節(jié)點(diǎn) 頁面 關(guān)鍵字

project(工程)->contents(目錄)->index(索引)->ok->保存節(jié) 鑰匙增加關(guān)鍵字contents(目錄)->是否創(chuàng)建->ok->保存->點(diǎn)左第二個(gè)文件夾則屬性換成書圖標(biāo)

16、用VB調(diào)用幫助文件

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

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

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

18、shell 只能調(diào)用.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．工程屬性設(shè)“幫助菜單名”

2．App.helpfile= ??

3．Sendkeys”{f1}”

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

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

Api例子

下午

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

22、動(dòng)態(tài)生成控件必須用控件組

23、缺省事件是雙擊控件時(shí)自動(dòng)出現(xiàn)的事件

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

24、cotfouse->事件

25、模式&非模式窗體：

26、參數(shù)傳遞：默認(rèn)按引用傳遞，Byval是按值傳遞

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

語法錯(cuò)誤：

運(yùn)行時(shí)錯(cuò)誤：一般不出錯(cuò)，特定時(shí)出錯(cuò)，考慮不周全，如除數(shù)為0

邏輯錯(cuò)誤：不報(bào)錯(cuò)，寫的不對(duì)，如循環(huán)次數(shù)不對(duì)。

錯(cuò)誤處理代碼

1． 創(chuàng)建捕獲錯(cuò)誤代碼

2． 處理此錯(cuò)誤

3． 繼續(xù)執(zhí)行

on error goto 1標(biāo)號(hào)（數(shù)字&字母都可以）

exit sub

1:

msgbox(“除數(shù)不為0”)

text1.text=””

text1.setfouse

end sub

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

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

F8是單步運(yùn)行

28、對(duì)象 –> err.屬性&方法 number(錯(cuò)誤編號(hào))

29、dbpath=commondialog.filename

if dbpath=””

end

con.open

else resume

showopen30、C++復(fù)習(xí)題：

簡(jiǎn)單

1． 用戶接收一個(gè)數(shù)，調(diào)用一個(gè)函數(shù)，輸出該數(shù)的立方

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

難度適中

3． 民主投票方法選班長(zhǎng)，候選人編號(hào)A、B、C、D每位同學(xué)只能選一人作班長(zhǎng)，輸入每張選票的候選人編號(hào)A~D，輸入0終止，調(diào)用函數(shù)process()輸出每人得票數(shù)及當(dāng)選人

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

高難度

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

超難度

6． 賣票，車站一共15，每站上（剩下站數(shù)）個(gè)人，然后剩下每站依次下一個(gè)人，問應(yīng)

設(shè)幾個(gè)座位，賣出多少?gòu)埰?/p>

7． 發(fā)牌：按順序發(fā)隨機(jī)牌（使用隨機(jī)數(shù)）