2017vb模擬題1

1、實(shí)用標(biāo)準(zhǔn)文檔HNCE網(wǎng)上考試系統(tǒng)v9.6】本套軟件使用權(quán)屬于：鄭州大學(xué)考試課程：VB-程序設(shè)計(jì)-練習(xí) 考試時(shí)間:90分鐘 考場(chǎng):第一考場(chǎng)考試日期:2017.04.10剩余時(shí)間： 88:09保存交卷退出幫助本卷共有2道大題：一、單項(xiàng)選擇題（50道小題，共50分）O （ 1 分）1、與傳統(tǒng)的程序設(shè)計(jì)語(yǔ)言相比較，Visual Basic最突出的特點(diǎn)是A、結(jié)構(gòu)化的程序設(shè)計(jì)B、數(shù)據(jù)處理J C、面向?qū)ο蟮目梢暬幊藾、中文支持2、任何控件都具有的屬性是（1分）A、PictureB、CaptionC、 NameD、AutoSize3、保存一個(gè) Visual Basic應(yīng)用程序，正確的是（1分）A、只保存工程

2、文件（.vbp）B、只保存窗體文件（.frm ）C、只保存標(biāo)準(zhǔn)模塊文件（.bas）F rD、分別保存窗體文件和工程文件（1分）4、處于設(shè)計(jì)狀態(tài)時(shí)，在窗體上雙擊鼠標(biāo)，則系統(tǒng)在代碼窗口顯示的事件過(guò)程模板是文案大全實(shí)用標(biāo)準(zhǔn)文檔A、LoadB、ClickC、DblClickD、MouseDown5、啟動(dòng)Visual Basic后，VB為用戶建立的第一個(gè)窗體是 （1分）A、FormC、窗體16、程序如下：i = 0: s = 0: Do: i = i + 2: s = i + s: Loop Until i > 4ryA、10rC、127、表示年齡（age）在20歲和30歲之間的表達(dá)式是 （1分）

3、二 A age>=20 And age<=30aage>=20 And age<30C、age<=20 And age>=30執(zhí)行后s的值是（1分）B、11D、15B、age>=20 0r age<=30D、age<=20 0r age>=30A、文本框中沒(méi)有內(nèi)容8、文本框中的ScrollBars屬性已設(shè)置為3-Both ,但卻沒(méi)有水平和垂直滾動(dòng)條的效果，原因可能是 （1分）B、文本框的 MultiLine 屬性為False文案大全實(shí)用標(biāo)準(zhǔn)文檔rC、文本框的 MaxLength 屬性為09、決定窗體標(biāo)題欄顯示內(nèi)容的屬性是 （1分）A、

4、TextJ C、Caption10、找出兩個(gè)數(shù)中較大的數(shù)的程序段，錯(cuò)誤的是 （1分）仁A、IF x >y Then max=x Else max=yC、IF x >y Then max=x : max=y11、若要選擇 Text對(duì)象的Text1_KeyPress 事件，可以 11分）'A、在屬性窗口中選擇J C、在代碼設(shè)計(jì)窗口中利用對(duì)象列表框、過(guò)程列表框選擇12、在下列語(yǔ)句中，正確的是 （1分）A、Text1.Text+Text2.Text=Text3.TextC、Label1.Caption=4567D、文本框的 Locked 屬性是 TrueB、 NameD、BackS

5、tyleB、max=IIF(x>y , x, y)D、max=x: If x< y Then max=yB、D、B、在工程資源管理器窗口中選擇在窗體設(shè)計(jì)窗口中雙擊Text1對(duì)象Command1.Name="cmdok"D、x=InputBox(please input)文案大全實(shí)用標(biāo)準(zhǔn)文檔O （ 1 分）13、Select Case語(yǔ)句中的“表達(dá)式列表”不能是J A、變量名的列表，例如 Case x ,y ,zB、值的列表，例如 Case "a ","b","c"r _ _一”C、To表達(dá)式，例如 Ca

6、se 1 to 10D、Is關(guān)系表達(dá)式，例如 Case Is <814、下列關(guān)于窗體的 Name屬性的敘述，正確的是° （1 分）A、它的值在程序運(yùn)行中可以重新改寫B(tài)、它是顯示在窗體標(biāo)題欄中的文本C、它是指窗體的名稱，在程序中用來(lái)標(biāo)識(shí)一個(gè)窗體對(duì)象D、它的值可以為空屬性彳!為True o （1分）15、在Form_Load（）中，如果想用Print方法將計(jì)算結(jié)果顯示在窗體上，則必須保證窗體的A、EnabledB、ApperanceD、MoveableC、AutoRedraw16、如果對(duì)文本框 Text1設(shè)置了 PasswordChar= "$”，且程序運(yùn)行時(shí)向文本框中輸

