VB試題庫全國

1、一、 選擇題1以下敘述中錯(cuò)誤的是_B_。 A.vbp文件是工程文件，一個(gè)工程可以包含.bas文件 B.frm文件是窗體文件，一個(gè)窗體可以包含.bas文件 C.vbp文件是工程文件，一個(gè)工程可以由多個(gè).frm文件組成D.vbg文件是工程組文件，一個(gè)工程組可以由多個(gè)工程組成2以下合法的VB變量名是_C_。ACaseBt-nameCname10Dx*y3以下描述中錯(cuò)誤的是_B_。A窗體的標(biāo)題通過其Caption屬性設(shè)置B窗體的名稱(Name屬性)可以在運(yùn)行期間修改C窗體的背景圖形通過其Picture屬性設(shè)置D窗體最小化時(shí)的圖標(biāo)通過其Icon屬性設(shè)置4在Visual Basic集成環(huán)境中，可以列出工程

2、中所有模塊名稱的窗口是_A_。A工程資源管理器窗口B窗體設(shè)計(jì)窗口C屬性窗口D代碼窗口5在Visual Basic集成環(huán)境中，要添加一個(gè)窗體，可以單擊工具欄上的一個(gè)按鈕，這個(gè)按鈕是_A_。ABCD6在Visual Basic集成環(huán)境中，要結(jié)束一個(gè)正在運(yùn)行的工程,可單擊工具欄上的一個(gè)按鈕,這個(gè)按鈕是_D_。ABCD 7以下變量名中合法的是_C_。Ax2-1BprintCstr_nD2x8執(zhí)行語句Dim X，Y As Integer后，_D_。AX和Y均被定義為整型變量BX和Y均被定義為變體類型變量CX被定義為整型變量，Y被定義為變體類型變量DX被定義為變體類型變量，Y被定義為整型變量9在設(shè)計(jì)窗體時(shí)

3、雙擊窗體的任何地方，可以打開的窗口是_A_。A代碼窗口 B屬性窗口C工程資源管理器窗口D工具箱窗口10以下敘述中錯(cuò)誤的是_D_。A標(biāo)準(zhǔn)模塊文件的擴(kuò)展名是.bas B標(biāo)準(zhǔn)模塊文件是純代碼文件 C在標(biāo)準(zhǔn)模塊中聲明的全局變量可以在整個(gè)工程中使用D在標(biāo)準(zhǔn)模塊中不能定義過程11以下敘述中錯(cuò)誤的是_C_。A在Visual Basic的窗體中，一個(gè)命令按鈕是一個(gè)對象B事件是能夠被對象識別的狀態(tài)變化或動作C事件都是由用戶的鍵盤操作或鼠標(biāo)操作觸發(fā)的D不同的對象可以具有相同的方法12設(shè)x是小于10的非負(fù)數(shù)。對此陳述，以下正確的VB表達(dá)式是_C_。 A0x<10 B0<=x<10 Cx>=0

4、 And x<10 Dx>=0 Or x<=1013在設(shè)計(jì)階段，當(dāng)按CtrlR鍵時(shí)，所打開的窗口是_B_。 A代碼窗口 B工程資源管理器窗口 C工具箱窗口 D屬性窗口14在設(shè)計(jì)階段，當(dāng)按下F4鍵時(shí)，所打開的窗口是_D_。 A代碼窗口 B工具箱窗口 C工程資源管理器窗口 D屬性窗口15在Visual Basic集成環(huán)境的設(shè)計(jì)模式下，用鼠標(biāo)雙擊窗體上的某個(gè)控件打開的窗口是_D_。 A工程資源管理器窗口 B屬性窗口 C工具箱窗口 D代碼窗口16設(shè)x是整型變量,與函數(shù)IIf(x>0,-x,x)有相同結(jié)果的代數(shù)式是_B_。 A|x| B-|x| Cx D-x17把數(shù)學(xué)表達(dá)式表示為

5、正確的VB表達(dá)式應(yīng)該是_D_。A(5x3)/(2y6) Bx*53/2*y-6C(5*x3)(2*y-6) D(x*53)/(y*26)18以下關(guān)系表達(dá)式中，其值為True的是_B_。 Ascii碼 A 65 a 97A"XYZ">"XYz"B"VisualBasic"<>"visualbasic"C"the"="there" D"Integer"<"Int"19若變量a未事先定義而直接使用(例如：a=0)，則變

