南京工业大学vb考试(含答案)

vbzj523满分：60分姓名：________1、单项选择题(本题共计40分)1、________在用户的应用程序执行期间发生，比如鼠标单击或敲击键盘。()A、方法B、属性C、事件D、工程2、执行语句PrintFormat(1234.567,“##,##0.00”)后，输出结果是____________。()A、1234.57B、1,234.57C、1，234.567D、1,234.563、想要设置窗体状态为不显示控制菜单，应设置下列____________属性。()A、StyleB、PictureC、ControlBoxD、Caption4、用于字符串连接的运算符是________。()A、&B、+C、AndD、A、B选项皆可5、VisualBasic是一种面向________的程序设计语言。()A、过程B、用户C、方法D、对象6、执行语句"Printformat(5459.478,"##,##0.00")"，正确的输出结果是________。()A、5459.48B、5,459.48C、5,459.478D、5,459.477、执行下列程序，输出结果为___________。PrivateSubCommand1_Click()DimbAsSingleB=2/3PrintbEndSub()A、0.6666666666667B、1C、0D、0.66666678、VisualBasic中的标准模块文件的扩展名是____________。()A、.regB、.frmC、.basD、.vbp9、下面程序的内层循环次数是________。Fori=1TO3Forj=1TOiFork=jTO3...NextkNextjNexti()A、3B、14C、9D、2110、以下有关对象属性的说法中错误的是____________。()A、所有的对象都具有Name(名称)属性B、只能在执行时设置或改变的属性为执行时属性C、对象的某些属性只能在设计时设定，不能使用代码改变D、Enabled属性值设为False的控件对象在窗体上将不可见11、下列4个表达式中，不能对Single类型变量x(正数)的第三位小数正确地进行四舍五入的是()A、Format(x,"#.00")B、Int(100*(x+0.005))/100C、CInt(100*(x+0.005))/100D、Fix(100*(x+0.005))/10012、以下语句的输出结果是____________。printFormats(3678.234,"000，000，000")()A、000,003.678B、003,678.23C、003,678,234D、000,003,67813、当用户单击命令按钮时，________属性可以使得命令按钮对激发事件无效。()A、NameB、EnableC、DefaultD、Cancel14、语句x=x+1的正确含义是__________.()A、变量X的值与X+1的值相等B、将变量X的值存在X+1中去C、将变量X的值加1后赋给变量XD、变量X的值为115、要想改变窗体边框线型，可使用的属性是____________。()A、FonStyleB、BorderStyleC、BackStyleD、Border16、在窗体中添加一个命令按钮，并编写如下程序代码：PrivateSubCommand1_Click()DimyAsIntegery=0DoWhiley<7y=y+3LoopMsgBoxyEndSub程序运行后，消息对话框中显示________。()A、6B、7C、8D、917、如果单击一个当前没有被选中的复选框，其他已被选中的复选框会处于_________状态。()A、不选中B、不显示C、禁止D、选中18、以下__________程序段可以实施X，Y变量值的变换.()A、Y=X:X=YB、Z=X:Y=Z:X=YC、Z=X:X=Y:Y=ZD、Z=X:W=Y:Y=Z:X=Y19、在窗体上画一个命令按钮名为Command1，然后编写如下事件过程:OptionBase0PrivateSubCommand1_Click()DimcityAsVariantcity=Array("Beijing","Shanghai","NewYork","London")Printcity(4)EndSub程序运行后，屏幕显示________()A、BeijingShanghaiNewYorkLondonB、LondonC、出错D、空白20、下述语句段运行时的显示结果是____________。CLSx=2.34+8printLen(x)()A、5B、10C、11D、非法使用，无输出21、当文本框的ScrollBars属性设置了非零值，却没有效果，原因可能是____________。()A、文本框中没有内容B、文本框的MultiLine属性为FalseC、文本框的MultiLine属性为TrueD、文本框的Locked属性为True22、表达式（7\3+1）*(18\5-1)的值是___________.()A、8.67B、7.8C、6D、6.6723、下面____________是合法的单精度型变量。()A、num!B、sum%C、xinte$D、mm24、假设如下的Sub过程：SubCalCul(aAsInteger,bAsInteger)a=a/bb=a*bEndSub在窗体上画一个命令按钮，然后编写如下事件过程PrivateSubCommand1_Click()DimxAsSingle,yasSinglex=8y=5CalCulx,yPrintx,yEndSub程序运行后，单击命令按钮，输出结果为()A、85B、1.68.0C、2.08.0D、2825、下列语句中的语句可以用来正确地声明一个动态数组。()A、PrivateA(n)AsIntegerB、DimA()AsIntegerC、DimA(,)AsIntegerD、DimA(1ton)26、只有当一个对象的________和________属性为True时，它才能获得焦点。()A、Enabled;VisibleB、Visible;CaptionC、Visible;NameD、Enabled;Caption27、用复制粘贴的方法建立了一个命令按钮数组Command1，以下对该数组的说法错误的是________。()A、命令按钮的所有Caption属性都是Command1B、在代码中访问命令按钮只需使用名称Command1C、命令按钮的大小都相同D、命令按钮共享相同的事件过程28、结构化程序设计方法的核心是规定了三种基本结构：________结构、分支结构、循环结构。()A、条件B、顺序C、当型D、逻辑29、在下列说法中，正确的是____________。()A、通过适当的设置，可以在程序运行期间，让时钟控件显示在窗体上B、在列表框中不能进行多项选择C、在列表框中能够将项目按字母顺序从大到小排列D、框架也有Click和DblClick事件30、下面____________是不合法的整常数。()A、100B、&O100C、&H100D、%10031、VB也提供了结构化程序设计的三种基本结构，三种基本结构是________。()A、递归结构、选择结构、循环结构B、选择结构、过程结构、顺序结构C、过程结构、输入、输出结构、转向结构D、选择结构、循环结构、顺序结构32、下列语句执行后的输出结果是____________。(一个方格表示一个空格)Wage=26Print"工资";PrintWage()A、工资□26B、工资□□26C、“工资”□26D、“工资”□□2633、任何控件都具有__________属性。()A、TextB、CaptionC、NameD、ForeColor34、表达式(-1)*Sgn(-100+Int(Rnd*100))的值是____________。()A、随机数B、0C、1D、-135、执行以下语句后，a的值为________。DimaAsIntegera=1DoUntila=100a=a+2Loop()A、99B、100C、101D、溢出36、<spanlang="EN-US">VisualBasic</span><span>是一种面向<u><spanlang="EN-US"><span></span><span></span></span></u>的程序设计语言。</span>()A、<span>过程</span>B、<span>用户</span>C、<span>方法</span>D、<span>对象</span>37、VB也提供了结构化程序设计的三种基本结构，这三种基本结构是________。()A、递归结构、选择结构、循环结构B、选择结构、过程结构、顺序结构C、过程结构、输入\输出结构、转向结构D、选择结构、循环结构、顺序结构38、所谓____________就是使某个对象进入活动状态（又称激活）的一种操作或动作。()A、事件B、属性C、方法D、对象39、要从自定义对话框Form2中退出，可以在该对话框的“退出”按钮的Click事件过程中使用的语句是________。()A、UnloadForm2B、HideForm2C、Unload.Form2D、Form2.Unload40、下列语句正确的是____________。()A、IfK<3*NAndK>NThenN=K^3B、IfK<3*NAndK>NThenN=K3C、IfK<3*N：K>NThenN=K^3D、IfK<3*NAndK>NThenN=K**32、填空题(本题共计20分)1、执行下面的程序，单击窗体后在窗体上显示的第一行结果是_______，第三行结果是_______。PrivateSubCommand1_Click()s1="B"Fori=1To3s2=LCase(s1)s1=s1&s2s=s&s1Printss1=Chr(Asc(s1)+i)NextiEndSub2、a=100Dos=s+aa=a+1Loopwhilea>120Printa3、要把在Label控件中显示的文字颜色设置为红色，应设置Label控件的__(1)__属性。4、已知下列程序运行结果是ABCD，请将程序补充完整。PrivateSubCommand1_Click()a=""Forn=65To68a=a+______NextnPrintaEndSub5、某人编写如下函数来判断a是否为素数，若是，则函数返回True；否则返回False。Functionprime(aAsInteger)AsBooleanDimkAsInteger,isprimeAsBooleanIfa<2Thenisprime=FalseElseisprime=Truek=2DoWhilek<a/2AndisprimeIfaModk=0Thenisprime=FalseElsek=k+1EndIfLoopEndIfprime=isprimeEndFunction在测试时发现有1个非素数也被判断为素数，这个被错判的数是________6、找出1～10000之间的同构数。所谓同构数，是指此数的平方数的最后几位与该数相等。例如，25的平方为625，25是同构数。完善下列程序。程序代码如下：PrivateSubCommand1_Click()DimiAsInteger,yAsLongForx=1To1000y=x*xIf___(1)___ThenPrintxEndIfNextxEndSub7、有下列程序：PrivateSubCommand1_Click()x$="Apply"y$="Action"z$="Study"z$=Left$(x$,4)+Mid(y,4,1)+LCase$(z)+""+z$Printz$EndSub运行后窗体上显示的是_______。8、下列程序的功能是输出如下数列的前20项，按每行5个数的形式输出。1，1，2，3，5，8，13,......DimaAsInteger,bAsIntegerDimiAsIntegera=1:b=1:i=3Printa,b,DoWhile(i<=20)c=a+bt=bb=a+b____(1)____Printc,If____(2)____ThenPrintEndIf_____(3)_____Loop9、执行下面的程序，在窗体上显示的输出结果的第一行是_____(1)_____，第二行是_____(2)_____。OptionExplicitPrivateSubForm_Click()DimsAsString,iAsInteger,flagAsBooleans="THISISABOOK"s=LCase(s)Printsflag=TrueFori=1ToLen(s)IfMid(s,i,1)=""Thenflag=TrueElseIfflagThens=Left(s,i-1)&UCase(Mid(s,i,1))&Right(s,Len(s)-i)flag=FalseEndIfNextiPrintsEndSub10、有如下程序：PrivateSubCommand1_Click()a=Val(InputBox("请输入"))b=Val(InputBox("请输入"))x=a+bIfa>bThenx=a-bText1.Text=xEndSub运行后，从InputBox对话框中连续输入3和4，文本框中显示的是_________；若连续输入4和3，文本框中又显示的是_________。11、下列程序的运行结果为________。PrivateSubCommand1_Click()x=1Fork=1To3Ifk=1Thena=x*xIfk<=2Thena=x*x+1Ifk>=3Thena=x*x+2Printa;NextkEndSub12、表示"A+B+C大于等于255，或A与B分别大于90且C大于80"的VB表达式的____13、Print"125+32=";125+32执行后的结果是________。14、下列程序执行时，从键盘上依次输入123和234，则程序的输出结果是__(1)___。a