《VB綜合練習(xí)題目》word版

1、第一部分 程序設(shè)計(jì)部分程序設(shè)計(jì)題的設(shè)計(jì)格式及其處理步驟：（1）先畫出處理界面（窗體），并注明各控件的名稱；（2）再給出處理步驟，（3）寫出程序代碼：下面給出該類題目的求解事例，供參考：例如：設(shè)計(jì)程序，求1+2+3+.+N的和值。其處理過程是：（一）設(shè)計(jì)界面（在紙上畫出界面，并注明各控件的名稱）：標(biāo)簽2：Label2標(biāo)簽1：Label1命令按鈕1：Command1文本框2：TEXT2文本框1：TEXT1運(yùn)算結(jié)果計(jì)算請(qǐng)輸入N （二）處理步驟：?jiǎn)螕裘畎粹o，按以下步驟處理（1）定義3個(gè)變量：N，s，x，分別用于存放：輸入的數(shù)值，和值，控制循環(huán)（2）將文本框1的值，提供給變量N；（3）s=0（累加前，

2、將變量s初始化為0）；（4）X=1（設(shè)置循環(huán)的開始值）（5） 當(dāng)X=N 時(shí) 重復(fù)執(zhí)行 S=s+x X=X+1（6）在文本框2中顯示和值S（三）編寫有關(guān)的代碼： Private Sub Command1_Click() Dim n%，s%，x% N=val(text1.text) S=0 X=1 Do while x k Then Print i End IfNext iEnd Sub3輸入10個(gè)整數(shù)，求出它們的總和與積，并打印其中既能被5整除又能被3整除的數(shù)。4設(shè)計(jì)一個(gè)實(shí)現(xiàn)文件復(fù)制的程序:即將文件“C:abc.txt”復(fù)制形成文件”d:abc.txt”5利用隨機(jī)函數(shù)產(chǎn)生100個(gè)1到100之間的

3、整數(shù)存放在一個(gè)數(shù)組a中，按照每行10個(gè)數(shù)輸出該數(shù)組，再將其按照由小到大的順序排序后輸出。6插入問題：在一個(gè)具有n個(gè)元素的有序（升序）數(shù)組A中，插入數(shù)據(jù)x，插入后數(shù)列仍然有序。（1）設(shè)計(jì)成一個(gè)子過程：Private Sub Instert(a() As Single,n As Integer，x As Single) 有關(guān)的實(shí)現(xiàn)語句End Sub（2）設(shè)計(jì)另一個(gè)過程調(diào)用上述該過程，完成輸入、輸出。7順序查找問題：在一個(gè)具有n個(gè)元素的有序（升序）數(shù)組A中，查找數(shù)據(jù)x，設(shè)計(jì)一個(gè)一查找函數(shù)Find，若找到則返回下標(biāo)值，找不到返回-1。Private Function Find(a() As Singl

4、e, n As Integer，x As Single)As Integer有關(guān)的實(shí)現(xiàn)語句End Function設(shè)計(jì)另一個(gè)過程調(diào)用上述該過程，完成輸入、輸出。8數(shù)制轉(zhuǎn)換問題：將一個(gè)十進(jìn)制整數(shù)m轉(zhuǎn)換成r進(jìn)制（2或8進(jìn)制）字符串。設(shè)計(jì)一個(gè)轉(zhuǎn)換函數(shù)實(shí)現(xiàn)該功能。Private Function TrDec(m As Integer,r As Integer)As String有關(guān)的實(shí)現(xiàn)語句End Function設(shè)計(jì)另一個(gè)過程調(diào)用上述該過程，完成輸入、輸出。9設(shè)有兩個(gè)文本框TEXT1和TEXT2 ，在TEXT1中輸入字符。當(dāng)遇到回車鍵時(shí)，將剛輸入的字符串，在TEXT2框中顯示，請(qǐng)?jiān)O(shè)計(jì)程序完成該功能。