6、量a的類型是_D_。AIntegerBStringCBooleanDVariant20在Visual Basic中，表達(dá)式3*25 Mod 3的值是_A_。A1B0C3D出現(xiàn)錯(cuò)誤提示21設(shè)x=3.3,y=4.5，表達(dá)式x-Int(x)+Fix(y)的值是_C_。Int(n):取<=n的最大整數(shù)；Fix(n)：取n的整數(shù)部分 A3.5 B4.8 C4.3D4.722以下關(guān)于窗體的敘述中，錯(cuò)誤的是_D_。A窗體的Name屬性用于標(biāo)識一個(gè)窗體B運(yùn)行程序時(shí)改變窗體大小，能夠觸發(fā)窗體的Resize事件C窗體的Enabled屬性為False時(shí)，不能響應(yīng)單擊窗體的事件D程序運(yùn)行期間，可以改變Name屬

7、性值23設(shè)有如下變量聲明語句： Dim a,b As Boolean則下面敘述中正確的是_B_。Aa和b都是布爾型變量Ba是變體型變量，b是布爾型變量Ca是整型變量，b是布爾型變量Da和b都是變體型變量24為了使標(biāo)簽具“透明”的顯示效果，需要設(shè)置的屬性是_C_。ACaptionBAlignmentCBackStyleDAutoSize25下列敘述中錯(cuò)誤的是_D_。A列表框與組合框都有List屬性B列表框有Selected屬性，而組合框沒有C列表框和組合框都有Style屬性D組合框有Text屬性，而列表框沒有26設(shè)窗體文件中有下面的事件過程：Private Sub Commandl_Click(

8、)Dim sa%=100Print aEnd Sub其中變量a和s的數(shù)據(jù)類型分別是_C_。A整型,整型B變體型,變體型C整型,變體型D變體型,整型27下面有關(guān)標(biāo)準(zhǔn)模塊的敘述中，錯(cuò)誤的是_A_。A標(biāo)準(zhǔn)模塊不完全由代碼組成，還可以有窗體B標(biāo)準(zhǔn)模塊中的Private過程不能被工程中的其他模塊調(diào)用C標(biāo)準(zhǔn)模塊的文件擴(kuò)展名為.basD標(biāo)準(zhǔn)模塊中的全局變量可以被工程中的任何模塊引用28執(zhí)行以下程序段 a$="Visual Basic Programming" b$="C+" c$=UCase(Left$(a$,7) & b$ & Right$(a$,1

9、2) 后，變量c$的值為_B_。AVisual BASIC Programming BVISUAL C+ProgrammingCVisual C+Programming DVISUAL BASIC Programming29為把圓周率的近似值3.14159存放在變量pi中，應(yīng)該把變量pi定義為_C_。ADim pi As IntegerBDim pi(7)As IntegerCDim pi As Single DDim pi As Long30以下選項(xiàng)中，不合法的Visual Basic的變量名是_B_。 Aa5b B_xyz Ca_bDandif31窗體上有一個(gè)名稱為Command1的命令按

10、鈕，其中部分代碼如下：Private Sub Command1_Click() Dim a(10)As Integer Dim n As Integer Call calc(a,n) End Subcalc過程的首行應(yīng)該是_A_。 ASub calc(x() As Integer, n As Integer)BPublic Sub calc(x() As Integer)CPrivate Sub calc(a(n) As Integer, n As Integer)DPublic Sub calc(a As Integer, n As Integer)32下面定義窗體級變量a的語句中錯(cuò)誤的是_

11、D_。ADim a%BPrivate a%CPrivate a As IntegerDStatic a%33下列可作為Visual Basic變量名的是_D_。AA#AB4ABCC?xyDPrint_Text34下面可以產(chǎn)生2030(含20和30)的隨機(jī)整數(shù)的表達(dá)式是_B_。AInt(Rnd*10+20)BInt(Rnd*11+20)CInt(Rnd*20+30)DInt(Rnd*30+20)35設(shè)窗體上有一個(gè)命令按鈕數(shù)組，能夠區(qū)分?jǐn)?shù)組中各個(gè)按鈕的屬性是_B_。ANameBIndexCCaptionDLeft36下面哪個(gè)屬性肯定不是框架控件的屬性_A_。ATextBCaptionCLeftDE

12、nabled37下面控件中，沒有Caption屬性的是_C_。A復(fù)選框B單選按鈕C組合框D框架38下列敘述中正確的是_C_。AMsgBox語句的返回值是一個(gè)整數(shù)B執(zhí)行MsgBox語句并出現(xiàn)信息框后，不用關(guān)閉信息框即可執(zhí)行其他操作CMsgBox語句的第一個(gè)參數(shù)不能省略 Msgbox(提示，【，按鈕】【，標(biāo)題】)D如果省略MsgBox語句的第三個(gè)參數(shù)(Title)，則信息框的標(biāo)題為空39表達(dá)式2*32 + 4*2/2 + 32的值是_B_。A30B31C49D4840以下數(shù)組定義語句中，錯(cuò)誤的是_C_。 AStatic a(10) As IntegerBDim c(3,1 To 4)CDim d(

13、-10) 若省略下界時(shí)，默認(rèn)為0DDim b(0 To 5,1 To 3) As Integer41設(shè)有如下程序：Sub f(x As Integer, ByVal y As Integer) x=2*x y=y+xEnd SubPrivate Sub Command1_Click() Dim a As Integer, b As Integer a=6:b=35 Call f(a, b) Print a, bEnd Sub程序運(yùn)行后，單擊命令按鈕Command1，輸出結(jié)果為_D_。A6 47 B12 47C6 35D12 35 例：Sub s1(ByVal x As Integer, ByV

14、al y As Integer)Dim t As Integert = xx = yy = tEnd SubSub s2(x As Integer, y As Integer)Dim t As Integert = xx = yy = tEnd SubPrivate Sub Command1_Click()Dim a As Integer, b As Integera = 12b = 13Call s1(a, b)Print a, bCall s2(a, b)Print a, bEnd Sub輸出結(jié)果為什么是12 13 13 12s1是值傳遞，形參的改變不影響實(shí)參，s2是地址傳遞，形參的改變影

15、響實(shí)參42表達(dá)式Int(Rnd(0)*50)所產(chǎn)生的隨機(jī)數(shù)范圍是_C_。 A(0,50) B(1,50)C(0,49) D(1,49)43假定一個(gè)滾動條的LargeChange屬性值為100，則100表示_A_。 A單擊滾動條箭頭和滾動框之間某位置時(shí)滾動框位置的變化量B滾動框位置的最大值C拖動滾動框時(shí)滾動框位置的變化量D單擊滾動條箭頭時(shí)滾動框位置的變化量44設(shè)窗體上有一個(gè)名稱為HS1的水平滾動條，如果執(zhí)行了語句：HS1.Value=(HS1.Max-HS1.Min)/2+HS1.Min則_C_。 A滾動塊處于最左端B滾動塊處于最右端C滾動塊處于中間位置D滾動塊可能處于任何位置，具體位置取決于M

16、ax、Min屬性的值45滾動條可以響應(yīng)的事件是_B_。 ALoadBScrollCClickDMouseDown46下面不能在信息框中輸出"VB"的是_D_。 AMsgBox"VB"Bx=MsgBox("VB")CMsgBox("VB")DCall MsgBox"VB"47用來設(shè)置文字字體是否斜體的屬性是_D_。 AFontUnderlineBFontBoldCFontSlopeDFontItalic48在窗體上畫一個(gè)文本框(名稱為Textl)和一個(gè)標(biāo)簽(名稱為Label1)，程序運(yùn)行后，在文本

17、框中每輸入一個(gè)字符，都會立即在標(biāo)簽中顯示文本框中字符的個(gè)數(shù)。以下可以實(shí)現(xiàn)上述操作的事件過程是_A_。 APrivate Sub Textl_Change() Label1.Caption=Str(Len(Text1.Text) End SubBPrivate Sub Text1_Click() Label1.Caption=Str(Len(Text1.Text) End SubCPrivate Sub Text1_Change() Label1.Caption=Text1.Text End SubDPrivate Sub Label1_Change() Label1.Caption=Str(L

18、en(Text1.Text) End Sub49以下不能輸出"Program"的語句是_D_。 APrint Mid("VBProgram",3,7) BPrint Right("VBProgram",7)CPrint Mid("VBProgram",3) DPrint Left("VBProgram",7)50現(xiàn)有語句：y=IIf(x>0,x Mod 3,0)設(shè)x=10，則y的值是_B_。A0 B1C3D語句有錯(cuò)51以下敘述中正確的是_A_。A窗體及窗體上所有控件的事件過程代碼都保存在窗

19、體文件中B在工程中只有啟動窗體可以建立菜單C窗體名稱必須與窗體文件的名稱相同D程序一定是從某個(gè)窗體開始執(zhí)行的52設(shè)x=5，執(zhí)行語句Print x=x+10，窗體上顯示的是_D_。 A15 B5 CTrueDFalse53在窗體上面一個(gè)命令按鈕，然后編寫如下事件過程： Private Sub Command1_Click() MsgBox Str(123+321) End Sub程序運(yùn)行后，單擊命令按鈕，則在信息框中顯示的提示信息為_B_。A字符串"123321"B字符串"444"C數(shù)值"444"D空白54窗體上有一個(gè)名稱為Cb1的組合

20、框，程序運(yùn)行后，為了輸出選中的列表項(xiàng)，應(yīng)使用的語句是_B_。APrint Cb1.SelectedBPrint Cb1.List(Cb1.ListIndex)DPrint Cb1.List(ListIndex)55設(shè)a=5，b=6，c=7，d=8，執(zhí)行語句xIIf(a>b)And(c>d),10,20)后，x的值是_B_。A10B20C30D20056窗體上有一個(gè)名稱為Option1的單選按鈕數(shù)組,程序運(yùn)行時(shí),當(dāng)單擊某個(gè)單選按鈕時(shí),會調(diào)用下面的事件過程Private Sub Optionl_Click(Index As Integer)End Sub下面關(guān)于此過程的參數(shù)Index的

21、敘述中正確的是_C_。AIndex為1表示單選按鈕被選中,為0表示未選中BIndex的值可正可負(fù)CIndex的值用來區(qū)分哪個(gè)單選按鈕被選中DIndex表示數(shù)組中單選按鈕的數(shù)量57若看到程序中有以下事件過程，則可以肯定的是，當(dāng)程序運(yùn)行時(shí)_D_。Private Sub Click_MouseDown(Button As Integer,_Shift As Integer,X As Single,Y As Single)Print "VB Program"End SubA用鼠標(biāo)左鍵單擊名稱為"Commandl"的命令按鈕時(shí)，執(zhí)行此過程B用鼠標(biāo)左鍵單擊名稱為&q

22、uot;MouseDown"的命令按鈕時(shí)，執(zhí)行此過程C用鼠標(biāo)右鍵單擊名稱為"MouseDown"的控件時(shí)，執(zhí)行此過程D用鼠標(biāo)左鍵或右鍵單擊名稱為"Click"的控件時(shí)，執(zhí)行此過程58在窗體上畫兩個(gè)單選按鈕(名稱分別為Option1、Option2，標(biāo)題分別為“宋體”和“黑體”)、 1個(gè)復(fù)選框(名稱為Check1，標(biāo)題為“粗體”)和1個(gè)文本框(名稱為Textl，Text屬性為“改變文字字體”)，窗體外觀如圖所示。程序運(yùn)行后，要求“宋體”單選按鈕和“粗體”復(fù)選框被選中，則以下能夠?qū)崿F(xiàn)上述操作的語句序列是_D_。AOption1.Value=Fals

23、e Check1.Value=TrueBOption1.Value=True Check1.Value=0COption2.Value=False Check1.Value=2DOption1.Value=True Check1.Value=l59窗體上有一個(gè)名稱為Frame1的框架(如下圖)，若要把框架上顯示的“Frame1”修改為漢字“框架”，下面正確的語句是_B_。AFrame1.Name="框架"BFrame1.Caption="框架"CFrame1.Text="框架"DFrame1.Value="框架"6

24、0為了使文本框同時(shí)具有垂直和水平滾動條，應(yīng)先把MultiLine屬性設(shè)置為True，然后把ScrollBars屬性設(shè)置為_D_。A0B1C2D361窗體上有一個(gè)名稱為Command1的命令按鈕，其單擊事件過程代碼如下：Private Sub Command1_Click() Static x As Variant n=0 x=Array(1,2,3,4,5,6,7,8,9,10) While n<=4 x(n)=x(n+5) Print x(n); n=n+1 WendEnd Sub運(yùn)行程序，單擊命令按鈕Command1，窗體上顯示的是_B_。 A1 2 3 4 5 B6 7 8 9 1

25、0C2 3 4 5 6D6 2 3 4 562設(shè)有如下數(shù)組聲明語句：Dim arr(-2 To 2,0 To 3) As Integer該數(shù)組所包含的數(shù)組元素個(gè)數(shù)是_A_。A20B16 C15D1263假定有以下程序：Private Sub Form_Click() a=1:b=a Do Until a>=5 x=a*b Print b;x a=a+b b=b+a LoopEnd Sub程序運(yùn)行后，單擊窗體，輸出結(jié)果是_D_。A 11B11 C11D1123 24 38 3664為了在窗體上建立2組單選按鈕，并且當(dāng)程序運(yùn)行時(shí)，每組都可以有一個(gè)單選按鈕被選中，則以下做法中正確的是_D_。A

26、把這2組單選按鈕設(shè)置為名稱不同的2個(gè)控件數(shù)組B使2組單選按鈕的Index屬性分別相同C使2組單選按鈕的名稱分別相同D把2組單選按鈕分別畫到2個(gè)不同的框架中65語句Print Sgn(-62)+Abs(-62)+Int(-62)的輸出結(jié)果是_C_。A-36B1C-1D-7266設(shè)窗體中有一個(gè)文本框Text1，若在程序中執(zhí)行了Text1.SetFocus，則觸發(fā)_B_。AText1的SetFocus事件BText1的GotFocus事件CText1的LostFocus事件D窗體的GotFocus事件67可以產(chǎn)生3050(含30和50)之間的隨機(jī)整數(shù)的表達(dá)式是_A_。AInt(Rnd*2130)BI

27、nt(Rnd*2030)CInt(Rnd*50Rnd*30)DInt(Rnd*3050)68在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過程： Private Sub Command1_Click() c=1234 c1=Trim(Str(c) For i=1 To 4 Print _ Next End Sub程序運(yùn)行后，單擊命令按鈕，要求在窗體上顯示如下內(nèi)容：1 12 123 1234則在橫線處應(yīng)填入的內(nèi)容為_B_。ARight(c1,i)BLeft(c1,i)CMid(c1,i,1)DMid(c1,i,i)69以下敘述中錯(cuò)誤的是_D_。A在通用過程中，多個(gè)形式參數(shù)之間可

28、以用逗號作為分隔符B在Print方法中，多個(gè)輸出項(xiàng)之間可以用逗號作為分隔符C在Dim語句中，所定義的多個(gè)變量可以用逗號作為分隔符D當(dāng)一行中有多個(gè)語句時(shí)，可以用逗號作為分隔符 用冒號70文本框 Text1 的 KeyDown 事件過程如下：Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer)End Sub其中參數(shù)KeyCode的值表示的是發(fā)生此事件時(shí)_C_。A是否按下了Alt鍵或Ctrl鍵B按下的是哪個(gè)數(shù)字鍵C所按的鍵盤鍵的鍵碼D按下的是哪個(gè)鼠標(biāo)鍵71窗體上有一個(gè)名稱為Label1的標(biāo)簽和一個(gè)名稱為Command1的命令按鈕

29、。命令按鈕的單擊事件過程如下：Private Sub Command1_Click() x=InputBox("輸入x:",0) y=InputBox("輸入y:",0) Label1.Caption=x+yEnd Sub運(yùn)行程序，單擊命令按鈕，在輸入對話框中分別輸入2、3，運(yùn)行的結(jié)果是_D_。 A程序運(yùn)行有錯(cuò)誤，數(shù)據(jù)類型不匹配B程序運(yùn)行有錯(cuò)誤，InputBox函數(shù)的格式不對C在Label1中顯示5D在Label1中顯示2372現(xiàn)有由多個(gè)單選按鈕構(gòu)成的控件數(shù)組，用于區(qū)別該控件數(shù)組中各控件的屬性是_B_。 AName BIndex CCaption DVa

30、lue73在窗體上畫一個(gè)名稱為List1的列表框，列表框中顯示若干城市的名稱。當(dāng)單擊列表框中的某個(gè)城市名時(shí)，該城市名消失。下列在List1_Click事件過程中能正確實(shí)現(xiàn)上述功能的語句是_D_。AListl.RemoveItem Listl.TextBListl.RemoveItem List1.ClearCListl.RemoveItem List1.ListCountDListl.RemoveItem List1.ListIndex74如果一個(gè)直線控件在窗體上呈現(xiàn)為一條垂直線,則可以確定的是_B_。 A它的Y1、Y2屬性的值相等B它的X1、X2屬性的值相等C它的X1、Y1屬性的值分別與X2

31、、Y2屬性的值相等D它的X1、X2屬性的值分別與Y1、Y2屬性的值相等75如果一個(gè)直線控件在窗體上呈現(xiàn)為一條水平線,則可以確定的是_A_。 A它的Y1、Y2屬性的值相等B它的X1、X2屬性的值相等C它的X1、Y1屬性的值分別與X2、Y2屬性的值相等D它的X1、X2 屬性的值分別與Y1、Y2屬性的值相等76VB中有3個(gè)鍵盤事件：KeyPress、KeyDown、KeyUp，若光標(biāo)在Text1文本框中，則每輸入一個(gè)字母_A_。 A這3個(gè)事件都會觸發(fā)B只觸發(fā)KeyPress事件C只觸發(fā)KeyDown、KeyUp事件D不觸發(fā)其中任何一個(gè)事件77在程序運(yùn)行時(shí)，下面的敘述中正確的是_C_。 A用鼠標(biāo)右鍵單

32、擊窗體中無控件的部分，會執(zhí)行窗體的Form_Load事件過程B用鼠標(biāo)左鍵單擊窗體的標(biāo)題欄，會執(zhí)行窗體的Form_Click事件過程C只裝入而不顯示窗體，也會執(zhí)行窗體的Form_Load事件過程D裝入窗體后，每次顯示該窗體時(shí)，都會執(zhí)行窗體的Form_Click事件過程78假定有以下程序段： For i=1 To 3 For j=5 To 1 Step -1 Print i*j Next j Next i則語句Print i*j的執(zhí)行次數(shù)是_A_。 A15B16C17D1879設(shè)窗體上有一個(gè)列表框控件List1，含有若干列表項(xiàng)。以下能表示當(dāng)前被選中的列表項(xiàng)內(nèi)容的是_C_。 AList1.ListB

33、List1.ListIndexCList1.TextDList1.Index80窗體上有一個(gè)名稱為HScroll1的滾動條，程序運(yùn)行后，當(dāng)單擊滾動條兩端的箭頭時(shí)，立即在窗體上顯示滾動框的位置(即刻度值)。下面能夠?qū)崿F(xiàn)上述操作的事件過程是_A_。 APrivate Sub HScroll1_Change() Print HScroll1.Value End SubBPrivate Sub HScroll1_Change() Print HScroll1.SmallChangeEnd SubCPrivate Sub HScroll1_Scroll() Print HScroll1.Value En

34、d SubDPrivate Sub HScroll1_Scroll() Print HScroll1.Sma11ChangeEnd Sub81窗體上有一個(gè)名稱為Shape1的形狀控件和由三個(gè)命令按鈕組成的名稱為cmdDraw的控件數(shù)組。窗體外觀如圖所示(從上到下的3個(gè)命令按鈕的下標(biāo)值分別為0、1、2)。有事件過程如下：Private Sub cmdDraw_Click(Index As Integer) Select Case Index Case 0 Shape1.Shape=0 Case 1 Shape1.Shape=1 Case 2 Shape1.Shape=3 End SelectEn

35、d Sub當(dāng)單擊“畫圓”命令按鈕時(shí)，會執(zhí)行cmdDraw_Click事件過程。以下敘述中正確的是_D_。 ACase 2分支有錯(cuò)，此Case后面表達(dá)式的值應(yīng)該與賦給Shape1.Shape的值一致 B程序運(yùn)行有錯(cuò)，控件數(shù)組的下標(biāo)應(yīng)該從1開始 CIndex是形狀控件的參數(shù)D程序正常運(yùn)行，形狀控件被顯示為圓形82設(shè)有分段函數(shù)：以下表示上述分段函數(shù)的語句序列中錯(cuò)誤的是_A_。ASelect Case xCase Is<0y=5Case Is<=5,Is>0y=2*xCase Elsey=x*x+1BIf x<0 Theny=5ElseIf x<=5 Theny=2*xE

36、lsey=x*x+1End IfCy=IIf(x<0,5,IIf(x<=5,2*x,x*x+1)DIf x<0 Then y=5 If x<=5 And x>=0 Then y=2*x If x>5 Then y=x*x+183列表框中的項(xiàng)目保存在一個(gè)數(shù)組中，這個(gè)數(shù)組的名字是_C_。AColumnBStyleCListDMultiSeleet84設(shè)a=2，b=3，c=4，d=5，則下面語句的輸出是_A_。Print 3>2*b Or a=c And b<>c Or c>d AFalse B1 CTrueD-185在窗體上畫一個(gè)名稱為C

37、ommand1的命令按鈕。單擊命令按鈕時(shí)執(zhí)行如下事件過程：Private Sub Command1_Click()a$="software and hardware"b$=Right(a$,8)c$=Mid(a$,1,8)MsgBox a$,b$,c$,1End Sub則在彈出的信息框標(biāo)題欄中顯示的標(biāo)題是_B_。Asoftware and hardwareBhardwareCsoftwareD186下面關(guān)于標(biāo)準(zhǔn)模塊的敘述中錯(cuò)誤的是_B_。A標(biāo)準(zhǔn)模塊中可以聲明全局變量B標(biāo)準(zhǔn)模塊中可以包含一個(gè)Sub Main過程,但此過程不能被設(shè)置為啟動過程C標(biāo)準(zhǔn)模塊中可以包含一些Public

38、過程D一個(gè)工程中可以含有多個(gè)標(biāo)準(zhǔn)模塊87窗體上有名稱為Command1的命令按鈕和名稱為Text1的文本框Private Sub Command1_Click()Text1.Text="程序設(shè)計(jì)"Text1.SetFocusEnd SubPrivate Sub Text1_GotFocus()Text1.Text="等級考試"End Sub運(yùn)行以上程序，單擊命令按鈕后_B_。A文本框中顯示的是"程序設(shè)計(jì)"，且焦點(diǎn)在文本框中B文本框中顯示的是"等級考試"，且焦點(diǎn)在文本框中C文本框中顯示的是"程序設(shè)計(jì)&quo

39、t;，且焦點(diǎn)在命令按鈕上D文本框中顯示的是"等級考試"，且焦點(diǎn)在命令按鈕上88在窗體上畫兩個(gè)文本框(名稱分別為Textl和Text2)和一個(gè)命令按鈕(名稱為Command1)，然后編寫如下事件過程： Private Sub Command1_Click() x=0 Do While x<50 x=(x+2)*(x+3) n=n+1 Loop Text1.Text=Str(n) Text2.Text=Str(x) End Sub 程序運(yùn)行后，單擊命令按鈕，在兩個(gè)文本框中顯示的值分別為_B_。A1和0B2和72C3和50D4和16889設(shè)a=4，b=5，c=26，執(zhí)行語句

40、Print a<b And b<c后，窗體上顯示的是_A_。ATrueBFalseC出錯(cuò)信息D090若已把一個(gè)命令按鈕的 Default 屬性設(shè)置為 True，則下面可導(dǎo)致按鈕的Click事件過程被調(diào)用的操作是_C_。 A用鼠標(biāo)右鍵單擊此按鈕 B按鍵盤上的Esc鍵 C按鍵盤上的回車鍵D用鼠標(biāo)右鍵雙擊此按鈕91如果一個(gè)正整數(shù)從高位到低位上的數(shù)字依次遞減，則稱其為降序數(shù)(如：9632是降序數(shù)，而8516則不是降序數(shù))。現(xiàn)編寫如下程序，判斷輸入的正整數(shù)是否為降序數(shù)。Private Sub Command1_Click() Dim n As Long Dim flag As Boolean

41、 n=InputBox("輸入一個(gè)正整數(shù)") s=Trim(Str(n) For i=2 To Len(s) If Mid(s,i-1,1)<Mid(s,i,1) Then Exit For Next i If i=Len(s)Then flag=True Else flag=False If flag Then Print n;"是降序數(shù)" Else Print n;"不是降序數(shù)" End IfEnd Sub運(yùn)行以上程序，發(fā)現(xiàn)有錯(cuò)誤,需要對給flag變量賦值的If語句進(jìn)行修改。以下正確的修改是_B_。 AIf i=Len(s)

42、 + 1 Then flag=False Else flag=TrueBIf i=Len(s) + l Then flag=True Else flag=FalseCIf i=Len(s) -1 Then flag=False Else flag=TrueDIf i=Len(s) - 1 Then flag=True Else flag=False92設(shè)程序中有如下語句：x=InputBox("輸入","數(shù)據(jù)",100)Print x運(yùn)行程序，執(zhí)行上述語句，輸入5并單擊輸入對話框上的“取消”按鈕，則窗體上輸出_D_。 A0B5C100D空白93有人編寫了

43、如下程序： Private Sub Form_Click() Dim s As Integer,x As Integer s=0 x=0 Do While s=10000 x=x1 s=sx 2 Loop Print s End Sub上述程序的功能是：計(jì)算s12232n2，直到s>10000為止。程序運(yùn)行后，發(fā)現(xiàn)得不到正確的結(jié)果，必須進(jìn)行修改。下列修改中正確的是_B_。 A把x=0改為x=1B把Do While s=10000改為Do While s<=10000C把Do While s=10000改為Do While s>10000D交換x=x+1和s=s+x 2的位置9

44、4窗體Form1上有一個(gè)名稱為Command1的命令按鈕，以下對應(yīng)窗體單擊事件的事件過程是_B_。 APrivate Sub Form1_Click().End SubBPrivate Sub Form_Click().End SubCPrivate Sub Command1_Click().End SubDPrivate Sub Command_Click().End Sub95在窗體上畫一個(gè)文本框(名稱為Text1)和一個(gè)標(biāo)簽(名稱為Label1)，程序運(yùn)行后，如果在文本框中輸入文本，則標(biāo)簽中立即顯示相同的內(nèi)容。以下可以實(shí)現(xiàn)上述操作的事件過程是_A_。 APrivate Sub Text1

45、_Change()Label1.Caption=Text1.TextEnd SubBPrivate Sub Label1_Change()Label1.Caption=Text1.TextEnd SubCPrivate Sub Text1_Click() Label1.Caption=Text1.Text End SubDPrivate Sub Label1_Click()Label1.Caption=Text1.TextEnd Sub96設(shè)窗體的名稱為Form1,標(biāo)題為Win,則窗體的MouseDown事件過程的過程名是_C_。 AForml_MouseDownBWin_MouseDownC

46、Form_MouseDownDMouseDown_Form197設(shè)窗體上有名稱為Option1的單選按鈕，且程序中有語句：If Option1.Value=True Then下面語句中與該語句不等價(jià)的是_C_。 AIf Option1.Value Then BIf Option1=True ThenCIf Value=True Then DIf Option1 Then98閱讀程序： Private Sub Form_Click() a=0 For j=1 To 15 a=aj Mod 3 Next j Print a End Sub 程序運(yùn)行后，單擊窗體，輸出結(jié)果是_D_。 A105 B1C

47、120 D1599執(zhí)行下列語句：strInput=InputBox("請輸入字符串","字符串對話框","字符串")將顯示輸入對話框。此時(shí)如果直接單擊“確定”按鈕，則變量strInput的內(nèi)容是_C_。 A"請輸入字符串"B"字符串對話框"C"字符串" D空字符串100能夠存放組合框的所有項(xiàng)目內(nèi)容的屬性是_C_。 ACaptionBTextCListDSelected101現(xiàn)有以下程序：Private Sub Command1_Click() c1=0 c2=0 For i=

48、1 To 100 If i Mod 3=0 Then c1=c1+1 ElseIf i Mod 7=0 Then c2=c2+1 End If NextPrint c1+c2End Sub此程序運(yùn)行后輸出的是在1100范圍內(nèi)_B_。A同時(shí)能被3和7整除的整數(shù)個(gè)數(shù)B能被3或7整除的整數(shù)個(gè)數(shù)(同時(shí)被3和7整除的數(shù)只記一次)C能被3整除，而不能被7整除的整數(shù)個(gè)數(shù)D能被7整除，而不能被3整除的整數(shù)個(gè)數(shù)102現(xiàn)有如下一段程序：Option Base 1Private Sub Command1_Click()Dim aa=Array(3,5,7,9)x=1For i=4 To 1 Step-1s=s+a(

49、i)*xx=x*10NextPrint sEnd Sub執(zhí)行程序，單擊Command1命令按鈕，執(zhí)行上述事件過程，輸出結(jié)果是_C_。 A9753B35C3579 D79103設(shè)有如下程序： Private Sub Form_Click() Dim s As Long,f As Long Dim n As Integer,i As Integer f=1 n=4 For i=1 To n f=f*i s=s+f Next i Print s End Sub程序運(yùn)行后，單擊窗體，輸出結(jié)果是_D_。 A32B35C34D33104默認(rèn)情況下，下面聲明的數(shù)組的元素個(gè)數(shù)是_D_。6*5=30Dim a(5，-2 To 2)A20B24C25D30105以下說法中錯(cuò)誤的是_C_。A如果把一個(gè)命令按鈕的Default屬性設(shè)置為True，則按回車鍵與單擊該命令按鈕的作用相同B可以用多個(gè)命令按鈕組成命令按鈕數(shù)組C命令按鈕只能識別單擊(Click)事件D通過