visualbasicVB考試題庫含答案文檔-2019年文檔資料

1、一、單項選擇題( 25 道小題，共 25 分)1、VB 中工程軟件的擴展名為 (c )A、 ds B、frmC、 vbp D、bas2、 把字符串"abcdef"右邊的空格去掉應(yīng)使用(b)函數(shù)A、trim B、rtrimC、right D、 mid3、文本框textl的text屬性的數(shù)據(jù)類型是(b )A、整數(shù)型B、字符串C、單精度D、 雙精度4、下列(b)屬性決定窗體標(biāo)題欄顯示內(nèi)容(1分)A、NameB、CaptionC、TextD、BackStyl5、命令按鈕 command1 不具有下列哪個事件 (d )( 1 分) A、ClickB 、KeyPressC、 GotFo

2、cusD、 DblClick6、 為了使文本框同時具有水平和垂直滾動條，應(yīng)先將MultiLine屬性設(shè)置為True然 后再把 ScrollBars 屬性設(shè)置為(d)( 1 分)A、OB、1C、2D、37、Dim D(3,1 To 10,1 To 15)語句中，數(shù)組的元素個數(shù)為 (c )A、 3*10*16B、 3*11*16C、 4*1O*15D 、 4*11*15& 如果整型變量c、d、x的值分別為8、6、0，則下列語句For I=c to d : x=x+i : NextI執(zhí)行結(jié)束時，I的值為(a )( 1分)A、8B、7C、6D、59、 假定有以下循環(huán)結(jié)構(gòu)Do Until 條件

3、循環(huán)體 Loop 則正確的描述是 ( b)(1 分)A、如果"條件"是一個為0的常數(shù)，則一次循環(huán)體也不執(zhí)行 B、如果"條件"是一個為 0的常數(shù)，則至少執(zhí)行一次循環(huán)體 C、如果"條件"是一個不為0的常數(shù)，則至少執(zhí)行 一次循環(huán)體D、不論"條件"是否為"真"，至少要執(zhí)行一次循環(huán)體10、"x 是小于 100的非負數(shù)"，用 VB 表達式表示正確的是 (c )A、 0 <= x 0r x < 100B、 0 <= x < 100C、 0 <= x And x

4、 < 100D、 0 <=x , x < 10011、下列語句錯誤的是 ( d)A、 exit forB、 exit doC、 end subD、 exit select12、Inputbox函數(shù)返回的數(shù)據(jù)類型為（d）A、整型B、邏輯型C、單精度D、字符串13、假定有以下程序段 : For I= 1 To 3: For j = 1 To 5 Step -1:Print I*j: Next j: Next I 則語句 Print I*j 的執(zhí)行次數(shù)是 （ d） （1 分）A、 15B、 18C、 10D、 014、如果要清除在窗體中打印輸出的文字，可以利用（c）語） A、Inp

5、utB、LoadC、ClsD、 Paint15、 case <表達式表列 >,其中的表達式表列不正確的為 （d ）（1 分） A、 Case 100*aB、 Case 1000 To 2000C、 Case Is<3000D、 Case 2000<Is<300016、下列說法錯誤的是 （ ）（1 分）A、VB聲明數(shù)組時既可指定上界也可指定下界B、數(shù)組元素類型可以是任意的VB數(shù)據(jù)類型C、數(shù)組元素的下標(biāo)可以是數(shù)值，也可以是結(jié)果在上下界之間的數(shù)值表達式 D 、 VB 聲明數(shù)組時必須指定下界17、 下面的四個數(shù)組說明語句語法正確的是（c ） A、 DIM X10B 、 D

6、IM EN fn（10）C、 DIM X（20）D 、 DIM ENSION a1018、以下程序段 : x = 1: y = 4: Do Until y>4: x = x * y: y = y+ 1: Loop 執(zhí)行后 x 的結(jié)果為（b） A、1B、4C、8D、2019、 以下聲明和命名標(biāo)識符錯誤的是（c）A、必須以字母開頭B、變量名的最后一個 字符可以是類型聲明字符 C、長度不能超過8個字符D、不能與關(guān)鍵字同名20、下列說明錯誤的是 （d ）（1 分） A、 Const MyVar#=123B、 Dim myname as stringC、 dim a as integer,dim

7、b as singleD、 dim MyString="Hello,"+"My friend!"21、VB 中允許出現(xiàn)的數(shù)據(jù)形式為 （b ）A、 1.89E1.1B、 .368C、 D32D、 2.5E22、設(shè) a=2,b=3,c=4,d=5,下列表達式 a>b AND c<=d OR 2*a>c 的值是（b）A、TrueB、False C、-1D 、123、語句 6 * 66/6 的輸出結(jié)果是 （ c）A、6B、 12C、 36D、 21624、給窗體 form1 加載背景圖片，應(yīng)使用 （c ）A 、pictureB、ucase C、

