VisualBasic程序設(shè)計作業(yè)題解形成性考核作業(yè)二

1、Visual Basic程序設(shè)計作業(yè)題解 形成性考核 作業(yè)二一、選擇題 1按照變量的作用域可將變量劃分為（ ）。 A公有、私有、系統(tǒng) B全局變量、模塊級變量、過程級變量 C動態(tài)、常態(tài)、靜態(tài) DPublic、Private、Protected 答案：B 2可獲得字符的ASCII碼的函數(shù)是（ ）。 AVal BFix CAsc DChr 答案：D 3要退出DoLoop循環(huán)，可使用的語句是（ ）。AExit BExit For CEnd Do DExit Do 答案：D 4把數(shù)值型轉(zhuǎn)換為字符串型需要使用的函數(shù)是（ ）。 AVal BStr CAsc DChr 答案：B5關(guān)于語句行，下列說法正確的是（

2、 ）。A一行只能寫一條語句 B一條語句可以分多行書寫 C每行的首字符必須大寫 D長度不超過255個字符 答案：b6表達(dá)式6 + 10 Mod 4 * 2 + 1的值是（ ）。 A9 B11 C1 D3 答案： A 7假定已在窗體上畫了多個控件，并有一個控件是活動的，為了在屬性窗口中設(shè)置窗體的屬性，預(yù)先應(yīng)制造的操作是（ ）。 ASIN BCOI CCOS（X） DX（-1） 答案：B 8表達(dá)式Abs(-5)+Len(“ABCDE”)的值是（ ）。A5ABCDE B-5ABCDE C10 D0 答案：C 9在代碼編輯器中，如果一條語句太長，無法在一行內(nèi)寫下（不包括注釋），要折行書寫，可以在行末使用

3、續(xù)行字符（ ），表示下一行是當(dāng)前行的繼續(xù)。A一個空格加一個下劃線字符(_) B一個下劃線字符(_) C直接回車 D一個空格加一個連字符(-) 答案：A 10Sub過程與Function過程最根本的區(qū)別是（ ）。 ASub過程可以使用Call語句或直接使用過程調(diào)用，而Function過程不可以 BFunction過程可以有參數(shù)，Sub過程不可以 C兩個過程參數(shù)的傳遞方式不同 DSub過程的過程名不能返回值，而Function過程能夠通過過程名返回值 答案：D 11“x是小于80的非負(fù)數(shù)”，用VB表達(dá)式表示正確的是（ ）。 A0x<80 B0<=x<80 C0<=x And

4、 x<80 D0<=x Or x<80 答案：C 12在設(shè)計菜單時，如果要在菜單中加入一個菜單分隔條，則菜單分隔條的標(biāo)題必須設(shè)置為（ ）。 A加號（+） B減號（-） C星號（*） D感嘆號（?。?答案：B 13如果要在程序中顯示一個彈出式菜單，那么要調(diào)用Visual Basic中提供的方法是（ ）。APrint BMove CRefresh DPopupMenu 答案：D 14下列可以用來存儲圖像供其它對象使用的控件是（ ）。AToolBar BStatursBar CImageList DTreeView 答案：C 15當(dāng)單擊工具欄上的按鈕時，會觸發(fā)的事件是（ ）。 AB

5、uttonClick BChange CLoad DKeyPess 答案：A 16要利用公共對話框控件來顯示"打開文件"對話框，需要調(diào)用控件的（ ）方法。 AShowPrint BShowOpen CLoad DShowColor 答案：B 17對于窗體級變量，下列說法中錯誤的是（ ）。 A所在窗體的各子程序都可以訪問 B其它窗體的子程序不能訪問 C所在窗體的各子程序都不能訪問用Private定義的窗體級變量 D一定要在所在窗體的通用區(qū)內(nèi)定義 答案：C 18從一個字符串中的第3個字符開始，獲取5個字符，應(yīng)使用（ ）。 ALen函數(shù) BMid函數(shù) CLeft數(shù) DRight函

6、數(shù) 答案：B 19用下面的語句所定義的數(shù)組的元素個數(shù)是（ ）。 Dim A（-3 To 5）As Integer A6 B7 C8 D9 答案：D 20有如下程序段： Dim str1 As String * 5 Str1=”Visual Basic” 當(dāng)該程序段執(zhí)行時，變量str1的之值是（ ） A”Visual” B”Visua” C”V” D”Visual Basic” 答案：B 二、填空題1菜單一般有( ) 和 ( ) 兩種基本類型。 答案：下拉式菜單 彈出式菜單 2通用對話框控件可顯示的常用對話框有 ( ) 、 ( ) 、 ( ) 、( ) 、 ( ) 。 答案：打開（Open） 保

