搜索
南京工程学院vb题库。。。。试卷编号：8952所属语言：VisualBasic试卷方案：09-10-2《程序设计基础—VB》模拟试卷总分：100分共有题型：6种一、判断共5题（共计10分）第1题（2.0分）过程中的静态变量是局部变量,当过程再次被执行时,静态变量的初值是上一次过程调用后的值.答案：Y第2题（2.0分）计算机在处理数据时必须将其装入内存,在高级语言中通过内存单元名来访问其中的数据,命名的内存单元就是常量或变量.答案：Y第3题（2.0分）在VB中,计时器(Timer)定期激活Timer事件,使Timer中的代码执行一次.答案：Y第4题（2.0分）VisualBasic程序的运行,仅能从某一窗体启动,如Form1窗体.答案：N第5题（2.0分）命令Picture1.Circle(500,800),800能够在图片框Picture1中画出的图形是圆心在(500,800)的一个圆.答案：Y二、单项选择共20题（共计40分）第1题（2.0分）以下程序OptionBase1PrivateSubCommand1_Click()Dima,B(3,3)a=Array(1,2,3,4,5,6,7,8,9)Fori=1To3Forj=1To3B(i,j)=a(i*j)If(j＞=i)ThenPrintTab(j*3);format(B(i,j),###);NextjPrintNextIEndSub输出结果是A:123456789B:145789C:147246369D:123469答案：D第2题（2.0分）在一个语句内写多条语句时,用来分隔每条语句的符号是().A:,B::C:、D:;答案：B第3题（2.0分）常量2.7856E-6的类型是______.A:整型B:实型C:字符型D:双精度答案：B第4题（2.0分）代数式x1-|a|+ln10+sin(x2+2л)/cos(57o)对应的VisualBasic表达式是().A:X1-Abs(A)+Log(10)+Sin(X2+2*3.14)/Cos(57*3.14/180)B:X1-Abs(A)+Log(10)+Sin(X2+2*л)/Cos(57*3.14/180)C:X1-Abs(A)+Log(10)+Sin(X2+2*3.14)/Cos(57)D:X1-Abs(A)+Log(10)+Sin(X2+2*л)/Cos(57)答案：A第5题（2.0分）下列()属性可返回目录列表框的路径.A:pathB:driveC:pathroadD:initdir答案：A第6题（2.0分）下列方法中可用于列表框动态添加数据的是().A:addB:additemC:addlistD:removeitem答案：B第7题（2.0分）为了在按下回车键时执行某个命令按钮的事件过程,需要把该命令按钮的一个属性设置为True,这个属性是().A:ValueB:DefaultC:CancelD:Enabled答案：B第8题（2.0分）要使文本框获得输入焦点,则应采用文本框控件的哪个方法().A:GodFocusB:LostFocusC:KeyPressD:SetFocus答案：D第9题（2.0分）VisualBasic集成环境的大部分窗口都可以从主菜单项()的下拉菜单中找到相应的打开命令.A:编辑B:视图C:格式D:调试答案：B第10题（2.0分）Text1控件在运行时不可见,是设置下列()属性的结果.A:EnabledB:CancelC:VisibleD:ControlBox答案：C第11题（2.0分）窗体的Caption属性的作用是().A:确定窗体的名称B:确定窗体的标题C:确定窗体的边界类型D:确定窗体的字体答案：B第12题（2.0分）下列操作中不能向工程中添加窗体的是().A:执行工程菜单中的添加窗体命令B:单击工具栏上的添加窗体按钮C:右击窗体,在弹出菜单中选择添加窗体命令D:右击工程资源管理器,在弹出菜单中选择添加命令,然后在下一级菜单中选择添加窗体令答案：C第13题（2.0分）定义过程时,要设置可变参数使用的命令是().A:ArrayB:OptionalC:ParamarrayD:Variant答案：C第14题（2.0分）要从磁盘上新建一个名为〝c:\t1.txt〞的顺序文件,如下语句中正确的是A:F=〝c:\t1.txt〞Open〝F〞ForAppendAs#2B:F=〝c:\t1.txt〞Open〝F〞ForOutputAs#2C:Openc:\t1.txtForOutputAs#2D:Open〝c:\t1.txt〞ForOutputAs#2答案：D第15题（2.0分）控件是().A:建立对象的工具B:设置对象属性的工具C:编写程序的编辑器D:建立图形界面的编辑窗口答案：A第16题（2.0分）文本框控件中将Text的内容全部显示为所定义的字符的属性项是().A:PasswordCharB:需要编程来实现C:PasswordD:以上都不是答案：A第17题（2.0分）下面()是日期型常量.A:12/19/99B:12/19/99C:#12/19/99#D:{12/19/99}答案：C第18题（2.0分）改变控件在窗体中的上下位置应修改控件的()属性.A:TopB:LeftC:WideD:Height答案：A第19题（2.0分）下列哪个快捷按钮可以打开属性窗口().A:图1B:图2C:图3D:图4答案：A第20题（2.0分）下列语句中,不能交换变量a和b的值的是().A:t=b:b=a:a=tB:a=a+b:b=a-b:a=a-bC:t=a:a=b:b=tD:a=b:b=a答案：D三、程序填空共1题（共计10分）第1题（10.0分）'-------------------------------------------------------'【程序填空】'-------------------------------------------------------'功能：以下程序段采用递归的方法计算最大公约数。'单击“计算”按钮时，窗体上输出两个文本框中数字的最大公约数。'-------------------------------------------------------'**********SPACE**********PublicFunctiongcd(【?】AsInteger,yAsInteger)AsIntegerIf(xMody)=0Thengcd=yElse'**********SPACE**********gcd=【?】EndIfEndFunctionPrivateSubCommand1_Click()Print最大公约数是：;gcd(Val(Text1),Val(Text2))EndSubPrivateSubForm_Load()Text1=Text2=EndSub答案：=======(答案1)=======x=======(答案2)=======gcd(y,xmody)四、程序改错共1题（共计10分）第1题（10.0分）'------------------------------------------------'【程序改错】'------------------------------------------------'题目：猜数游戏：程序启动后Lable1和Lable2滚动显示'属于[1，100]的随机整数，当用户单击左大或'右大按钮时，滚动停止，如果用户猜对了，'在Lable3中显示猜对了，否则显示猜错了。'------------------------------------------------PrivateSubCommand1_Click()Timer1.Enabled=False'**********FOUND**********IfVal(Label1.Caption)Val(Label2.Caption)ThenLabel3.Caption=猜对了ElseLabel3.Caption=猜错了EndIfEndSubPrivateSubCommand2_Click()Timer1.Enabled=FalseIfVal(Label1.Caption)Val(Label2.Caption)Then'**********FOUND**********Label3.Caption=猜错了Else'**********FOUND**********Label3.Caption=猜对了EndIfEndSubPrivateSubTimer1_Timer()RandomizeLabel1.Caption=Int(Rnd()*100+1)Label2.Caption=Int(Rnd()*100+1)EndSub答案：=======(答案1)=======IfVal(Label1.Caption)Val(Label2.Caption)Then=========或=========IfVal(Label2.Caption)Val(Label1.Caption)Then=======(答案2)=======Label3.Caption=猜对了=======(答案3)=======Label3.Caption=猜错了五、程序设计共1题（共计20分）第1题（20.0分）'-------------------------------------------------'【程序设计】'-------------------------------------------------'题目：(事件)双击窗体。'(响应)写程序解决百钱买百鸡问题：公鸡3元1只，'母鸡5元1只，小鸡一元3只，怎样用100元买'100只鸡。把结果输出到窗体上。'将答案数存放在变量N中'-------------------------------------------------答案：----------------------Dimi,j,kAsIntegerFori=1To20'母鸡Forj=1To33'公鸡Fork=3To100'小鸡If((kMod3)=0)And((i*5+j*3+k/3)=100)And((i+j+k)=100)ThenPrint(CStr(i))Print(CStr(j))Print(CStr(k))n=n+1EndIfNextNextNext----------------------六、VB窗体设计共1题（共计10分）第1题（10.0分）---------------------------------------------------------------------【窗体设计】---------------------------------------------------------------------题目：请按照题目要求设计指定的窗体。建立如图1所示界面。---------------------------------------------------------------------1、添加控件文本框（text1，text2）2个标签（label1，label2）2个命令按钮（command1，command2）2个2、窗体设置窗体标题为“学生成绩统计”。3、文本框设置文本框（text1）内容设置为空。文本框（text2）内容设置为空。4、标签设置标签（label1）显示为“最高分：”。标签（label2）显示为“最低分：”。5、命令按钮设置命令按钮（command1）标题设置为“开始”。命令按钮（command2）标题设置为“统计”。