【文章內(nèi)容簡(jiǎn)介】 C ）屬性設(shè)置為False。A、CancelB、Default C、VisibleD、Enabled 13下列賦值語(yǔ)句正確的是(D).A、=+B、=+C、=+D、=+13不具有輸入數(shù)據(jù)功能的控件是(C)控件.A、列表框B、選項(xiàng)按鈕C、窗體D、文本框13程序運(yùn)行后,在窗體上單擊鼠標(biāo),此時(shí)窗體不會(huì)接收到的事件是(A).A、LoadB、ClickC、MouseDownD、MouseUp13列表框和組合框的（ B ）屬性的值，表示其列表中項(xiàng)目的個(gè)數(shù)。A、 ListIndex B、 ListCountC、List D、Text13在定義靜態(tài)數(shù)組時(shí)，關(guān)于下標(biāo)的敘述中，正確的是（ A ）。 A、省略下界，一般系統(tǒng)默認(rèn)為：下界是 0 B、下標(biāo)可以是字符型C、下標(biāo)下界最小為：32768 ，下標(biāo)上界最大為：32767 D、下標(biāo)可以是變量。13下列程序：Private Sub Textl _Change()Print Textl；End Sub當(dāng)在文本框輸入1234這4個(gè)字符時(shí)，窗體上顯示的是 DA、1234 B、1 12 123 1234C、1 2 3 4D、1121231234 13下面()對(duì)象在運(yùn)行時(shí)一定不可見. CA、LineB、OptionC、TimerD、Text1若要清除列表框的所有內(nèi)容,可用什么方法實(shí)現(xiàn) CA、以上均不可以B、ClsC、ClearD、RemoveItem14要使時(shí)鐘控件Timer1的Timer事件不起作用,以下正確的語(yǔ)句是 AA、=FalseB、=0C、=1000D、=False14為使計(jì)時(shí)器控件每隔5秒鐘產(chǎn)生一個(gè)計(jì)時(shí)器事件(Timer事件),則應(yīng)將其Interval屬性值設(shè)置為( D).A、300B、5C、500D、500014將數(shù)據(jù)項(xiàng)China添加到列表框(List1)中成為第一項(xiàng)應(yīng)使用的語(yǔ)句是（ A）。A、〞China〞,0B、〞China〞,1C、 0, 〞China〞D、 1,〞China〞14在程序代碼中修改滾動(dòng)條的value 屬性時(shí)將激發(fā)滾動(dòng)條的( D)事件.A、scrollB、dragdropC、gotfocusD、change14循環(huán)結(jié)構(gòu)For I%= 1 to 17 Step 2 共執(zhí)行( C)次.A、6B、5C、9D、814執(zhí)行下面的程序段后,x 的值為( D)x=5For i=1 To 20 Step 2x=x+i\5Next iA、24B、23C、22D、2114由For k=10 to 0 step 3:next k循環(huán)語(yǔ)句控制的循環(huán)次數(shù)是( D).A、11B、12C、10D、014下列方法中可用于列表框動(dòng)態(tài)添加數(shù)據(jù)的是( D).A、removeitemB、addlistC、addD、additem14組合框控件是將()組合成一個(gè)控件. AA、列表框控件和文本框控件B、復(fù)選框控件和選項(xiàng)按鈕控件C、標(biāo)簽控件和列表框控件D、標(biāo)簽控件和文本框控件150、下面程序段輸出的結(jié)果是 DPrivate Sub Command1_Click() x = 8 For i = 0 To 20 Step 5 x = x + i Next Print X=。 xEnd SubA、X=50B、X=218C、X=210D、X=5815定時(shí)器的Interval屬性以()為單位指定Timer事件之間的時(shí)間間隔. CA、分B、微秒C、毫秒D、秒15由For k=35 to 0 step 3:next k循環(huán)語(yǔ)句控制的循環(huán)次數(shù)是(). AA、0B、10C、12D、1115在列表框中當(dāng)前被選中的列表項(xiàng)的序號(hào)是由下列哪個(gè)屬性表示(). CA、ListB、IndexC、ListIndexD、TabIndex15設(shè)計(jì)動(dòng)畫通常使用時(shí)鐘控件()來(lái)控制動(dòng)畫速度. CA、EnabledB、TimerC、IntervalD、Move15為了能在列表框中利用Ctrl和Shift鍵進(jìn)行多個(gè)列表項(xiàng)的選擇,則應(yīng)將列表框的Multiselect屬性設(shè)置為(). CA、1B、3C、2D、015引用列表框的最后一項(xiàng)應(yīng)使用(). DA、(ListCount1)B、()C、(ListCount)D、()15列表框控件中的列表內(nèi)容是通過(guò)()屬性設(shè)置的. AA、ListB、CaptionC、NameD、Text填空，如Text1，Label1，Command1，若要使程序一運(yùn)行焦點(diǎn)就定位在Command1控件上，應(yīng)對(duì)Command1控件的__tabindex___屬性設(shè)置為_TabIndex____。 2/24/02 2/12/02 的值為_12____。3 .已知a=，b=，c=，d=True，則表達(dá)式：a=0 AND a+cb+3 OR NOT d的值是_false____。 mod 5 = 0 OR x mod 9 = 0___。，使窗體上的所有控件具有相同的字體格式，就對(duì)__font___的屬性進(jìn)行設(shè)置。()、Int()、Fix()、Fix()的值分別是_3____、___2__、__2___、____3_。，如果僅需要讓應(yīng)用程序在窗體中顯示文本信息，可使用_label___控件；若允許用戶輸入文本，則應(yīng)使用_Textbox____控件。，程序要求單擊該命令按鈕時(shí)，打開一個(gè)窗口frm1，請(qǐng)對(duì)以下事件過(guò)程填空。Private Sub Cmdopen_Click()_____end sub \ 7 Mod 2 ^ 2 的值是__1___。(Mid(“abcdefgh”,3,4))的值是__CDEF___。，要求窗體中的文本框呈現(xiàn)空白，則在設(shè)計(jì)時(shí)，應(yīng)當(dāng)在此文本框的__屬性___窗口中，把此文本框的__text___屬性設(shè)置成空白。=3，b=4，c=5，表達(dá)式ab and Not ca Or cb And ca+b的值是__true___。表達(dá)式ca And Not bc的值是__false___。程序設(shè)計(jì)1.39。39?！境绦蚋腻e(cuò)】39。39。題目：程序功能：求1+2+3……，直到其和超出3000為39。 止，并輸出結(jié)果。39。Option ExplicitPrivate Sub Form_Click()ClsDim i As IntegerDim s As Singlei =039。**********ERROR**********s = 1Do39。**********ERROR********** i = i + 2s = s + i39。**********ERROR**********Loop s 3000Print 從1 到:。 i。 的和是。 sEnd Sub答案 【學(xué)生答案】i = i + 2【參考答案】i=i+12. 39。39?！境绦蚋腻e(cuò)】39。86239。題目：以下程序段用于輸出100300的所有素?cái)?shù)39。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********** swit = 139。**********ERROR********** While swit = 0 If n Mod i = 0 Then swit = 1 Else39。**********ERROR********** i = i 1 End If WendIf swit = 0 Then Print n。End IfNext nEnd Sub答案 【學(xué)生答案】swit = 1【參考答案】swit=0【學(xué)生答案】While swit = 0【參考答案】While i=k And swit =0 While k=i And swit=0 While swit=0 And i=kWhile swit=0 And k=i【學(xué)生答案】i = i 1【參考答案】i=i+1 ExplicitPrivate Sub Form_Click()Dim i As Integer, j As Integer, k As IntegerPrint Tab(30)。 9*9 tablePrint: PrintPrint * 。For i = 1 To 939。**********ERROR********** Print Tab(i * 6)。 iNext iPrintFor j = 1 To 9 Print j。 。 For k = 1 To j Print Tab(k * 6)。 j * k。 。 39。**********ERROR********** Next j Print39。**********ERROR**********Next k答案 【學(xué)生答案】Print Tab(i * 6)。 i【參考答案】 Print Tab(i * 6)。 i?！緦W(xué)生答案】Next j【參考答案】 Next k【學(xué)生答案】Next k【參考答案】Next j4.39。39?！境绦蚋腻e(cuò)】39。39。題目：以下程序段用于計(jì)算5的N次方。39。Option ExplicitPrivate Sub Form_Click() Dim n As Integer, k As Integer, s As Long n = InputBox( Input n )39。**********ERROR********** k = 039。**********ERROR********** s = 0 Do While k = n s = s * 5 k = k + 139。**********ERROR********** Next Print 5的。 n次方是。 sEnd Sub答案