5、注意：回車鍵的ASCII碼是13，其掃描碼也是1310設(shè)計(jì)一個(gè)程序，每間隔1秒，在文本框中顯示數(shù)字，依次是：1 2 3 4 5 6 7 8 9 10 等等，直到顯示30止。11設(shè)計(jì)一個(gè)程序，在窗體上當(dāng)按下鍵盤上的“Ctrl”鍵并單擊鼠標(biāo)器的左鍵，然后在文本框中顯示：“按下鍵盤上的Ctrl鍵并單擊鼠標(biāo)器的左鍵”。第二部分 分析程序，寫出程序的運(yùn)行結(jié)果或功能1下面程序X$=aY$=bZ$=cFor i=1 To 2X$=Y$Y$=Z$Z$=X$Next iPrint X$+Y$+Z$運(yùn)行后的輸出結(jié)果是：cbc2下面程序For i=10 To 40 step 6Print iNext i的循環(huán)次數(shù)為

6、：63下面程序For i=1 To 2s=1For j=0 To i-1s=s+s*1Next jPrint sNext i執(zhí)行后輸出的結(jié)果為：244下面程序i=0n=0Do while i32i=(i+1)*(i+1)n=n+1LoopPrint n運(yùn)行后的結(jié)果為“45下面程序For I=1 To 3If I=1Thena=3If I=2Thena=2If I=3Thena=1Print aNext IPrint I運(yùn)行時(shí)輸出的結(jié)果是：11146下面程序段Dim xx=Int(Rnd)+4Select Case xCase 5:Print 90100Case 4:Print 8090Case

7、 3:Print 7080Case 2:Print 6070Case 1:Print 060End Select顯示的結(jié)果是：80907下面程序段For i=1 To 3 Step 1Print Spc(5-i)For j=1 To 2*i-1Print *Next jPrintNext i運(yùn)行結(jié)果為：*8在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過程：Prinate Sub Command1_click()For i=1 To 4x=4For j=1 To 3x=3For k=1 To 2x=x+6Next kNext jNext iPrint xEnd Sub程序運(yùn)行后，單擊命令按鈕，輸出結(jié)

8、果是：159在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過程：Private Sub Command1_Click()x=0Do until x=-1a=InputBox(請(qǐng)輸入a的值)a=Val(a)b=InputBox(請(qǐng)輸入b的值)b=Val(b)x=InputBox(請(qǐng)輸入x的值)x=Val(x)a=a+b+xLoopPrint aEnd Sub程序運(yùn)行后，單擊命令按鈕，依次在輸入對(duì)話框中輸入5，4，3，2，1，-1,則輸出結(jié)果為：210在窗體上畫一個(gè)文本框（其中Name屬性為Text1），然后編寫如下事件過程：Private Form1_Load()Text1.Text=Text1.Se

9、t FocusFor i=1 To 10sum=sum+iNext iText1.Text=sumEnd Sub上述程序的運(yùn)行結(jié)果是：11在窗體上畫兩個(gè)文本框(其Name屬性分別為Text1和Text2)和一個(gè)命令按鈕(其Name屬性為Command1),然后編寫如下事件過程：Private Sub Command1_Click()x=0Do while x10 s=s+i i=i+1LoopPrint s=;s13在窗體上畫一個(gè)命令按鈕（其Name屬性值為Command1），然后編寫如下代碼：Private Sub Command1_Click()Dim a(10),p(3) As Inte

10、gerk=5For i=1 To 10a(i)=iNext iFor i=1 To 3p(i)=a(i*i)Next iFor i=1 To 3k=k+p(i)*2Next iPrint kEnd Sub程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果是： 3314在窗體上畫一個(gè)命令按鈕（其Name屬性為Command1），然后編寫如下代碼：Private Sub Command1_Click()Dim a(4,4)For i=1 To 4For j=1 To 4a(i,j)=(i-1)*3+jNext jNext iFor i=3 To 4For j=3 To 4Print a(i,j);Next j P

