第一篇：VB程序設(shè)計(jì)期末復(fù)習(xí)總結(jié)[范文模版]

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

2.Label3.Text = Format(x, “00000”)，設(shè)置x是一個(gè)五位數(shù)，不足左側(cè)用零來(lái)補(bǔ)。

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

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

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

8.Cursor屬性決定運(yùn)行時(shí)鼠標(biāo)移動(dòng)到對(duì)象上時(shí)，顯示出的鼠標(biāo)指針的圖像。其屬性值是枚舉類型。

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

10.FormBorderStyle屬性用于設(shè)置窗體邊框的樣式。其他的BorderStyle屬性是用來(lái)設(shè)置邊框格式的。

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

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

15.ReadOnly屬性用于設(shè)置文本框是否可以編輯。默認(rèn)值為False，表示運(yùn)行程序時(shí)能對(duì)文本框進(jìn)行編輯。當(dāng)其值為True時(shí)，不能編輯文本框中的內(nèi)容，但可以選定文本框中的內(nèi)容。

16.PassWordChar屬性設(shè)置在文本框中取代用戶輸入而顯示的字符。例如，當(dāng)設(shè)置為“*”時(shí)，運(yùn)行程序時(shí)文本框中輸入的內(nèi)容存儲(chǔ)在Text屬性中，但均以“*”顯示。一般用于設(shè)置口令。

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

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

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

21.Vb中變量命名法：必須以字母或下劃線開(kāi)頭，由字母、數(shù)字和下劃線組成，長(zhǎng)度不超過(guò)1023個(gè)字符。如果名稱以下劃線開(kāi)頭，則必須包含至少一個(gè)字母或數(shù)字。不能使用VB中的關(guān)鍵字，如：Integer、If等。

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

23.n是十進(jìn)制/八進(jìn)制/十六進(jìn)制整數(shù)，八進(jìn)制在整數(shù)前面加&O（是字母O，不是數(shù)字0），例如：&O56、&O56S、&O56L。十六進(jìn)制在整數(shù)前面加&H例如：&H56、&HAB12、&HAB、&HABS、&HABL。Decimal、Single、Double只能表示十進(jìn)制，前者是因?yàn)槎x，后兩者是因?yàn)槭歉↑c(diǎn)數(shù)。

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

Mid(b, 2, 1)= 0

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

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

25.后綴

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

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

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

30.串聯(lián)運(yùn)算符“+”運(yùn)算符既可作為字符串運(yùn)算符，又可作為算術(shù)運(yùn)算符。當(dāng)“+”運(yùn)算符兩邊操作數(shù)都是字符串時(shí)，進(jìn)行串聯(lián)運(yùn)算，將兩個(gè)字符串連接起來(lái)，并作為結(jié)果。當(dāng)“+”運(yùn)算符兩邊操作數(shù)都是數(shù)值時(shí)，進(jìn)行加法運(yùn)算。當(dāng)一側(cè)是數(shù)字字符串，另一側(cè)是數(shù)值時(shí)，若option strict為on則顯示錯(cuò)誤，off則正確轉(zhuǎn)化為double運(yùn)算，默認(rèn)值為off；當(dāng)一側(cè)是數(shù)值，另一側(cè)是非數(shù)字的字符串是，錯(cuò)誤?！?”運(yùn)算符不管兩邊操作數(shù)的數(shù)據(jù)類型，直接進(jìn)行連接操作。

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

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

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

算術(shù)運(yùn)算符＞字符串運(yùn)算符＞關(guān)系運(yùn)算符＞邏輯運(yùn)算符

具有相同優(yōu)先順序的運(yùn)算符將按照它們?cè)诒磉_(dá)式中出現(xiàn)的順序從左至右進(jìn)行計(jì)算。當(dāng)表達(dá)式中包含多個(gè)運(yùn)算符時(shí)，使用圓括號(hào)，可以改變計(jì)算順序，圓括號(hào)內(nèi)的表達(dá)式優(yōu)先計(jì)算。34.35.36.邏輯運(yùn)算符的功能是對(duì)操作數(shù)進(jìn)行邏輯運(yùn)算（又稱布爾運(yùn)算），其運(yùn)算結(jié)果是邏輯值True或False。Const PI As Single = 3.1415

'聲明符號(hào)常量。聲明一個(gè)常量，不一定非得用dim，const也可以

數(shù)學(xué)函數(shù)包含在System.Math類中。該類中包含許多方法和常量，利用這些方法和常量可以進(jìn)行各種數(shù)學(xué)運(yùn)算。這些方法可以作為數(shù)學(xué)函數(shù)使用，使用時(shí)，在函數(shù)名前面加“Math.”。

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

