【正文】 ct Case x : case Is5,1,3 to 10 : Print OK : End select D、Select Case x : case 1,3 Is5 : Print OK : End select 如下程序Do while i=100:s=s+i: loop運(yùn)行后的輸出結(jié)果是( )（1分） A、5050 B、5051 C、死循環(huán),無輸出 D、無窮大的數(shù) 下列數(shù)組聲明正確的是( )（1分） A、r=8 : Dim a (1 to r) as integer B、Dim a(10) as integer : ReDim a(1 to x) C、Dim a(x) as single : ReDim a(3,6) as integer D、Dim a() as integer : x=8 : ReDim a(1 to x) as integer 假設(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 0 創(chuàng)建Visual Basic應(yīng)用程序的主要步驟是：①創(chuàng)建應(yīng)用程序界面 ②設(shè)置控件 ③設(shè)置屬性 ④編寫代碼,其中正確的步驟是( )（1分） A、①②③④ B、①②④ C、②③④ D、①③④ 1若使用文本框Text1,為對用戶輸入內(nèi)容進(jìn)行立即檢查,應(yīng)對Text1的哪個(gè)事件編程(b )（1分） A、Change B、Interval C、Left D、Top 1如果數(shù)據(jù)包含小數(shù),則可定義為下列哪種類型( )（1分） A、integer B、string C、Byte D、Currency 1以下能夠正確計(jì)算1*2*3*…*n的程序是( )（1分） A、n=10 : s=1 : Do : s=s*i : i=i+1 : Loop While in B、n=10 : s=1 : i=1 : Do : s=s*i : i=i+1 : Loop While in C、n=10 : s=1 : i=1 : Do : s=s*i : i=i+1 : Loop while i=n D、n=10 : s=1 : i=1 : Do : s=s*i : i=i+1 : loop While in 1有如下程序For x=1 TO 2:For y=0 TO x1:Print x*y:Next:Next,內(nèi)層循環(huán)的循環(huán)體的總執(zhí)行次數(shù)是( )（1分） A、1 B、2 C、3 D、4 1下列語句中合法的是( )（1分） A、Print a=spc B、Print SIN()+COS() C、Print TAB(10)QB D、Print USING, 1表達(dá)式INT(4*RND+1)*(INT(4*RND－1))值的范圍是( )（1分） A、[0,8] B、[1,8] C、[3,8] D、[ 4,8] 1要統(tǒng)計(jì)出字符串VB計(jì)算機(jī)技術(shù)基礎(chǔ)的長度,應(yīng)使用下列( )函數(shù)A、TAB B、STR C、LEN D、INSTR 1表達(dá)式(not true or true) and (true or false)的值為( )（1 A、false B、true C、0 D、1 1下列敘述中正確的是( c )（1分） A、在窗體的Form_Load事件過程中定義的變量是全局變量 B、局部變量的作用域可以超出所定義的過程 C、在某個(gè)Sub 過程中定義的局部變量可以與其它事件過程中定義的局部變量同名,但其作用域只限于該過程 D、在調(diào)用過程時(shí),所有局部變量被系統(tǒng)初始化為0或空符串 下面哪一種變量名是錯(cuò)誤的(d )（1分）A、我們 B、a123 C、abc D、a1 2在Visual Basic中,下面四個(gè)數(shù)據(jù),數(shù)據(jù)形式錯(cuò)誤的是( d )（1分A、 B、236! C、 D、D36 2設(shè)a=2,b=4,c=6,下列表達(dá)式值為真的是( )（1分） A、ab And ca B、ab Or ca C、ab and ca D、bc Or ca 2數(shù)學(xué)表達(dá)式 lg6 在Visual Basic中的正確表示是( )（1分） A、ln(6)/ln(10) B、log(10)/log(6) C、log(6)/ln(10) D、Log(6)/ Log(10) 2如果希望一個(gè)窗體在顯示的時(shí)候沒有邊框,應(yīng)該設(shè)置的屬性是( ) A、將窗體的Caption設(shè)成空字符 B、將窗體的BorderStyle置成None C、將窗體的Enabled屬性置成False D、將窗體的ContalBox置成False 2( )對象能使用print方法（1分） A、文本框 B、圖片框 C、命令按鈕 D、標(biāo)簽 二、填空題（12道小題，共35分） 可視化Visual Basic語言是一種通用的程序設(shè)計(jì)語言。雙擊某個(gè)對象時(shí)，最終引發(fā)該對象的事件。結(jié)構(gòu)最常用于循環(huán)次數(shù)已知的循環(huán)結(jié)構(gòu)。在Visual 。表示貨幣型數(shù)據(jù)的單一字符是。Rnd函數(shù)的含義是設(shè)A$=Visual Basic是一種可視化編程語言,len(a$)函數(shù)返回值是。只在一個(gè)過程有效，其它過程無效的變量是 。方法用于在窗體、圖片框、調(diào)試窗中、打印機(jī)等對象上輸出文本1本程序用輾轉(zhuǎn)相除法求兩自然數(shù)m、n的最大公約數(shù)和最小公倍數(shù)。求最大公約數(shù)的算法如下：（1） 對于已知兩數(shù)m、n，使得mn；（2） m除以n得余數(shù)r；（3） 若r=0，則n為求得的最大公約數(shù)，算法結(jié)束；否則執(zhí)行（4）；（4） m=n，n=r再重復(fù)執(zhí)行（2）。原兩數(shù)相乘除以最大公約數(shù)即為最小公倍數(shù)。程序段如下：Private Sub Form_Click()Dim m as integer,n as integer,r as integer,mn as integern=Val(InputBox(“n=”))m=Val(InputBox(“m=”))If n=0 OR m=0 Then MsgBox “數(shù)據(jù)出錯(cuò)” EndEnd IfIf Then t=m m=n n=tEnd Ifmn=m*nr=m mod nDo While () m=n n=rLoop “最大公約數(shù)=”,n, “最小公倍數(shù)=”,mn/nEnd Sub1窗體中有兩個(gè)命令按鈕：“顯示”（對象名為cmdDisplay）和“測試”（對象名為cmdTest）。單擊“測試”按鈕時(shí)，執(zhí)行如下事件過程，此事件過程的功能是：當(dāng)在窗體中出現(xiàn)消息框,并選中其中的“確定”按鈕時(shí)，隱藏“顯示”按鈕。否則退出。請?zhí)羁铡rivate Sub cmdTest_Click( ) Answer = (“隱藏按鈕”,l) if Answer = vbOK then = Else End End ifEnd Sub三、判斷題（10道小題，共10分） Image控件不能用作容器使用。（1分） 正確 如果一個(gè)變量在聲明時(shí)沒有指定類型，則它是Variant類型的。（1分） 正確 語句a=7:a=8:print a 可以輸出a的兩個(gè)值。（1分） 創(chuàng)建VB應(yīng)用程序的三個(gè)主要步驟是：（1）創(chuàng)建應(yīng)用程序界面（2）設(shè)置控件（3）編寫代碼。 錯(cuò)誤 在VB中，sin(3a+b)是一個(gè)合法的表達(dá)式。（1分） 在 if 條件 then 結(jié)構(gòu)中，條件可以是邏輯表達(dá)式或關(guān)系表達(dá)式。（1分） 正確 在 For 控制變量＝初值 To 終值 [Step 步長] 結(jié)構(gòu)中，步長可以取任意值。（1分） 改變窗體的標(biāo)題也就是改變其屬性窗口中的name屬性。（1分） 在VB中可以同時(shí)打開多個(gè)工程。（1分） 錯(cuò)誤 在VB中，利用表達(dá)式 int(10+RND*90) 來產(chǎn)生一個(gè)[10，99]間的整數(shù)。（1分） 四、編程題（4道小題，共60分） 求公式：e=1/1!+1/2!+1/3!+……+1/n! 直到最后一項(xiàng)小于10^(6)時(shí)e的值。(保留小數(shù)點(diǎn)后9位)(注：程序代碼寫在命令按鈕Command1的Click事件中。)必須將本題程序最后的運(yùn)行結(jié)果填入下面的框中。否則，該題以零分計(jì)! 請將你解答本題所寫的源程序粘貼到下面或者上載源程序 有一個(gè)長階梯，如果每步跨2階最后剩1階，如果每步跨3階最后剩2階，如果每步跨4階最后剩3階，如果每步跨5階最后剩4階，如果每步跨6階最后剩5階，只有當(dāng)每步跨7階時(shí)恰好走完，問這個(gè)長階梯大于200階的最小值是多少？（本題不要求填寫運(yùn)行結(jié)果） 請將你解答本題所寫的源程序粘貼到下面或者上載源程序 編寫程序，用牛頓切線法求方程f(x)= x+=0的近似實(shí)根r，迭代初值自選?！蔡崾?計(jì)算公式為x=xf(x)/f39。(x)〕必須將本題程序最后的運(yùn)行結(jié)果填入下面的框中。否則，該題以零分計(jì)! 請將你解答本題所寫的源程序粘貼到下面或者上載源程序 編寫程序，輸出下列三角形： (要求用循環(huán)做，非循環(huán)不給分。) 1 2 2 2 3 3 3 3 3 4 4 4 4 4 4 4（本題不要求填寫運(yùn)行結(jié)果） 請將你解答本題所寫的源程序粘貼到下面或者上載源程序 以下敘述中正確的是( )（1分） A、可以在運(yùn)行期間改變對象的Name屬性的值 B、窗體的Name屬性的值是顯示在窗體標(biāo)題欄中的文本 C、窗體的Name屬性指定窗體的名稱,用來標(biāo)識一個(gè)窗體 D、對象的Name屬性可以為空 下列不能打開屬性窗口的操作是( )（1分） A、執(zhí)行“視圖”菜單中的屬性窗口命令 B、按F4鍵 C、按Ctrl+T D、單擊工具欄上的屬性窗口按鈕 用Dim A (1 to 15) As Integer語句定義的數(shù)組的元素個(gè)數(shù)是( )（1分） A、14 B、15 C、16 D、17 執(zhí)行下面的程序x=30 :For i=1 To 20 Step ( ):x=x+i\5:Next i 后,X的值為64,則Step為( )（1分） A、1 B、2 C、3 D、4 關(guān)于語句If c=2 Then d=2 下列正確的說法是( )（1分） A、c=2和d=2均為賦值語句 B、c=2和d=2均為關(guān)系表達(dá)式 C、c=2為關(guān)系表達(dá)式,d=2為賦值語句 D、d=2為關(guān)系表達(dá)式,c=2為賦值語句 如下程序,n = 10:Select Case n:Case 1 To 20:x = 10:Case 2, 4, 6:x = 20:Case Is 10:x = 30:Case 10:x = 40:End Select: = x程序運(yùn)行后,則在Text2中顯示的內(nèi)容為( )（1分） A、10 B、20 C、30 D、40 下列哪條語句是正確的( )（1分） A、Exit While B、End Sub C、For loop D、Do Exit 下列數(shù)組聲明正確的是( )（1分） A、n=6 : Dim a (1 to n) as integer B、Dim a(10) as integer : ReDim a(1 to 12) C、Dim a() as single : ReDim a(3,6) as integer D、Dim a() as integer : n=6 : ReDim a(1 to n) as integer 假設(shè)有以下程序段For I=1 to 3:For j=8 to 2 Step 1:Print I*j:Next j:Next I則語句 Print I*j 的執(zhí)行次數(shù)以及I、j的值分別是( )（1分） A、21 4 0 B、21 4 1 C、22 4 0 D、22 4 1 下列說法正確的是( )（1分） A、即使數(shù)據(jù)類型為Variant,數(shù)組中的元素類型也必須保持一致 B、數(shù)據(jù)類型為Variant時(shí),數(shù)組中的元素可以包含不同的類型 C、在數(shù)組中如果使用Option Base 1語句,則缺省的下界為0 D、在數(shù)組中如果沒有使用Option Base語句,則缺省的下界為1 1假定Picture1和Text1分別為圖片框和文本框的名稱,下列不正確的語句是( )（1分） A、Print 26 B、 26 C、 26 D、 26 1在Visual Basic中單精度的類型說明符為( )（1分） A、% B、 C、! D、amp。 1輸入一個(gè)正數(shù)x,并判斷x的開平方是否為整數(shù)的語句為( )（1分） A、x 0 and sqr(x)=chr(x) B、x 0 or sqr(x)=abs(x) C、x 0 and sqr(x)=fix(sqr(x)) D、x 0 or sqr(x)=int(sqr(x)) 1在如下語句中,d$=123:f=456,則d+f$的結(jié)果是( ) （1分） A、123456 B、123456 C、123+456 D、顯示出錯(cuò)信息 1在Visual Basic中,下面的四個(gè)語句中正確的是( )（1分） A、Log(sin(1))