8、loadpictureD、image25、字符串 "河南農(nóng)業(yè)大學(xué)現(xiàn)教部 "的長度是 （c ）A、18B、10C、9D、16二、填空題（ 12 道小題，共 35分）1、設(shè)定系統(tǒng)當(dāng)前日期是 2004年 5月 12日， Month（date）=5。2、設(shè) A$="Visual Basic",len（a$） 函數(shù)返回值是 12。3、在窗體的聲明部分，語句 Private x% 語句，是將變量定義為 窗體模塊 級變量。4、邏輯型數(shù)據(jù)只有true false 兩個值。5、順序文件讀操作用open 語句。6、一個工 程 可以包 括 多種 類 型的文 件 ,其 中 擴

9、展名為 .frx 的 文件表 示 frm 文件。7、Commandl.Visible二False是將命令按鈕1設(shè)為 把它設(shè)置為隱藏。8、 當(dāng)鼠標(biāo)在控件上暫停時，顯示提示信息，要用屬性ToolTipText 屬性。9、 Textl.SetFocus語句功能是把焦點移到上Textl。10、Dim X As Currency是將變量X定義為 貨幣型。三、判斷題（ 10 道小題，共 10 分）1、VB 中請求對象執(zhí)行某一操作的要求稱為 "方法"。（1 分）正確2、False為字符型常量。（1分）錯誤3、語句 Print 25*40 執(zhí)行時輸出的結(jié)果是 1000。 （1 分） 正確4

10、、窗體的卸載使用 Load 語句。（ 1 分）錯誤5、 表達式268二"268"的結(jié)果為True。（1分）錯誤6、語句 if 0 then print "Hello" 是錯誤的。（1 分）錯誤7、在 for 循環(huán)結(jié)構(gòu)對循環(huán)變量的賦值中，終值可以大于初值，也可以小于初值。 （1分）正確&將文本框Textl中的內(nèi)容清除，可使用語句Textl.cls。錯誤9、文件名的命名規(guī)則同變量的命名規(guī)則一樣。 （1 分）正確10、 InputBox 函數(shù)返回值的類型是字符串類型。 （ 1 分）正確Private Sub Command1_Click（）Dim ma

11、rk!, aver!, i%, max1!, min1!aver = 0For i = 1 To 6mark = InputBox（"輸入第” & i & ”位評委的打分”）If i = 1 Thenmax1 = mark: min1 = markElseIf mark < min1 Thenmin1=markElseIf mark > max1 Thenmax1=markEnd IfEnd Ifaver=aver+markNext aver = (aver-min1-max1)/4Print averEnd Sub1、以下敘述中錯誤的是 ( b )(1分

12、)A、在工程資源管理器窗口中只能包含一個工程文件及屬于該工程的其他文件B、控件的名稱可以由編程人員設(shè)定C、窗體文件包含該窗體及其控件的屬性D、Visual Basic中控件的某些屬性只能在運行時設(shè)置2、以下關(guān)于窗體的描述中，錯誤的是(d)( 1分)A、窗體的Load事件在加載窗體時發(fā)生 B、當(dāng)窗體的Enabled屬性為False時，通過 鼠標(biāo)和鍵盤對窗體的操作都被禁止C、窗體的Height、width屬性用于設(shè)置窗體的高和寬D、執(zhí)行Unioad Form1語句后,窗體 Form1 消失,但仍在內(nèi)存中3、用Static M (60 to 90) As Integer語句定義的數(shù)組的元素個數(shù)是(c

13、 )(1分)A、60 B、 30 C、 31 D、904、 如果整型變量a、b的值分別為3和1,則下列語句中For I=a to b : Print I : Next I循 環(huán)體的執(zhí)行次數(shù)是 (c)(1 分) A、 3 B、 2 C、 1 D、 05、關(guān)于語句 If x=1 Then y=1 下列正確的說法是 (c )(1分)A、 x=1 和 y=1 均為賦值語句 B、 x=1 和 y=1 均為關(guān)系表達式C、 x=1 為關(guān)系表達式 ,y=1 為賦值語句 D、 y=1 為關(guān)系表達式 ,x=1 為賦值語句6、用情況選擇語句Select Case X,選擇|X| >10情況的語句為Case(c

14、 )(1分)A、 Not (-10 To 10) B、 10 To -10 C、 Is < -10, Is >10 D、 ABS(X) > 107、下列哪條語句是錯的 ( c )(1 分)A、 RTrim() B、 Exit Function C、 Exit While D、 Exit Do&在Visual Basic中下面的四個數(shù)組聲明語句，正確的是(c)( 1分)A 、Dim a10 B 、 Def fn(10) C、 Dim a(10) D、 Dimension a(10)9、閱讀下面的程序段 For i=1 To 3:For j=1 To i:For k=j

15、To 3 :a=a+2:Next :Next:Next 執(zhí) 行上面的三重循環(huán)后 ,a 的值為 ( c)( 1 分)A、26 B、27 C、28 D、2910、下面說法錯誤的是 ( b )(1分)A、對象的性質(zhì)和狀態(tài)值稱為"屬性"B、請求對象執(zhí)行某一操作的要求稱為"消息"C、改變對象的一個或多個屬性值的操作稱為”事件"D、對象發(fā)生某事件所執(zhí)行的程 序稱為事件驅(qū)動程序11、若使用文本框Textl,為對用戶輸入內(nèi)容進行立即檢查 應(yīng)對Textl的哪個事件編程( a )( 1 分)A 、 Change B、 Interval C 、 Left D 、 T