7、入“ abcd ”，則文本框中顯示的是 2 （1分）LLA、1 個(gè) “$”B、4 個(gè) “$”C、不顯不內(nèi)容D、*17、Visual Basic 的編程機(jī)制是 2 （1分）文案大全實(shí)用標(biāo)準(zhǔn)文檔V -A、面向過(guò)程C 一_B、面向?qū)ο驝、事件驅(qū)動(dòng)D、可視化18、窗體上有一個(gè)文本框和一個(gè)命名按鈕，當(dāng)向文本框中輸入一個(gè)字符時(shí)，命令按鈕的標(biāo)題設(shè)置為“計(jì)算機(jī)考試”。下面正確的事件過(guò)程為A、Private Sub Command1_Click(): Commandl.Caption ="計(jì)算機(jī)考試B、Private Sub Command1_Click(): Text1 ="":

8、End SubC、Private Sub Text1_Change(): Command1.Caption ="計(jì)算機(jī)考試D、Private Sub Text1_Click(): Text1.Caption ="2 （1 分）計(jì)算機(jī)考試":End Sub計(jì)算機(jī)考試":End Sub":End Sub19、程序段 Dim x%: If x Then y = x Else y = x + 1: Print y運(yùn)行后，顯示的結(jié)果是(1分)A、0B、1C、隨機(jī)數(shù)D、顯示出錯(cuò)信息20、有一個(gè)命令：Text1="歡迎您！"，表達(dá)方式中省

9、略了對(duì)象的° (1 分)21、文案大全A、方法C、對(duì)象名以下不合法的常量是(1分)B、屬性名D、標(biāo)題實(shí)用標(biāo)準(zhǔn)文檔J A、10A2n -C、100.022、語(yǔ)句 Print "int(-23.4)= " ; Int(-23.4) 的輸出結(jié)果為 (1 分)cA、Int(-23.4)=-23.4rr一 C、Int(-23.4)=-2323、啟動(dòng)Visual Basic后，VB為用戶新建立的第一個(gè)工程的名字是rA、窗體1C、窗體24、Cls方法可以清除窗體或圖片框中的 (1分)A、在設(shè)計(jì)階段使用 Picture設(shè)置的背景位圖C、在運(yùn)行階段產(chǎn)生的圖形和文字(1分)B、D、B

10、、10010E+01(-23.4)=23.4D、Int(-23.4)=-24B、工程° D、工程1B、在設(shè)計(jì)階段放置的控件D、以上全部?jī)?nèi)容25、窗體上有一個(gè)標(biāo)簽 Label1和一個(gè)命名按鈕 Command1 ,當(dāng)程序運(yùn)行時(shí)每單擊一次命令按鈕，標(biāo)簽就向右(f)移動(dòng)一定距離。在 Command1_Click() 中能完成這個(gè)功能的命令為 11分)文案大全實(shí)用標(biāo)準(zhǔn)文檔A、Labell.Left = 100C、Labell.Move 100B、 Labell.Left = Labell.Left - 100D、Labell.Move Labell.Left + 10026、執(zhí)行語(yǔ)句 Prin