大小寫(xiě)字母轉(zhuǎn)換函數(shù)，格式：UCase(s)、LCase(s)。功能：s是一個(gè)字符型量，UCase將字符串中的所有字母轉(zhuǎn)換成大寫(xiě)字母，LCase將字符串中的所有字母轉(zhuǎn)換成小寫(xiě)字母。ucase(“a”)也有引號(hào)

判斷文本框TextBox1中輸入的是否為單個(gè)字母的表達(dá)式為：

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是一個(gè)字符型數(shù)據(jù)。Ltrim的返回值是去除字符串s左邊（前面）空格后的字符串、Rtrim的返回值是去除字符串s右邊（后面）空格后的字符串、Trim的返回值是去除字符串s前后空格的字符串。字符串替換，格式：Replace(s, s1, s2[, n[, m]])。功能：s、s1和s2是一個(gè)字符型數(shù)據(jù)，n和m是一個(gè)整型數(shù)據(jù)。Replace在字符串s中從第n個(gè)字符開(kāi)始，將前m個(gè)字符串s1替換為s2，并將第n個(gè)字符之前的字符刪除。若缺省m，替換把第n個(gè)字符開(kāi)始的所有符合條件的字符串。若缺省n，則從第一個(gè)字符串開(kāi)始替換。

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

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

47.科學(xué)表示法的數(shù)字格式，使用標(biāo)準(zhǔn)的科學(xué)表示法表示數(shù)字。格式名Scientific提供兩個(gè)有效位，格式名E或者e提供六個(gè)有效位。示例：Format(1234.567,“Scientific”)的運(yùn)算結(jié)果為“1.23E+03” ；Format(1234.567, “e”)的運(yùn)算結(jié)果為“1.234567E+003”。

48.常用的用戶定義數(shù)字格式，0 和 #。符號(hào)“0”和“#”用于決定顯示數(shù)值整數(shù)部分和小數(shù)部分的位數(shù)。其相同之處是：若數(shù)值整數(shù)部分的位數(shù)多于格式字符串的位數(shù)，按實(shí)際數(shù)值返回；若小數(shù)部分的位數(shù)多于格式字符串的位數(shù)，按四舍五入計(jì)算。不同之處是：當(dāng)數(shù)值的位數(shù)少于格式字符串的位數(shù)時(shí)，“0”格式將不足部分補(bǔ)0，而“#”則不顯示。49..和 ，符號(hào)“.”表示加小數(shù)點(diǎn)，“,”表示加千分位。示例：

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

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

等價(jià)于

sum = sum + s 連乘 n *= i

等價(jià)于

n = n * i

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

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

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

57.如果是數(shù)字，則沒(méi)有is。

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

60.UBound函數(shù)，格式為：UBound(數(shù)組名 [, 維])。使用UBound函數(shù)可以計(jì)算出數(shù)組的任一維可用的最大下標(biāo)，從而確定數(shù)組的任一維的上界。其中：參數(shù)維指定返回?cái)?shù)組的哪一維。1（默認(rèn)）代表第一維，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 函數(shù)的表示法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.打開(kāi)保存等操作的用法：

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 = “簡(jiǎn)單文本格式|*.txt|復(fù)雜文本格式|*.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 打開(kāi)ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs)Handles 打開(kāi)ToolStripMenuItem.Click

OpenFileDialog1.FileName = ”“

OpenFileDialog1.Filter = ”簡(jiǎn)單文本|*.txt|復(fù)雜文本|*.rtf“

OpenFileDialog1.FilterIndex = 1

OpenFileDialog1.Title = ”朕的打開(kāi)......“

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 復(fù)制ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs)Handles 復(fù)制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 日期時(shí)間ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs)Handles 日期時(shí)間ToolStripMenuItem.Click

RichTextBox1.SelectedText = Now

End Sub

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

Call 復(fù)制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來(lái)做 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

第二篇：《vb程序設(shè)計(jì)》期末復(fù)習(xí)題及答案范文

《vb程序設(shè)計(jì)》期末復(fù)習(xí)題及答案

一、填空題

1．創(chuàng)建一個(gè)VB應(yīng)用程序三個(gè)主要的步驟是_(創(chuàng)建應(yīng)用程序界面)、_(設(shè)置屬性_)和_(_編寫(xiě)代碼__)__。

2．當(dāng)程序運(yùn)行時(shí)，要求窗體中的文本框呈現(xiàn)空白，則在設(shè)計(jì)時(shí)，應(yīng)當(dāng)在此文本框的__屬性________窗口中，把此文本框的____text_________屬性設(shè)置成空白。

3．Label和TextBox控件用來(lái)顯示和輸入文本，如果僅需要讓?xiě)?yīng)用程序在窗體中顯示文本信息，可使用___label________控件；若允許用戶輸入文本，則應(yīng)使用__textbox___________控件。4．窗體的常用方法有_load方法 Show方法 Hide方法_ Unload方法_。

