2023計算機軟件基礎Visual-Basic-考試大綱

計算機軟件技術基礎-1大綱一、判斷題1、框架控件和形狀控件都不能響應用戶的鼠標單擊事件。（f）2、當定時器控件的Interval屬性值為0時，會連續(xù)不斷地發(fā)送Timer事件。（f）3、一個菜單項是不是分隔條，由Caption屬性決定。（t）4、可以通過語句代碼使一個單選框組中的所有單選框均為不選定狀態(tài)。（t）5、Windows下窗體的子菜單最多有5級。（t）6、一個變量在剛被聲明尚未被賦值之前沒有值。（f）7、對英文字母的比較，默認情況下是區(qū)分大小寫的。（t）8、兩個日期時間值可以做減法，但不能做加法。（f）9、表達式NOTx<3和x>3是等價。（f）10、注釋行也能使用續(xù)行符。（f）二、單向選擇題多個語句可以書寫在同一行上，但它們之間要加b：B）；C)，D）、在窗體Form1的Click事件過程中有以下語句：Label1.Caption=”VisualBASIC”，設標簽的原Caption屬性值為默認值，則該語句執(zhí)行之后該標簽控件Name屬性和Caption屬性的值分別為aA）“Label1”、“VisualBASIC”B）“Label1”、“C）“Label”、“VisualBASIC”D）“Label”、“Label1下面幾對數(shù)據(jù)類型中，哪一對所占的內存大小一致：bA）Integer、SingleB)Integer、BooleanC)Date、SingleD)Long、Variant下面哪條語句可以正確地聲明一個動態(tài)數(shù)組：cA)DimA(n)AsIntegerB)DimA(1Ton)AsIntegerC)DimA()AsIntegerD)DimA(,)AsInteger如果在模塊的聲明段中有OptionBase0語句，則在該模塊中使用Dima(7,3To5)聲明的數(shù)組有個元素A)21B)28C)24D)32要使一個圖片框控件自動地附在窗體的一條邊上，應該設置它的b屬性A)PictureB）AlignC）LeftD）AutoSize下列控件中，不具備Caption屬性的是：dA)ListBoxB）CheckBoxC）FrameD）正三角形下面哪類控件不支持Change事件：dA)TextBoxB）LabelC）PictureBoxD）ListBox下面各類型對象中，沒有Move方法的是：aA)LineB）ImageC）FormD）Shape在列表框中添加一個條目，應使用列表框的什么方法：bA)InsertItemB）AddItemC）AppendItemD）RemoveItem三、讀程序，寫結果執(zhí)行下面程序，單擊窗體后，窗體上顯示的第一行結果是，第二行結果是。1答案：BbBbCcEePrivateSubForm_Click()DimMystrAsStringDimMystr1AsStringDimMystr2AsStringMystr1="B"Fori=1To3Mystr2=LCase(Mystr1)Mystr1=Mystr1&Mystr2Mystr=Mystr&Mystr1PrintMystrMystr1=Chr(Asc(Mystr1)+i)NextEndSub2、執(zhí)行下面程序，窗體上顯示的結果是什么？2答案：1234567891011121314151617181920041DimmAsInteger,nAsInteger,kAsIntegern=20:k=1Form=1tonStepkPrintmn=n-1k=k+2NextPrintn,k3、下面程序段執(zhí)行完畢，窗體上顯示的結果是什么？3答案：7，15DimbAsInteger,kAsIntegerb=1Fork=1To6b=b*kIfb>=20ThenExitForElsek=k+1EndIfNextkPrintk,b4、對下面程序，單擊窗體后，在文本框Text1和Text2中顯示的內容分別是什么？ProvateSubForm_Click()4答案：15，54 DimxAsInteger,yAsIntegerX=1:Y=5DoWhilex<15Y=y+xX=x+2LoopText1.Text=xText2.Text=yEndSub下面程序段執(zhí)行完畢，窗體上顯示的結果是什么？5答案：207.364DimbAsSingle,kAsIntegerb=0.2p=100n=0Dop=p*(1+b)n=n+1Loopuntilp>200Printp,n對下面程序，單擊窗體后，窗體上顯示什么內容？6答案：62993915515PrivateSubForm_Click()DimxAsInteger,yAsInteger,zAsIntegerX=1:y=2:z=3Callsub1(x,y,z)Callsub1(y,z,x)Callsub1(y,y,z)EndSubPrivateSubsub1(byValxAsInteger,yAsInteger,zAsInteger)DimIAsIntegerX=2*zY=3*zZ=x+yPrintx,y,zEndSub下面程序段在窗體上輸出的是什么？7答案：1266DimiAsInteger,jAsIntegerDimkAsIntegerFori=1To10Step3Forj=0to10Ifj>=5Theni=i+4:ExitForj=j+1k=k+1NextIfi>8ThenExitForNextPrinti,j,k下面程序段在窗體上輸出的是什么？8答案：500Dima(4,4)AsIntegerDimncAsInteger,nrAsIntegerDimIasInteger,jAsInteger,kAsIntegerNc=4:nr=1:I=1:j=1Fork=1To16A(I,j)=kIfI<ncAndj=nrThenI=I+1ElseIfI=ncAndj<ncThenJ=j+1ElseIfI>nrAndj=ncThenI=I-1ElseIfI=nrAndj>nr+1ThenNc=nc-1Nr=nr+1EndIfNextPrinta(4,2),a(3,3),a(2,2)9、對下面程序，單擊窗體后，窗體上顯示什么內容？9答案：4，6，106，9，15PrivateSubForm_Click()DimxAsInteger,yAsInteger,zAsIntegerX=1:y=2:z=3Callsub1(x,y,y)Callsub1(x,x,z)EndSubPrivateSubsub1(xAsInteger,byValyAsInteger,zAsInteger)DimIAsIntegerX=2*zY=3*zZ=x+yPrintx,y,zEndSub四、程序設計題編寫遞歸函數(shù)求1+2+3+……+m的值。1.答案：PrivateFunctionAdd(nAsInteger)AsIntegerIfn=1ThenAdd=1ExitFunctionEndIfAdd=m+Add(m-1)EndFunction編程計算100～100000之間，共有多少個整數(shù)，滿足它的各位數(shù)字之和為5。2.答案：PrivateSubCommand1_Click()Dimlng1AsLongDimint1AsInteger,int2AsInteger,intNumAsIntegerintNum=0Forlng1=100To100000int2=0Forint1=0To4int2=int2+(lng1/(10^int1))Mod10NextIfint2=5ThenintNum=intNum+13、編程計算20＋21＋22＋23＋···＋210的值。3.答案：2047PrivateSubForm_Click()DimxAsInteger,sumAsIntegerx=1:y=1ForI=1To10x=x*2sum=sum+xNextPrintsumEndSub4、編程計算100～100000之間，共有多少個整數(shù)，滿足它的各位數(shù)字之和可被3整除。4.答案：31PrivateSubForm_Click()Dimlng1AsLongDimint1AsInteger,int2AsInteger,intNumAsIntegerintNum=0Forlng1=100To100000int2=0Forint1=0To4int2=int2+(lng1/(10^int1))Mod10NextIfint2=3ThenintNum=intNum+1NextPrintintNumEndSub答案：一、FFTTTFTFFF二、B A B C C BDDAB三、1答案：BbBbCcEe2答案：12345678910111213141516171819200413答案：7，154答案：15，545答案：207.3646答案：629939155157答案：12668答案：5009答案：4，6，106，9，15四、1.答案：PrivateFunctionAdd(nAsInteger)AsIntegerIfn=1ThenAdd=1ExitFunctionEndIfAdd=m+Add(m-1)EndFunction2.答案：PrivateSubCommand1_Click()Dimlng1AsLongDimint1AsInteger,int2AsInteger,intNumAsIntegerintNum=0Forlng1=100To100000int2=0Forint1=0To4int2=int2+(lng1/(10^int1))Mod10NextIfint2=5ThenintNum=intNum+1NextEndSub3.答案：2047PrivateSubForm_Click()DimxAsInteger,sumAsIntegerx=1:y=1ForI=1To10x=x*2sum=sum+xNextPrintsumEndSub4.答案：31PrivateSubForm_Click()Dimlng1AsLongDi