搜索
2015年1月VB程序设计试题和答案第1页共6页2015年1月广东省高等教育自学考试《VisualBasic程序设计》试题（课程代码07759）一、单项选择题（本大题共16小题，每小题1分，共16分）在每小题列出的四个备选项中只有一个是符合题目要求的，请将其代码填写在题后的括号内。错选.多选或未选均无分。1.下列可以作为VisualBasic变量名的是（）A.3XB.?AAC.counstXD.X#X2.要使一个文本框可以显示多行文本，应设置为Ture的属性是（）A.MasLengthB.MultiLineC.WidthD.Enabled3.假设a和b是整型变量，则表示条件“1=a5和1b=5中只有一个成立即可”的逻辑表达式是（）。A.1=aAnda5And1bAndb=5B.（1=aAnda5）AndNot（1bAndb=5）C.Not（1=aAnda5）Or（1bAndb=5）D.（1=aAnda5）Or（1bAndb=5）4.为了将菜单项分组，使不同类型的菜单之间有一条水平分隔线，设置方法是在菜单中插入一个菜单项，需要设置为一个连字符（-）的菜单控件的属性为（）A.CaptionB.NameC.ShortCutD.Text5.确定触发计时器两个事件间隔的毫秒数，应使用计时器的属性是（）A.VisibleB.EnabledC.TagD.Interval6.在Sub过程的定义时（）A.一定要知名是公有的还是私有的B.一定要有过程的名字C.一定要制定其类型D.一定要有参数7.要使文本框在显示文字时，只显示出一串“*”，则应设置的属性是（）A.TextB.ValueC.PasswordCharD.Caption8.VisualBasic中耳朵暂停语句为（）A.PauseB.ExitC.EndD.stop9.将通用对话框类型设置为“另存为”对话框，应修改的属性为（）A.ActionB.FontC.FileNameD.Filter10.下列程序段运行后，显示的结果是（）DimxasIntegerIfxthenPrintxElseprintx+1A.-1B.1C.0D.显示错误信息11.在窗体的文本框Text1中显示字符串“Hello”，正确的语句是（）A.Text1.Text=“Hello”B.Text1.Name=“Hello”2015年1月VB程序设计试题和答案第2页共6页C.Text1.Tag=“Hello”D.Text1.Caption=“Hello”12.改变窗体的字体大小，需要设置的属性是（）A.FontItalicB.FontBoldC.FontSizeD.FontName13.语句DimArr（-2To3,1to2）定义的元素个数是（）A.5B.6C.10D.1214.VisualBasic中的启动过程是（）A.SubSetupB.SubStartC.SubMainD.SubInit15.从顺序文件中读取一行数据，正确的语句是（）A.LineInput#B.InputLine#C.ReadLine#D.LineRead#16.在鼠标事件中，放开鼠标按钮的事件是（）A.MouseDownB.MouseUpC.MouseMoveD.MouseClick二、判断改错题（本大题共10小题，每小题2分，共20分）判断下列每小题的正误。正确的在题后括号内打“√”；错误的打“×”，并改正划线部分。17.在VisualBasic中，动态数组在需要的时候可以改变大小。【】18.对于VisualBasic中的多窗体程序，如不指定启动窗体，会随机选择启动一个窗体。【】19.若要使命令按钮不可见，则可设置Enabled属性为False来实现。【】20.在默认情况下，InputBox的返回值是一个字符串。【】21.计时器控件的Interval属性设为1000，Enabled属性为False，则每隔1秒的时间就产生一次Timer事件。【】22.标准模块文件是一个纯代码性质的文件，它不属于任何一个窗体。【】23.按照数据的存取方式和结构，文件可以分为两种类型：文本文件和随机文件。【】24.Sub过程不能通过其过程名返回值。【】25.If6＞5Thenx=5EndIf是一条合法语句。【】26.控件的KeyUp事件返回的是按键的ASCII码。【】三、简答题（本大题共2小题，每小题8分，共16分）27.什么是对象？并解释对象的属性、事件和方法。28.简述用局部变量、模块变量和全局变量声明的变量在作用域上有何区别。四.解读程序题（本大题共2小题，每小题6分，共12分）解读程序，根据题目对程序的说明，在程序中空格处填写正确代码。填错.未填均无分。29.在窗体上画一个名称为Text1的文本框，然后编程实现如下功能：在C盘根目录下建立1个文件data.txt，在文本框中输入字符，每次按回车键（回车键的ASCII码是13）都把当前文本框的内容写入data.txt，并清除文本框总的内容；如果输入“EXIT”，则结束程序。PrivateSubForm_Load()Openc:\data.txtForOutputAs#1Text1.Text=EndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=（1）_____________Then2015年1月VB程序设计试题和答案第3页共6页IfUCase(Text1.Text)=（2）_____________ThenClose1EndElsewrite#1,（3）_____________Text1.Text=EndIfEndIfEndSub30.下列程序是比赛的评分程序，共有8位评委，满分为10分，选手的最后得分为去掉一个最高分和一个最低分后的平均分。PrivateSubCommand1_Click()Dimk,max,min,sum,avgAsSingleDimiAsIntegermax=0min=0sum=0Fori=1To8k=Val(InputBox(请输入分数(0~10):))If（1）____________Thenmin=kIf（2）____________Thenmax=kSum=(3)_____________Nextisum=sum-min-maxavg=sum/6MsgBox去掉一个最高分&max&;去掉一个最低分&minMsgBox最后得分:&avgEndSub五、程序阅读题（本大题共4小题，每小题4分，共16分）阅读程序，在题后的空格处填写程序运行的结果。填错.未填均无分。31.在窗体上有一个命令按钮（Command1），编写如下程序，当程序运行后，单击命令按钮，窗体上显示的是___________________。privateSubCommand1_Click()DimmAsInteger,aAsIntegerFora=1to10IfnMod40Thenm=m+n\4EndIfNextaPrintaEndSub32.在窗体上有一个命令按钮（Command1），编写如下程序，当运行程序后，单击命令按钮，窗体上显示的内容是___________________。PrivateSubCommand1_Click()2015年1月VB程序设计试题和答案第4页共6页DimnumAsIntegernum,=1DoUntilnum5Printnum;num=num+1.5LoopEndSub33.在窗体上有一个命令按钮（Command1）和两个文本框（Text1和Text2），编写如下程序，当程序运行后，单击命令按钮，文本框Text2中显示的值是____________________。FunctionCala(xAsIneger,ByValyAsIntegerx=x+yIfx0ThenCala=xElseCala=yEndIfEndFunctionPrivateSubCommand1_Click()DimmAsInteger,nAsIntegerm=18n=-8Text1.Text=Cala(m,n)Text2.Text=Cala(m,n)EndSub34.程序运行后，单击窗体，则在窗体上显示的内容是______________________。OptionBase0PrivateSubForm1_Click（）DimaDimiAsIntegera=Array(1,2,3,4,5)Fori=2to3Printa(5-i)*2;NextiEndSub六、编程题（本大题共2小题，每小题10分，共20分）编写程序实现题目所给要求。35.用输入对话框输入x，根据下式计算对应的y，并在窗体上输出y的值。36.用迭代法编制函数过程GetSqrt，求x=a。求平方根的迭代公式为：)(211xxxnnna,初值x0为2a，精度为ƹ=10-5。计算a的值为8、16时，分别调用函数过程GetSqrt求解并显示结果（a通过参数传递给函数过程）。2015年1月VB程序设计试题和答案第5页共6页2015年1月《VisualBasic程序设计》试题答案及评分参考（课程代码07759）一、单项选择题（本大题共16小题，每小题1分，共16分）1——5：CBDAD6——10：BCDAB11——16：ACDCAB二、判断改错题（本大题共10小题，每小题2分，共20分）题号判断更正17.√（2分））18.×（1分）不会（1分）19.×（1分）Visible（1分）20.√（2分）21.×（1分）True（1分）22.√（2分）23.×（1分）顺序文件（1分）24.√（2分）25.√（2分）26.×（1分）KeyCode码（1分）三、简答题（本大题共2小题，每小题8分，共16分）评分参考：（1）要点回答准确完整，可以得满分。（2）回答要点所用词语、句式、前后顺序与参考答案不同，只要意思正确，就应给分。（3）要点回答不完整，也应酌情给分。27.（1）对象是具有特殊属性（数据）和行为方式（方法）的试题。建立一个对象后，其操作通过与该对象有关的属性、事件和方法来描述。（2分）（2）对象的属性是一个对象的特性，不同的对象具有不同的属性，例如标题、名称、颜色等。（2分）（3）对象的事件是由编程系统预先设置好的、能够被对象识别的动作，例如单击、双击等。（2分）（4）对象的方法是对象的特殊过程和函数，可以在程序中被使用，如移动、得到焦点等。（2分）28.（1）在VisualBasic中的变量分为三类，分别是局部变量、模块变量和全局变量，它们位于不同的层次。（1分）（2）局部变量是在过程内部定义的，其作用域是它所在的过程，用于存放中间结果或作为临时变量。（2分）（3）模块变量可在窗体和标准模块中用private或dim声明，可用于该窗体或标准模块的所有过程。（2分）（4）全局变量在标准模块中用public或global声明，可在工程的每个模块、每个过程中使用。（3分）四、解读程序题（本大题共2小题，每小题6分，共12分）29.（1）12（2）“EXIT”（3）Text1.Text30.（1）kmin（2）kmax（3）sum+k五、程序阅读题（本大题共4小题，每小题4分，共16分）31.732.12433.234.862015年1月VB程序设计试题和答案第6页共6页六、编程题（本大题共2小题，每小题10分，共20分）评分参考：（1）程序结构完整，流程合理，算法正确，给满分。（2）变量没有声明，扣1分；主流程不清晰，扣3分；关键算法错误扣3分；重要代码缺少，扣3分。（3）如果思路正确，但代码不完整的，根据代码质量适当给分。35.PrivateSubCommand1_Click()DimxAsSingle,yAsSingle（1分）x=Val(Inputbox(请输入x的值：))（1分）If(x10)Then(1分）y=Sqr(x)=Sin(x)(2分）ElseIf（x10)（1分）y=2*x^3+6（2分）Elsey=