5．要想在代碼中給名為txtshow的文本框賦予文本：GOOD WORK，應(yīng)當(dāng)編寫(xiě)的語(yǔ)句是_（txtshow.text=“GOOD WORK”_）。

6．若命令按鈕的名稱為Cmdopen，程序要求單擊該命令按鈕時(shí)，打開(kāi)一個(gè)窗口frm1，請(qǐng)對(duì)以下事件過(guò)程填空。Private Sub Cmdopen_ _click()__________ _frm1.show_ End Sub 7．Visual Basic 6種類型的表達(dá)式是_（算術(shù)表達(dá)式_）（字符串表達(dá)式）（關(guān)系表達(dá)式）（布爾表達(dá)式）（日期表達(dá)式）（對(duì)象表達(dá)式）。Visual Basic根據(jù)表達(dá)式的_．1 _運(yùn)算符__來(lái)確定表達(dá)式的類型。

8．表達(dá)式93 7 Mod 2 ^ 2 的值是___________。

9．已知a=3，b=4，c=5，表達(dá)式a>b and Not c>a Or c>b And ca And Not b

10．日期表達(dá)式 #2/24/02#y ^ 2)/(2 * x)___。

12．設(shè)某個(gè)程序中要用到一個(gè)二維數(shù)組，要求數(shù)組名為A，類型為字符串類型，第一維下標(biāo)從1到5，第二維下標(biāo)從-2到6，則相應(yīng)的數(shù)組聲明語(yǔ)句為_(kāi)（Dim A(1 To 5，-2 To 6)As String）_。13．事件就是在對(duì)象上所發(fā)生的事情，Visual Basic中的事件如__單擊_________、_雙擊__________、_裝載_____________等。一個(gè)對(duì)象響應(yīng)的事件可以有_多____個(gè)，用戶不能建立新的事件。事件過(guò)程是指_（響應(yīng)某個(gè)事件后所執(zhí)行的程序代碼）_。假設(shè)某一事件過(guò)程如下：

Private Sub cmd1_Click()Form1.Caption=“VB示例” End Sub 則響應(yīng)該過(guò)程的對(duì)象名是_cmd1_____________，事件名是_____click________。

14．對(duì)象的方法用于(_完成某種特定的功能__)。當(dāng)方法不需要任何參數(shù)并且也沒(méi)有返回值時(shí)，調(diào)用對(duì)象的方法的格式為_(kāi)(對(duì)象名.方法名)_，例如，對(duì)窗體Form1使用Show方法，應(yīng)寫(xiě)成__form1.show_______________。

15．PictureBox控件可通過(guò)設(shè)置其(autosize)__屬性為True使之可自動(dòng)調(diào)整大??；而Image控件可通過(guò)設(shè)置其_(stretch_)__屬性為True，使其加載的圖片能自動(dòng)調(diào)整大小以適應(yīng)Image。

16．在Visual Basic程序中實(shí)現(xiàn)復(fù)制文件“c:command.com”到d:盤根目錄下的語(yǔ)句為FileCopy “c:command.com”，“d:command.com”_。

二、單項(xiàng)選擇題

1．下列控件中沒(méi)有Caption屬性的是（B）

A、標(biāo)簽 B、文本框 C、框架 D、命令按紐 2．除框架外，能對(duì)單選按紐分組的控件是（C）。A、窗體 B、標(biāo)簽 C、圖片框 D、圖像 3．下列符號(hào)不能作為VB中變量名的是（C）。

A、ABCDEFG B、P00000 C、89YWDDF D、xyz 4． 下列不屬于Visual Basic數(shù)據(jù)文件的是（D）。A、順序文件 B、隨機(jī)文件 C、二進(jìn)制文件 D、數(shù)據(jù)庫(kù)文件

5．若要求從文本框中輸入密碼時(shí)在文本框中只顯示*號(hào)，則應(yīng)用在此文本框的屬性窗口中設(shè)置（D）。

A、Text屬性值為* B、Caption屬性值為* C、Password屬性值為空 D、PasswordChar屬性值為* 6．表達(dá)式2*3^2+2*8/4+3^2的值為（B）。A、64 B、31 C、49 D、42 7．表達(dá)式mid(“abcdefg”,3,2)的值是（B）A、abc B、cd C、bcd D、abcde 8．?dāng)?shù)學(xué)表達(dá)式Sin25°寫(xiě)成VB表達(dá)式是（D）。A、Sin25 B、Sin（25）C、Sin（25°）D、Sin（25*3.14/180）

9．Sub過(guò)程與 Function過(guò)程最根本的區(qū)別是（D）。A、Sub過(guò)程可以使用Call語(yǔ)句或直接使用過(guò)程名調(diào)用，而Function過(guò)程不可以。

