VB練習(xí)題（上機(jī)）含答案

1、第一部分1 在窗體上添加一個(gè)命令按鈕(名稱為Cmd1，標(biāo)題為輸出平均值)。程序運(yùn)行后，單擊命令按鈕完成以下工作：隨機(jī)產(chǎn)生20個(gè)0到1000的整數(shù)，將其放入一個(gè)一維數(shù)組中求出所有元素的平均值，并顯示在窗體上(如下圖所示)Private Sub Cmd1_Click()Dim a%(19), i%, sum!, aver!RandomizeFor i = 0 To 19 a(i) = Int(Rnd * 1001) sum = sum + a(i)Next iaver = sum / 20Print averEnd Sub2 請(qǐng)?jiān)诿Q為Form1的窗體上添加一個(gè)名稱為Text1的文本框和一個(gè)名稱為

2、C1、標(biāo)題為轉(zhuǎn)換的命令按鈕，如下圖所示。在程序運(yùn)行時(shí)，單擊轉(zhuǎn)換按鈕，可以把Text1中的小寫字母轉(zhuǎn)換為大寫，把大寫字母轉(zhuǎn)換為小寫，其他字符不變。Private Sub C1_Click()Dim ch As String, ch1 As String, i%ch = Text1For i = 1 To Len(ch) If Asc(Mid(ch, i, 1) = 65 And Asc(Mid(ch, i, 1) max Then max = a(i)Next iPrint maxEnd Sub4 請(qǐng)?jiān)O(shè)計(jì)如下圖所示窗體界面。程序運(yùn)行時(shí)，在選中一個(gè)或兩個(gè)復(fù)選框和一個(gè)單選按鈕時(shí)，單擊命令按鈕，則對(duì)文

3、本框中的文本內(nèi)容做相應(yīng)的設(shè)置。請(qǐng)編寫適當(dāng)?shù)氖录^(guò)程，完成上述功能。 Private Sub Command1_Click()If Option1.Value = True Then Text1.FontName = 宋體Else Text1.FontName = 隸書End IfIf Check1.Value = 1 Then Text1.FontUnderline = TrueElse Text1.FontUnderline = FalseEnd IfIf Check2.Value = 1 Then Text1.FontItalic = TrueElse Text1.FontItalic =

4、 FalseEnd IfEnd Sub5 在名稱為Form1的窗體上添加一個(gè)名稱為Text1的文本框；添加兩個(gè)標(biāo)題分別為對(duì)齊方式、字體，名稱分別為Fm1、Fm2的框架；在Fm1框架中添加三個(gè)單選按鈕，標(biāo)題分別為左對(duì)齊、居中、右對(duì)齊，名稱分別為Opt1、Opt2、Opt3；在Fm2框架中添加兩個(gè)單選按鈕，標(biāo)題分別為宋體、黑體，名稱分別為Opt4、Opt5。 要求：編寫五個(gè)單選按鈕的Click事件過(guò)程，使程序運(yùn)行時(shí)，單擊這些單選按鈕，可以對(duì)文本框中的內(nèi)容實(shí)現(xiàn)相應(yīng)的操作(如圖所示)。Private Sub Opt1_Click()If Opt1 Then Text1.Alignment = 0End

5、 SubPrivate Sub Opt2_Click()If Opt2 Then Text1.Alignment = 2End SubPrivate Sub Opt3_Click()If Opt3 Then Text1.Alignment = 1End SubPrivate Sub Opt4_Click()If Opt4 Then Text1.FontName = 宋體End SubPrivate Sub Opt5_Click()If Opt5 Then Text1.FontName = 黑體End Sub6 請(qǐng)?jiān)O(shè)計(jì)如下圖所示窗體界面。運(yùn)行程序時(shí)，先向左側(cè)文本框中輸入一個(gè)不超過(guò)10的正整數(shù)，然

6、后選擇N的階乘或(N+2)的階乘單選鈕，即可進(jìn)行計(jì)算，計(jì)算結(jié)果在右側(cè)文本框中顯示。請(qǐng)編寫程序完成上述功能。 Dim n%Private Sub Form_Load()End SubPrivate Sub Option1_Click()Dim i%n = Val(Text1)m = 1For i = 1 To n m = m * iNext iText2 = mEnd SubPrivate Sub Option2_Click()Dim i%m = 1For i = 1 To n + 2 m = m * iNext iText2 = mEnd Sub7 在窗體上添加兩個(gè)文本框和三個(gè)標(biāo)簽，設(shè)置它們的

