2017vb模擬題1

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

2、文件（.vbp）B、只保存窗體文件（.frm ）C、只保存標準模塊文件（.bas）F rD、分別保存窗體文件和工程文件（1分）4、處于設(shè)計狀態(tài)時，在窗體上雙擊鼠標，則系統(tǒng)在代碼窗口顯示的事件過程模板是文案大全實用標準文檔A、LoadB、ClickC、DblClickD、MouseDown5、啟動Visual Basic后，VB為用戶建立的第一個窗體是 （1分）A、FormC、窗體16、程序如下：i = 0: s = 0: Do: i = i + 2: s = i + s: Loop Until i > 4ryA、10rC、127、表示年齡（age）在20歲和30歲之間的表達式是 （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、文本框中沒有內(nèi)容8、文本框中的ScrollBars屬性已設(shè)置為3-Both ,但卻沒有水平和垂直滾動條的效果，原因可能是 （1分）B、文本框的 MultiLine 屬性為False文案大全實用標準文檔rC、文本框的 MaxLength 屬性為09、決定窗體標題欄顯示內(nèi)容的屬性是 （1分）A、

4、TextJ C、Caption10、找出兩個數(shù)中較大的數(shù)的程序段，錯誤的是 （1分）仁A、IF x >y Then max=x Else max=yC、IF x >y Then max=x : max=y11、若要選擇 Text對象的Text1_KeyPress 事件，可以 11分）'A、在屬性窗口中選擇J C、在代碼設(shè)計窗口中利用對象列表框、過程列表框選擇12、在下列語句中，正確的是 （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è)計窗口中雙擊Text1對象Command1.Name="cmdok"D、x=InputBox(please input)文案大全實用標準文檔O （ 1 分）13、Select Case語句中的“表達式列表”不能是J A、變量名的列表，例如 Case x ,y ,zB、值的列表，例如 Case "a ","b","c"r _ _一”C、To表達式，例如 Ca

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

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

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

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

10、、10010E+01(-23.4)=23.4D、Int(-23.4)=-24B、工程° D、工程1B、在設(shè)計階段放置的控件D、以上全部內(nèi)容25、窗體上有一個標簽 Label1和一個命名按鈕 Command1 ,當程序運行時每單擊一次命令按鈕，標簽就向右(f)移動一定距離。在 Command1_Click() 中能完成這個功能的命令為 11分)文案大全實用標準文檔A、Labell.Left = 100C、Labell.Move 100B、 Labell.Left = Labell.Left - 100D、Labell.Move Labell.Left + 10026、執(zhí)行語句 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í)行語句：Print Format(32548.5, "000,000.00"),輸出結(jié)果是A、32548.5B、32,548.5己 C 032,548.50D、32,548.5029、下列表達

12、式中，表示"X和丫之中有一個是奇數(shù)"的表達式是(1分)A、X Mod 2 = 1 And Y Mod 2 = 1B、X Mod 2 = 1 Or Y Mod 2 = 1文案大全實用標準文檔C、（X Mod 2 = 1 And Y Mod 2 = 0） And （X Mod 2 = 0 And Y Mod 2 = 1）30、表達式"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、以下聲明語句中，錯誤的是 o （1分）一A、Const varl=123i C、Public const=" 計算機等級考試"33、Single （單精度）型數(shù)據(jù)占 個字節(jié)。（1分）CA、2C、8B、-31D、出錯文案大全D、（X Mod 2 = 1 And Y Mod 2 = 0） Or （X Mod 2 = 0 And Y Mod 2 = 1）B、 FalseD、出錯信息B、Const var2="ABC"D、Static var3 as IntegerB、D

14、、10實用標準文檔（1分）34、已知下列程序段：a = 3: b = 4: Print b > a ,輸出的結(jié)果是A、TrueB、 FalseC、4>3D、顯示出錯信息35、在下列邏輯表達式中，邏輯值為"真"的是 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賦給一個整型變量，則整型變量的值為 （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、顯示出錯信息38、語句 Print 4 + 5 6 * 7 / 8 Mod 9 的值是 （ 1 分）文案大全實用標準文檔A、4B、539、40、41、42、文案大全C、6D、變體型變量未賦值時，它的值為O ( 1 分)A、OC、NullB、D、空""沒任何值執(zhí)行語句age = InputBox（"請輸入數(shù)值"，"年齡輸入框","

16、;38”）,如果從鍵盤上輸入數(shù)值20并按回車鍵，則下列敘述中，不正確的敘述是A、變量Age的值是數(shù)值數(shù)據(jù)20C、對話框的默認值是 38在VB中，以10為底的x的常用對數(shù)表達式是A、Log(X)C、Log(X) / Log(e)O ( 1 分)O ( 1 分)B、對話框標題欄中顯示的是"年齡輸入框"D、對話框的提示文字為"請輸入數(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實用標準文檔LC、65D、9743、表達式 Val(".123E2CD")的值是? (1 分)rA、.123B、12.3C、OD、.123E2CD44、下列符號常量的聲明中,是不合法的。（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、下列符號中，屬于 Visual Basic合法變量名的是

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

19、ot;D、"等級""考試"（1分）49、A、15C、30下面關(guā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è)計簡明教程中關(guān)于可視化界面

20、的設(shè)計","設(shè)計"）的函數(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 正確賦值的表達方式是二、程序應(yīng)用題（8道小題，共50分）*下面程序用來輸出如下圖案，請?zhí)羁铡Ｎ陌复笕珜嵱脴藴饰臋nABCDEABCDABCAB

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ù)字字符進行累加并輸出累加和Private Sub Form_Click()Dim s As String, i As Integers = InputBox("請輸入一個帶數(shù)字的字符串")文案大全實用標準文檔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中的某個元素。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("請輸入要

23、刪除的數(shù)")For i = 0 To nIf Key = a(i) Then Exit For文案大全實用標準文檔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、*三個學生的四門課（政治、數(shù)學、英語、計算機）成績（均在70分以上）隨即生成存放在二維數(shù)組R （3, 4）中，計算每個學生

24、的平均成績（存放在數(shù)組 S中）和最高平均成績。Private Sub Form_Click()文案大全實用標準文檔Dim R(1 To 3, 1 To 4) As IntegerDim S(1 To 3) As IntegerDim i%, j%, max%, k% 'k為最高成績學生序號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 "學生"& i;"平均成績:"& S(i)If max < S(i) Thenmax = S(i)k = iEnd IfNext iPrint "最高平均成績 k=" k, "max=" maxEnd Sub文案大全實用標準文檔(6分)5、*下面程序計算1!+3!+5!+.+9!的值，請將其補充完整。*程序代碼如下：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 ()文案大全實用標準文檔sum = sum +Next nPrint sumEnd Sub（6分）6、*編寫一個登錄的程序，如圖<x_1.jpg>)所示。*運行過程：點擊確定按鈕時判斷密碼是否為“ Gong ”，如果是則使用 msgbox顯示“歡迎你！”，如果不是則清空密碼輸入框，焦點重新定位到密碼輸入框。 Private Sub Form_Load()Text2.PasswordChar = "*".Text =""Text1 =&quo