B、Function過(guò)程可以有參數(shù)，Sub過(guò)程不可以。C、兩種過(guò)程參數(shù)的傳遞方式不同。

D、Sub過(guò)程的過(guò)程名不能返回值，而Function過(guò)程能夠通過(guò)過(guò)程名返回值。

10．選拔身高T超過(guò)1.7米且體重W小于62.5公斤的人，表示該條件的布爾表達(dá)式為（C）

A、T>=1.7 And W<=62.5 B、T<=1.7 Or W>=62.5 C、T>1.7 And W<62.5 D、T>=1.7 Or W<62.5 11.下列對(duì)象不能響應(yīng) Click事件的是（D）A、列表框 B、圖片框 C、窗體 D、計(jì)時(shí)器

12．在Visual Basic中，按文件的訪問(wèn)方式不同，可以將文件分為（A）

A、順序文件、隨機(jī)文件和二進(jìn)制文件 B、文本文件和數(shù)據(jù)文件

C、數(shù)據(jù)文件和可執(zhí)行文件 D、ASCⅡ文件和二進(jìn)制文件

13．將通用對(duì)話框CommonDialog的類型設(shè)置成“顏色”對(duì)話框，可調(diào)用該對(duì)話框的（C）方法。

A、ShowOpen B、ShowSave C、ShowColor D、ShowFont

三、指出下列句中的錯(cuò)誤，修改或者說(shuō)明原因。1．sum和int.sum都可以作為VB的變量名。(X)2．變量名的長(zhǎng)度最長(zhǎng)可達(dá)1024個(gè)字符。(255)3．下列程序運(yùn)行結(jié)果：3，3 Option Explicit Private Sub Command1_Click()Dim a，b As Integer Dim a as integer ,b as integer a = 3.6 b = 3.6 Text1.Text = a Text2.Text = b End Sub 4．程序可以改變定長(zhǎng)字符串的內(nèi)容和長(zhǎng)度。

5．Variant是一種特殊的數(shù)據(jù)類型，可以包含任何種類型的數(shù)據(jù)。．不完全正確。Variant是一種特殊的數(shù)據(jù)類型，除了定長(zhǎng)字符串?dāng)?shù)據(jù)及用戶定義類型外，可以包含任何種類型的數(shù)據(jù)，這是VB規(guī)定。

6．下列程序運(yùn)行結(jié)果為True Private Sub Command1_Click()a = 1 b = 2 c = 3 Text1.Text = c > a + b Or b1 And c + a > a Xor b < c#12/20/1999#的運(yùn)算結(jié)果是#12/11/1999# 8．可以在窗體的通用部分聲明靜態(tài)變量。

不正確。靜態(tài)變量為局部變量，只能在過(guò)程中聲明。

9．使用聲明語(yǔ)句建立一個(gè)變量后，Visual Basic會(huì)自動(dòng)對(duì)數(shù)值類型的變量賦初值0，變長(zhǎng)的字符串被初始化為一個(gè)零長(zhǎng)度的字符串“"，定長(zhǎng)字符串用空格填充，Variant變量被初始化為 Empty，布爾型的變量被初始化為False。

10．事件過(guò)程通常由事件驅(qū)動(dòng)執(zhí)行，而Sub過(guò)程通過(guò)過(guò)程調(diào)用執(zhí)行。

11．將焦點(diǎn)主動(dòng)設(shè)置到指定的控件或窗體上應(yīng)采用SetFocus方法。12．當(dāng)圖像控件（Image）的Stretch屬性為True時(shí)，Image控件能自動(dòng)調(diào)整自己的尺寸與顯示的圖片匹配。

不正確。該屬性設(shè)為Ture時(shí)，Image控件不能自動(dòng)調(diào)整自己的尺寸與顯示的圖片匹配，而可以使圖片自動(dòng)擴(kuò)展以適應(yīng)控件的尺寸。

四、讀程序題，寫(xiě)出程序運(yùn)行結(jié)果。1．Private Sub Form_Click()For I = 1 To 9 For j = 1 To 301 To 1 Step-1 Print k;Next k Print Next I End Sub 2．

Option Explicit Private Sub Command1_Click()Static S As Integer Dim i As Integer S = 1 For i = 1 To 5 S = S * i Next i Print S End Sub 3．

For X = 5 To 1 Step-1 For Y = 1 To 6y ^ 2)/(2 * x)12．Dim A(1 To 5，-2 To 6)As String 13．單擊 雙擊 裝載 多 響應(yīng)某個(gè)事件后所執(zhí)行的程序代碼 cmd1 Click 14．完成某種特定的功能 對(duì)象名.方法名 Form1.Show 15．AutoSize Stretch 16．FileCopy ”c:command.com“，”d:command.com“

二、單項(xiàng)選擇題