11、rintNext iEnd Sub程序運(yùn)行后，單擊命令按鈕，其輸出結(jié)果為：9 1012 1315在窗體上畫一個(gè)命令按鈕（其Name屬性值為Command1），然后編寫如下代碼：Private Sub Command1_Click()Dim a(5)For i=0 To 4a(i)=i+1t=i+1If t=3 ThenPrint a(i)a(t-1)=a(i-2)Elsea(t)=a(i)End IfIf i=3 Then a(i+1)=（t-4）a(4)=1Print a(i)Next iEnd sub程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果是_。12314116在窗體上畫一個(gè)命令按鈕(其Name

12、屬性值為Command1)，然后編寫如下代碼：Private Sub Command1_Click()Dim M(10) As IntegerFor k=1 To 10M(k)=12-kNext kx=6Print M(2+M(x)End Sub程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果是_4_。17在窗體上畫一個(gè)命令按鈕(其Name屬性值為Command1)，然后編寫如下代碼：Private Sub Command1_Click()Dim a(5,5)For i=1 To 3For j=1 To 4a(i,j)=i*jNext jNext iFor n=1 To 2For m=1 To 3Print

13、 a(m,n)Next mNext nEnd Sub程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果是_。12324618假定有如下的Sub過程：Sub s(x As Single,y As Single)t=xx=t/yy=t Mod yEnd Sub在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過程：Private Sub Command1_Click()Dim a As SingleDim b As Singlea=5b=4S a,bPrint a,bEnd Sub程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果為：19閱讀程序Function F(a As Integer) b = 0 Static c b = b +

14、 1 c = c + 1 F = a + b + cEnd FunctionPrivate Sub command1_click() Dim a As Integer a = 2 For i = 1 To 3 Print F(a) Next iEnd Sub運(yùn)行上面的程序，單擊命令按鈕，輸出結(jié)果為：20閱讀程序Sub Sabp(b() As Integer) For i = 1 To 4 b(i) = 2 * i Next iEnd SubPrivate Sub Command1_Click() Dim a(1 To 4) As Integer a(1) = 5 a(2) = 6 a(3) =

15、 7 a(4) = 8 Sabp a() For i = 1 To 4 Print a(i) Next iEnd Sub運(yùn)行上面的程序后，單擊命令按鈕，輸出結(jié)果為：21假定有下面的過程：Function Func(a As Integer, b As Integer) As Integer Static m As Integer, i As Integer m = 0 i = 2 i = i + m + 1 m = i + a + b Func = mEnd Function在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過程：Private Sub Command1_Click() Dim k As

16、 Integer Dim p As Integer Dim q As Integer k = 4 q = 1 p = Func(k, q) Print p p = Func(k, q) Print pEnd Sub程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果為：22假定有以下函數(shù)過程：Function Fun(S As String) As StringDim s1 As String For i=1 To Len(S)s1UCase(Mid(S,i,1)+s1Next IFuns1End Function在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過程：Private Sub Command1_Click

17、()Dim Str1 As String, Str2 As StringStr1 = InputBox(請(qǐng)輸入一個(gè)字符串)Str2 = Fun(Str1)Print Str2End Sub程序運(yùn)行后，如果在輸入對(duì)話框中輸入字符串“abcdefg”，則單擊“確定”按鈕后在窗體上的輸出結(jié)果為：23建立一個(gè)窗體，并把窗體的KeyPreview屬性設(shè)置為True，然后編寫如下代碼： Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Print Chr(KeyCode)End SubPrivate Sub Form_KeyPre

18、ss(KeyAscii As Integer) Print Chr(KeyAscii)End Sub在一般情況下（即不按住Shift鍵和鎖定大寫）運(yùn)行程序，如果按“A”鍵，則程序的輸出是：24在窗體上畫一個(gè)命令按鈕，然后編寫如下程序：Function fun(ByVal num As Long) As Long Dim k As Long k = 1 num = Abs(num) Do While num k = k * (num Mod 10) num = num 10 Loop fun = kEnd FunctionPrivate Sub Command1_Click() Dim n As

19、 Long Dim r As Long n = InputBox(請(qǐng)輸入一個(gè)數(shù)) n = CLng(n) r = fun(n) Print rEnd Sub程序運(yùn)行后單擊命令按鈕，在輸入對(duì)話框中輸入“234”，輸出結(jié)果為_。25在窗體上畫一個(gè)命令按鈕，然后編寫如下程序：Function M(x As Integer, y As Integer) As Integer M = IIf(x y, x, y)End FunctionPrivate Sub Command1_Click() Dim a As Integer, b As Integer a = 1 b = 2 Print M(a, b)

20、End Sub程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果為_。26設(shè)有如下程序Private sub search(a() As variant,ByVal key As Variant,index%)Dim I%For ILBound(a) To UBound(a)If keya(I) ThenindexIExit SubEnd IfNext IIndex-1End SubPrivate Sub Form_Load()ShowDim b() As VariantDim n As IntegerbArray(1,3,5,7,9,11,13,15)Call search(b,11,n)Print nEn

21、d Sub 程序運(yùn)行后，輸出結(jié)果是_。27在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過程： Private Sub Command1_Click( )For i=1 To 4x=4For j =1 To 3x=3For k=1 To 2x=x+6Next kNext jNext iPrint xEnd Sub程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果是( ) 。28在窗體(Name屬性為Form1)上畫兩個(gè)文本框（其Name屬性分別為Text1和Text2）和一個(gè)命令按鈕（Name 屬性為Cmd1），然后編寫如下兩個(gè)事件過程：Private Sub Cmd1_Click( )a = Text1.Text

22、 + Text2.TextPrint aEnd SubPrivate Sub Form_Load()Text1.Text = Text2.Text = End Sub程序運(yùn)行后，在第一個(gè)文本框（Text1）和第二個(gè)文本框（Text2）中分別輸入123和321，然后單擊命令按鈕，則輸出結(jié)果為( )29在窗體上畫一個(gè)文本框（其中Name屬性為Text1），然后編寫如下事件過程：Private Sub Form_Load( )Text1.Text=For i=1 To 10Sum=Sum+iNext iText1.Text=SumEnd Sub上述程序的運(yùn)行結(jié)果是( ) 。30在窗體中添加名稱為Co

23、mmand1和名稱為Command2的命令按鈕測(cè)驗(yàn)文本框Text1，然后編寫如下代碼： Private Sub Command1_Click() Text1.Text = AB End Sub Private Sub Command2_Click() Text1.Text = CD End Sub 首先單擊Command2按鈕，然后再單擊Command1按鈕，在文本框中顯示（ ） 31 Private Sub Command1_Click( ) a=5: s=0do while a0 s=s+a a=a-1loopprint s,aEnd Sub程序運(yùn)行時(shí)，單擊命令按鈕，輸出結(jié)果是：32 Pr

24、ivate Sub Form_click( )Dim I As Integer, isum As IntegerFor I = 1 To 5 isum = sum(I) Print isum=; isum,Next IEnd SubPrivate Function sum(n As Integer)Dim j As Integerj = j + nsum = jEnd Function程序運(yùn)行時(shí)，單擊窗體，輸出結(jié)果是：33閱讀下面的程序段：For i=1 To 3For j=1 To iFor k=j To 3a=a+1Next kNext jNext i執(zhí)行上面的三重循環(huán)后，a 的值是多少？

25、34 Private Sub Command1_Click()Dim a(3,2) As IntegerFor I=0 To 3For j=0 To 2 a(I,j)=I*2+j Print a(;I;,;j;)=;a(I,j); ; Next j PrintNext IEnd Sub程序運(yùn)行時(shí)，單擊命令按鈕，輸出結(jié)果是：35在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過程： Private Sub Command1_Click() For i=1 to 4 X=4 For j=1 to 3 X=3 For k=1 to 2 X=X+6 Next k Next j Next i Print X E

26、nd Sub 程序運(yùn)行后，單擊命令按鈕，寫出輸出結(jié)果：36閱讀以下程序：Private Sub Form_Click()Dim k,n,m As Integern=10m=1k=1Do while k=nm=m*2k=k+1LoopPrint mEnd Sub程序運(yùn)行后，單擊窗體，輸出結(jié)果為_。37閱讀程序：Private Sub Form_Click()num=0Do while num=2num=num+1print numLoopEnd Sub程序運(yùn)行后，單擊窗體，輸出結(jié)果是_。38在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過程：Private Sub Command1_Click()a=

27、0For i=1 To 2For j=1 To 4If j Mod 20 Then a=a+1Next jNext iPrint aEnd Sub程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果是_。第三部分 用語言或流程圖描述處理步驟下面給出該類題目的求解事例，供參考：例題：對(duì)于求SUM=1+2+3+98+99+100的計(jì)算過程，請(qǐng)用自然語言或流程圖描述處理步驟。要求：首先給出所使用的變量名稱、類型以及變量的用途：解：（1）定義所用的變量： SUM： 整型變量，用于存放和值； X： 整型變量，用于存放加數(shù)，同時(shí)用于控制循環(huán)；（2）用自然語言描述的處理步驟：置初值：SUM為0，X為1；累加求和： SUM=S

28、UM+X；獲得下一個(gè)加數(shù)：X=X+1；當(dāng)X100時(shí)重復(fù)執(zhí)行、；輸出SUM，顯示計(jì)算結(jié)果；過程結(jié)束。（3）用流程圖描述的處理步驟：注意：在考試中，（2）和（3）選一種即可。練習(xí)題目：要求：首先給出所使用的變量名稱、類型以及變量的用途：判定一個(gè)數(shù)X是否是偶數(shù)的處理步驟;寫出求5的階乘的計(jì)算步驟;寫出求1+2+3+. +100的計(jì)算過程;寫出計(jì)算1!+2！+3！+4！+.+20!的計(jì)算步驟;寫出求一元二次方程AX2+BX+C=0解的處理步驟;給出將三個(gè)整數(shù)A,B,C按從小到大的順序排列的處理步驟;體操運(yùn)動(dòng)員參加自由體操?zèng)Q賽，有10個(gè)評(píng)委為他們打分，請(qǐng)給出每位選手的比賽成績(jī)的處理流程圖。選手的成績(jī)計(jì)算

29、方法是：10個(gè)評(píng)委分?jǐn)?shù)中，去掉一個(gè)最高分和一個(gè)最低分，余下分?jǐn)?shù)的平均值為選手的最后得分。假設(shè)有20名選手。 設(shè)某一個(gè)班共有60個(gè)學(xué)生，期末考試5門課程，請(qǐng)編一程序評(píng)定學(xué)生的獎(jiǎng)學(xué)金，要求打印輸出一、二等獎(jiǎng)學(xué)金學(xué)生的學(xué)號(hào)和各門課成績(jī)。（獎(jiǎng)學(xué)金評(píng)定標(biāo)準(zhǔn)是：總成績(jī)超過全班總平成績(jī)20%發(fā)給一個(gè)獎(jiǎng)學(xué)金，超過全班總平成績(jī)10%發(fā)給二個(gè)獎(jiǎng)學(xué)金。）第四部分 綜合應(yīng)用題下面給出該類題目的求解事例，供參考：1設(shè)計(jì)一應(yīng)用系統(tǒng)，完成一個(gè)教學(xué)班的學(xué)期末獎(jiǎng)學(xué)金的評(píng)定，并輸出一、二等獎(jiǎng)學(xué)金學(xué)生的學(xué)號(hào)和各門課成績(jī)。 獎(jiǎng)學(xué)金評(píng)定標(biāo)準(zhǔn)是：總成績(jī)超過全班總平成績(jī)20%發(fā)給一個(gè)獎(jiǎng)學(xué)金，超過全班總平成績(jī)10%發(fā)給二個(gè)獎(jiǎng)學(xué)金。說明：（1

