【正文】 1,99]14 下列數(shù)據(jù)類型中,占用內(nèi)存最小的是(D).A、IntegerB、SingleC、BooleanD、Byte15 VisualBasic是一種()A、過程式B、非過程式C、機(jī)器D、低級16 函數(shù)Int(10*Rnd)是在(A)范圍內(nèi)的整數(shù). A、[0,9]B、[0,1]C、[1,9]D、[1,10]17 以下合法的一組Visual Basic用戶標(biāo)識符是 CA、Sum 和 8abcB、ax 和 PiC、ForLoop 和 TotalD、Const 和 DoWhile18 函數(shù)Len(Str(Val()))的值為(B).A、5B、6C、8D、1119 Int(*100+)/100的值為BA、B、C、200D、19820 以下各表達(dá)式中, 計(jì)算結(jié)果為0的是(A).A、FIX()+FIX()B、CINT()+CINT()C、INT()+INT()D、FIX()+FIX()21 MsgBox()的正確語法是（ D ）。A、CurrencyB、Integer C、Boolean D、Byte 30 RGB ,某語法為RGB(),括號中紅、綠、藍(lán)三基色的成分使用0~255之間,為保證輸入數(shù)值有效,則應(yīng)設(shè)置(B)屬性.A、Scroll和ChangeB、Max和MinC、Smallchange和 LargeChangeD、Value31 k= ，len( str( k ) )=( B ) 。 B、窗體文件和標(biāo)準(zhǔn)模塊文件。A、x1 B、1x C、 x1yD、x_1 68 下列哪個(gè)變量名的取法是不正確的(B).A、T_TempB、T32C、T32D、TName69 選中復(fù)選框控件時(shí),value屬性的值,可以是(C).A、TrueB、falseC、1D、070 程序運(yùn)行時(shí)，如果復(fù)選框被用戶選中，那么其Value屬性值為（ A ）。C、窗體沒有最大化和最小化按鈕，窗體既不能移動(dòng)，也不能改變大小。A、FontB、Height C、Width D、Caption10每個(gè)窗體對應(yīng)一個(gè)窗體文件,窗體文件的擴(kuò)展名是( A ).A、.frmB、.vbpC、.basD、.cls10標(biāo)簽控件最重要的屬性是(A).A、captionB、textC、nameD、width10(A)對象不具有Caption屬性.A、TimerB、FormC、OptionD、Label1一個(gè)窗體上有三個(gè)文本框，按放置順序分別是：Text1，Text2，Text3 ，若使程序運(yùn)行時(shí)Text3首先獲得“焦點(diǎn)”，那么，應(yīng)設(shè)置其（ B ）屬性值為 0 。 A、省略下界，一般系統(tǒng)默認(rèn)為：下界是 0 B、下標(biāo)可以是字符型C、下標(biāo)下界最小為：32768 ，下標(biāo)上界最大為：32767 D、下標(biāo)可以是變量。()、Int()、Fix()、Fix()的值分別是_3____、___2__、__2___、____3_。程序設(shè)計(jì)1.39。**********ERROR**********s = 1Do39。86239。For i = 1 To 939。**********ERROR********** Next j Print39。題目：以下程序段用于計(jì)算5的N次方。5.39。 iNext iPrintFor j = 1 To 9 Print j。 i【參考答案】Print Tab(i*6)。6.39。 *********39。?Spc(i)。Print i答案 【學(xué)生答案】Exit【參考答案】exit for【學(xué)生答案】If n k Then【參考答案】If nk ThenIf kn Then【學(xué)生答案】Next n【參考答案】next iNext i程序填空1.39。 c。______【參考答案】max。 p。從鍵盤輸入學(xué)生分?jǐn)?shù)，統(tǒng)計(jì)學(xué)生總?cè)藬?shù)和各分?jǐn)?shù)段人數(shù)，39。Private Sub Form_Click()Dim a%, b%, num1%, num2%, tempnum1 = InputBox(請輸入一個(gè)正整數(shù))num2 = InputBox(請輸入一個(gè)正整數(shù))39。Private Sub Form_Click()n = InputBox(請輸入一個(gè)正整數(shù)（≥3）)k = Int(Sqr(n))i = 2swit = 039。**********FILL**********Do While _____ Select Case ch Case a To z n1 = n1 + 139。 程序功能： 單擊隸書命令按鈕時(shí)，文本框的字體設(shè)為隸書； 單擊黑體命令按鈕時(shí)，文本框的字體設(shè)置為黑體。False 學(xué)生答案：Visible=【控件屬性評分】 錯(cuò)誤 【控件】 標(biāo)準(zhǔn)答案：Name=l1 學(xué)生答案：Name=【控件屬性評分】 錯(cuò)誤 【控件】 標(biāo)準(zhǔn)答案：Name=cmd2 學(xué)生答案：Name=【控件屬性評分】 錯(cuò)誤 【控件】 標(biāo)準(zhǔn)答案：Name=cmd1 學(xué)生答案：Name=【事件評分】 錯(cuò)誤 【事件】Private Sub cmd1_Click() 標(biāo)準(zhǔn)答案： = True = aaa 學(xué)生答案：【事件評分】 錯(cuò)誤 【事件】Private Sub cmd2_Click() 標(biāo)準(zhǔn)答案： = bbb六 在名稱為Form1的窗體上畫一個(gè)文本框，名稱為Text1,且不可見；再畫兩個(gè)命令按鈕，名稱分別為c1和c2， 標(biāo)題分別為隱藏和顯示。注意：完成試題后，必須保存，然后關(guān)閉窗口。 【控件屬性評分】 錯(cuò)誤 【控件】 標(biāo)準(zhǔn)答案：Name=Cmd1 學(xué)生答案：Name=【控件屬性評分】 錯(cuò)誤 【控件】 標(biāo)準(zhǔn)答案：Caption=顯示 學(xué)生答案：Caption=【事件評分】 錯(cuò)誤 【事件】Private Sub Cmd1_Click() 標(biāo)準(zhǔn)答案： Print 呵呵，小菜一碟！ 學(xué)生答案：110 CABCD ACDDB 1120 DCBDB ACBBA 2130 DCDDA ABDDB3140 BDCBB DADCB 4150 CADAC BCDCD 5160 BACBC BAAAA6170CAAAD BBBCA 7180DACAD AACAD 8190DCDAD ADDCB91100CADDB ABBAC 101110CACCC AAAAB 111120DCDBA ADABD121130AAADA CBADB 131140DCDCA BADCC 141150ADADC DDDAD151CACCCDA。 具體功能： 程序運(yùn)行時(shí)，當(dāng)在文本框passtxt中輸入密碼時(shí)，showtxt中同時(shí)將輸入的內(nèi)容原樣顯示。程序中不得使用任何變量。要求：在程序運(yùn)行后，通過Form_Load()事件過程加載窗體時(shí)， AAA，每當(dāng)單擊某個(gè)列表項(xiàng)時(shí)， ，如圖所示。**********FILL********** _____Print n1, n2, n3答案 【學(xué)生答案】Do While _____【參考答案】do while ch?Do While ch?【學(xué)生答案】Case _____【參考答案】case A to ZCase A to Z【學(xué)生答案】_____【參考答案】loopLoop窗體設(shè)計(jì)1 在名稱為Form1的窗體上畫一個(gè)文本框，名稱為Txt1；再畫一個(gè)命令按鈕，名稱為C1，標(biāo)題為移動(dòng)，如圖1所示。**********FILL**********If _____ Then swit = 1Else39。**********FILL**********Do While _____ temp = a Mod b a = b39。 及格（6069）、不及格（60以下）的人數(shù)。 q。Private Sub Form_Click()Dim a%, b%, c%, d!Dim x1, x2Dim p, q, ra = InputBox(請輸入a的值)b = InputBox(請輸入b的值)c = InputBox(請輸入c的值)d = b * b 4 * a * cp = b / (2 * a)If d = 0 Then39。______End Sub答案 【學(xué)生答案】If ______Then【參考答案】maxbmax=bbmaxb=max【學(xué)生答案】________【參考答案】max=c【學(xué)生答案】Print a。**********FILL**********If ______Then max=bEnd IfIf max c Then39。題目：以下程序段用于輸出100300的所有素?cái)?shù)39。**********ERROR********** Print Spc(n) For j = 1 To 2 * m 1 Print s。39。【學(xué)生答案】For k = 1 To 9【參考答案】For k = 1 To j【學(xué)生答案】Print Tab(j * 6)。39。39。Option ExplicitPrivate Sub Form_Click() Dim n As Integer, k As Integer, s As Long n = InputBox( Input n )39。 i【參考答案】 Print Tab(i * 6)。 iNext iPrintFor j = 1 To 9 Print j。Option ExplicitPrivate Sub Form_Click()Dim n As Integer, k As Integer, i As Integer, swit As IntegerFor n = 101 To 300 Step 2 k = Int(Sqr(n)) i = 239。**********ERROR**********Loop s 3000Print 從1 到:?！境绦蚋腻e(cuò)】39。，程序要求單擊該命令按鈕時(shí)，打開一個(gè)窗口frm1，請對以下事件過程填空。A、〞China〞,0B、〞China〞,1C、 0, 〞China〞D、 1,〞China〞14在程序代碼中修改滾動(dòng)條的value 屬性時(shí)將激發(fā)滾動(dòng)條的( D)事件.A、scrollB、dragdrop