1．B 2．C 3．C 4．D 5．D 6．B 7．B 8．D 9．D 10．C 11．D 12．A 13．C

三、指出下列句中的錯(cuò)誤，修改或者說(shuō)明原因。1．int.sum 不正確。變量名中不能包括小數(shù)點(diǎn)。2．變量名的長(zhǎng)度最長(zhǎng)可達(dá)255個(gè)字符。3． 3.6，4 因?yàn)閍 不是整型變量。

4．不正確。程序不可以改變字符的長(zhǎng)度，這是VB規(guī)定。5．不完全正確。Variant是一種特殊的數(shù)據(jù)類型，除了定長(zhǎng)字符串?dāng)?shù)據(jù)及用戶定義類型外，可以包含任何種類型的數(shù)據(jù)，這是VB規(guī)定。

6．False。邏輯表達(dá)式計(jì)算結(jié)果。

7．不正確。兩個(gè)日期型數(shù)據(jù)相減，其結(jié)果是一個(gè)數(shù)值型數(shù)據(jù)。8．不正確。靜態(tài)變量為局部變量，只能在過(guò)程中聲明。9．正確。10．正確。11．正確。

12．不正確。該屬性設(shè)為Ture時(shí)，Image控件不能自動(dòng)調(diào)整自己的尺寸與顯示的圖片匹配，而可以使圖片自動(dòng)擴(kuò)展以適應(yīng)控件的尺寸。

四、讀程序題，寫(xiě)出程序運(yùn)行結(jié)果。1．程序運(yùn)行后，單擊窗體，輸出結(jié)果為： 1 1 2 1 1 2 3 2 1 1 2 3 4 3 2 1 1 2 3 4 5 4 3 2 1 1 2 3 4 5 6 5 4 3 2 1 1 2 3 4 5 6 7 6 5 4 3 2 1 1 2 3 4 5 6 7 8 7 6 5 4 3 2 1 1 2 3 4 5 6 7 8 9 8 7 6 5 4 3 2 1

2．程序運(yùn)行后，單擊按鈕Command1，輸出結(jié)果為： 3.* ** *** **** ***** 4.aabb-30 False aabb-30 False

30+60 90 30+60 90 5.11 13 9

五、編程題 1．

。120 Private Sub Command1_Click()Text1.Text = ”“ Text2.Text = ”“ Text3.Text = ”“ Text4.Text = ”“ End Sub

Private Sub Command2_Click()a = Trim(Text1.Text)b = Trim(Text2.Text)c = Trim(Text3.Text)If a = ”“ Or b = ”“ Or c = ”“ Then MsgBox ”成績(jī)填寫(xiě)不完全！“, vbCritical Else Text4.Text =(Val(a)+ Val(b)+ Val(c))/ 3 End If End Sub

Private Sub Command3_Click()Unload Me End Sub 2．

Private Sub Command1_Click()x = Val(Text1.Text)If x Mod 3 = 2 And x Mod 5 = 3 And x Mod 7 = 4 Then Print x Else Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text)End If End Sub 3．

Private Sub Check1_Click()If Check1.Value = 1 Then Label1.Font.Bold = True Else Label1.Font.Bold = False End If End Sub

Private Sub Check2_Click()If Check2.Value = 1 Then Label1.Font.Italic = True Else Label1.Font.Italic = False End If End Sub

Private Sub Command1_Click()Unload Me End Sub 4．

a = Val(InputBox(”輸入第一個(gè)數(shù)：“))b = Val(InputBox(”輸入第二個(gè)數(shù)：“))c = Val(InputBox(”輸入第三個(gè)數(shù)：“))If a < b Then t = a: a = b: b = t If a < c Then t = a: a = c: c = t If b < c Then t = b: b = c: c = t MsgBox(”求大小排第二的數(shù)是：" & b)

原文網(wǎng)址: http://hi.baidu.com/%CC%EC%D0%AB%C4%A7%BE%FD/blog/item/d446b034a6b3373f5bb5f5fd.html

由弘一網(wǎng)童保存，尚未注冊(cè)。注冊(cè)

第三篇：VB程序設(shè)計(jì)實(shí)踐總結(jié)

VB程序設(shè)計(jì)實(shí)踐總結(jié)

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

本期從事VB程序設(shè)計(jì)實(shí)踐教學(xué)工作。在工作中和工作之余，思考頗多，精簡(jiǎn)總結(jié)歸納如下：

1.教學(xué)輔導(dǎo)方式的多樣化

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

2.課堂講授的多樣化

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

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

大家都知道，現(xiàn)在學(xué)校里學(xué)習(xí)的知識(shí)和社會(huì)上用到的知識(shí)相差很遠(yuǎn)，很多學(xué)生學(xué)習(xí)了很多知識(shí)，可到了社會(huì)上去無(wú)從下手。鑒于此，我在課堂上適當(dāng)?shù)难由煸撜n程的相關(guān)知識(shí)。比如，在開(kāi)發(fā)一個(gè)成熟的管理信息系統(tǒng)時(shí)，我讓學(xué)生試著寫(xiě)系統(tǒng)需求說(shuō)明書(shū)，軟件設(shè)計(jì)說(shuō)明書(shū)等，同學(xué)明確的給學(xué)生提出軟件開(kāi)發(fā)的基本流程，以及一些軟件工程的知識(shí)和數(shù)據(jù)庫(kù)的知識(shí)。最后，還教學(xué)生使用一些安裝程序制作軟件，掌握些社會(huì)工作的技能。這樣，擴(kuò)展了學(xué)生的知識(shí)面，掌握了更多的技能，學(xué)生興趣更高，學(xué)習(xí)積極性也非常好。

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

