计算机VB二级考试上机题及答案.docx

计算机VB二级考试上机题及答案2016计算机VB二级考试上机题及答案1.基本操作(2小题，每题15分，共计30分)PrivateSubC2_Click()C1.SetFocusEndSub(2)在名称为Form1的窗体上画一个文本框，名称为Text1，其宽度为1000;再画一个滚动条，名称为HS1。其刻度值的范围是1000-2000。请编写滚动条的Change事件过程，程序运行后，如果移动滚动框，则可按照滚动条的刻度值改变文本框的宽度。运行时的窗体如图所示。程序中不能使用任何变量，事件过程只能写一条语句。PrivateSubHS1_Change()Text1.Width=HS1.ValueEndSub2.简单应用(2小题，每题20分，计40分)(1)在考生文件夹下有一个工程文件sjt21.vbp，窗体上有两个列表框，名称分别为List1、List2，在List2中己经预设了内容，还有两个命令按钮，名称分别为C1、C2，标题分别为“添加”、“清除”。如图所示。程序的功能是在运行时，如果选中右边列标框中的一个列表项，单击“添加”按钮，则把该项移到左边的列表框中;若选中左边列标框中的一个列表项，单击“清除”按钮，则把该项移回右边的列表框中。文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。但不能修改程序中的'其他部分，也不能修改控件的属性。最后把修改后的文件按原文件名存盘。PrivateSubForm_Load()List1.AddItem"性别"List1.AddItem"班号"List1.AddItem"简历"List2.AddItem"学号"List2.AddItem"姓名"List2.AddItem"年龄"List2.AddItem"照片"EndSubPrivateSubC1_Click()List2.AddItemList1.TextList1.RemoveItemList1.ListIndexEndSubPrivateSubC2_Click()DimkAsIntegerk=0While(k<List2.ListCount)IfList2.Selected(k)=TrueThenList1.AddItemList2.TextList2.RemoveItemkEndIfk=k+1WendEndSub(2)在考生文件夹下有一个工程文件sjt22.vbp，请在Form1窗体上建立一个名称为Op1的单选按钮数组，含有三个单选按钮，其标题分别为“10!”“11!”“12!”，Index属性分别为0、1、2;再画一个名称为C1的命令按钮，标题为“计算”;画一个名称为Text1的文本框，如图所示。程序的功能是在选定一个单选按钮并单击“计算”按钮后，可以计算出相应的阶乘值，在Text1中显示该阶乘值。请画出上述控件并编写程序。PrivateSubC1_Click()DimnAsInteger,kAsIntegerDimfactAsLongFork=0To2IfForm1.Op1(k).ValueThenn=Val(Left$(Form1.Op1(k).Caption,2))EndIfNextkfact=1k=1DoWhilek<nfact=fact*kk=k+1LoopText1.Text=factEndSubPrivateSubForm_Unload(CancelAsInteger)unload_subEndSubPrivateSubunload_sub()DimfnAsStringfn=App.Path&"\dataout.txt"OpenfnForOutputAs#1Print#1,Text1.TextClose#1EndSub3.综合应用(1小题,计30分)在考生文件夹下有一个工程文件sjt31.vbp，其窗体上有一个文本框，名称为Text1,可以多行显示;有一个名称为CD1的通用对话框;还有三个命令按钮，名称分别为C1、C2、C3，标题分别为“打开文件”、“转换”、“存盘”，如图所示。命令按钮的功能是：“打开文件”——弹出打开文件对话框，默认打开文件的类型为“文本文