7、屬性，達(dá)到下圖效果。程序運(yùn)行時(shí)，在第一個(gè)文本框輸入一串字符，在第二個(gè)文本框中輸入一個(gè)字符，然后單擊統(tǒng)計(jì)命令按鈕，統(tǒng)計(jì)第二個(gè)文本框中字符(大小寫被認(rèn)為是不同的字母)在第一個(gè)文本框中出現(xiàn)的次數(shù)，統(tǒng)計(jì)結(jié)果在標(biāo)簽Label3中顯示。 Private Sub Command1_Click()Dim i%, n%For i = 1 To Len(Text1) If Mid(Text1, i, 1) = Text2 Then n = n + 1Next iLabel3 = nEnd SubPrivate Sub Label3_Click()End Sub8 在窗體上添加一個(gè)文本框和一個(gè)命令按鈕。程序運(yùn)行后，

8、單擊命令按鈕，即可計(jì)算出0200范圍內(nèi)能被3或7整除的所有整數(shù)的和，并顯示在文本框中。程序運(yùn)行界面如下圖所示。Private Sub Command1_Click()Dim i%, sum%For i = 0 To 200 If i Mod 3 = 0 Or i Mod 7 = 0 Then sum = sum + iNext iText1 = sumEnd SubPrivate Sub Text1_Change()End Sub9 請(qǐng)?jiān)O(shè)計(jì)如下圖所示界面(文本框名稱為：Txt1，按鈕名稱為：Cmd1)。程序運(yùn)行時(shí)在文本框中輸入字符串，點(diǎn)擊命令按鈕，判斷文本框中的字符串是否是回文，將判斷結(jié)果顯示

9、在窗體上。所謂回文是指字符串正序和逆序的結(jié)果相同，如“aBCCBa”是回文，“aBCcBa”不是回文。Private Sub Cmd1_Click()Dim ch As StringFor i = Len(Txt1) To 1 Step -1 ch = ch + Mid(Txt1, i, 1)Next iIf Txt1 = ch Then Print Txt1 + 是回文Else Print Txt1 + 不是回文End IfEnd SubPrivate Sub Form_Load()End Sub10 編程實(shí)現(xiàn)求(n為小于等于20的整數(shù))。程序運(yùn)行界面如下圖所示。程序運(yùn)行時(shí)，在文本框中輸入n

10、的值，點(diǎn)擊“計(jì)算”命令按鈕，將計(jì)算結(jié)果顯示在標(biāo)簽上。 Private Sub Command1_Click()Dim i%, m As Long, sum As Doublen = Val(Text1)m = 1For i = 1 To nm = m * isum = sum + 1 / mNext iLabel2 = sum= & sumEnd SubPrivate Sub Form_Load()End Sub第二部分1 已知在同一個(gè)籠子里有總數(shù)M只雞和兔，雞和兔的總腳數(shù)為N只，編程求出雞和兔各有多少只。要求：程序運(yùn)行后，在兩個(gè)文本框中分別輸入M和N的值，單擊“計(jì)算”命令按鈕，在兩個(gè)標(biāo)簽框中

11、分別輸出雞和兔的數(shù)量。程序運(yùn)行界面如下圖。提示：N2M的偶數(shù)。Private Sub Command1_Click()m = Val(Text1)n = Val(Text2)If n Mod 2 0 Then MsgBox (腳數(shù)必須為偶數(shù)) Text2 = Text2.SetFocusElse y = n / 2 - m If y =只數(shù)的2倍，請(qǐng)重新輸入) Text2 = Text2.SetFocus Else x = m - y Label3 = x Label4 = y End IfEnd IfEnd SubPrivate Sub Form_Load()End Sub2 若一個(gè)3位正整

