大學(xué)VB程序設(shè)計(jì)模擬題

1、上海應(yīng)用技術(shù)學(xué)院2009-2010第一學(xué)期VB模擬題程序設(shè)計(jì)基礎(chǔ)VB.NET期(末)(A)試卷班級(jí)：姓名：學(xué)號(hào)：分?jǐn)?shù)：我已閱讀了有關(guān)的考試規(guī)定和紀(jì)律要求，愿意在考試中遵守考場(chǎng)規(guī)則如有違反將 愿接受相應(yīng)的處理。題號(hào)二四五六七八九十總分得分試卷共8頁(yè)，請(qǐng)先查看試卷有無(wú)缺頁(yè)，然后答題。一、選擇題(每題1分，共20題，1*20=20分)1、語(yǔ)句“If x=5 Then y=5下列說(shuō)法正確的是。P 29賦值語(yǔ)句p52“x=5 ”和“y=5 ”均為賦值語(yǔ)句?！皒=5 ”和“y=5 ”均為關(guān)系表達(dá)式?！皒=5”為關(guān)系表達(dá)式，“y=5,為賦值語(yǔ)句?！皒=5”為賦值語(yǔ)句，“y=5,為關(guān)系表達(dá)式。2、用于字符串連

2、接的運(yùn)算符是。P 37&B. +C. AndD. A、B 都可以3、如下數(shù)組聲明語(yǔ)句中，正確的 。p97A. Dim a(4, 5) As IntegerB. Dim a 4, 5| As IntegerC. Dim a(4x 5) As IntegerD. Dim a(4 5) As Integer4、設(shè)4=“迎接2010年上海世博會(huì)”，則使變量b的值為“上?！钡恼Z(yǔ)句為口。A. b=Left(a,8)B. b=Mid(a,8,2) C. b=Rigth(a,5) D. b=Mid(a,5,2)5、設(shè)置文本框的屬性用于輸入口令類的文本(此題適用于原來(lái)2005版教材，在新版2008版教材中則對(duì)應(yīng)

3、于TextMode屬性)A.ReadOnlyB.PassWordCharC.TextD.以上都不是6、P251 控件用于顯示較長(zhǎng)的選項(xiàng)列表，用戶可以從中進(jìn)行選擇。A.ListBoxB.CheckBoxC.LabelD.以上都不是7、過(guò)程 Sub Test (ByVal x As Integer, ByRef y As Int)e。A. x y都是傳值參數(shù)C. x是傳值參數(shù)，y是傳址參數(shù)x y都是傳址參數(shù)D. x是傳址參數(shù)，y是傳值參數(shù)8、將數(shù)據(jù)輸出顯示的時(shí)候，以下哪種方式不適用 p22。A.標(biāo)簽 labelB.文本框 textboxC.msgbox 函數(shù)D.inputbox函數(shù) TOC o 1

4、-5 h z 9、數(shù)學(xué)關(guān)系式5 = x 10表示成正確的VB.NET表達(dá)式，應(yīng)該是39。A. 5=x10B. 5=x AND x=5 OR x10D. x1010、不論何種控件，共同具有的屬性(用Name屬性標(biāo)識(shí)不同控件)A.TextB.NameC. ForeColorD.Caption11、Int(196.555*100+0.5)/100的值是 。A.196.56B.197.6C. 198D. 19612、下列數(shù)組聲明語(yǔ)句中，數(shù)組a包含元素的個(gè)數(shù)有幾個(gè)p97。Dim a(3, 5) As IntegerA. 15B.18C. 20D. 2413、在設(shè)計(jì)狀態(tài)，列表框中的選項(xiàng)可以通過(guò)哪個(gè)屬性來(lái)進(jìn)

5、行設(shè) 。A.ListB.Items.CountC.TextD. Items14、設(shè)置計(jì)時(shí)器時(shí)間間隔的屬性p256。A.EnabledB.NameC.IntervalD. Modifiers15、已知a=12，b=20，復(fù)合賦值語(yǔ)句“a*=b+10 ”執(zhí)行后，a變量中的值為p40。A.50B.250C.30D. 36016、下列正確的賦值語(yǔ)句是。A. x+y=20 B. y=x+10C. y=n * i2D. 3y=x17、Rnd函數(shù)不可能為下列p44值。A. 0B. 1C. 0.005D. 0.99918、下面哪個(gè)控件在程序運(yùn)行時(shí)是不可見(jiàn)白p256。A.單選鈕B.組合框C.計(jì)時(shí)器D.框架19、

6、下面程序段求兩個(gè)數(shù)中的大數(shù)，不正確的是p53 p62 (Max是求最大值的函數(shù))A. Max1=IIf(x y, x )yB. If x y Then Max1 = Else Max1 = yMax1 = Math.Max( x, y )D. If x=y Then Max1 = y Else Max1 = x20、下面程序段運(yùn)行后，x的值是。Dim x,y as Integerx=y=-1注：前面的“二”是賦值，后面的“二”是關(guān)系運(yùn)算符P38A. -1B. 0C. -2D.不確定二、綜合題(每題4分，共5題，4*5=20分)1、VB.NET提供了結(jié)構(gòu)化程序設(shè)計(jì)的三種基本結(jié)構(gòu)，請(qǐng)問(wèn)是哪三種基本

