湖南农业大学vb考试题及答案

湖南农业大学vb考试题及答案一、单项选择题（每小题2分，共20分）1.以下能正确声明一个整型变量a，并初始化为5的语句是（）A.DimaAsInteger=5B.DimaAsInteger:a=5C.Integera=5D.a=5:TypeAsInteger2.表达式3^2+5Mod32+Asc("A")的计算结果是（）A.9+22+65=78B.9+12+65=76C.9+5%32+65=78D.9+22+97=100（注："A"的ASCII码为65）3.执行以下代码后，变量n的值是（）DimnAsInteger=0DoWhilen<5n=n+2LoopA.4B.5C.6D.74.声明一个动态数组arr，初始大小为0，后续根据输入的k值调整为k个元素，正确的语句是（）A.Dimarr()AsInteger:ReDimarr(k)B.Dimarr(0)AsInteger:ReDimarr(k)C.Dimarr()AsInteger:ReDimPreservearr(k)D.Dimarr(k)AsInteger5.以下关于Sub过程和Function过程的描述，错误的是（）A.Sub过程可以使用ExitSub退出，Function过程使用ExitFunctionB.Function过程必须有返回值，Sub过程没有C.调用Sub过程时使用过程名(参数)，调用Function时可直接使用过程名作为表达式D.两者都可以通过参数传递数据6.执行语句s=Mid("湖南农业大学信息学院",5,4)后，s的值是（）A.农业大学B.大学信息C.湖南农业D.信息学院（注：字符串从1开始计数）7.要打开D盘下的"student.txt"文件进行追加写入，正确的Open语句是（）A.Open"D:\student.txt"ForInputAs1B.Open"D:\student.txt"ForOutputAs1C.Open"D:\student.txt"ForAppendAs1D.Open"D:\student.txt"ForRandomAs18.当用户单击窗体上的命令按钮Command1时，触发的事件是（）A.Command1_Click()B.Form_Click()C.Command1_DblClick()D.Form_Load()9.对于语句Ifx>60ThenPrint"及格"ElsePrint"不及格"，当x=60时输出结果是（）A.及格B.不及格C.无输出D.编译错误10.执行Circle(2000,1500),500,vbRed语句，绘制的图形是（）A.圆心(2000,1500)、半径500的红色圆B.圆心(2000,1500)、直径500的红色圆C.左上角(2000,1500)、半径500的红色圆D.右下角(2000,1500)、直径500的红色圆二、填空题（每空2分，共20分）1.声明一个单精度浮点型变量temp并初始化为36.5，语句是：__________。2.表达式Int(3.7)+Fix(-2.3)+5\2的结果是__________（注：\为整数除法）。3.执行以下代码后，输出结果是__________。Fori=1To3Step2Printi;NextiPrinti4.二维数组arr(2,3)的元素个数是__________（下标从0开始）。5.已知函数f(n)定义为：Functionf(nAsInteger)AsIntegerIfn=0Thenf=1Elsef=nf(n1)EndIfEndFunction调用f(3)后返回值是__________。6.要将文本框Text1的内容清空，应使用语句：__________。7.读取顺序文件时，若要逐行读取内容，应使用__________语句（填写函数名）。8.执行a="abc":b="def":c=a&b&"gh"后，c的值是__________。9.设x=5，y=3，执行x=xXory后，x的二进制值是__________（用4位表示）。10.在窗体上绘制一条从(100,200)到(500,300)的蓝色直线，应使用语句：__________。三、程序填空题（每空3分，共15分）1.以下程序实现计算1到100中所有能被3整除但不能被5整除的数的和。请补全代码。DimsumAsInteger,iAsIntegersum=0Fori=1To100If①Thensum=sum+iEndIfNextiPrint"总和为：";sum①处应填：__________2.以下程序实现对数组arr进行升序排序（冒泡排序）。请补全代码。Dimarr()AsInteger={5,3,8,1,4}DimnAsInteger=UBound(arr)DimtempAsInteger,iAsInteger,jAsIntegerFori=0To②Forj=0Toni1Ifarr(j)>arr(j+1)Thentemp=arr(j)arr(j)=arr(j+1)arr(j+1)=tempEndIfNextjNexti'输出排序后的数组（代码略）②处应填：__________3.以下程序实现将输入的字符串逆序输出（如输入"hello"，输出"olleh"）。请补全代码。DimsAsString,revAsString,iAsIntegers=InputBox("请输入字符串")rev=""Fori=Len(s)To③Step-1rev=rev&Mid(s,i,1)NextiMsgBoxrev③处应填：__________四、编程题（共45分）1.（15分）设计一个窗体应用程序，界面包含：两个文本框（Text1、Text2），分别用于输入学生的数学和英语成绩；一个命令按钮（Command1），标题为"计算平均分"；一个标签（Label1），用于显示平均分。要求：单击按钮时，从文本框中读取成绩（假设输入均为有效数值），计算两科平均分（保留2位小数），并在标签中显示"平均分：XX.XX"。2.（15分）编写程序，实现以下功能：读取D盘根目录下的"scores.txt"文件（每行一个学提供绩，如"85"、"72"等）；统计其中大于等于80分的人数；将统计结果写入D盘根目录下的"high_scores.txt"文件（格式为"优秀人数：X"）。3.（15分）在窗体上绘制一个由5个同心圆组成的图案，要求：最内层圆的半径为1000，外层圆半径依次增加500（即1000、1500、2000、2500、3000）；圆的颜色交替使用红色（vbRed）和蓝色（vbBlue），最内层为红色；所有圆的圆心位于窗体中央（假设窗体宽度为8000，高度为6000）。答案一、单项选择题1.B2.B3.C4.A5.C6.B7.C8.A9.B10.A二、填空题1.DimtempAsSingle=36.52.3+(-2)+2=33.135（注：循环i取1、3，结束后i=5）4.(2+1)(3+1)=125.6（3×2×1×1）6.Text1.Text=""7.LineInput8."abcdefgh"9.5的二进制101，3的二进制011，异或结果110（即6）10.Line(100,200)-(500,300),vbBlue三、程序填空题1.iMod3=0AndiMod5<>02.n1（冒泡排序外层循环次数为n-1次）3.1四、编程题1.参考代码：PrivateSubCommand1_Click()DimmathAsSingle,englishAsSingle,avgAsSinglemath=Val(Text1.Text)english=Val(Text2.Text)avg=(math+english)/2Label1.Caption="平均分："&Format(avg,"0.00")EndSub2.参考代码：PrivateSubForm_Load()DimscoreAsString,countAsIntegerDimfsAsInteger,fs2AsIntegercount=0fs=FreeFile()Open"D:\scores.txt"ForInputAsfsDoWhileNotEOF(fs)LineInputfs,scoreIfVal(score)>=80Thencount=count+1EndIfLoopClosefsfs2=FreeFile()Open"D:\high_scores.txt"ForOutputAsfs2Printfs2,"优秀人数："&countClosefs2EndSub3.参考代码：PrivateSubForm_Paint()DimcenterXAsInteger,centerYAsIntegerDimradiusAsInteger,iAsIntegercenterX=Me.ScaleWidth/2centerY=Me.ScaleHeigh