1.知識(shí)點(diǎn)細(xì)節(jié)把握不夠，讓學(xué)生思考的東西過(guò)多；

2.知識(shí)點(diǎn)講解和延伸過(guò)多，不易于掌握；

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

第四篇：VB程序設(shè)計(jì)期末模擬試題及答案

0 《VB》期末復(fù)習(xí)題及答案

綜合復(fù)習(xí)題

一、填空題

1．創(chuàng)建一個(gè)VB應(yīng)用程序三個(gè)主要的步驟是__________________、________________和_____________________。

2．當(dāng)程序運(yùn)行時(shí)，要求窗體中的文本框呈現(xiàn)空白，則在設(shè)計(jì)時(shí)，應(yīng)當(dāng)在此文本框的__________窗口中，把此文本框的_____________屬性設(shè)置成空白。

3．Label和TextBox控件用來(lái)顯示和輸入文本，如果僅需要讓?xiě)?yīng)用程序在窗體中顯示文本信息，可使用___________控件；若允許用戶輸入文本，則應(yīng)使用_____________控件。

4．窗體的常用方法有__________、___________、___________和___________。5．要想在代碼中給名為txtshow的文本框賦予文本：GOOD WORK，應(yīng)當(dāng)編寫(xiě)的語(yǔ)句是____________________________________。

6．若命令按鈕的名稱為Cmdopen，程序要求單擊該命令按鈕時(shí)，打開(kāi)一個(gè)窗口frm1，請(qǐng)對(duì)以下事件過(guò)程填空。

Private Sub Cmdopen_ ___________ _____________________ End Sub 7．Visual Basic 6種類型的表達(dá)式是______________、______________、______________、________________、_________________、____________________。Visual Basic根據(jù)表達(dá)式的___________來(lái)確定表達(dá)式的類型。8．表達(dá)式93 7 Mod 2 ^ 2 的值是___________。

9．已知a=3，b=4，c=5，表達(dá)式a>b and Not c>a Or c>b And ca And Not b c2 End Sub 7．#12/31/1999#3 * I Print “ ”;Next j For k = 1 To I Print k;Next k For k = IX Print Tab(Y + 5);“*”;Next Y Print Next X 4．

Private Sub Form_Activate()Print “aa” & “bb”,-5 * 6,Not 2 <= 3 Print “aa” & “bb”;-5 * 6;Not 2 <= 3 Print Print “30+60”, Print 30 + 60 ？

？“30+60”;30 + 60 End Sub 5． X=1 Do While X<=10 If X Mod 7 =0 Then Y = X + 6 Else Z = X End If X = X + 2 Loop Print X,Y,Z

五、編程題

1．設(shè)計(jì)一個(gè)計(jì)算程序。該程序用戶界面如圖所示，由四個(gè)文本框：文本框1（text1）、文本框2（text2）、文本框3（text3）、文本框4（text4），和三個(gè)按鈕：命令按鈕1（command1）、命令按鈕2（command2）、命令按鈕3（command4）組成。程序運(yùn)行后，用戶單擊清除按鈕，則清除文本框中顯示的內(nèi)容。單擊計(jì)算按鈕，如果成績(jī)填寫(xiě)不完全，則給 4

出提示信息，否則計(jì)算三科平均成績(jī)。單擊退出按鈕則退出。

2．設(shè)計(jì)程序。要求：從文本框Text1中接收輸入的數(shù)據(jù)，當(dāng)單擊確定按鈕（command1）時(shí)，如果該數(shù)據(jù)滿足條件：除以3余2，除以5余3，除以7余4，則輸出；否則將焦點(diǎn)定位在文本框Text1中，選中其中的文本。