11、t Format(32548.5, "#,#0.00")rA、32548.5r °一 C、032,548.50 27、 Print DateDiff("m", #1/28/2004#, #1/31/2004#),輸出結(jié)果是 O （ 1分）rB、32,548.5J D、32,548.50的輸出結(jié)果是 （1分）(1分)A、OC、-128、執(zhí)行語(yǔ)句：Print Format(32548.5, "000,000.00"),輸出結(jié)果是A、32548.5B、32,548.5己 C 032,548.50D、32,548.5029、下列表達(dá)

12、式中，表示"X和丫之中有一個(gè)是奇數(shù)"的表達(dá)式是(1分)A、X Mod 2 = 1 And Y Mod 2 = 1B、X Mod 2 = 1 Or Y Mod 2 = 1文案大全實(shí)用標(biāo)準(zhǔn)文檔C、（X Mod 2 = 1 And Y Mod 2 = 0） And （X Mod 2 = 0 And Y Mod 2 = 1）30、表達(dá)式"Turbo" + "C" > "True" + "Basic" 的值是 （1 分）J A> Truer cC、Null31、程序段Print -15;: P

13、rint -16,輸出的結(jié)果是 （1分）i A、-15 -16fT _C、-15-1632、以下聲明語(yǔ)句中，錯(cuò)誤的是 o （1分）一A、Const varl=123i C、Public const=" 計(jì)算機(jī)等級(jí)考試"33、Single （單精度）型數(shù)據(jù)占 個(gè)字節(jié)。（1分）CA、2C、8B、-31D、出錯(cuò)文案大全D、（X Mod 2 = 1 And Y Mod 2 = 0） Or （X Mod 2 = 0 And Y Mod 2 = 1）B、 FalseD、出錯(cuò)信息B、Const var2="ABC"D、Static var3 as IntegerB、D

14、、10實(shí)用標(biāo)準(zhǔn)文檔（1分）34、已知下列程序段：a = 3: b = 4: Print b > a ,輸出的結(jié)果是A、TrueB、 FalseC、4>3D、顯示出錯(cuò)信息35、在下列邏輯表達(dá)式中，邏輯值為"真"的是 o （1分）J A、Not （1 > 2）r _ C、1 > 2 Or 2 > 3B、Not （3 + 4 < 4 + 6）D、2 > 1 And 3 < 236、如果將布爾常量值 True賦給一個(gè)整型變量，則整型變量的值為 （1分）A、OB、-1C、TrueD、False37、執(zhí)行程序段： Dim axs As I

15、nteger: axs% = 232: axs = 132,32: Print axs%; axs,輸出的結(jié)果是 （1分）一A、 232 132032B、132 132C、132,32 132.32D、顯示出錯(cuò)信息38、語(yǔ)句 Print 4 + 5 6 * 7 / 8 Mod 9 的值是 （ 1 分）文案大全實(shí)用標(biāo)準(zhǔn)文檔A、4B、539、40、41、42、文案大全C、6D、變體型變量未賦值時(shí)，它的值為O ( 1 分)A、OC、NullB、D、空""沒(méi)任何值執(zhí)行語(yǔ)句age = InputBox（"請(qǐng)輸入數(shù)值"，"年齡輸入框","

16、;38”）,如果從鍵盤上輸入數(shù)值20并按回車鍵，則下列敘述中，不正確的敘述是A、變量Age的值是數(shù)值數(shù)據(jù)20C、對(duì)話框的默認(rèn)值是 38在VB中，以10為底的x的常用對(duì)數(shù)表達(dá)式是A、Log(X)C、Log(X) / Log(e)O ( 1 分)O ( 1 分)B、對(duì)話框標(biāo)題欄中顯示的是"年齡輸入框"D、對(duì)話框的提示文字為"請(qǐng)輸入數(shù)值"B、Log10(X)D、Log(X) / Log(10)執(zhí)行程序段: m$ = "ABC": n$ = "abc": k$ = LCase$(m$): j$ = UCase$(n$):

17、Print Asc(k$ + j$),輸出的結(jié)果是(1分)A、abcabcB、ABCABC實(shí)用標(biāo)準(zhǔn)文檔LC、65D、9743、表達(dá)式 Val(".123E2CD")的值是? (1 分)rA、.123B、12.3C、OD、.123E2CD44、下列符號(hào)常量的聲明中,是不合法的。（1分）A、Const a As Single = 1.1B、Const a As Integer = "12"C、Const a As Double = Sin(1)D、Const a = "OK"45、下列符號(hào)中，屬于 Visual Basic合法變量名的是

18、（1分）-A、x23QC、ENDB、D、46、設(shè)有變體變量x,執(zhí)行語(yǔ)句：x = InputBox（"輸入數(shù)值","0","示例"）后，如果從鍵盤上輸入A、變量x的值是數(shù)值10近C、0是默認(rèn)值文案大全8xyX8B10并按回車鍵，則下列敘述中正確的是B、在InputBox對(duì)話框標(biāo)題欄中顯示的是"示例"D、變量x的值是字符串“ 10(1分)O （ 1 分）B、等級(jí)；考試實(shí)用標(biāo)準(zhǔn)文檔47、方法Print "等級(jí)""考試"，輸出的結(jié)果是r 一，A、等級(jí)考試C、"等級(jí)考試&qu

19、ot;D、"等級(jí)""考試"（1分）49、A、15C、30下面關(guān)系運(yùn)算中，輸出結(jié)果為“ True ”的是（1分）B、17D、47A、"1" + 2 = "12"B、"1" + "2" = "3"C、"1" & 2 = "12"D、"1" & "2" = "3"48、InStr（"Visual Basic程序設(shè)計(jì)簡(jiǎn)明教程中關(guān)于可視化界面

20、的設(shè)計(jì)","設(shè)計(jì)"）的函數(shù)值為（1分）A、TestDate = #1/1/2002#B、TestDate = #"1/1/2002"#C、TestDate = Date（"1/1/2002"）D、TestDate = Format（"m/d/yy", "1/l/2002）50、設(shè)有變量聲明：Dim TestDate As Date ,為變量TestDate 正確賦值的表達(dá)方式是二、程序應(yīng)用題（8道小題，共50分）*下面程序用來(lái)輸出如下圖案，請(qǐng)?zhí)羁?。文案大全?shí)用標(biāo)準(zhǔn)文檔ABCDEABCDABCAB

