07759Visual Basic程序设计201601真题及答案

201620161VisualBasic7120161VisualBasic07759)一、单项选择题（本大题共16小题,每小题1分，共16分）在每小题列出的四个备选项中只有一个是符合题目要求的，请将其选出并将“答题卡”的相应代码涂黑。错涂、多涂或未涂均无分。下列关键字中，不能定义变量的是A. DimC. Public

B.DeclareD.Private用八进制表示VisualBasicA. &HC. &B

B.&0D.&D表达式Int(5.5)的结果是5C. 0

B.6D.-1InputBox(A.整型C.双精度

D.要限制在文本框内输入的最大字符数，应该设属性。A. TextC. MaxLength

B.EnabledD.MultiLine要得到组合框内用户选择的内容，需要使属性。A. TextC. Style

B.ListD.Caption下列语句中，可以清除列表框ListlA. Listl-ClsC. Listl.Remove

B.Listl.ClearD.Listl.ClearAll决定窗体上TabA. TabC. TabStop

B.TablndexD.TabStartDimA(3,2)C.DimA(-1To2,3)

DimA(2,3)D.DimA(1To2,3)l0.过程定义SubMyPrint(xAsInteger,ByValyAsInteger),下列说法正确的是x,yC.x和y都是传值参数

y,xD.xy计时器控件Timer的计时间隔是属性来设置的。A. ValueC. Time

B.IntervalD.Text通用对话框CommonDialogC.选择颜色

D.选择文件夹要获得计算机当前屏幕的分辨率，可以使系统对象。A.C.14.AppPrinter关闭随机文件，使语句。B.D.ScreenMouseA.HideB.CloseC.KillD.Open15.VB的变量可以分为C.下列内部函数中是随机函数

局部变量和模块级变量D.局部变量、模块级变量和全局变量A. SinC. Rnd

B.CosD.Sgn二、判断改错题（本大题共10220）内打“√”；错误的打“×”,并改正划线部分。在不同的过程中可以定义相同名字的局部变量，它们之间没有任何关系。【 】滚动条的Max属性必须大于或等于Min属性。 【 】Forml.PrintFormat(2.会在Forml上显示2.8。 【 】文本框Text支持DblClick事件。 【 】21.循环结构DoWhile…Loop与Do…LoopWhile是完全一样的。【】22.数组声明时，必须说明数组的数据类型。【】23.过程PrivateSubPrintOut(xAsInteger)可以被其它模块调用。【】24.可以使用通用对话框CommonDialog的ShowColor来选择颜色。【】25.写顺序文件时，用Print语句和Write语句，结果是一样的。【】26.框架Frame是—个窗口控件放置其它控件。三、简答题（2816）【】27.书写VB表达式有什么要求？28.要在窗体上显示一幅图片,有哪些方法？写出简要的操作步骤。四、解读程序题（2612）中空格处填写正确代码。填错、未填均无分。窗体上有三个文本框（名字分别为Textl,Text2,Labell能是输人一元二次方程ax2+bx+c=0(a≠0)的3个系数a、b、c,在标签上显示根的情况。PrivateSubCommand1_Click()DimaAsSingle,bAsSingle,cAsSingleDimdeltaAsSinglea=VaI(Textl.Text)：b=Val(Text2.Text)：c=(1) delta=(2) Ifdelta>0ThenLabell.Caption="有两个不相等的实根"Elselfdelta=0ThenLabell.Caption="有两个相等的实根"Else(3) EndIfEndSub

="没有实根"出结果。PrivateSubForm—Click()DimxAsSingle,amax,aminAsSinglex=InputBox("Enteraamax=xamin=xDoWhile(1) Ifx>amaxamax=xEndIfx<amin(2) EndIfx=(3) LoopPrint"max=";amax,"min=";aminEndSub五、程序阅读题（本大题共4小题，每小题4分，共16分）阅读程序，在题后的空格处填写程序运行的结果。填错、未填均无分。下列程序单击窗体后，窗体的输出结果为 。PrivateSubForm_Click()DimaAsInteger,sAsIntegern=8s=0Dos=s+nn=n-1LoopWhilen>PrintsEndSub下列程序的执行结果s的值是 PrivateSubCommandl_Click()Dimi,sAsIntegeri=0Doi=i+1s=s+iLoopUntili>=PrintsEndSub假定有下列函数过程：FunctionFun(SAsString)AsStringDimsiAsStringFori=1ToLen(S)s1=Mid(S，i，l)+slNextiFun=slEndFunction窗体上有一个命令按钮Commandl,然后编写如下事件过程：PrivateSubCommandl_Click()DimStrlAsString,Str2AsStringStrl=InpmBox(Str2=Fun(Strl)PrintStr2EndSub程序运行后，单击命令按钮，如果在输人对话框中输入字符串"abcl23"，则单击"确定"按钮后在窗体上的201620161VisualBasic71输出结果为 。窗体上有一个命令按钮85,65,55Textl 。PrivateSubCommandl_Click()Dimi,jAsInteger,sAsStrings="r"Forj=1To3i=InputBox("请输入分数")Ifi<60Thens="不及格"Ifi>90Thens="优秀"Elselfi>80Thens="良好"Elses="及格"EndIfNextTextl.Text=sEndSub六、编程题（本大题共2小题,每小题10分，共20分）编写程序实现题目所给要求。100编写程序，用随机数产生20205数一行，如题36图所示。VisualBasic07759)一、单项选择题（本大题共16小题,每小题1分，共16分）201620161VisualBasic711.B2.B3.A4.D5.C6.A7.B8.B9.Cl0.A11.B12.D13.B14.B15.D16.C二、判断改错题（本大题题号 判断10220更正17√(2分）18×(1分）可以大于等于也可以小于等于（1分）19√(2分）20×(1分）不支持（1分）21×(1分）不完全一样（或:有差别的）（1分）22×(1分）可以不（1分）23×(1分）不可以（1分）24√(2分）25×(1分）不同（1分）26√(2分）三、简答题（本大题共2小题,每小题8分，共16分）【评分参考】（1)要点回答准确完整,可以得满分。(2)回答要点所用词语、句式、前后顺序与参考答案不同，只要意思正确，就应给分。(3)要点回答不完整，也应酌情给分。(1)乘号来代替。）(2)括号可以改变运算顺序。只能使用圆括号，不能用方括号或花括号。（2分）(3)—般情况下，不允许两个运算符相连，要用括号隔开。（2分）⑷表达式要在同一行书写，指数运算符(^)表示有乘，当A和（或）B不是单个常量或变量时，要用括号括起来。（2分）(1Picture分)或者在程序中用LoadPicture）利用控件来显示图片，可以使用图片框Picture或图像框Image控件。口修改PictureLoadPicture(2）四、解读程序题（本大题共2小题,每小题6分，共12分）(1)Text3.Text或Val(Text3.text)(2(2)b*b-4*a*c(2）Label1.Caption(2分30.(l)x>0 (2分）(2)amin=x(2分）(3)InputBox("Enterascore") (2分）五、程序阅读题（本大题共4小题，每小题4分，共16分）31.36(432.10(433.321cba(4分)及格（4）六、编程题（本大题共2小题,每小题10分，共20分）【评分参考】（1)程序结构完整，流程合理，算法正确，给满分。(2)1333(3)如果思路正确，但代码不完整的，根据代码质量适当给分。PrivateSubCommandl_Click()Dimi,j,sum,flagAsInteger,mAsInteger(1分）sum=0Fori=2Toflag=0

(2分）(1分）4Forj=2Toi\2IfiModj=0Thenflag=1NextIfflag=0Thensum=sum+i(1分）NextPrint"100以内所有的素数和为sum(1分）EndSubPrivateSubCommandl_Click()