16、op12、如果數(shù)據(jù)包含小數(shù) ,則不應(yīng)定義為下列哪種類型 (c )(1 分)A、 Double B、 Single C、 Byte D、 Currency13、下列程序段 s=0:for i=9 to 42 step 11:s=s+i:next:if i>50 then s=s+i else s=s-i 運行后 s 的結(jié)果為 ( ) (1 分)A、 167 B、 139 C、 144 D、 15514、有如下程序 ,m$ ="ABCDE":MID(m$, 1 ,5)="abcde":Print m$, 運行后的輸出結(jié)果是( a )( 1 分)A 、

17、abcdeABCDE B、 ABCDEabcde C、 abcde D、 ABCDE15、在下列四個式子中，非法的Visual Basic表達式是(c)( 1分)A 、 a=b+e B、 5>3+3 C、 a=exp D、 5<>516、表達式 INT(6*RND+1)*(INT(6*RND 1)值的范圍是 ( b )(1 分)A、 -6,18 B、 -6,24 C、 -3,24 D、 -3,1817、字符串"計算機技術(shù)基礎(chǔ) "的長度是,應(yīng)使用下列 (c )函數(shù)(1 分)A、TAB B、STR C、LEN D 、INSTR18、表達式(not true o

18、r true) and (true or false的值為(b ) (1 分)A 、 false B、 true C、 0 D、 -119、下列敘述中正確的是 (c )(1 分)A、在窗體的Form_Load事件過程中定義的變量是全局變量B、局部變量的作用域可以超出所定義的過程C、在某個Sub過程中定義的局部變量可以與其它事件過程中定義的局部變量同名但其作用域只限于該過程 D、在調(diào)用過程時，所有局部變量被系統(tǒng)初始化為0或空符 串20、下面的變量名合法的是 (c )(1 分)A 、 B、 k%name C、 name D、 k-name21、在Visual Basic中,下面四個數(shù)

19、據(jù)，數(shù)據(jù)形式錯誤的是(b )( 1分)A、 3.456# B、 236! C、 1.23D-23 D、 1.89E1.122、已知C>D,S>T,正確表示它們之間關(guān)系的式子是(c)( 1分)A 、 Sgn(D-C)-Sgn(S-T)>0 B、 Sgn(D-C)-Sgn(S-T)=-2C、 Sgn(D-C)-Sgn(S-T)=0 D、 Sgn(D-C)-Sgn(S-T)=123、表達式 Int(Rnd*11)+100 的值的范圍是 ( b)(1 分)A、 11,111 B、 100,110 C、 11,100 D、 100,11124、下列關(guān)于屬性設(shè)置的敘述正確的是 (d )(

20、1 分)A、所有的對象都有同樣的屬性B、控件的屬性只能在設(shè)計時修改，運行時無法改變C、控件的屬性都有同樣的默認值D、引用對象屬性的格式為：對象名稱屬性25、Visual Basic中沒有提供下列(d)事件(1分)A、 MouseDown B、 MouseUp C、 MouseMove D、 MouseExit二、填空題( 1 2道小題，共 35分)1、可視化 Visual Basic 語言是公司推出的程序開發(fā)語言。2、雙擊某個對象時，最終引發(fā)該對象的事件執(zhí)行。3、程序流程中被重復(fù)執(zhí)行的程序段叫循環(huán)體 。4、將對象設(shè)置為允許用戶操作，并對操作作出響應(yīng)，是將它的Enabled 屬性值設(shè)為True。

21、5、 在 Visual Basic6.0 中，用 Font.StrikeThtouth 屬性設(shè)置。6、 表示單精度型數(shù)據(jù)的單一字符是! 。7、Rnd 函數(shù)的含義是 。& Chr$(數(shù)值)函數(shù)返回該數(shù)值表示的字符。9、 在窗體各過程中均有效的變量是全局變量 。10、 在Print方法中，句尾有符號時，是換行 執(zhí)行下一個Print語句11 、下列程序段將十進制數(shù)轉(zhuǎn)換為十六進制數(shù)，要求十進制數(shù)為非負整數(shù)。單擊窗 體，彈出InputBox 對話框，讓用戶輸入一個十進制數(shù)；單擊 “確定 ”后，在 Label1 上顯示出十 六進制數(shù)的結(jié)果。 如果輸入的不是十進制數(shù)， 在標(biāo)簽 Label1 上顯示出

22、 "你輸入的不是 十進制數(shù)"，退回到對話框狀態(tài)，讓用戶重新輸入。Private Sub Form_Click()Dim sHex As String, Ys As IntegerDim n As String, nd As Integer, Ai As StringsHex = ""n = InputBox(" 請輸入一個十進制整數(shù) ")If Not IsNumeric(n) Or Left(n, 1) = "0" Or _Int(Val(n) <> Val(n) ThenMsgBox "你輸

23、入的不是十進制整數(shù)！ "EndElsend = Val(n)Do While nd >= 10Ys = nd Mod 16Select Case YsCase 10Ai = "A"Case 11Ai = "B"Case 12Ai = "C"Case 13Ai = "D"Case 14Ai = "E"Case 15Ai = "F"Case 0 To 9Ai = YsEnd SelectsHex = Trim(Ai) & sHex nd = nd 16Lo

24、opLabel1 = nd & sHexEnd IfEnd Sub12、在窗體上有兩個命令按鈕和一個文本框，名稱分別為cmdstart ( 開始”、cmdend ( 結(jié)束”和txt。程序開始運行時，要求文本框txt中的字符個數(shù)不超過300個，結(jié)束”按鈕成 灰色，單擊“開始”按鈕后，“開始”按鈕不可用， 同時使“結(jié)束”按鈕能響應(yīng) ,單擊“結(jié)束”按鈕結(jié)束程 序。Private sub form_load()=300Cmdend.enabled=falseEnd subPrivate sub cmdstart_click()cmdstart.enabled=false=trueend sub

25、private sub cmdend_click()endend sub三、判斷題( 10 道小題，共 10 分、1、通過labell.cls可以清除由labell所顯示的內(nèi)容。(1分)錯誤2、變量是指在程序運行過程中其值可以改變的那些量，而值不能改變的是常量分）錯誤3、設(shè)a= 5,則語句print a = 5的運行結(jié)果為True。（1分）正確4、能夠改變窗體背景顏色的屬性是 BackColor。 （1 分） 正確5、在 VB 的表達式中,加入括號有時可以改變運算符的優(yōu)先級。正確6、在 if 條件 then 結(jié)構(gòu)中,條件可以是邏輯表達式或關(guān)系表達式。 （1 分） 正確7、在For 控制變量 =

26、 初值 To 終值 Step 步長結(jié)構(gòu)中，步長可以取任意 值。（ 1 分） 錯誤8、可以用 Text1.text="" 來清除 Text1 中的內(nèi)容。（1 分） 正確9、在 VB 中可以同時打開多個工程。 （1 分）正確10、在定義了一個函數(shù)后, 可以象調(diào)用任何一個 VB 內(nèi)部函數(shù)一樣使用它, 即可以在 任何表達式、語句或函數(shù)中引用它。 （1 分） 錯誤四、編程題（ 4 道小題,共 60 分）1、求公式：e=1/1!+1/2!+1/3!+1直到最后一項小于10八（-6）時e的值。（保留小數(shù)點后 9 位）（注：程序代碼寫在命令按鈕 Command1 的 Click 事件中。

27、）Private Sub Command1_Click（）e = 0s = 1i = 1Do Until s 10 八（-6）i = i + 1LoopPrint eEnd Sub2、有100匹馬，馱 100擔(dān)貨：大馬馱 3擔(dān)，中馬馱 2擔(dān)，兩匹小馬馱 1 擔(dān)，問有大、 中小馬各多少？(本題不要求填寫運行結(jié)果) 請將你解答本題所寫的源程序粘貼到下面或者上載源程序Private Sub Command1_Click()Dim a, b, c As IntegerFor a = 1 To 100For b = 1 To 100c = 100 - a - bIf 3 * a + 2 * b + c

28、/ 2 = 100 ThenPrint a, b, cEnd IfNextNextEnd Sub3、編寫程序，用牛頓切線法求方程f(x)二x+lnx-1.7=0的近似實根r，迭代初值自選， 精確到 0.0001。提示 :計算公式為 x=x-f(x)/f'(x) 必須將本題程序最后的運行結(jié)果填入下面的框中。否則，該題以零分計4、編寫程序，輸出下列三角形： (要求用循環(huán)做，非循環(huán)不給分。 )11 2 31 2 3 4 51 2 3 4 5 6 7Private Sub Command1_Click()For i = 1 To 4Print Tab(20 - 3 * i);For t = 1

29、 To 2 * i - 1Print t;NextNextEnd Sub1、如果一個工程含有多個窗體 ,則以下敘述中錯誤的是 (d )(1分)A、不可以在運行期間改變對象的Name屬性的值B、用Hide方法只是隱藏一個窗體,不能從內(nèi)存中清除該窗體C、任何時刻最多只有一個窗體是活動窗體D、窗體的Name屬性的值是顯示在窗體標(biāo)題欄中的文本2、下列不能打開屬性窗口的操作是 (c )(1分)A、執(zhí)行 視圖”菜單中的"屬性窗口 "命令B、按F4鍵C、按Ctrl+T D、單擊工具欄 上的 "屬性窗口 "按鈕3、用Dim S (20) As Integer語句定義的數(shù)

30、組的元素個數(shù)是()(1分)A、 19 B、 20 C、 21 D、 224、如果整型變量a、b的值分別為3和1,則下列語句中For I=a to b : Print I : Next I循 環(huán)體的執(zhí)行次數(shù)是 ( )(1分)A、3 B、2 C、1 D、05、關(guān)于語句 If x=1 Then y=1 下列正確的說法是 ( )( 1 分)A 、x=1 和 y=1 均為賦值語句 B、x=1 和 y=1 均為關(guān)系表達式C、x=1為關(guān)系表達式,y=1為賦值語句D、y=1為關(guān)系表達式,x=1為賦值語句6、用情況選擇語句Select Case X,選擇|X| >10情況的語句為Case( )(1分)A、

31、 Not (-10 To 10) B、 10 To -10 C、 Is < -10, Is >10 D、 ABS(X) > 107、在運行階段 ,要在文本框 Text1 獲得焦點時選中文本框中所有內(nèi)容 ,對應(yīng)的事件過程 是( a )( 1 分)A 、 Private Sub Text1_GotFocus( ) : Text1.SelStart=0 : Text1.SelLength=Len(Text1.text) : End Sub B 、 Private Sub Text1_LotFocus( ): Text1.SelStart=0 :Text1.SelLength=Len

32、(Text1.text) : End SubC 、 Private Sub Text1_Change( ): Text1.SelStart=0 :Text1.SelLength=Len(Text1.text) : End Sub D 、 Private Sub Text1_SetFocus( ) : Text1.SelStart=0 : Text1.SelLength=Len(Text1.text) : End Sub&在Visual Basic中下面的四個數(shù)組聲明語句，正確的是()(1分)A、 Dim a10 B、 Def fn(10) C、 Dim a(10) D、 Dimensi

33、on a(10)9、假設(shè)有以下程序段 For I=1 to 3:For j=7 to 1 Step -1:Print I*j:Next j:Next I 則語句Print I*j的執(zhí)行次數(shù)以及I、j的值分別是()(1分)A、 21 3 0 B、 21 4 0 C、 20 3 0 D、 20 4 010、如果Form1是啟動窗體，并且Form1的Load事件過程中有Form2.Show則程序啟 動后( c )(1 分)A、發(fā)生一個運行時錯誤 B、發(fā)生一個編譯時錯誤C、在所有的初始化代碼運行后 Form1是活動窗體D、在所有的初始化代碼運行后Form2 是活動窗體11、以下控件中可以入選為容器控件

34、的是（b） （1分）A 、 Image 圖像框控件 B、 PictureBox 圖片框控件 C、 TextBox 文本框控件 D、 ListBox 列表框控件12、假設(shè)變量bool_x是一個布爾型（邏輯型）的變量，則下面正確的賦值語句是（b ） （ 1 分）A 、 bool_x="False" B、 bool_x=.False. C、 bool_x=#False# D、 bool_x=False13 、下列程序段 If （2 * 2 = 5） < （2 * 2 = 4） Then:Print "True is greater thanfalse":

35、Else:Print "False is greater than true的運行結(jié)果是（）A 、 True is greater than false B、 False is greater than true C、 False D、 True14、有如下程序,For j=1 TO 20 :a=a+j7 :Next運行結(jié)束時a的值是（）（1分）A、 21 B、 41 C、 63 D、 21015、在下列四個式子中，非法的Visual Basic表達式是（）（1分）A 、 a=b+e B、 5>3+3 C、 a=exp D、 5<>516、表達式 INT（4*RND

36、+2）*（INT（4*RND 2）值的范圍是 （ ）（1 分）A、 -10,8 B、 -4,8 C、 -10,5 D、 4,817、要統(tǒng)計出字符串"計算機技術(shù)基礎(chǔ)visual basic"的長度，應(yīng)使用下列（）函數(shù)（1 分）A、 TAB B、 STR C、 LEN D、 INSTR18、表達式 253 mod 3.2*int（2.5）的值為（）（1 分）A 、 1 B、 2 C、 3 D、 519、Dim b1,b2 as boolean語句顯式聲明變量（d ）（ 1 分）！!！A、b1和b2都為布爾型變量 B、b1是整型,b2是布爾型變量C、b1和b2都為是可變型變量 D

37、、b1是可變型,b2是布爾型變量20、下列哪一個是 Visual Basic合法變量名（d ）（ 1分）A、IF B、7AB C、AB7 D 、AB721、用變量a存放數(shù)據(jù)888666.666888應(yīng)將變量a的類型定義為（）（1分）A 、 Long B、 Integer C、 Single D 、 Double22、下面邏輯表達式值為真的是 （ ）（1 分）A、 "A" > "a" B、 "9" > "a" C、 "That" > "Thank" D 、 1

38、2>12.123、函數(shù) String（n,"str"）的功能是（）（1 分）A、把數(shù)值型數(shù)據(jù)轉(zhuǎn)換為字符串B、返回由n個字符組成的字符串C、從字符串中取出n個字符D、從字符串中第n個字符的位置開始取子字符串24、 如果希望一個窗體在顯示的時候沒有邊框,應(yīng)該設(shè)置的屬性是 （ b ）（1 分）A、將窗體的Caption設(shè)成空字符 B、將窗體的BorderStyle置成NoneC、將窗體的Enabled屬性置成False D、將窗體的ContalBox置成False25、（ b ）對象能使用 print 方法（ 1 分）A、文本框B、圖片框C、命令按鈕D、標(biāo)簽二、填空題（ 1

39、 2道小題，共 35分）1、 從機器的執(zhí)行角度來說，程序設(shè)計語言可分為高級語言和兩大類。2、雙擊某個對象時，最終引發(fā)該對象的事件。3、 程序流程是按一定條件重復(fù)多次執(zhí)行一段程序的結(jié)構(gòu)是結(jié)構(gòu)。4、 將對象設(shè)置為禁止用戶操作，是將它的En abled屬性值設(shè)為。5、在 Visual Basic6.0 中，用 Font.Italic 屬性設(shè)置 。6、 長整型變量的關(guān)鍵字是。7、 三角函數(shù)是以為單位。& Chr$（13）為 huiche。9、在整個工程的所有模塊中均有效變量是 全局變量 。10、方法用于在窗體、圖片框、調(diào)試窗中、打印機等對象上輸出文本11、 下列程序段是用于在一個字符串變量中查

40、找"red"，并用信息輸出框給出找到的 個數(shù)或沒有找到的查找結(jié)果。Private Sub Form_Click（）Dim Str1 As String, Length As Integer, Sum As Integer, I As IntegerStr1 = InputBox（"請輸入一個字符串"）Length =I = 1Sum = 0Do While I <=length-3If = "red" ThenSum = Sum + 1End IfI = I + 1LoopIf ThenMsgBox " 沒有找到！ &

41、quot;ElseMsgBox "找到了" & Str（Sum） & " 個"End IfEnd Sub12、在窗體上畫一個標(biāo)簽（名稱為 Label1 ）和一個計時器（名稱為 Timer1 ），然后編 寫如下幾個事件過程：Private Sub Form_Load()Timer1.Enabled = FalseTimer1.Interval =End SubPrivate Sub Form_Click（）Timer1.Enabled =End SubPrivate Sub Timer1_Timer（）Label1.Caption = ti

42、me（）End Sub程序運行后，單擊窗體，將在標(biāo)簽中顯示當(dāng)前時間，每隔 1 秒鐘變換一次（如見下 圖）。14:54:41三、判斷題（ 10 道小題，共 10分）1、立即窗口既可顯示程序調(diào)試時新產(chǎn)生的信息，也可執(zhí)行一行代碼。錯誤2、變量是指在程序運行過程中其值可以改變的那些量，而值不能改變的是常量。（1分） 錯誤3、語句 a=7:print：a=8:print a 可以輸出 a 的兩個值。4、可以在運行期間改變對象的 Name屬性的值。（1分）錯誤5、字符串"AB"與"ab"是兩個相等的字符串。（1分）6、 在 if 條件 then 結(jié)構(gòu)中，條件必須是邏

43、輯表達式或關(guān)系表達式。（1 分）7、在For 控制變量 = 初值 To 終值 Step 步長 結(jié)構(gòu)中，可以寫成 For a="x" to "z" 。（ 1 分）&計時器（Timer）控件的Interval屬性的單位是毫秒，即若將此屬性值設(shè)為10,則每 0.01 秒產(chǎn)生一次 Timer 事件。（ 1 分）9、窗體文件的擴展名是 .frm 。（ 1 分）10、在 VB 中， int（rnd*90）+10 的取值范圍是 10,99。（1 分）四、編程題（ 4 道小題，共 60 分）1、輸入一串?dāng)?shù)字，求其中各位數(shù)字之和。例如輸入123456，則求 1 2

44、34 56。必須將本題程序最后的運行結(jié)果填入下面的框中。否則，該題以零分計 ! 請將你解答本題所寫的源程序粘貼到下面或者上載源程序2、 勾股定理中三個數(shù)的關(guān)系是：aA2 + bA2 =cA2編寫程序，輸出100以內(nèi)滿足上述 關(guān)系的整數(shù)組合，例如 3， 4， 5 就是一個整數(shù)組合。（本題不要求填寫運行結(jié)果） 請將你解答本題所寫的源程序粘貼到下面或者上載源程序3、 編寫程序，用普通迭代法求方程f（x）二x+lgx-1.7=0的近似實根r，迭代初值為1.5, 精確到 0.0001。提示：必須把方程f（x）=0化成其等價形式x=g（x）。（允許使用其他迭代法） 必須將本題程序最后的運行結(jié)果填入下面的框

45、中。否則，該題以零分計 ! 請將你解答本題所寫的源程序粘貼到下面或者上載源程序4、 編寫程序，輸出下列三角形：（要求用循環(huán)做，非循環(huán)不給分。）GFGEFGDEFGCDEFGBCDEFGABCDEFG（本題不要求填寫運行結(jié)果） 請將你解答本題所寫的源程序粘貼到下面或者上載源程序1、以下敘述中錯誤的是 （b ）（1 分）A、一個工程中可以包含多個窗體文件B、在一個窗體文件中用 Private定義的通用過程能被其他窗體調(diào)用C、若工程文件中有多個窗體，可以根據(jù)需要指定一個窗體為啟動窗體D、事件可以由用戶引發(fā) ,也可以由系統(tǒng)引發(fā)2、在設(shè)計階段 ,當(dāng)雙擊窗體上的某個控件時 ,所打開的窗口是 （ ）（1分）

46、A、工程資源管理器窗口B、工具箱窗口C、代碼窗口 D、屬性窗口3、用Static M （60 to 90） As Integer語句定義的數(shù)組的元素個數(shù)是（）（1分）A、 60 B、 30 C、 31 D、 904、如果整型變量c、d的值分別為10和5,則下列語句中For I=c to d : Print I : Next I循 環(huán)體的執(zhí)行次數(shù)是 （ ）（1 分）A、 6 B、 5 C、 1 D、 05、a和b中有且只有一個為0,可以用以下的表達式來表示（）（1分）A 、 a=0 or b=0 B、 a*b=0 and a+b<>0C、a*b=0 ora+bz 0 D、a=0 an

47、d not b=0 and b=0 and not a=06、 用情況選擇語句Select Case X,選擇|X| >10情況的語句為Case（ ） （1分）A、 Not （-10 To 10） B、 10 To -10 C、 Is < -10, Is >10 D、 ABS（X） > 107、設(shè)a=10,b=5,c =1執(zhí)行語句a > b > c結(jié)果是（）（1分）A、True B、False C 1 D、出錯信息&在Visual Basic中下面的四個數(shù)組聲明語句，正確的是（）（1分）A、 Dim a10 B、 Def fn(10) C、 Dim

48、a(10) D、 Dimension a(10) 9、假設(shè)有以下程序段 For I=1 to 3:For j=5 to 1 Step -1:Print I*j:Next j:Next I 則語句Print I*j的執(zhí)行次數(shù)以及I、j的值分別是（）（1分）A、 12 3 0 B、 13 3 1 C、 12 4 0 D、 13 4 110、 創(chuàng)建Visual Basic應(yīng)用程序的主要步驟是：創(chuàng)建應(yīng)用程序界面設(shè)置控件 設(shè)置屬性編寫代碼,其中正確的步驟是（d ）（ 1分）！!！A、B、C、D、11、 為了在按下回車鍵時執(zhí)行某個命令按鈕的事件過程,需要把該命令按鈕的一個屬 性設(shè)置為True,這個屬性是（

49、）（1分）A 、 Value B、 Default C、 Cancel D、 Enabled12、如果數(shù)據(jù)包含小數(shù) ,則不應(yīng)定義為下列哪種類型 （ ）（1 分）A、 Double B、 Single C、 Byte D、 Currency13、下列程序段 s=0:for i=9 to 42 step 11:s=s+i:next:if i>50 then s=s+i else s=s-i運行后 s 的結(jié)果為 （ ）（ 1 分）A、 167 B、 139 C、 144 D、 15514、有如下程序 For x=1 TO 2:For y=0 TO x-1:Print x*y:Next:Next

50、, 內(nèi)層循環(huán)的循環(huán)體 的總執(zhí)行次數(shù)是 （ ）（ 1 分）A、 1 B、 2 C、 3 D、 415、在下列四個式子中，非法的Visual Basic表達式是（）（1分）A 、 a=b+e B、 5>3+3 C、 a=exp D、 5<>516、表達式 INT（4*RND+2）*（INT（4*RND 2）值的范圍是 （ ）（1 分）A、 -10,8 B、 -4,8 C、 -10,5 D、 4,817、要統(tǒng)計出字符串"計算機技術(shù)基礎(chǔ)visual basic"的長度，應(yīng)使用下列（）函數(shù)（1 分）A、 TAB B、 STR C、 LEN D、 INSTR18、表達

51、式（not true or true） and （true or false的值為（）（1A 、 false B、 true C、 0 D、 -119、下列哪個關(guān)鍵字聲明的局部變量在整個程序運行中一直存在（ cA 、 Dim B 、Public C、Static D、 Private20、下面的變量名合法的是 （ ）（1 分）A 、 B、k%name C、name D、 k-name21、Visual Basic中不允許出現(xiàn)的數(shù)據(jù)形式為（）（1分）A、 4.56E-3 B、 .368 C、 D32 D、 0.25822、設(shè)a=2,b=4,c=6,下列表達式值為真的是（）（1分）A

52、 、 a>b And c<a B、 a>b Or c<a C、 a<b and c>a D、 b>c Or c<a23、要使變量x賦值為1到100間（含1,不含100）的一個隨機整數(shù)，正面語句正確的是 （ ）（1分）A、 x=Int（100*Rnd） B、 x=Int（101*Rnd） C、 x=1+Int（100*Rnd） D、 x=1+Int（99*Rnd）24、下列關(guān)于屬性設(shè)置的敘述正確的是 （ d ）（1 分）A、所有的對象都有同樣的屬性 B、控件的屬性只能在設(shè)計時修改，運行時無法改變C、控件的屬性都有同樣的默認值D、引用對象屬性的格式為

53、：對象名稱屬性25、使文本框獲得焦點的方法是 （ ）（1 分）A 、 Change B、 GotFocus C、 SetFocus D、 LostFocus二、填空題（ 1 2道小題，共 35分）1 、可視化 Visual Basic 以結(jié)構(gòu)化 Object pascal 語言為基礎(chǔ)。2、一個工程可以包括多種類型的文件 ,其中窗體文件的擴展名為。3、 程序流程中被重復(fù)執(zhí)行的程序段叫循環(huán)結(jié)構(gòu) 。4、 將對象設(shè)置為不可見的，是將它的屬性值設(shè)為False。5、在 Visual Basic6.0 中，用 Font.Size屬性設(shè)置。6、表示貨幣型數(shù)據(jù)的單一字符是。7、Int(x) 函數(shù)的含義是。8、設(shè)

54、 A$="Visual Basic 是一種可視化編程語言 ",mid$(A$,8,5) 函數(shù)返回值是。9、 邏輯值轉(zhuǎn)變?yōu)閿?shù)值時，F(xiàn)alse為0 。10、 在 Print 方法中，輸出項用逗號分隔是按標(biāo)準(zhǔn) 格式輸出。11、下列程序段是用于在一個字符串變量中查找"Rose",并用信息輸出框給出找到的 個數(shù)或沒有找到的查找結(jié)果。Private Sub Form_Click()Dim Str1 As String, Length As Integer, Sum As Integer, I As IntegerStr1 = InputBox("請輸入一個

55、字符串")I = 1Sum = 0Do While I <=length-4If = "Rose" ThenSum = Sum + 1End IfI = I + 1LoopIf ThenMsgBox " 沒有找到！ "ElseMsgBox "找到了" & Str(Sum) & " 個"End IfEnd Sub12、在窗體上畫一個標(biāo)簽（名稱為Labell）和一個計時器（名稱為Timerl）,然后編寫如下幾個事件過程：Private Sub Form_Load（）Timer1.Enab

56、led =Timer1.Interval = 1000End SubPrivate Sub Form_Click（）Timer1.Enabled =End SubPrivate Sub Timer1_Timer（）Label1.Caption = time（）End Sub程序運行后,單擊窗體,將在標(biāo)簽中顯示當(dāng)前時間,每隔 1 秒鐘變換一次（如見下 圖）。22:40:20三、判斷題（ 10道小題,共 10分）1、在 VB 中,注釋語句也是可執(zhí)行語句。 （1 分）錯誤2、在 VB 中,變量可以直接使用（即不聲明就使用） 正確3、要想以標(biāo)準(zhǔn)方式顯示變量 a,b,c的值，可以寫成print a，b，

57、c4、 要想修改在窗體上輸出的字體的顏色，可以修改窗體的Forecolor屬性。（1分）5、字符串"AB"與"ab"是兩個相等的字符串。（1分）6、在 if 條件 then 結(jié)構(gòu)中，條件可以是邏輯表達式或數(shù)值表達式。 （1 分）7、在For 控制變量 = 初值 To 終值 Step 步長 結(jié)構(gòu)中，可以寫成 Fora="x" to "z"1 分）&改變窗體的標(biāo)題也就是改變其屬性窗口中的name屬性。（1分）9、 Open 命令的作用只是打開一個已經(jīng)存在的文件。（ 1 分）10、在定義了一個函數(shù)后， 可以象調(diào)用

58、任何一個 VB 內(nèi)部函數(shù)一樣使用它， 即可以在 任何表達式、語句或函數(shù)中引用它。 （1 分） 正確四、編程題（ 4 道小題，共 60 分）1、編寫程序，計算并輸出下面級數(shù)前 n項（n=80）的部分和。1-1/2+1/3-1/4+1/5+ + 1/n（n 由鍵盤輸入 ，要求用循環(huán)做，非循環(huán)不給分。 ） 必須將本題程序最后的運行結(jié)果填入下面的框中。否則，該題以零分計 ! 請將你解答本題所寫的源程序粘貼到下面或者上載源程序2、 勾股定理中三個數(shù)的關(guān)系是：aA2 + bA2 =cA2編寫程序，輸出100以內(nèi)滿足上述 關(guān)系的整數(shù)組合，例如 3， 4， 5 就是一個整數(shù)組合。（本題不要求填寫運行結(jié)果） 請將你解答本題所寫的源程序粘貼到下面或者上載源程序3、 編寫程序，用普通迭代法求方程f（x）=x+lnx-1.7=0的近似實根r，迭代初值為1.5, 精確到 0.0001。提示：必須把方程 f（x）=0 化成其等價形式 x=g（x）。 （允許使用其他迭代法） 必須將本題程序最后的運行結(jié)果填入下面的框中。否則，該題以零分計 ! 請將你解答本題所寫的源程序粘貼到下面或者