3．設(shè)計(jì)一個(gè)歡迎程序。該程序用戶界面如圖所示。要求程序運(yùn)行后，用戶選中粗體復(fù)選框時(shí)，標(biāo)簽（Label1）中的文字（歡迎您?。┑淖煮w變成粗體，用戶選中斜體復(fù)選框時(shí)，標(biāo)簽的字體變成斜體。若取消選中，則恢復(fù)原字體。單擊結(jié)束，則退出。4．任意輸入3個(gè)數(shù)，求大小排第二的那個(gè)數(shù)，寫(xiě)出程序代碼?！禫B》期末復(fù)習(xí)參考答案

一、填空題

1．創(chuàng)建應(yīng)用程序界面 設(shè)置屬性 編寫(xiě)代碼 2．屬性、text 3．Label TextBox 4．Load方法 Show方法 Hide方法 Unload方法 5．txtshow.text=“GOOD WORK” 6．Click()、frm1.show 7．算術(shù)表達(dá)式 字符串表達(dá)式 關(guān)系表達(dá)式 布爾表達(dá)式 日期表達(dá)式 對(duì)象表達(dá)式 運(yùn)算符 8．1 9．True False 10．12 11．Sin(x)^ 2 + Sqr(x ^ 2-y ^ 2)/(2 * x)12．Dim A(1 To 5，-2 To 6)As String 13．單擊 雙擊 裝載 多 響應(yīng)某個(gè)事件后所執(zhí)行的程序代碼 cmd1 Click 14．完成某種特定的功能 對(duì)象名.方法名 Form1.Show 15．AutoSize Stretch 16．FileCopy “c:command.com”，“d:command.com”

二、單項(xiàng)選擇題

1．B 2．C 3．C 4．D 5．D 6．B 7．B 8．D 9．D 10．C 11．D 12．A 13．C

三、指出下列句中的錯(cuò)誤，修改或者說(shuō)明原因。1．int.sum 不正確。變量名中不能包括小數(shù)點(diǎn)。2．變量名的長(zhǎng)度最長(zhǎng)可達(dá)255個(gè)字符。3． 3.6，4 因?yàn)閍 不是整型變量。

4．不正確。程序不可以改變字符的長(zhǎng)度，這是VB規(guī)定。

5．不完全正確。Variant是一種特殊的數(shù)據(jù)類型，除了定長(zhǎng)字符串?dāng)?shù)據(jù)及用戶定義類型外，可以包含任何種類型的數(shù)據(jù)，這是VB規(guī)定。6．False。邏輯表達(dá)式計(jì)算結(jié)果。

7．不正確。兩個(gè)日期型數(shù)據(jù)相減，其結(jié)果是一個(gè)數(shù)值型數(shù)據(jù)。8．不正確。靜態(tài)變量為局部變量，只能在過(guò)程中聲明。9．正確。10．正確。

11．正確。

12．不正確。該屬性設(shè)為Ture時(shí)，Image控件不能自動(dòng)調(diào)整自己的尺寸與顯示的圖片匹配，而可以使圖片自動(dòng)擴(kuò)展以適應(yīng)控件的尺寸。

四、讀程序題，寫(xiě)出程序運(yùn)行結(jié)果。

1．程序運(yùn)行后，單擊窗體，輸出結(jié)果為： 1 1 2 1 1 2 3 2 1 1 2 3 4 3 2 1 1 2 3 4 5 4 3 2 1 1 2 3 4 5 6 5 4 3 2 1 1 2 3 4 5 6 7 6 5 4 3 2 1 1 2 3 4 5 6 7 8 7 6 5 4 3 2 1 1 2 3 4 5 6 7 8 9 8 7 6 5 4 3 2 1 2．程序運(yùn)行后，單擊按鈕Command1，輸出結(jié)果為：120。3.* ** *** **** ***** 4.aabb-30 False aabb-30 False 30+60 90 30+60 90 5.11 13 9

五、編程題 1．

Private Sub Command1_Click()Text1.Text = “" Text2.Text = ”“ Text3.Text = ”“ Text4.Text = ”“ End Sub Private Sub Command2_Click()a = Trim(Text1.Text)b = Trim(Text2.Text)c = Trim(Text3.Text)If a = ”“ Or b = ”“ Or c = ”“ Then MsgBox ”成績(jī)填寫(xiě)不完全！“, vbCritical Else Text4.Text =(Val(a)+ Val(b)+ Val(c))/ 3 6

End If End Sub Private Sub Command3_Click()Unload Me End Sub 2．

Private Sub Command1_Click()x = Val(Text1.Text)If x Mod 3 = 2 And x Mod 5 = 3 And x Mod 7 = 4 Then Print x Else Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text)End If End Sub 3．

Private Sub Check1_Click()If Check1.Value = 1 Then Label1.Font.Bold = True Else Label1.Font.Bold = False End If End Sub Private Sub Check2_Click()If Check2.Value = 1 Then Label1.Font.Italic = True Else Label1.Font.Italic = False End If End Sub Private Sub Command1_Click()Unload Me End Sub 4．