21、APrivate Sub Command1_Click()Dim i%, j%For i = 5 To 1 Step -1For j = 1 ToPrint Chr(+ 64);Next jPrintNextEnd Sub(4分)2、*使用InputBox函數(shù)接收一批字符，將其中的數(shù)字字符進(jìn)行累加并輸出累加和Private Sub Form_Click()Dim s As String, i As Integers = InputBox("請(qǐng)輸入一個(gè)帶數(shù)字的字符串")文案大全實(shí)用標(biāo)準(zhǔn)文檔I =Sum =Do While I <= Len(s)If Mid(s, i,

22、1) >= "0" And Mid(s, i, 1) <= "9" Then Sum = Sum + Mid(s, i, 1)End Ifi = i + 1LoopPrint SumEnd Sub(4分)3、*刪除已知數(shù)組a中的某個(gè)元素。Private Sub Command1_Click()Dim a() As Variant, n As Integer, Key As Integer a = Array(1, 6, 8, 3, 5, 9, 10, 2,7, 4) n = UBound(a)Key = InputBox("請(qǐng)輸入要

23、刪除的數(shù)")For i = 0 To nIf Key = a(i) Then Exit For文案大全實(shí)用標(biāo)準(zhǔn)文檔Next iIf i = n + 1 Then MsgBox ("找不至U止匕數(shù)")IExit SubFor j = i + 1 To n a(j - 1) = a(j)Next jn =- 1ReDim Preserve a(n)For i = 0 To nPrint a(i);Next i: PrintEnd Sub(4分)4、*三個(gè)學(xué)生的四門課（政治、數(shù)學(xué)、英語(yǔ)、計(jì)算機(jī)）成績(jī)（均在70分以上）隨即生成存放在二維數(shù)組R （3, 4）中，計(jì)算每個(gè)學(xué)生

24、的平均成績(jī)（存放在數(shù)組 S中）和最高平均成績(jī)。Private Sub Form_Click()文案大全實(shí)用標(biāo)準(zhǔn)文檔Dim R(1 To 3, 1 To 4) As IntegerDim S(1 To 3) As IntegerDim i%, j%, max%, k% 'k為最高成績(jī)學(xué)生序號(hào)Fori = 1 To 3(i) = 0Forj = 1 To 4l(i, j) = Int(30 * Rnd + 70)Print Tab(j - 1) * 5); R(i, j);S(i) = S(i) + R(i, j)Next jS(i) = S(i) / 4PrintNext imax =

25、0Fori =To 3Print "學(xué)生"& i;"平均成績(jī):"& S(i)If max < S(i) Thenmax = S(i)k = iEnd IfNext iPrint "最高平均成績(jī) k=" k, "max=" maxEnd Sub文案大全實(shí)用標(biāo)準(zhǔn)文檔(6分)5、*下面程序計(jì)算1!+3!+5!+.+9!的值，請(qǐng)將其補(bǔ)充完整。*程序代碼如下：Dim nt As SinglePrivate Sub aa(ByVal n As Single)Dim i As IntegerII=1For

26、i = 1 To nnt = nt * iNext iEnd SubPrivate Sub Form_Click()Dim sum As Single, n As Integersum = 0For n = 1 To 9 Step 2aa ()文案大全實(shí)用標(biāo)準(zhǔn)文檔sum = sum +Next nPrint sumEnd Sub（6分）6、*編寫一個(gè)登錄的程序，如圖<x_1.jpg>)所示。*運(yùn)行過(guò)程：點(diǎn)擊確定按鈕時(shí)判斷密碼是否為“ Gong ”，如果是則使用 msgbox顯示“歡迎你！”，如果不是則清空密碼輸入框，焦點(diǎn)重新定位到密碼輸入框。 Private Sub Form_Load()Text2.PasswordChar = "*".Text =""Text1 =&quo