资源描述：
《南京工业大学VB期末考试复习50道填空题》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、50道填空题满分：45分姓名：1、填空题(本题共计45分)1、VB提供了结构化程序设计的三种基本结构，它们是顺序结构、选择结构和c2^用100元买100鸡，条件是公鸡x每只5元，母鸡y每只3元，小鸡z只1元3只。程序中的选项是oPrivateSubCommandl_Click()Forx=0To100Fory=0To10()z=100-x-yIfThenPrintx,y,zNextyNextxEndSub3、当程序执行过程中发牛无限循环(死循环)时，可以按组合键终止程序。4、本程序用于验证一个自然数N
2、的立方等于N个连续奇数Z和，其中最大的奇数P满足关系：P=N*(N+l)-1例如:43=19+17+13,最大奇数为19o现给对话框输入6时，k和p的值为和oPrivateSubCommandl_Click()DimsAsStringn=InputBox(H输入一个自然数“)num=n*n*np=n*(n+1)-1X二Pk=1DoUntilx=numP=P-2X=X+pk=k+1LoopPrintPrintk;pEndSub5、己知K=2,J=3,A=True,则VB的表达式(K-J<=K)AND(N
3、OTA)OR(K+J>=J)的值为6、表示”A和B之一为零但不同时为零”的表达式。7、将英文26个字母按字母表逆序每隔一，个字母打印，即打印岀zxvtrpnljhfdb完善下列程序。程序代码如下：PrivateSubCommandl_Click()DimiAsIntegerFori=0To12Print(1);Space(2)NextiEndSub8、组合框有三种不同的风格：下拉式组合框、_(1)—和下拉式列表框。可通过—(2)—属性来设置。9、可使用列表框的方法向列表框中增加一个项冃。10、滚动条的
4、属性表示滚动条内滑块所处位置所代表的值。11、下列函数调用时弹出的对话框中按钮的个数为。MsgBox("程序非法In,vbAbortRetryIgnore,"消息提示")12、已知K=2,J=3,A=True,则VB表达式(K-J<=K)AND(NOTA)OR(K+J>=J)的値为。13、表示”A+B+C大于等于255,或A与B分别大于90R.C大于80”的VB表达式的14、表示”A和B之一为零但不同时为零”的VB表达式为。15、表示“x和y都是正整数或都是负整数“的VB表达式为—。16、表示”x+y
5、小于10,且x-y要大于0“的VB表达式为。17、VisualBasic有三种运行模式，分別是、运行模式和屮断模式，其屮模式可以监视表达式和变量的值。18、当文本框中的内容改变时，将会发生事件。19、在VB中一个汉字的长度等于—个英文字母的长度。20、若一个数的各因子之和正好等于该数本身，则该数称为完全数。如6的因子为1,2,3,其和为6,则6为完全数。编程找出1〜100Z间的所有完全数。完善下列程序。PrivateSubCommand1_Click()DimaAsInteger,bAsInteger
6、,cAsInteger,iAsIntegerFora=2To100—(1)Forb=2Toa-1IfaModb=0Thenc=b+cEndIfNextbIf_(2)—ThenPrintaEndIfNextaEndSub21、_(1)_属性决定了按Tab键时，焦点在各个控件移动的顺序。22、求满足如下条件的三位数，它除以11所得的商等于各位数字的平方和。例如：550/11=50=5*5+5*5+0。完善下列程序。程序代码如下：PrivateSubForm_Click()DimaAsInteger,bAs
7、IntegersAsIntegersAsIntcgcrJAsIntegerFora=_(I)_Forb=0To9Forc=0To9n=_(2)_If(nMod11=0)And(nll=a*a+b*b+c*c)ThenPrintn;"/11=";n/l1;"="；a*a;b*b;c*cEndIfNextcNextbNextaEndSub23、下面程序的功能是统计随机产生的10个三位正整数中偶数与奇数的个数，并求出该10个数的总和。请将程序补充完整。OptionExplicitPrivateSubFor
8、m_Click()DimxAsInteger,siAsIntegerDimnlAsInteger,iAsIntegerRandomizeFori=1To10x=_d)—Printx;IfxMod2=0Then—(2)—elsen2=n2+IEndIfs=s+xNextiPrintPrint”奇数个数：”;nl;“偶数个数为：“;n2;”和为”;sEndSub24、有一个充满氢气的球，如果人不小心松开手抓的引线，它就会飞走；如果用针刺穿它，它则会爆破。此处