7、結(jié)構(gòu)？ P502、隨機(jī)生成一個(gè)“A” 一 “Z”之間的大寫字母賦給變量C。“A”的ASCII碼為65。注：用到Rnd函數(shù)p44和chr函數(shù)p43 ,3、若在函數(shù)中不明確指定參數(shù)的傳遞方式，默認(rèn)的傳遞方式是，其關(guān)鍵字是。p1164、計(jì)算下列語(yǔ)句的循環(huán)次數(shù)：p66注：計(jì)算循環(huán)次數(shù)的公式中“+1 ”是因?yàn)檠h(huán)的條件是“初值ViV終值”，包括頭尾For i = -3 To 20 Step 4 Fori=-3.5To5.5 Step 0.5 Fori=-3.5To5.5 Step -0.5 Fori=-3To20 Step 1 5、簡(jiǎn)述子過(guò)程和函數(shù)過(guò)程的異同點(diǎn)，并說(shuō)明子過(guò)程和函數(shù)過(guò)程分別適用在什么情況下

8、。P114 p119三、讀以下程序段，寫讀程過(guò)程及運(yùn)行結(jié)果。(每題4分，共5題，4*5=20分)1、請(qǐng)寫出程序運(yùn)行后的結(jié)。Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim i, n As Integer, c, a As String a = Palindrome n = Len(a)For i = 1 To n 2c = Mid(a, i, 1)Mid(a, i, 1) = Mid(a, n - i + 1, 1)Mid(

9、a, n - i + 1, 1) = cNext iLabel1.Text = aEnd Sub2、請(qǐng)寫出程序運(yùn)行后的結(jié) 。Public Sub Proc(ByRef a%()注：這里的形參是是數(shù)組，相當(dāng)于傳地址p125第3頁(yè)dim i% 注：這個(gè)“i”是過(guò)程級(jí)變量，與主調(diào)過(guò)程的“i”是不同的。每次被 倜用運(yùn)行時(shí)，因沒(méi)有賦值，系統(tǒng)會(huì)默認(rèn)賦值“0” P132 Doa(i) = a(i) + a(i + 1) i = i + 1Loop While i 2End SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e

10、As System.EventArgs) Handles Button1.ClickDim m%, i%, x%(10)For i = 0 To 4 x(i) = i + 1Next iFor i = 1 To 3 Call Proc(x)Next iLabel1.Text = For i = 0 To 4Label1.Text &= x(i) & Next iEnd Sub3、運(yùn)行下列程序，連續(xù)三次單擊命令按鈕后，則三個(gè)標(biāo)簽中顯示的內(nèi)容分別是多 少。Public Class form1Private x As Integer女為模塊級(jí)變量 p132Private Sub Button1_Cl

11、ick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickStatic y As Integery為靜態(tài)變量 p134Dim z As IntegerZ是過(guò)程級(jí)變量，每次調(diào)用過(guò)程時(shí)，因沒(méi)有賦值，系統(tǒng)會(huì)默認(rèn)賦值“0” P132 Static n As Integer n = 20 z = n + z y = y + z x = x + z Label1.Text = x Label2.Text = yLabel3.Text = zEnd SubEnd Class4、當(dāng)用戶點(diǎn)擊butto

12、nl后，在彈出的輸入框中輸入3150，然后點(diǎn)擊確定按鈕，運(yùn)行結(jié)果。注：Choose 函數(shù)參見(jiàn) p62Private Sub Button1_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button1.ClickDim Year As IntegerDim n As IntegerYear = Val(InputBox(請(qǐng)輸入你的出生年份)If Year = 0 ThenMsgBox(很遺憾，輸入的年份有錯(cuò)誤，MsgBoxStyle.Information,提示)End Ifn = (Year

13、Mod 12)Labell.Text = Year & 年的生肖是：& Choose(n + 1,猴，雞”，狗,豬，鼠”，牛，虎，兔，龍，蛇，馬，羊) End Sub5、請(qǐng)寫出程序運(yùn)行后的結(jié) 。Private Sub Button1_Click(ByVal sender As System.Object， ByVal e As System.EventArgs) Handles Button1.ClickDim a， n As Integer， x As String n = 18 x =Do While n 0a = n Mod 2n = n 2x = Chr(Asc(0) + a) & x

14、LoopMsgBox(x= & x)End Sub注：0一9 的 ASCII 為 48一57。四、編程題(每題10分，共5題，10*4=40分)從以下知識(shí)點(diǎn)中選取4個(gè)1、設(shè)計(jì)如圖所示的計(jì)算程序，復(fù)選框被勾選時(shí)輸出結(jié)果保留2位小數(shù)，否則只保留整數(shù)部 分。(注：保留2位小數(shù)可以用格式輸出函數(shù)format(x，“0.0(T)來(lái)實(shí)現(xiàn)，其中x為 數(shù)值型變量，而“0.00為格式字符串，保留整數(shù)部分可以使用format(x，“0”)或者 使用Math.Round函數(shù)p42來(lái)實(shí)現(xiàn))2、輸入任意的一個(gè)數(shù)，求函數(shù)y的值。 TOC o 1-5 h z x*x+1(x0)Y= 1(x=0)L 1-x(x0)3、假設(shè)你有一個(gè)TextBoxl用來(lái)輸入一串字胃和數(shù)字組成的字符串。使用Select選擇結(jié)構(gòu)，統(tǒng)計(jì)出其中