大一vb期末上机考试试题及答案

大一vb期末上机考试试题及答案一、单项选择题（每小题2分，共20分）1.以下关于VB变量声明的描述中，正确的是（）。A.变量可以不声明直接使用，系统自动分配数据类型B.使用Dim声明变量时，必须指定数据类型C.用Static声明的变量在过程结束后会保留值D.全局变量只能在窗体模块的通用声明段声明2.执行语句a="VisualBasic"，则表达式Mid(a,7,3)的结果是（）。A."sua"B."Bas"C."sic"D."Vis"3.有如下程序段：i=0DoUntili>5i=i+2Loop该循环体的执行次数是（）。A.1次B.2次C.3次D.4次4.声明动态数组的正确语句是（）。A.Dimarr()AsInteger:ReDimarr(5)B.Dimarr[5]AsIntegerC.Staticarr(5)AsIntegerD.Dimarr(1To5)AsInteger5.以下关于Sub过程和Function过程的描述，错误的是（）。A.Sub过程无返回值，Function过程有返回值B.调用Sub过程使用过程名加参数列表，调用Function过程可直接使用其返回值C.两者都可以通过参数传递数据D.Sub过程不能在表达式中直接使用6.若要向D盘“test.txt”文件末尾追加数据，应使用的文件打开语句是（）。A.Open"D:\test.txt"ForInputAs1B.Open"D:\test.txt"ForOutputAs1C.Open"D:\test.txt"ForAppendAs1D.Open"D:\test.txt"ForRandomAs17.执行以下代码后，变量x的值是（）。x=0Fori=1To3Forj=1Toix=x+1NextjNextiA.3B.6C.9D.128.以下能正确产生1到100之间（含1和100）随机整数的表达式是（）。A.Int(Rnd100)B.Int(Rnd100)+1C.Int(Rnd99)+1D.Int(Rnd101)9.设a=5，b=3，执行语句a=b:b=a后，a和b的值分别是（）。A.5,3B.3,5C.3,3D.5,510.以下关于列表框（ListBox）控件的描述，正确的是（）。A.ListCount属性返回列表项的总数，从1开始计数B.ListIndex属性表示当前选中项的索引，未选中时为-1C.AddItem方法用于删除列表项D.Clear方法只能清除最后一个列表项二、填空题（每空2分，共20分）1.执行语句a=3:b=5:c=a^2+b\2bMod3后，c的值为______。（注：^为幂运算，\为整除，Mod为取余）2.有如下循环结构：k=0Fori=1To3Forj=1Toik=k+jNextjNexti循环结束后，k的值为______。3.声明一个二维数组arr，其中第一维下标从0到2，第二维下标从1到4，该数组的元素个数为______。4.执行以下代码：s="HelloWorld"n=Len(s)m=InStr(s,"lo")则n的值为______，m的值为______。5.若要将变量x的值按“数值：x=123.45”的格式输出到立即窗口，应使用的语句是______。6.有如下过程：SubSwap(ByValaAsInteger,ByRefbAsInteger)DimtAsIntegert=a:a=b:b=tEndSub调用时x=10，y=20，执行Swap(x,y)后，x的值为______，y的值为______。三、程序改错题（共20分，指出错误并修正，每处错误4分）题目：以下程序的功能是计算1到100中所有能被3整除的数的和。请找出程序中的5处错误并修正。原程序：PrivateSubCommand1_Click()sum=0i=1DoWhilei<100Ifi/3=0Thensum=sum+ii=i+1LoopPrint"和为：";sumEndSub四、编程题（共40分）题目：设计一个“学提供绩管理”程序，要求实现以下功能：1.输入功能：通过输入框（InputBox）依次输入5名学生的信息，包括学号（字符串）、姓名（字符串）、数学成绩（数值）、英语成绩（数值）、计算机成绩（数值）。2.计算功能：计算每名学生的总分（三门课成绩之和）和平均分（总分/3，保留2位小数）。3.排序功能：按平均分从高到低对学生信息进行排序。4.输出功能：将排序后的学生信息（学号、姓名、数学、英语、计算机、总分、平均分）显示在列表框（ListBox）中。5.保存功能：点击“保存”按钮时，将排序后的学生信息写入D盘根目录下的“成绩.txt”文件，每行一个学生的信息，各字段用逗号分隔。答案一、单项选择题1.C2.B3.C4.A5.D6.C7.B8.B9.C10.B二、填空题1.3^2=9，b\2=5\2=2，bMod3=5Mod3=2，故c=9+2-2=9。答案：92.当i=1时，j=1，k=0+1=1；i=2时，j=1和2，k=1+1+2=4；i=3时，j=1、2、3，k=4+1+2+3=10。答案：103.第一维长度3（0-2），第二维长度4（1-4），总元素数3×4=12。答案：124.Len("HelloWorld")=10；InStr("HelloWorld","lo")返回"lo"首次出现的位置，"Hello"中第4位是'l'，第5位是'o'，故m=4。答案：10，45.Debug.Print"数值：x="&x。答案：Debug.Print"数值：x="&x6.ByVal传递a（值传递），a的修改不影响原x；ByRef传递b（引用传递），b的修改影响原y。原x=10，y=20；过程中t=10，a=20（不影响x），b=10（y变为10）。故x=10，y=10。答案：10，10三、程序改错题错误1：变量sum未声明。修正：添加DimsumAsInteger错误2：循环条件错误（i<100会遗漏100）。修正：DoWhilei<=100错误3：整除判断错误（i/3=0无法判断能被3整除）。修正：IfiMod3=0Then错误4：缺少EndIf语句。修正：在sum=sum+i后添加EndIf错误5：i递增语句位置错误（应在If判断后）。修正：将i=i+1移至EndIf之后四、编程题参考代码（需在窗体中添加ListBox1和Command1（保存按钮））PrivateSubForm_Load()Dimstu(1To5)AsStudent'定义学生数组，使用自定义类型TypeStudentidAsStringnameAsStringmathAsSingleenglishAsSinglecomputerAsSingletotalAsSingleavgAsSingleEndType'输入学生信息Fori=1To5stu(i).id=InputBox("请输入第"&i&"名学生的学号：")stu(i).name=InputBox("请输入第"&i&"名学生的姓名：")stu(i).math=Val(InputBox("请输入数学成绩："))stu(i).english=Val(InputBox("请输入英语成绩："))stu(i).computer=Val(InputBox("请输入计算机成绩："))'计算总分和平均分stu(i).total=stu(i).math+stu(i).english+stu(i).computerstu(i).avg=Round(stu(i).total/3,2)Nexti'冒泡排序（按平均分降序）Fori=1To4Forj=1To5iIfstu(j).avg<stu(j+1).avgThenDimtempAsStudenttemp=stu(j)stu(j)=stu(j+1)stu(j+1)=tempEndIfNextjNexti'输出到列表框ListBox1.ClearListBox1.AddItem"学号,姓名,数学,英语,计算机,总分,平均分"Fori=1To5DimlineAsStringline=stu(i).id&","&stu(i).name&","&stu(i).math&","&stu(i).english&","&stu(i).computer&","&stu(i).total&","&stu(i).avgListBox1.AddItemlineNextiEndSubPriva