30、）假設(shè)該教學(xué)班最多可能有120名學(xué)生，期末考試課程最多有8門課程。即規(guī)定實(shí)際教學(xué)班中，學(xué)生數(shù)目在40-120之間，課程數(shù)目在4-8之間；（2）學(xué)生人數(shù)由于某些原因可能增加、減少，成績(jī)也可能要變更；問題：按下面的要求，問答各問題（1）根據(jù)題目的描述和說明，給出該系統(tǒng)的功能劃分（該系統(tǒng)至少要完成哪些功能）；（2）給出在系統(tǒng)管理中，存放有關(guān)信息所必須的變量、數(shù)組、文件，并注明意義；（3）給出（畫出）實(shí)現(xiàn)該系統(tǒng)的菜單界面；（4）給出菜單項(xiàng)中各命令菜單項(xiàng)所對(duì)應(yīng)事件過程名及其對(duì)應(yīng)的參數(shù)（不需要編寫實(shí)現(xiàn)代碼），說明各部分的含義；（5）給出一組數(shù)據(jù)，并給出說明該系統(tǒng)的使用操作過程（對(duì)于你所給出的功能都按處理次序至少要運(yùn)行一次）。該類題目的求解方式如下：解：(1)系統(tǒng)的功能劃分：（2）存放有關(guān)信息所必須的變量、數(shù)組、文件： XM(200) 姓名,字符串類型 XH(200) 學(xué)號(hào),數(shù)值類型 CJ(200,8)