a = Val(InputBox(”輸入第一個(gè)數(shù)：“))b = Val(InputBox(”輸入第二個(gè)數(shù)：“))c = Val(InputBox(”輸入第三個(gè)數(shù)：“))If a < b Then t = a: a = b: b = t If a < c Then t = a: a = c: c = t If b < c Then t = b: b = c: c = t MsgBox(”求大小排第二的數(shù)是：" & b)

第五篇：VB程序設(shè)計(jì)期末模擬試題及答案

《VB》期末復(fù)習(xí)題及答案

綜合復(fù)習(xí)題

一、填空題

1．創(chuàng)建一個(gè)VB應(yīng)用程序三個(gè)主要的步驟是__創(chuàng)建應(yīng)用程序界面_、_設(shè)置屬性_和_編寫(xiě)代碼_。2．當(dāng)程序運(yùn)行時(shí)，要求窗體中的文本框呈現(xiàn)空白，則在設(shè)計(jì)時(shí)，應(yīng)當(dāng)在此文本框的 屬性 窗

口中，把此文本框的__text__屬性設(shè)置成空白。

3．Label和TextBox控件用來(lái)顯示和輸入文本，如果僅需要讓?xiě)?yīng)用程序在窗體中顯示文本信 息，可使用___Label_____控件；若允許用戶輸入文本，則應(yīng)使用___TextBox___控件。4．窗體的常用方法有_Load方法 Show方法 Hide方法 Unload方法 5．要想在代碼中給名為txtshow的文本框賦予文本：GOOD WORK，應(yīng)當(dāng)編寫(xiě)的語(yǔ)句是 txtshow.text=“GOOD WORK” 6．若命令按鈕的名稱為Cmdopen，程序要求單擊該命令按鈕時(shí)，打開(kāi)一個(gè)窗口frm1，請(qǐng)對(duì)以

下事件過(guò)程填空。

Private Sub Cmdopen_ Click()、frm1.show End Sub 7．Visual Basic 6種類型的表達(dá)式是 算術(shù)表達(dá)式 字符串表達(dá)式 關(guān)系表達(dá)式 布爾表達(dá)式 日期表達(dá)式 對(duì)象表達(dá)式，Visual Basic根據(jù)表達(dá)式的_運(yùn)算符來(lái)確定表達(dá)式的類型。8．表達(dá)式93 7 Mod 2 ^ 2 的值是___________。

9．已知a=3，b=4，c=5，表達(dá)式a>b and Not c>a Or c>b And c

達(dá)式c>a And Not b

10．日期表達(dá)式 #2/24/02#1 > c2 End Sub 7．#12/31/1999#3 * I Print “ ”;Next j For k = 1 To I Print k;Next k For k = IX Print Tab(Y + 5);“*”;Next Y Print Next X 4．

Private Sub Form_Activate()Print “aa” & “bb”,-5 * 6,Not 2 <= 3 Print “aa” & “bb”;-5 * 6;Not 2 <= 3 Print Print “30+60”, Print 30 + 60 ？

？“30+60”;30 + 60 End Sub 5． X=1 Do While X<=10 If X Mod 7 =0 Then Y = X + 6 Else Z = X End If X = X + 2 Loop Print X,Y,Z

五、編程題

1．設(shè)計(jì)一個(gè)計(jì)算程序。該程序用戶界面如圖所示，由四個(gè)文本框：文本框1（text1）、文本框2（text2）、文本框3（text3）、文本框4（text4），和三個(gè)按鈕：命令按鈕1（command1）、命令按鈕2（command2）、命令按鈕3（command4）組成。程序運(yùn)行后，用戶單擊清除按鈕，則清除文本框中顯示的內(nèi)容。單擊計(jì)算按鈕，如果成績(jī)填寫(xiě)不完全，則給出提示信息，否則計(jì)算三科平均成績(jī)。單擊退出按鈕則退出。

2．設(shè)計(jì)程序。要求：從文本框Text1中接收輸入的數(shù)據(jù)，當(dāng)單擊確定按鈕（command1）時(shí)，如果該數(shù)據(jù)滿足條件：除以3余2，除以5余3，除以7余4，則輸出；否則將焦點(diǎn)定位在文本框Text1中，選中其中的文本。

3．設(shè)計(jì)一個(gè)歡迎程序。該程序用戶界面如圖所示。要求程序運(yùn)行后，用戶選中粗體復(fù)選框時(shí)，標(biāo)簽（Label1）中的文字（歡迎您?。┑淖煮w變成粗體，用戶選中斜體復(fù)選框時(shí)，標(biāo)簽的字體變成斜體。若取消選中，則恢復(fù)原字體。單擊結(jié)束，則退出。4．任意輸入3個(gè)數(shù)，求大小排第二的那個(gè)數(shù)，寫(xiě)出程序代碼。