12、數(shù)中各位數(shù)字的立方和等于該數(shù)字本身，則該數(shù)稱之為“水仙花數(shù)”。例如153是水仙花數(shù)，因?yàn)?153 = 1*1*1 + 5*5*5 + 3*3*3。編程求出100999之間所有的“水仙花數(shù)”。要求：程序運(yùn)行后，單擊“查找”按鈕，在窗體上顯示找到的“水仙花數(shù)”。 程序運(yùn)行界面如下圖。Private Sub Command1_Click()Print 水仙花數(shù)：;For i = 100 To 999 X1 = i Mod 10 分離出個(gè)位數(shù) X2 = (i Mod 100) 10 分離出十位數(shù) x3 = i 100 分離出百位數(shù) If i = X1 3 + X2 3 + x3 3 Then Prin

13、t i;Next iEnd SubPrivate Sub Form_Load()End Sub3 編寫程序，要求程序運(yùn)行后，單擊“開始”按鈕，隨機(jī)產(chǎn)生20個(gè)學(xué)生的成績(jī)(0100的整數(shù))，并在左邊圖片框中輸出 (一行5個(gè)成績(jī))，并在右邊圖片框中輸出平均分和及格的人數(shù)，程序運(yùn)行界面如下圖。Private Sub Command1_Click()Dim a(1 To 20) As Integer, i%, n%Picture1.ClsPicture2.ClsFor i = 1 To 20 a(i) = Int(Rnd * 101) Picture1.Print a(i); If i Mod 5 =

14、0 Then Picture1.Print If a(i) = 60 Then n = n + 1 Sum = Sum + a(i)Next iPicture2.Print 平均分：; Sum / 20Picture2.Print ; 及格人數(shù)：; nEnd SubPrivate Sub Picture2_Click()End Sub4 編寫程序?qū)崿F(xiàn)：程序運(yùn)行時(shí)，單擊窗體則顯示如下圖所示的圖案。Private Sub Form_Click()For i = 1 To 5 Print Tab(10 - i); String(2 * i - 1, *)Next iFor i = 1 To 4 Pr

15、int Tab(5 + i); String(9 - 2 * i, *)Next iEnd Sub5 編程實(shí)現(xiàn)：在窗體中有一個(gè)文本框，一個(gè)計(jì)時(shí)器和兩個(gè)命令按鈕。其功能是：程序的運(yùn)行時(shí)，單擊“開始計(jì)數(shù)”按鈕，就開始計(jì)數(shù)，每間隔1秒，文本框中的數(shù)增加1；單擊“停止計(jì)數(shù)”按鈕，則計(jì)數(shù)停止。Private Sub Command1_Click()Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click()Timer1.Enabled = FalseEnd SubPrivate Sub Form_Load()End SubPrivate Sub Tim

16、er1_Timer()Text1 = Val(Text1) + 1End Sub在屬性窗口設(shè)置定時(shí)器的interval屬性值為10006 以下程序運(yùn)行界面如下圖所示。其功能如下： 1) 單擊讀數(shù)據(jù)按鈕(Command1)，可將隨機(jī)產(chǎn)生100個(gè)三位正整數(shù)存到數(shù)組a中； 2) 單擊計(jì)算按鈕(Command2)，則根據(jù)從組合框Combo1中選中的項(xiàng)目，對(duì)數(shù)組a中的數(shù)據(jù)計(jì)算平均值，并將計(jì)算結(jié)果四舍五入取整后顯示在文本框Text1中。 題目提供的程序代碼不完整，請(qǐng)?jiān)O(shè)計(jì)下圖界面并錄入代碼，將程序中的 ? 改為正確的內(nèi)容。注意：不能修改程序的其他部分。題目提供的程序代碼：Dim a(100) As Inte

17、gerPrivate Sub Command1 Click()Dim n As IntegerFor n = 1 To 100a(n)=Int(Rnd * ? )Next nEnd SubPrivate Sub Command2 Click() Dim x& ,y& , z& ,i% , j% , k%For i = 1 To 100If a(i) Mod ? Thenx = x + a(i)：j = j + 1Elsey = y + a(i) ?End IfNext kx = Int(x / j + 0.5)：y = Int(y / k + 0.5)z = Int(x + y) / (j +

18、 k) + 0.5)Select Case Combo1.TextCase 所有偶數(shù) Text1 = ?Case 所有奇數(shù) Text1 = ?Case 所有數(shù) Text1 = ?End SelectEnd SubDim a(1 To 100) As IntegerPrivate Sub Command1_Click()Dim n As IntegerFor n = 1 To 100 a(n) = Int(Rnd * 900 + 100)Next nEnd SubPrivate Sub Command2_Click()Dim x&, y&, z&, i%, j%, k%For i = 1 To