7、存（Save） 顏色（Color） 字體（Font） 打?。≒rint） 3組合框具有 ( ) 和 ( ) 兩種控件的基本功能。 答案：文本框 .列表框 4要使數(shù)組的默認(rèn)下標(biāo)從“1“開始，則應(yīng)在窗體或標(biāo)準(zhǔn)模塊代碼的聲明部分使用語句 ( ) 。 答案：4 Dim 數(shù)組名（1 To 上界） 5調(diào)用Sub過程時，使用 ( ) 語句，該語句用于把程序控制傳送到一個Visual Basic的Sub過程。 答案：過程名 參數(shù)1,參數(shù)2, 6若已建立了Form1和Form2兩個窗體，默認(rèn)啟動窗體為Form1。通過 （ ） 菜單 （ ） 命令的 （ ） 選項卡，可將啟動窗體設(shè)置為Form2。在程序中若要顯示F

8、orm1窗體，則執(zhí)行 （ ） 語句。 答案：“工程” “工程屬性” “工程屬性” Form1.Show 7列表框中項目的序號是從 ( ) 開始的。 。 答案：0 8Sub過程與Function過程最根本的區(qū)別是 ( ) 。 答案：不會用過程名返回一個值 9VB的代碼存儲在模塊中，在VB中提供了三種類型的模塊： ( ) 、( ) 和 ( ) 。 答案：窗體模塊 標(biāo)準(zhǔn)模塊 類模塊 10使用Hide方法會隱藏被調(diào)用的窗體，但在調(diào)用Hide方法之后不會把窗體( ) ；被調(diào)用的窗體中的屬性等已處于 ( ) 。 答案：移出內(nèi)存 無效的狀態(tài) 11將下列函數(shù)式子寫成Visual Basic表達(dá)式。(1):()

