2010年VB期中试卷ANSWER

1题号一二三总分累分人签名题分503020100得分考生注意事项：1、本试卷共8页，请查看试卷中是否有缺页。2、考试结束后，考生不得将试卷、答题纸和草稿纸带出考场。一、选择题（每小题2分，共50分，请将答案写在下面的表格中）得分评卷人12345678910CBBAABADCC11121314151617181920CBBBACCBBD2122232425ACBBA1、以下叙述中错误的是（）。A）VisualBasic是事件驱动型可视化编程工具。B）VisualBasic应用程序不具有明显的开始和结束语句。C）VisualBasic工具箱中的所有标准控件都具有宽度（Width）和高度（Height）属性。D）VisualBasic中控件的某些属性只能在运行时设置。2、以下叙述中不正确的是（）。）双击鼠标可以触发DblClick事件）窗体或控件的事件的名称可以由编程人员设定）移动鼠标时，会触发MouseMove事件）控件的名称可以由编程人员设定期中试卷（A）卷2009——2010学年第二学期课程名称《计算机语言（VB）》考试日期：2010年4月25日主考教师：考试时间：90分钟专业：班级：考生学号：考生姓名：注意：试卷评阅统一使用红色笔，要求对的打“√”，错的打“×”，并采用扣分的方法评定。23、下列是合法变量名的是（）。A)X-YB)X_YC)2YD)String4、若要使用户不能修改文本框Text1中的内容，应修改（）属性。A)LockedB)MultiLineC)PassWordCharD)ScrollBar5、命令按钮Command1的Caption属性为“退出(x)”，要将命令按钮的快捷键设为Alt+x，则应如何修改Caption属性。（）A)在x前插入&B)在x后插入&C)在x前插入#D)在x后插入#6、对于以下函数描述不正确的是（）。A)Asc(A)返回值为数值B)表达式Len(幸运52)的值6C)如果Sgn(x)的值为-1，那么x是负数D)除去字符串左侧空格的函数是Ltrim()7、设有如下语句：Dima,bAsIntegerC=VisualBasicd=#7/20/2005#关于这段代码的叙述中，错误的是（）。A)a被定义为Integer类型变量B)b被定义为Integer类型变量C)c中的数据是字符串类型D)d中的数据是日期类型8、设有语句X=InputBox(输入数值，0，示例)，程序运行后，如果从键盘上输入数值10并按回车键，则下列叙述中正确的是（）。变量X的值是数值10B)在InputBox对话框标题栏中显示的是示例是默认值D)变量X的值是字符串109、下列赋值语句中，正确的是（）。A)i+j=10B)2i=jC)j=i+jD)i=j=010、若要将某命令按钮设置为默认命令按钮，应将（）属性设置为True。A)ValueB)CancelC)DefaultD)Enabled11、若要设置文本框中所显示的文本颜色，应使用的属性是（）。A)BackColorB)FillColorC)ForeColorD)FontColor12、若要将窗体从内存中卸载出去，其实现的方法是（）。A)ShowB)UnLoadC)LoadD)Hide13、图像框有一个属性，可以自动调整图形的大小以适应图像框的尺寸，这个属性是（）。B)StretchC)AutoRedrawD)Appearance14、设组合框Combo1中有3个项目，以下能删除最后一项的语句是（）。A）Combo1.RemoveItemTextB）Combo1.RemoveItem2C）Combo1.RemoveItem3D）Combo1.RemoveItemCombo1.Listcount15、确定复选框是否选中，可访问的属性是（）。A)ValueB)CheckedC)SelectedD)Caption316、不能触发滚动条Change事件的操作是（）。A)拖动滚动块B)单击两端箭头C)单击滚动块D)单击箭头与滚动块之间的区域17、下列关于框架的叙述中错误的是（）。A)框架是其他控件的容器，它的作用是对控件进行分组B)框架的Enabled属性为False时，框架中的控件不可用C)删除框架时，其中的控件不会删除D)拖动框架时，如其中的控件不随之移动，则该控件不在框架内18、下列表达式中值为False的是（）。A)BCDBCEB)1234512345&ABCC)Not2*511D)4=4And52+219、语句Print5/4*6\5Mod2的输出结果是（）。B)1C)2D)320、在窗体上画两个单选按钮，名称分别为Option1、Option2，标题分别为“宋体”和“黑体”；一个复选框，名称为Check1，标题为“粗体”；一个文本框，名称为Text1，Text属性为“改变文字字体”。要求程序运行时，“宋体”单选按钮和“粗体”复选框被选中，则能够实现上述要求的语句序列是（）。A)Option1.Value=TrueB)Option1.Value=TrueCheck1.Value=FalseCheck1.Value=TrueC)Option2.Value=FalseD)Option1.Value=TrueCheck1.Value=TrueCheck1.Value=121、设有以下循环结构循环体条件以下叙述中错误的是（）。A）若条件是一个为0的常数，则一次也不执行循环体B）条件可以是关系表达式、逻辑表达式或常数C）循环体中可以使用ExitDo语句D）如果条件总是为True，则不停地执行循环体22、有如下程序ForI=1To2Forj=5ToIStep-1PrintI+jNextj,I其循环执行的次数是（）。A)7B)8C)9D)20423、下列程序段的执行结果为（）。X=Int(Rnd+4)SelectCasexCase5Print优秀Case4Print良好Case3Print通过CaseElsePrint不通过EndSelectA)优秀B)良好C)通过D)不通过24、以下程序段执行后整型变量n的值为（）。n=0ForI=1To20Step5n=n+1NextIA)50B)4C)15D)525、下列程序运行后，输出的结果为（）。B=1DoWhileb40B=b*(b+1)LoopPrintBA)42B)39C)6D)1二、程序填空题（每空3分，共30分）得分评卷人1、如下图所示的窗体Form1，在窗体内有一个名称为Command1的命令按钮和一个名称为L1的标签。以下事件过程将实现功能：单击该按钮，在标签上显示“HelloWorld!”。请在空白处将程序补充完整。5PrivateSubCommand1_Click()〖1〗L1.Caption=“HelloWorld!”EndSub2、以下程序的功能是：生成20个200到300之间的随机整数，在窗体上计算并输出它们的和。请在空白处将程序补充完整。PrivateSubCommandl_C1ick()S＝0Fori＝1To20x＝〖2〗Int(Rnd*101+200)〖3〗s=s+iNextiPrint“Sum＝”：SEndSub3、如下图所示的窗体Form1，在窗体内有一个名称为Command1的命令按钮。以下事件过程将实现如下功能：单击该按钮，判断文本框Text1中输入的年份是否闰年。如果是闰年，在窗体上输出“是闰年”，否则输出“不是闰年”。请在空白处将程序补充完整。（注：闰年的判断方法：如果年份能被4整除，但不能被100整除或年份能被400整除。）PrivateSubCommand1_Click()n=Val(Text1.Text)If〖4〗nMod4=0AndnMod1000OrnMod400=0ThenPrint是闰年ElsePrint不是闰年EndIfEndSub4、以下程序的功能是：计算出分段函数的值，x从文本框（Text1）获得。请在空白处将程序补充完整。6PrivateSubCommand1_Click()x=Val(Text1.Text)Ifx=1Then〖5〗y=(2*x+5)^(1/3)-1/3*xElseIfx0andx1Theny=xElsey=x+1EndIfPrintyEndSub5、如下图，在窗体上画一个标签（Label1）、一个计时器（Timer1）和一个命令按钮(Command1)，程序运行后单击按钮，将在标签中显示当前时间，每隔1秒钟变换一次。请在空白处将程序补充完整。PrivateSubForm_Load()Timer1.Enabled=FalseTimer1.Interval=1000EndSubPrivateSubCommand1_Click()〖6〗Timer1.Enabled=TrueEndSubPrivateSubTimer1_Timer()〖7〗Label1.Caption=TimeEndSub6、如图所示的窗体，窗体上有一个文本框（Text1），一个标签（Label1），要求在文本框中输入任意字母，标签中同步显示其小写字母。7PrivateSubText1_Change()〖8〗Label1.Caption=Lcase(Text1.Text)EndSub7、如图1所示，窗体左边有一个名称为List1的列表框，MultiSelect属性为0，右边有一个名称为List2的列表框，一个名称为Command1、标题为“移动”的命令按钮。程序运行后，如图2所示，单击命令按钮，将List1列表框中所选中的项目内容移动到List2末尾（图3）。请在空白处将程序补充完整。PrivateSubCommand1_Click()〖9〗List2.AddItemList1.Text〖10〗List1.RemoveItemList1.ListIndexEndSub三、程序设计题（每小题10分，共20分）得分评卷人1、如下图窗体中有两个标签（Label1和Label2），一个文本框（Text1）和一个命令按钮（Command1）。在文本框Text1中输入N的值，单击命令按钮，在标签Label2中显示N是否素数。请在空白处编写代码，实现以上功能。（注：素数是只能被1和它本身整除的数）图1图2图38PrivateSubCommand1_Click()Dimn%,i%N=val(text1.text)Fori=2ton-1Ifnmodi=0thenexitforNextiIfi=nthenLabel1.caption=n&“是素数”ElseLabel1.caption=n&“不是素数”EndifEndSub2、如图所示窗体Form1，在窗体上有两个文本框，一个按钮，在Text1中输入一个任意的正整数N，单击“计算”按钮，将1+（1+2）＋（1+2+3）＋...+（1+2+3+…+N）的值显示在Text2中。PrivateSubCommand1_Click()DimnAsIntegerDims1AsLongDims2AsLongn=Val(Text1.Text)Fori=1Tons1=s1+is2=s2+s1NextiText2.Text=s2EndSub