19、100 If a(i) Mod 2 = 0 Then x = x + a(i): j = j + 1 Else y = y + a(i): k = k + 1 End IfNext ix = Int(x / j + 0.5): y = Int(y / k + 0.5)z = Int(x + y) / (j + k) + 0.5)Select Case Combo1.TextCase 所有偶數(shù) Text1 = xCase 所有奇數(shù) Text1 = yCase 所有數(shù) Text1 = x + yEnd SelectEnd Sub在combo1的屬性窗口設(shè)置list屬性，添加列表項(xiàng)Private S

20、ub Label1_Click()End Sub7 編寫程序。要求：程序運(yùn)行后，單擊“開始”按鈕，則隨機(jī)產(chǎn)生20個(gè)2位數(shù)輸出到窗體上，每行10個(gè)數(shù)。同時(shí)對(duì)所產(chǎn)生的20個(gè)數(shù)從小到大排序，將排序后的數(shù)再次輸出在窗體上。程序運(yùn)行界面如下圖。Private Sub Command1_Click()Dim a%(1 To 20), i%Print 排序前數(shù)據(jù)排列：For i = 1 To 20 a(i) = Int(Rnd * 90 + 10) Print a(i); If i Mod 10 = 0 Then PrintNext iFor i = 1 To 20 冒泡排序 For j = 1 To 20

21、 - i If a(j) a(j + 1) Then t = a(j): a(j) = a(j + 1): a(j + 1) = t End If Next jNext iPrint 排序后數(shù)據(jù)排列：For i = 1 To 20 Print a(i); If i Mod 10 = 0 Then PrintNext iEnd SubPrivate Sub Form_Load()End Sub8 編寫程序，程序的功能是：程序運(yùn)行后，在文本框中輸入一串字符, 單擊標(biāo)題為統(tǒng)計(jì)的命令按鈕，分別統(tǒng)計(jì)輸入字符串中大寫字母、小寫字母以及其他字符的個(gè)數(shù)，并將統(tǒng)計(jì)結(jié)果分別在相應(yīng)的標(biāo)簽框中顯示。程序運(yùn)行界面如下圖