9、(2） ：( ) 。 （3）sin45o：( ) 。 答案：（1）2*cos()*sin()/(2*) （2）sqr(s*(s-a)*(s-b)*(s-c) （3）sin(45/180) 12將下列各條件寫成Visual Basic邏輯表達(dá)式。 （1） 1x12：（ ） （2） A+BC 或 a-cc：（ ） （3） a和b都為正數(shù)或同為負(fù)數(shù)：（ ） 答案：1）1<=x and x<12 （2）A+B>=C or a-c<=c （3）a>0 and b>0 or a<0 and b<0 13設(shè)A=2，B=3，C=4，D=5。表達(dá)式 Not A&l

10、t;=C Or 4*C=B2 And B<>A+C的值為（ ）。 答案：False 14在Visual Basic語言中有三種形式的循環(huán)結(jié)構(gòu)。其中若函數(shù)的次數(shù)可以事先確定，可使用 （ ） 循環(huán)；若要求先判斷循環(huán)的條件，可使用 （ ） 循環(huán)或 （ ） 循環(huán)。 答案：For Next Do WhileUntil 條件式Loop DoLoop WhileUntil 條件式 15以下語句的輸出結(jié)果是 （ ） 。 a%=3.14159 Print a% 答案：3（因為變量a被聲明為整型變量%表示整型變量） 三、閱讀下列程序，寫出程序的運(yùn)行結(jié)果1 Private Sub Form_Click(

11、)Static Sum As IntegerFor I = 1 To 100Sum = Sum + I Next IPrint Sum End Sub 答案：編程人員只需針對某個事件編寫程序代碼稱為可視化編程。應(yīng)用程序是在響應(yīng)不同的事件時執(zhí)行不同的代碼片段稱為事件驅(qū)動。 2Private Sub Form_Click() A = 10: b = 15: c = 20: d = 25Print A; Spc(5); b; Spc(7); c Print A; Spc(8); b; Space$(5); cPrint c; Spc(3); "+" Spc(3); d; Prin

12、t Spc(3); "=" Spc(3); c + d End Sub 答案：窗體和控件是創(chuàng)建應(yīng)用程序所使用的對象，方法是對象的動作，事件是對象的響應(yīng)，屬性可看作對象的性質(zhì)。 3 Private Sub Form_Click() For i% = 1 To 3 For j% = 1 To i Print LTrim(Str(i%) + "*" + LTrim(Str(j%) + "=" i% * j%; Next j% Print Next i% End Sub 答案：傳統(tǒng)編程方式是結(jié)構(gòu)化程序設(shè)計，它從系統(tǒng)的功能入手，按照工程的標(biāo)準(zhǔn)和

13、嚴(yán)格的規(guī)范將系統(tǒng)分解為若干功能模塊，系統(tǒng)是實現(xiàn)功能模塊的函數(shù)和過程的集合。事件驅(qū)動編程則是從所處理的數(shù)據(jù)入手，以數(shù)據(jù)為中心而不是以服務(wù)（功能）為中心來描述系統(tǒng)。它把編程問題視為一個數(shù)據(jù)集合，數(shù)據(jù)相對于功能而言，具有更強(qiáng)的穩(wěn)定性。事件驅(qū)動編程與傳統(tǒng)編程方式相比，最大的區(qū)別在于：前者首先關(guān)系關(guān)心的是所要處理的數(shù)據(jù)，而后者首先關(guān)心的是功能。 4Private Sub Command1_Click() Dim a, b As Integer a = 3.4 b = 3.4 Text1.Text = a Text2.Text = b End Sub 答案：答：事件驅(qū)動的工作過程為： 1.啟動應(yīng)用程序，裝

14、載和顯示窗體。 2.窗體或窗體上的控件等待事件的發(fā)生。 3.當(dāng)某個事件發(fā)生后，執(zhí)行其對應(yīng)的事件過程代碼。 4.重復(fù)執(zhí)行第2和第3步，直到遇到End語句或單擊結(jié)束按鈕停止程序的運(yùn)行。 5、 Private Sub Form_Click() For i = 1 To 5 Print Tab(11 - i); For J = 1 To i * 2 - 1 Print "*" Next Next i End Sub 答案：答：事件驅(qū)動的工作過程為： 1.啟動應(yīng)用程序，裝載和顯示窗體。 2.窗體或窗體上的控件等待事件的發(fā)生。 3.當(dāng)某個事件發(fā)生后，執(zhí)行其對應(yīng)的事件過程代碼。 4.重復(fù)

15、執(zhí)行第2和第3步，直到遇到End語句或單擊結(jié)束按鈕停止程序的運(yùn)行。 四、程序設(shè)計題1購物優(yōu)惠程序。某商場為了加速促成商品流通，采用購物打折的優(yōu)惠辦法，每位顧客一次購物（1）在100元以上者，按九五折優(yōu)惠；（2）在200元以上者，按九折優(yōu)惠；（3）300元以上者，按八折優(yōu)惠；（4）500元以上者，按七折優(yōu)惠。在窗體上添加兩個文本框和一個命令按鈕，要求在Text1中輸入購物商品的總金額，單擊命令按鈕，在Text2輸出優(yōu)惠后的價格。程序運(yùn)行結(jié)果如圖4所示。 圖4答案： Private Sub Command1_Click() x = Val(Text1.Text) Select Case x Cas

16、e Is >= 500 Text2.Text = x * 0.7 Case Is >= 300 Text2.Text = x * 0.8 Case Is >= 200 Text2.Text = x * 0.9 Case Is >= 100 Text2.Text = x * 0.95 End Select End Sub = x * 0.95 End Select End Sub 2輸出100200之間不能被3整除的數(shù)，要求用Do語句的一種形式實現(xiàn)，程序運(yùn)行結(jié)果如圖5所示。 圖5答案：程序代碼： Private Sub Form_Load() x = 101 Text1.

17、Text = "100" Do While x <= 200 If x Mod 3 <> 0 Then Text1.Text = Text1.Text + Chr(13) + Chr(10) + Trim(Str(x) End If x = x + 1 Loop End Sub 3編寫程序，打印如下的乘積表： 圖6答案：程序代碼： Private Sub Form_Click() Print "*", "3", "6", "9", "12" Print &q

18、uot;15", "45", "90", "125", "180" Print "16", "48", "96", "144", "192" Print "17", "51", "102", "153", "204" Print "18", "54", "10

19、8", "152", "216" End Sub 4設(shè)計一個計算程序。該程序用戶界面如圖7所示。要求程序運(yùn)行后，用戶選中單選按鈕，則程序作10和2的相應(yīng)計算，并把計算結(jié)果在文本框中顯示出來。如用戶選中加法單選按鈕，則程序作10和2的相加，計算結(jié)果12在文本框中顯示出來。按結(jié)束，則退出。 圖7答案：程序代碼： Private Sub Form_Load() Option1(0).Value = False Option1(1).Value = False Option1(2).Value = False Option1(3).Value = Fa

20、lse End Sub Private Sub Option1_Click(Index As Integer) Select Case Index Case 0 Text1.Text = 10 * 2 Case 1 Text1.Text = 10 / 2 Case 2 Text1.Text = 10 + 2 Case 3 Text1.Text = 10 - 2 End Select End Sub Private Sub Command1_Click() End End Sub 5編寫輸入一個06數(shù)字，顯示漢字對照輸出星期的Function過程。程序運(yùn)行結(jié)果如圖8所示。 圖8答案：程序代碼：

21、Dim x As Integer Private Function Mystring(x As Integer) As String Select Case x Case 1 Mystring = "星期一" + Chr(13) + "Monday" Case 2 Mystring = "星期二" + Chr(13) + "Tuesday" Case 3 Mystring = "星期三" + Chr(13) + "Wednesday" Case 4 Mystring = "星期四" + Chr(13) + "Thursday" Case 5 Mystring = "星期五" + Chr(13) + "Friday" Case 6 Mystring = "星期六" + Chr(13) + "Saturday" Case 7 Mystring = "星期日" + Chr(13) + "Sunday" End Sel