VB程序设计习题

洛阳师范学院试卷院（系）班级姓名准考证号………………………………密………………………………封………………………………线………………………………VB程序设计试卷（A）共5页第1页洛阳师范学院2011—2012学年第二学期期末考试电子信息科学与技术、物理学专业2011级VB程序设计试卷（A）题号一二三四五总分得分1.VisualBasic是一种面向对象的程序设计语言，以下（）不是对象所包含的三要素。A.变量B.事件C.属性D.方法2.要使文本框获得输入焦点，则应采用文本框控件的（）方法。A.GotFocusB.LostFocusC.KeyPressD.SetFocus3.下面的控件中，用来将屏幕上的对象进行分组的是（）。A.列表框B.组合框C.框架D.图片框4.要使Print方法在Form_Load事件中起作用，要对窗体的（）属性进行设置。A.ForeColorB.CaptionC.BackColorD.AutoRedraw5.为使得图像框(Image)中的图像能够自动调整大小以适应图像框的大小，以下正确的设置是（）。A.将AutoSize属性设置为TrueB.将AutoSize属性设置为FalseC.将Stretch属性设置为TrueD.将Stretch属性设置为False6.在VB中，要使一个窗体不可见，但是并不从内存释放，应该使用的方法是（）。A.ShowB.HideC.LoadD.Unload7.下面数组声明语句错误的是（）。A.Dima%(-5to-3)B.Dima%(-1to2,3)C.Dimn%,a%(n)D.Dima(-1to0)asInteger8.以下合法的VisualBasic标识符是()。A.ForLoopB.ConstC.9abcD.a#x9.确定一个控件在窗体上位置的属性是（）。A.Width和HeightB.Width或HeightC.Top和LeftD.Top或Left10.下列控件中可自动设置滚动条是（）。A.复选框B.框架C.文本框D.列表框1.VB提供的Visible属性，用来控制对象是否可见，当属性值为时，表示对象可见。2.数字关系：x≥0，并且x≠10，写成正确的VB表达式为。3.ReDim语句用于确定________数组的大小。得分评卷人一、单项选择题（每题2分，共20分）得分评卷人二、填空题（每空1分，共15分）洛阳师范学院试卷院（系）班级姓名准考证号………………………………密………………………………封………………………………线………………………………VB程序设计试卷（A）共5页第2页4.随机生成一个两位正整数的表达式是_____________________________。5.表达式20/4-3^2*6\2mod7\2的值是________。6.表达式Mid(abcdefgh,3,4)的值是___________。7.语句Dima(-1To1,3To6)AsInteger定义的数组的元素个数是。8.在VB中，组合框有三种不同的风格形式，通过__________属性设置。9.为使计时器控件每隔0.5秒钟产生一个计时事件(Timer事件)，则应将其Interval属性值设置为。10.为了使标签能自动调整大小以显示全部内容，应把标签的属性设置为True。11.在设计阶段，当双击窗体上的某控件时打开的是窗口。12.工程文件的扩展名是。13.循环语句Fori=－3to10Step4的循环次数为。14.VB中显示弹出菜单所使用的方法是。15.VB中当对象失去焦点时，会产生事件。以下程序的功能是：对已知存放在数组中的6个数，用选择法按递减顺序排放。请填空，将程序补充完整。Command1_Click()DimiMax%,n%,i%,j%,t%Dim‘数组a声明a=array(8,6,9,3,2,7)n=‘获得数组的上界Fori=0ton-1‘排序iMax=iForj=i+1tonIftheniMax=jt=a(i)a(i)=a(iMax)a(iMax)=tNexti‘输出排序结果Printa(i);Nexti‘过程结束得分评卷人三、程序填空题（每空2分，共12分）洛阳师范学院试卷院（系）班级姓名准考证号………………………………密………………………………封………………………………线………………………………VB程序设计试卷（A）共5页第3页1.下面程序运行后的输出结果是什么？PrivateSubForm_Click()Fori=3To1Step-1PrintSpc(5-i);String(2*i-1,”A”)NextiEndSub2.下面程序运行后的输出结果是什么？PrivateSubForm_Click()m=0DoUntil0m=m+1Ifm10ThenExitDoLoopPrintmEndSub3.以下函数实现的功能是什么？Functionfun(n%)AsStringDimcasstringDoWhilen0c=(nmod2)fun=c&funn=n\2LoopEndFunction4.程序运行后，单击窗体上的命令按钮，在窗体上显示的内容是什么？PrivateSubCommand1_Click()Dimx%,y%x=10：y=5Callf1(x,y)Printx,yEndSub5.有如下过程代码：连续3次调用var_dim过程，第3次调用时的输出是什么？Subvar_dim()StaticnumaAsIntegerDimnumbAsIntegernuma=numa+2得分评卷人四、程序阅读题（每题4分，共20分）PrivateSubf1(ByRefx1%,ByValy1%)x1=x1+2y1=y1+2EndSub洛阳师范学院试卷院（系）班级姓名准考证号………………………………密………………………………封………………………………线………………………………VB程序设计试卷（A）共5页第4页numb=numb+1Printnuma;numbEndSub1.某单位增加工资，若工资大于等于2000元，增加工资的10%；若小于2000元大于等于1000元，则增加工资的20%；若小于1000元，则增加工资的30%，请根据用户输入的工资，计算出增加后的工资（程序中应考虑输入错误时的处理方法）。（8分）2.编程实现：输入某班级30个学生的成绩存放在一维数组中，统计并输出最高分、最低分、平均分和高于平均分的人数。（9分）得分评卷人五、程序设计题（共33分）洛阳师范学院试卷院（系）班级姓名准考证号………………………………密………………………………封………………………………线………………………………VB程序设计试卷（A）共5页第5页3.编写子过程Search(a%(),Byvalkey%,Byrefindex%),在数组中查找关键字key（key为存放待查找的关键字形参，index为存放查找结果的形参），若查找不成功，index值为-1；查找成功则index为key在数组中的位置；在Form的Click事件中实现输入和输出操作。（10分）4.界面如图所示的密码检查程序，在文本框（Command1）中输入密码后，单击确定（Command1）按钮后则给出右边相应的提示窗口。请编写Command1的对应代码。(设密码为“666666”，消息对话框中按钮值为0显示“确定”按钮；按钮值为5显示“重试”、“取消”按钮；按钮值为48对应的图标类型为警示图标。)（6分）