“在一個算法的步驟序列中，執行完一個處理步驟后，順序執行緊跟著的下一個處理步驟。”這種算法模式稱為(A)順序模式 (B)選擇模式 (C)循環模式 (D)樹型模一、變量或數組變量的定義考點：1.變量名命名規則：必須以字母、漢字、數字或下劃線組成，但不能以數字開頭不能使用VB中的關鍵字，如IF、Then、Loop，不與函數名同名，如Int、Len等.變量類型：整數型、長整型、單精度、雙精度、字符串、布爾型、日期型、字符型.數組變量定義及類型在VisualBasic中，下列能作為變量名的是A.MyB.IfC.a+yD.2nd在VisualBasic中，以下可作為合法變量名的是( )A.Count_2sB.Text@123C.Chr D.2ab在VisualBasic中，用變量code存儲數據“HN2012”，下列說明語句正確的是A.DimcodeAsInteger B.DimcodeAsSingleC.DimcodeAsString D.DimcodeAsBoolea在VisualBasic程序中要用到存儲范圍為-150000?150000的某一整數變量，則該變量的類型應該定義為Integer (B)Long (C)Single(D)Boolea在VisualBasic中，定義字符串常量a的正確語句是(A)ConstaAsIntegerConsta="hello"AsString(C)DimaAsString(D)Consta="hello”在VisualBasic中，語句Dima(1To10)AsString所定義的數組元素個數是(A)1 (B)9 (C)10 (D)11在VisualBasic中，要定義一個由50個元素構成的一維整型數組cp,下列語句正確的是(A)Constcp(1to50)AsInteger(B)Dimcp(1To50)AsInteger(C)Constcp(1To5)AsInteger(D)DimcpAsIntege二、賦值語句和表達式(學會將代數表達式改寫成VB代碼中的表達式)在VisualBasic中，如果要在標簽Lab上顯示文字“注意事項”，則下列語句正確的是(A)Label.Caption="注意事項" (B)Lab.Text="注意事項”(C)Lab.Caption="注意事項" (D)Label.Width="注意事項在VB中，將窗體標題“Form1”改為“中華美食”需設置的屬性是( )A.Name B.Caption C.Font D.Visible在VisualBasic中，語句Command1.Font="隸體"中的“。0皿皿2鼠1”是（ ）A.對象名B.屬性名C.屬性值D.窗體名在VisualBasic中，語句List_11.AddItem"hello"中的"AddItem”是(A)對象名 (B)方法名(C)屬性值 (D)事件在VB中，x=1，y=—1，則表達式x=y的值為A.1 B.-1 C.TrueD.False下列VisualBasic表達式中，值最大的是(A)3Mod7 (B)3/7 (C)3\7 (D)7Mod3在VisualBasic中，表達式13\5Mod4的值是TOC\o"1-5"\h\z(A)1 (B)2 (C)3 (D)4下列VB表達式的值最大的是( )A.10Mod5 B.5Mod10C.10/5 D.5/10設X=5678,能得到其百位上數字“6”的正確表達式是( )A.XMod100 B.X\100Mod10C.X\100Mod100 D.X\10Mod10將數學表達式內以 「寫成VisualBasic表達式，正確的是Int(Abs(ab-c*c)Sqr(Abs(ab-c*2)TOC\o"1-5"\h\zInt(Abs(a * b - c * c)Sqr(Abs(a * b - c * c)將數學表達式J2+5y+1寫成VisualBasic表達式，正確的是(A)y*y+ 5 y + 1 (B) y ~ 2 + 5 * y + 1(C)y*y+ 5 * y (D) Abs(y " 2 + 5 * y+1)三、邏輯表達式(條件表達式)下列能表示“x與y都小于10”的VisualBasic邏輯表達式是A.(x<10)And(y<10) B.x<10,y<10C.(x<10)Or(y<10) D.X<10:y<10下列能表示“x>100或者y>80”的visualBasic邏輯表達式是(x>100)and(y>80)x>100,y<80(x>100)or(y>80)x>100:y>80TOC\o"1-5"\h\z下列VisualBasic表達式的值為True的是（ ）A.1=2 B."78"〉"79"C.Len("78")=Len(“中國") D.Mid("abcdef",2,3)="abc"四、標準函數使用在VisualBasic中，有整型變量a=5b=13,要在標簽控件中顯示結果為18,則執行下列語句能正確顯示結果的是( )A.Label1.caption=Str(a+b)B.Text1.text=Len(a)+Val(b)C.Text1.text=Sqr(a+b) D.Label1.caption=Str(a)+Str(b)計算表達式Val("10")+Len("2AB")的值是( )A.12 B.13 C.102 D.102AB在VisualBasic中，表達式Abs(—3.6)*Sqr(100)的值是A.36B.360C.—36 D.—360下列VisualBasic表達式的值等于56的是(A)Mid("1234567",5,3) (B)Len("55")+1(C)Sqr(56) (D)Abs(-55)+1字符串變量st的值為“ZheJiangTongXiang”,下列VB表達式的值為“丁健8*1298”的是( )A.Mid(st,9,8) B.Mid(st,9,4)+"Xiang"C.Mid(st,13,5) D."Tong"+Mid(st,13,5)產生［1,40］范圍內某一隨機整數的表達式是Rnd*40Int(Rnd*40)Int(Rnd*40)+1Int(Rnd*39)+1在VB中，下列函數返回值最大的是A.Sqr(9)B.Abs(-3.2)C.int(3.2)D.Len("3.2")已知字符A?Z的ASCII碼值分別對應65?90。小明編寫了一個在標簽Label1上顯示26個英文大寫字母"ABCDE……XYZ”的VB程序。部分程序如下：a=""Fori=65To90NextiLabel1.Caption=a方框中正確的語句是A.a=a+Str(i)B.a=a+Chr(i)C.a=a+Int(i)D.a=a+Asc(i)

五、閱讀三種結構（順序、分支、循環結構）計算長方體體積的算法如下：①輸入長方體的長（L）、寬（W）、高（H）的值②計算體積V=L*W*H③輸出體積V上述算法屬于（A）解析算法 （B）枚舉算法 （C）排序算法 （D）遞歸算法有如下VB程序段：PrivateSubCommand1_Click（）DimsAsStrings=Str（Val（"20"）+Len（"student"））Label1.Caption=sEndSub下列說法正確是A.發生事件的對象名為“Label1" B.這是一個“鼠標單擊”事件C.事件過程名為“Command1"D.此程序段里只有一個對象在VisualBasic中，與程序段：a=a+bb=a-ba=a-b功能相同的程序段是A.a=bB.a=a+bb=aa=a-bb=a-bC.t=aD.Ifa>bThena=ba=bb=tElseb=aEndIf若x=1,執行語句Ifx<3Theny=1-xElsey=1+x后，變量y的值是(A)0 (B)1 (C)2 (D)3“如果條件表達式xNyNO成立，那么i=i+1"。能實現該功能的VB語句是( )A. if xNy三0theni=i+1 B. ifxNy andyNO theni=i+1C. if x>=yorx>=0theni=i+1 D. ifx>=y andy>=0 theni=i+1有如下VB程序段：x=a(1)Fori=2to50Ifa(i)<xThenx=a(i)Nexti該程序段執行后，變量x中存儲的是A.累加值B.計數值 C.最小值D.最大值該程序段執行后，變量x中存儲的是A.累加值B.計數值 C.最小值D.最大值DoWhilex<yx=x-2Loop運行這段程序段，循環體的循環次數為( )A.4 B.3 C.2 D.0下面是一段VisualBasic程序：PrivateSubCommand1_Click()DimsumAsDouble,iAsIntegersum=0Fori=1To5sum=sum+i*iNextiText1.Text=Str(sum)EndSub該程序運行后，語句sum=sum+i*i共執行了幾次A.5B.4 C.55 D.25某算法的流程圖及其編寫中的VisualBasic代碼如下圖所示。分析流程圖，在代碼窗口中①處應填寫的代碼正確的是DoWhilea三30DoWhilea三30a=a*(1-0.2)n=n+1LoopDoWhilea>=30a=a*(1-0.2)n=n+1LoopC.DoWhilea>=30D.DoWhilea>=30

C.DoWhilea>=30D.DoWhilea>=30a=a*(1-0.2)0.2)LoopNext某算法的部分程序代碼與其相對應的流程圖分別表示如下：程序代碼 流程圖PrivateSubCommand1_Click()DimiAsIntegerDimsAsLongs=1For a=a*(1-0.2)0.2)LoopNext某算法的部分程序代碼與其相對應的流程圖分別表示如下：程序代碼 流程圖PrivateSubCommand1_Click()DimiAsIntegerDimsAsLongs=1For ① ②NextiLabel1.Caption=Str(s)EndSub則代碼中①和②處應填入的是(A)①i=1To10②s=s*i(C)①i=1To10Step2②s=s+i有10個數據100、15、28、70、80、12、(B)①i=1To10②s=s+i(D)①i=1To10Step2②s=s*i10、200、6、50依次存放在數組d(1to10)中，使用如下程序段找出最小值：(講解視頻：“zt2014零距離04-6VB數組.mp4”)min=d(l)Fori=2to10Ifd(i)<minthenmin=d(i)Nexti當方框內的語句剛好執行完5次后(此時循環變量i的值為6)，變量min的值是( )A.15B.12C.10D.6以下程序段是實現x*y(x、y均為自然數)運算的程序段，則劃線處的語句應該是(x=Val(Text1.Text)y=Val(Text2.Text)s=0:j=1DoWhilej<=yj=j+1Loop