2023计算机软件基础Visual-Basic-考试大纲

计算机软件技术基础-1大纲一、判断题1、框架控件和形状控件都不能响应用户的鼠标单击事件。（f）2、当定时器控件的Interval属性值为0时，会连续不断地发送Timer事件。（f）3、一个菜单项是不是分隔条，由Caption属性决定。（t）4、可以通过语句代码使一个单选框组中的所有单选框均为不选定状态。（t）5、Windows下窗体的子菜单最多有5级。（t）6、一个变量在刚被声明尚未被赋值之前没有值。（f）7、对英文字母的比较，默认情况下是区分大小写的。（t）8、两个日期时间值可以做减法，但不能做加法。（f）9、表达式NOTx<3和x>3是等价。（f）10、注释行也能使用续行符。（f）二、单向选择题多个语句可以书写在同一行上，但它们之间要加b：B）；C)，D）、在窗体Form1的Click事件过程中有以下语句：Label1.Caption=”VisualBASIC”，设标签的原Caption属性值为默认值，则该语句执行之后该标签控件Name属性和Caption属性的值分别为aA）“Label1”、“VisualBASIC”B）“Label1”、“C）“Label”、“VisualBASIC”D）“Label”、“Label1下面几对数据类型中，哪一对所占的内存大小一致：bA）Integer、SingleB)Integer、BooleanC)Date、SingleD)Long、Variant下面哪条语句可以正确地声明一个动态数组：cA)DimA(n)AsIntegerB)DimA(1Ton)AsIntegerC)DimA()AsIntegerD)DimA(,)AsInteger如果在模块的声明段中有OptionBase0语句，则在该模块中使用Dima(7,3To5)声明的数组有个元素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三、读程序，写结果执行下面程序，单击窗体后，窗体上显示的第一行结果是，第二行结果是。1答案：BbBbCcEePrivateSubForm_Click()DimMystrAsStringDimMystr1AsStringDimMystr2AsStringMystr1="B"Fori=1To3Mystr2=LCase(Mystr1)Mystr1=Mystr1&Mystr2Mystr=Mystr&Mystr1PrintMystrMystr1=Chr(Asc(Mystr1)+i)NextEndSub2、执行下面程序，窗体上显示的结果是什么？2答案：1234567891011121314151617181920041DimmAsInteger,nAsInteger,kAsIntegern=20:k=1Form=1tonStepkPrintmn=n-1k=k+2NextPrintn,k3、下面程序段执行完毕，窗体上显示的结果是什么？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下面程序段执行完毕，窗体上显示的结果是什么？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四、程序设计题编写递归函数求1+2+3+……+m的值。1.答案：PrivateFunctionAdd(nAsInteger)AsIntegerIfn=1ThenAdd=1ExitFunctionEndIfAdd=m+Add(m-1)EndFunction编程计算100～100000之间，共有多少个整数，满足它的各位数字之和为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之间，共有多少个整数，满足它的各位数字之和可被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