资源描述：
《vb历年理论真题.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、VB历年理论考试真题计算机教研室崔园1、PrivateSubCommand1Click()DimnAsIntegern=1sum=0Fori=0to2Sum=sum+fun(n)NextiPrintsumEndSubFunctionfun(nAsInteger)AsIntegerStaticcAsIntegern=n+1c=c+1fun=n*cEndFunction(1)在程序运行后，首次单击命令按钮的显示结果是（）A、30B、9C、12D、20（2）第二次单击命令按钮的显示结果是（）A、12B、30C、47D、65（3）如果将fun函数中的“StaticcAsIntege
2、r”改为“DimcAsInteger”，则首次单击命令按钮的显示结果是（）A、9B、6C、4D、32、程序代码如下：PrivateSubCommand1Click()DimxAsInteger,sAsInteger,nAsIntegerRandomizeTimerx=Int(Rnd*9)+11Fori=2toxn=Int(Sqr(i))Forj=2tonIfiModj=0ThenExitForNextjIfj>nthens=s+iNextiPrints,xEndSub（1）该程序中整数X的取值范围是（）A、11~19之间B、11~20之间C、9~19之间D、9~20之间（2
3、）变量S中存放的数是（）A、2~X之间的所有数值之和B、2~X之间的所有素数之和C、2~X之间的所有偶数之和D、2~X之间的所有奇数之和（3）假设X的值为12，则程序的运行结果中S的值是（）A、77B、28C、44D、253、程序代码如下：PrivateSubCommand1_Click()Dima(3,3)AsIntegerFori=0To3Forj=0To3a(i,j)=Int(45*Rnd)*2+11NextNextFori=0To3temp=a(i,0):a(i,0)=a(i,3):a(i,3)=tempNextFori=0To3Ifi-(3-i)<=0ThenPr
4、intTab(i*3+1);a(i,i);Spc((2-2*i)*3+1);a(i,3-i)ElsePrintTab((3-i)*3+1);a(i,3-i);Spc((2*i-4)*3+1);a(i,i)EndIfNextEndSub(1)在程序中，存入数组的随机数的范围是（）（A）11到98的奇数（B）11到99的奇数（C）11到100的奇数（D）11到101的奇数（2）在程序中，以下代码段的功能是（）Fori=0To3temp=a(i,0):a(i,0)=a(i,3):a(i,3)=tempNext将所有数据的行和列互换将两条对角线上的数据互换将最上边的一行数据和最下边
5、一行的数据互换将最左边的一列数据和最右边一列的数据互换（3）最终程序显示输出的结果是（）（A）数组中所有的数据（B）两条对角线上的数据（C）最上边和最下边的1行数据（D）最左边和最右边的1列数据4、程序代码如下：OptionBase1PrivateSubcommand1_click()Dimsa(3,3)AsString*1,iAsInteger,jAsIntegerk=1Fori=1To3Forj=1To3sa(i,j)=Mid(text1,k,l)picture1.Printsa(i,j);"";k=k+1Nextjpicture1.PrintNextiFori=1To
6、3Forj=1To3k=(Asc(sa(i,j))-Asc("A")+i+j)Mod26sa(i,j)=Chr(k+Asc("A"))picture2.Printsa(i,j);"";Nextjpicture2.PrintNextiEndSub（1）在程序运行时，如果输入“PROGRAMER”并单击命令按钮，则在picture1对象中显示的内容是（）（A）PRO（B）PGMGRARREMEROAR（C）RUS（D）RJQJVFUVJQJXSFX（2）在程序运行时，如果输入“PROGRAMER”并单击命令按钮，则在picture2对象中显示的内容是（）（A）PRO（B）PGM
7、GRARREMEROAR（C）RUS（D）RJQJVFUVJQJXSFX（3）如果在全部代码前添加“optionExplicit“,则程序运行的结果（Ａ）无变化 （Ｂ）程序无法启动（Ｃ）出现编译错误 （Ｄ）以上说法都不对程序填空题：1、如果一个三位正整数的百位、十位及个位数的立方和等于这个数本身，则称这个数为水仙花数。下面程序的功能是：找出100~999之间的所有水仙花数。请填空完善程序。Privatesubcommand1_click()DimIasinteger,aasinteger,
