【正文】 下面程序運(yùn)行后輸出的結(jié)果是（ ） A$=CHINA B$=STRING$(3,A$) PRINT B$ ENDA．CHI B．CCC C．INA D．AAA 以下語(yǔ)句的輸出結(jié)果是（ ）Print Format$(, 000,)A． B．325, C．032,548,50 D．32,548,50 以下敘述中錯(cuò)誤的是（ ）A．如果過(guò)程被定義為Static類型，則該過(guò)程中的局部變量都是Static類型B．Sub過(guò)程中不能嵌套定義Sub過(guò)程C．Sub過(guò)程中可以嵌套調(diào)用Sub過(guò)程D．事件過(guò)程可以像通用過(guò)程一樣由用戶定義過(guò)程名 Visual Basic提供的On Error Resume next錯(cuò)誤陷阱語(yǔ)句表示（ ）A．當(dāng)發(fā)生錯(cuò)誤時(shí)，使程序轉(zhuǎn)跳到語(yǔ)句標(biāo)號(hào)為0的程序塊B．當(dāng)發(fā)生錯(cuò)誤時(shí)，不使用錯(cuò)誤處理程序塊C．當(dāng)發(fā)生錯(cuò)誤時(shí)，忽略錯(cuò)誤行，繼續(xù)執(zhí)行下一語(yǔ)句D．當(dāng)發(fā)生錯(cuò)誤時(shí)，終止本過(guò)程執(zhí)行，繼續(xù)執(zhí)行下一過(guò)程 在Visual Basic中，若要將控制權(quán)交給操作系統(tǒng)則通過(guò)（ ）的語(yǔ)句。A．End B．Exit Do C．Exit Sub D．DoEvents 在Visual Basic 中語(yǔ)句的續(xù)行號(hào)采用（ ）A．空格與下劃線 B．下劃線與空格 C．空格與短線 D．短線與空格 1假定有以下程序段：For i=1 to 3 For j=5 to 1 Step –1 Print i*j Next j,i則語(yǔ)句Print i*j的執(zhí)行次數(shù)是（ ）A．15 B．.16 C．17 D．18 1從鍵盤上輸入兩個(gè)字符串，分別保存在變量strstr2中。確定第二個(gè)字符串在第一個(gè)字符串中起始位置的函數(shù)是（ ）A．Left B．Mid C．String D．Instr 1如果將布爾常量值TRUE賦值給一個(gè)整型變量，則整型變量的值為（ ）A．0 B．1 C．TRUE D．FALSE 1下列敘述不正確的是（ ）A．注釋語(yǔ)句是非執(zhí)行語(yǔ)句，僅對(duì)程序的內(nèi)容起注釋作用，它不被解釋和編譯B．注釋語(yǔ)句可以放在代碼中的任何位置C．注釋語(yǔ)句不能放在續(xù)行符的后面D．代碼中加入注釋語(yǔ)句的目的是提高程序的可讀性 1語(yǔ)句PRINT “INT()”；INT()的輸出結(jié)果為（ ）A．INT()= B．INT()= C．INT()= 13 D．INT()= 14 1如果TAB函數(shù)的參數(shù)小于1，則打印位置在第（ ）列A．0 B．1 C．2 D．3 1變量未賦值時(shí)，數(shù)值型變量的值為（ ）A、0 B．空 C．1 D．無(wú)任何值 1下列語(yǔ)句中正確的是（ ）A．+= B．=cmdokC．=1234 D．a(chǎn)=inputbox(“hello”) 1假設(shè)變量BOOLVAR是一個(gè)布爾型變量，則下面正確的賦值語(yǔ)句是（ ）A．BOOLVAR=‘TRUE’ B．BOOLVAR=.TRUEC．BOOLVAR=TRUE D．BOOLVAR=34 以下（ ）程序段可以實(shí)施X、Y變量值的變換（ ）A．Y=X：X=Y B．Z=X：Y=Z：X=YC．Z=X：X=Y：Y=Z D．Z=X：W=Y：Y=Z：X=Y 2語(yǔ)句PRINT “SGN(26)=”；SGN(26)的輸出結(jié)果為（ ）A．SGN(26)=26 B．SGN(26)= 26C．SGN(26)= +1 D．SGN(26)= 1 2讀下面程序段，判斷變量Str2的取值是（ ）Dim Str1, Str2 as StringStr1=UniversityStr2=STRING$(3,Str1)A．Uni B．UUUC．ity D．yyy 2VB支持自定義數(shù)據(jù)類型，在某程序中我們定義了如下類型：Type Studentnumber As stringname As Stringage As IntegerEnd Type針對(duì)上述定義，如下幾項(xiàng)用法正確的是（ ）A．=張三 B．Dim s As Student＝張紅C．Dim s As Type Student D．Dim s As Type =張三 =張三 2一個(gè)工程中包含兩個(gè)名稱分別為FormForm2的窗體，一個(gè)名稱為mdlFunc的標(biāo)準(zhǔn)模塊。假定在FormForm2和mdlFunc中分別建立了自定義過(guò)程，其定義格式為：Form1中定義的過(guò)程：Private Sub frmfunction1()End SubForm2中定義的過(guò)程：Public Sub frmfunction2()End SubmdlFunc中定義的過(guò)程：Public Sub mdlFunction()End Sub在調(diào)用上述過(guò)程的程序中，如果不指明窗體或模塊的名稱，則以下敘述中正確的是（ ）A．上述三個(gè)過(guò)程都可以在工程中的任何窗體或模塊中直接被調(diào)用B．只有mdlFunction過(guò)程能夠被工程中各個(gè)窗體或模塊直接被調(diào)用C．frmfunction1只能在form1中調(diào)用，而frmfunction2 則可以在所有模塊或窗體中被直接調(diào)用D．上述三個(gè)過(guò)程都只能在各自被定義的模塊中直接調(diào)用 2VB中Do……Loop結(jié)構(gòu)既可以構(gòu)成當(dāng)型循環(huán)，也可以構(gòu)成直到型循環(huán)，根據(jù)下面的代碼：Dim i,n as Integern = 20i = 1 Do Print i。 i = i + 2Loop Until i 20判斷循環(huán)結(jié)構(gòu)的類型和循環(huán)體的執(zhí)行次數(shù)，正確的選項(xiàng)是（ ）A．當(dāng)型循環(huán)，20次 B．直到型循環(huán)，10次C．當(dāng)型循環(huán)，10次 D．直到型循環(huán)，20次 2在程序中，使用InputBox函數(shù)可以接受用戶的輸入，如果要把它的返回值轉(zhuǎn)換為數(shù)值型的數(shù)據(jù)，應(yīng)該使用的函數(shù)是（ ）A．Val B．LenC．Str D．Log 2動(dòng)態(tài)數(shù)組因?yàn)樵诔绦蜻\(yùn)行前無(wú)法確定數(shù)組的大小，所以經(jīng)常根據(jù)程序的運(yùn)行情況，對(duì)數(shù)組進(jìn)行重新定義，以下關(guān)于VB中動(dòng)態(tài)數(shù)組的敘述中不正確的是（ ）A．可以用ReDim語(yǔ)句重新定義動(dòng)態(tài)數(shù)組，并且可以進(jìn)行多次重定義B．首次用Dim進(jìn)行動(dòng)態(tài)數(shù)組聲明的時(shí)候，必須指明它的類型和上下界C．Preserve為ReDim語(yǔ)句的可選參數(shù)，用于保留動(dòng)態(tài)數(shù)組原來(lái)的內(nèi)容D．當(dāng)對(duì)動(dòng)態(tài)數(shù)組使用Erase語(yǔ)句進(jìn)行釋放操作時(shí)，將釋放其內(nèi)存 2VB中的控件也叫做部件或組件，主要包括三類，以下哪一項(xiàng)不屬于VB控件的分類（ ）A．控件 B．可插入對(duì)象C．ADO控件 D．ActiveX控件 2表達(dá)式4+5 \ 6 * 7 / 8 Mod 9 的值是（ ）A．4 B．5 C．6 D．7 可以同時(shí)刪除字符串前導(dǎo)和尾部空白的函數(shù)是（ ）A．Ltrim B．Rtrim C．Trim D．Mid三、簡(jiǎn)答題 全局變量聲明有哪些限制？ 字符串是否可以自動(dòng)轉(zhuǎn)換為數(shù)字類型？ 用Format函數(shù)格式化后的字符格式在不同區(qū)域環(huán)境下的輸出是否相同？為什么？ 在InputBox函數(shù)中，哪一個(gè)參數(shù)是必需的？ 在MsgBox函數(shù)中哪一個(gè)參數(shù)是必須的？ 在什么情況下使用過(guò)程？ 為什么要進(jìn)行程序調(diào)試？ 調(diào)試程序有哪些手段？ 用語(yǔ)句Dim A(3 To 5) As Integer定義的數(shù)組的元素個(gè)數(shù)是多少？ 設(shè)有如下的Visual Basic表達(dá)式：5*x^23*x2*Sin(a)/3，與它對(duì)應(yīng)的數(shù)學(xué)式是什么？ 1數(shù)學(xué)式對(duì)應(yīng)的VB表達(dá)式是什么？ 1表達(dá)式23 And 4=5 Or 44的值是什么？ 1怎樣在程序中設(shè)置斷點(diǎn)？ 1在什么情況下可以設(shè)置斷點(diǎn)？ 1程序出錯(cuò)的類型有哪幾種？ 1在同一模塊、不同過(guò)程中聲明的相同變量名，兩者是否表示同一個(gè)變量？為什么？ 1什么情況下會(huì)出現(xiàn)“數(shù)組下標(biāo)越界錯(cuò)誤”？ 1逐語(yǔ)句和逐過(guò)程有什么區(qū)別？ 1 * 2 \ ？ 在程序設(shè)計(jì)中為什么盡量不用GoTo語(yǔ)句？四、讀程序題 分析以下程序，寫出運(yùn)行結(jié)果。 Private Sub Form_Click() score = Int(Rnd * 10) + 80 Select Case score Case Is 60 A$ = F Case 60 To 69 A$ = D Case 70 To 79 A$ = C Case 80 To 89 A$ = B Case Else A$ = A End Select Print A$ End Sub 讀下面的程序，分析其功能，寫出運(yùn)行結(jié)果。在窗體上有一個(gè)命令按鈕，名稱為Command1。然后編寫如下程序：Private Sub Command1_Click()For I = 1 To 4For J = 0 To IPrint Chr$(65 + I)。Next JPrintNext IEnd Sub程序運(yùn)行后，如果單擊命令按鈕，則在窗體上顯示的內(nèi)容是什么？ 閱讀下面的程序，分析并寫出其功能。Sub insert(a() As Single,ByVal x As Single)Dim m as integer,n as integern=1Do While n20 And xa(n) n=n+1LoopFor m=201 To n Step –1 a(m+1)=a(m)Next ma(n)=xEnd Sub 分析以下程序，寫出運(yùn)行結(jié)果。Sub subP(b() As Integer)For i =1 To 4b(i)=2*iNext iEnd SubPrivate Sub Commandl_Click()Dim a(1 To 4)As Integera (1)=5a (2)=6a (3)=7a (4)=8subP a()For i =1 To 4Print a(i)Next iEnd Sub運(yùn)行上面的程序，單擊命令按鈕，輸出結(jié)果是什么？ 分析以下程序，寫出運(yùn)行結(jié)果。Sub sele() Dim n as Integer i=21:n=3 Do While in i=i－n Loop Print iEnd Sub 分析以下程序，寫出運(yùn)行結(jié)果。Sub selectPrint()Dim a as IntegerDim b as IntegerDim c as Integera=2:b=5:c=2If(a=b)and(a=c) or (bc) Then Print aa=a+2ElsePrint bEndIfPrint a。b。cEnd Sub 分析以下程序，寫出運(yùn)行結(jié)果。Sub swap() Dim x as Integer Dim y as Integer Dim z as Integer x=1:y=2:z=0 Print x。y。z x=x+y x=x*z Print x,y,zEnd Sub 分析以下程序，寫出運(yùn)行結(jié)果。Sub selectPrint() Dim a as Integer Dim b as Integer Dim c as Integer a=3:b=3:c=2 If(a=b)and(ac)Then Print a Print a,b,cEnd Sub五、編程題 輸入一年號(hào)，判斷它是否是閏年。界面如下圖所示，包括兩個(gè)標(biāo)簽、一個(gè)文本框和一個(gè)命令按鈕。提示：如果此年號(hào)能被400整除或者不能被400除盡，也不能被100除盡，但能被4整除，則它是閏年；否則，不是閏年。 輸入兩個(gè)正整數(shù)m、n，求m和n的最大公約數(shù)。要求建立如下圖所示的窗體，其中主要的控件包括：兩個(gè)標(biāo)簽（LableLable2）、兩個(gè)文本框（TextText2）和一個(gè)按鈕（Command1）。 輸入某學(xué)生成績(jī)（百分制），若是100≥成績(jī)≥90輸出優(yōu)秀；若是90＞成績(jī)≥80輸出良好；若是80＞成績(jī)≥70輸出中等；若是70＞成績(jī)≥60輸出及格；若是60＞成績(jī)≥0，輸出不及格；若是其他數(shù)則輸出error信息。 在窗體中顯示從9號(hào)字型到16號(hào)字型。 在有序序列中插入一個(gè)數(shù)，使插入后的數(shù)列仍然有序（設(shè)按由小到大排列）。 編程實(shí)現(xiàn)二維數(shù)組轉(zhuǎn)置。 隨機(jī)輸入10個(gè)100以內(nèi)的整型數(shù)，計(jì)算其和及平均值。 找出所有的水仙