22、。Private Sub Command1_Click()Dim i%, m%, n%, z%For i = 1 To Len(Text1) If Asc(Mid(Text1, i, 1) = 65 And Asc(Mid(Text1, i, 1) = 97 And Asc(Mid(Text1, i, 1) max Then max = a(i): imax = iNext iPrintPrintPrint 最大數(shù)是：; max; Spc(5); 位置號(hào)是：; imaxEnd SubPrivate Sub Form_Load()End Sub第三部分1 在窗體Form1上添加兩個(gè)文本框，一個(gè)“

23、轉(zhuǎn)換”命令按鈕和三個(gè)單選按鈕（名稱分別為Opt1、Opt2、Opt3，標(biāo)題分別為“大小寫轉(zhuǎn)換”、“全部大寫”、“全部小寫”）。程序功能：在上方文本框Text1中輸入一字符串，選中“大小寫轉(zhuǎn)換”，單擊“轉(zhuǎn)換”按鈕后，Text2中顯示大小寫相反的字符串；選中“全部大寫”，單擊轉(zhuǎn)換按鈕后，Text2中顯示全部大寫字符串，選中“全部小寫”，單擊轉(zhuǎn)換按鈕后，Text2中顯示全部小寫字符串 。程序運(yùn)行界面如下圖。 要求： 請(qǐng)按要求完成窗體界面設(shè)計(jì) 程序的部分代碼已給出如下，但不完整。請(qǐng)錄入下面代碼，并將“？”處補(bǔ)充完整。Private Sub Command1_Click()Dim n As Intege

24、r, k As Integer, ch As String, a As Stringch = If Opt1.Value = True Then n = Len(？) For k = 1 To n a = Mid$(Text1, k, ？) If a = a And a = A And a = a And a = A And a max Then max = a(i)Next iPrintPrint maxEnd SubPrivate Sub Form_Load()End Sub4 在Form1的窗體上有一個(gè)名稱為Text1的文本框和兩個(gè)命令按鈕，命令鈕標(biāo)題分別為“顯示A”和“顯示B”。要求程

25、序運(yùn)行后，如單擊“顯示A”命令按鈕，則彈出對(duì)話框，輸入要顯示的個(gè)數(shù)，根據(jù)輸入的數(shù)值在文本框中顯示相應(yīng)數(shù)量A構(gòu)成的字符串；如單擊“顯示B”命令按鈕，也彈出對(duì)話框，輸入要顯示的個(gè)數(shù)，根據(jù)輸入的數(shù)值在文本框中顯示相應(yīng)數(shù)量B構(gòu)成的字符串。程序運(yùn)行時(shí)的窗體界面如圖所示。 Private Sub Command1_Click()n = Val(InputBox(請(qǐng)輸入顯示個(gè)數(shù))Text1 = String(n, A)End SubPrivate Sub Command2_Click()n = Val(InputBox(請(qǐng)輸入顯示個(gè)數(shù))Text1 = String(n, B)End SubPrivate S

26、ub Form_Load()End Sub5 已知十個(gè)數(shù)為：67, 45, 34, 28, 49, 37, 87, 76, 27, 83。編程實(shí)現(xiàn)：按“開始”按鈕，則在窗體的第一行顯示這十個(gè)數(shù)，在窗體的第二行按從大到小的順序顯示這十個(gè)數(shù)。Private Sub Command1_Click()Dim a(), i%a = Array(67, 45, 34, 28, 49, 37, 87, 76, 27, 83)n = UBound(a)For i = 0 To n Print a(i);Next iFor i = 0 To n - 1 For j = 0 To n - 1 - i If a(j

27、) max Then max = a(i)Next iPrint maxEnd SubPrivate Sub Form_Load()End Sub8 編程實(shí)現(xiàn)：在窗體的兩個(gè)文本框中分別輸入一個(gè)正整數(shù)，單擊“求最大公約數(shù)”按鈕后，在窗體第一行顯示它們的最大公約數(shù)。程序運(yùn)行界面如下圖所示。Private Sub Command1_Click()Dim m%, n%m = Val(Text1)n = Val(Text2)If n m Then t = n: n = m: m = tr = m Mod nDo While r 0 m = n n = r r = m Mod nLoopPrint Tex

28、t1; 和; Text2; 最大公約數(shù)是:; nEnd SubPrivate Sub Form_Load()End Sub9 編程實(shí)現(xiàn)：在窗體的左上角有一個(gè)圖像框，通過(guò)屬性窗口任選一張圖片裝入到圖像框的Picture屬性中，每按一次“放大”按鈕時(shí)圖像放大10%，同理，每按一次“縮小”按鈕時(shí)圖像縮小10%，放大縮小時(shí)均需保持圖像的縱橫比不變，按“結(jié)束程序”按鈕則結(jié)束程序。程序運(yùn)行界面如下圖。Private Sub Command1_Click()Image1.Stretch = TrueImage1.Width = Image1.Width * 1.1Image1.Height = Image1

29、.Height * 1.1End SubPrivate Sub Command2_Click()Image1.Stretch = TrueImage1.Width = Image1.Width * 0.9Image1.Height = Image1.Height * 0.9End SubPrivate Sub Command3_Click()EndEnd SubPrivate Sub Form_Load()End Sub10 編程實(shí)現(xiàn)：在窗體上建立一個(gè)文本框（內(nèi)容如下圖所示），另外建立菜單，一級(jí)菜單標(biāo)題分別為“背景顏色”，子菜單標(biāo)題分別為“白色”、“紅色”、“綠色”、“藍(lán)色”。程序運(yùn)行時(shí)，如果

30、單擊“白色”子菜單，則將文本框的背景色設(shè)置為白色；如果單擊“紅色”子菜單，則將文本框的背景色設(shè)置為紅色；如果單擊“綠色”子菜單，則將文本框的背景色設(shè)置為綠色；如果單擊“藍(lán)色”子菜單，則將文本框的背景色設(shè)置為藍(lán)色。程序運(yùn)行界面如下圖。 Private Sub blue_Click()Text1.BackColor = vbBlueEnd SubPrivate Sub green_Click()Text1.BackColor = vbGreenEnd SubPrivate Sub red_Click()Text1.BackColor = vbRedEnd SubPrivate Sub Text1_

31、Change()End SubPrivate Sub white_Click()Text1.BackColor = vbWhiteEnd Sub 第四部分1編程計(jì)算分段函數(shù)的值。要求用文本框(TextBox)輸入x,y的值，單擊標(biāo)題為“計(jì)算”命令按鈕后，利用標(biāo)簽控件上顯示z的值。Private Sub Command1_Click()x = Val(Text1)y = Val(Text2)If x 0 And y 0 Then z = Sqr(x + y)ElseIf x 0 And y 0 Then z = Sqr(Abs(x - y)Else z = 0End IfLabel3 = zEn

32、d SubPrivate Sub Form_Load()End Sub2、在窗體添加一個(gè)命令按鈕（標(biāo)題為“開始”），單擊該按鈕，隨機(jī)產(chǎn)生10個(gè)三位數(shù)（100999），在窗體的第一行這10個(gè)三位數(shù)，在窗體的第二行輸出其中的奇數(shù)，在窗體的第三行輸出其中的偶數(shù)。Private Sub Command1_Click()Dim a%(1 To 10), i%For i = 1 To 10 a(i) = Int(Rnd * 900 + 100) 隨機(jī)產(chǎn)生10個(gè)100到999的整數(shù) Print a(i);Next iPrintFor i = 1 To 10 If a(i) Mod 2 0 Then Prin

33、t a(i); 輸出奇數(shù)Next iPrintFor i = 1 To 10 If a(i) Mod 2 = 0 Then Print a(i); 輸出偶數(shù)Next iEnd SubPrivate Sub Form_Load()End Sub3編程計(jì)算分段函數(shù)的值。要求用InputBox函數(shù)輸入的值，單擊命令按鈕（標(biāo)題為“計(jì)算”）后，利用圖形框（PictureBox）輸出計(jì)算結(jié)果y。Private Sub Command1_Click()Picture1.Clsx = Val(InputBox(輸入x的值)z = Val(InputBox(輸入z的值)If x = -10 And z 0 Th

34、en y = x 2 + z 2If x 0 Then y = x / zIf x = -30 And x z Then y = Sqr(x - z)Picture1.Print yEnd SubPrivate Sub Form_Load()End Sub4編程計(jì)算分段函數(shù)的值。要求用InputBox函數(shù)輸入x,y的值，單擊命令按鈕（標(biāo)題為“計(jì)算”）后，用文本框中輸出計(jì)算結(jié)果z 。5 編程實(shí)現(xiàn)求Sum=1+（1+2）+（1+2+3）+（1+2+3+4）+ +(1+2+3+4+ + n) 。程序運(yùn)行時(shí)，在文本框中輸入n的值，點(diǎn)擊“計(jì)算”命令按鈕，將計(jì)算的結(jié)果顯示在標(biāo)簽上。程序運(yùn)行界面如下圖。Pr

35、ivate Sub Command1_Click()Dim n%, sum%, i%, j%n = Val(Text1)For i = 1 To n For j = 1 To i sum = sum + j Next jNext iLabel2 = sum= & sumEnd SubPrivate Sub Form_Load()End Sub6 編寫一個(gè)程序, 其功能為輸入貨物的數(shù)量及單價(jià),求總價(jià),并輸出。窗體上的兩個(gè)標(biāo)簽的標(biāo)題分別為貨物的數(shù)量(個(gè))：和貨物的單價(jià)(元)：, 在兩個(gè)文本框中輸入相應(yīng)的數(shù)據(jù), 當(dāng)按“總價(jià)”按鈕時(shí)，在右下方的圖形框中顯示原價(jià)和折扣價(jià)。當(dāng)原價(jià)達(dá)到2000元以上時(shí)，按8折計(jì)算折扣價(jià)；當(dāng)原價(jià)達(dá)到1000元以上時(shí)，按9折計(jì)算折扣價(jià)。程序運(yùn)行界面如下圖。Private Sub Command1_Click()zj = Val(Text1) * Val(Text2)If zj 1000 Then zkj = zjElseIf zj 2000 Then zkj = zj * 0.9Else zkj = zj * 0.8End IfLabel3 = 原 價(jià): & zj & vbCrLfLabel3 = Labe