VB计算机练习3

成绩分析 ━━━━━━━━━━━━━━一、单选 共20题 （共计40分)━━━━━━━━━━━━━━第1题 （2分） 题号:2679面向对象的程序设计方法中，对象间的通信是靠( )来传递的。(A)类(B)实例(C)继承(D)消息答案：D第2题 （2分） 题号:2660在Visual Basic环境下，当写一个新的Visual Basic程序时，所做的第一件事是______。(A)编写代码(B)新建一个工程(C)打开属性窗(D)进入VisualBasic环境答案：B第3题 （2分） 题号:2671以下不能在“工程管理器”窗口中列出的文件类型是______。(A).bas(B).res(C).frm(D).ocx答案：D第4题 （2分） 题号:2666下列叙述不正确的是______。(A)注释语句是非执行语句,仅对程序的有关内容起注释作用,客观存在不被解释和编译(B)注释语句可以放在代码中的任何位置(C)注释语句不能放在代码中的任何位置(D)代码中加入注释语句的目的是提高程序的可读性答案：B第5题 （2分） 题号:2697有如下程序: a$="China" b$=Right(a$,3):c$=String$(3,b$) Print c$ 运行后,输出结果是_______。(A)Chi(B)aaa(C)iii(D)ina答案：C第6题 （2分） 题号:2749语句Print 5/5*5的输出结果是_____。(A)5(B)25(C)0(D)1答案：A第7题 （2分） 题号:2751与变量定义语句Dim lndex% 等价的—项是_____。(A)Dim lndex As Long(B)Dim lndex As Integer(C)Dim lndex As Single(D)Dim lndex As Double答案：B第8题 （2分） 题号:2705函数UCase("basic")的值为_______。(A)Basic(B)basic(C)BAsic(D)BASIC答案：D第9题 （2分） 题号:2746下列变量名中，不合法的变量名是_____。(A)C24(B)A.B(C)A_B(D)RIMS答案：B第10题 （2分） 题号:2753表达式Int(Rnd*11+10)的值的范围是( )。(A)(0,10)(B)[10,10](C)[10,20](D)[0,20]答案：C第11题 （2分） 题号:2870在窗体上面一个命令按钮，名称为Command1，单击命令按钮时，执行如下事件过程：Private Sub Command1_Click() a$="software andhardware" b$=Right(aS,8) c$=Mid(s$,1,8) MsgBox a$,,b$,c$,1 End Sub 则在弹出信息框的标题栏中显示的信息是_______。(A)software and hardware(B)software(C)hardware(D)1答案：C第12题 （2分） 题号:2883设有数组声明语句：Option Base 1 Dim A(2,-1 To 1)以上语句所定义的数组A为______维数组，共有______个元素，第一维下标从______到______，第二维下标从______到______。(A)1,2,6,2,-1,1(B)6,2,1,2,-1,1(C)2,6,1,2,-1,1(D)2,1,6,-1,1,2答案：C第13题 （2分） 题号:2910有如下程序： Private Sub Command1_Click() m$="ABC" n$="abc" k$=LCase$(mS) j$=UCase$(n$) Print Asc(k$+j$) End Sub 程序运行后，输出的结果是_____。(A)abcabc(B)ABCABC(C)65(D)97答案：D第14题 （2分） 题号:2928下述程序的运行结果是______。 Private Sub Command1_Click() Dim a As Integer,b As Integer a=5 b=5 Value a,b End Sub Sub Value(a As Integer,b As Integer)

calcl a,b calc2 a,b Print a; Print b End SubPrivate Sub calcl(a As Integer,b As Integer) a=a+b End Sub Private Sub calc2(a As Integer,b As Integer) b=a*b End Sub(A)10 50(B)5 25(C)5 5(D)10 5答案：A第15题 （2分） 题号:2954在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Convert(y As Integer) k=Y:Y=1 For i=1 To k y=y*i Next j End SubPrivate Sub Command1_Click() Call Convert(Sum+1) End Sub程序运行后，单击窗体，则窗体上显示的内容是(　)。(A)1(B)4(C)3(D)120答案：C第16题 （2分） 题号:2969从顺序文件中读取数据，不能使用_____。(A)Get[#]语句(B)Input#语句(C)Linelnput#语句(D)Input#函数答案：A put 和get 为随机文件的第17题 （2分） 题号:2980Visual　Basic窗体设计器的主要功能是______。(A)建立用户界面(B)编写源程序代码(C)画图(D)显示文字答案：A第18题 （2分） 题号:3074不管属性如何设置,程序运行时始终都能接收焦点的方法是_____(A)用Tab键(B)用鼠标(C)用方向键(D)不能实现答案：A第19题 （2分） 题号:3149在用菜单编辑器设计菜单时,必须输入的项是_____.(A)快捷键(B)标题(C)索引(D)名称答案：D第20题 （2分） 题号:3163有如下程序： Private Sub Form_Click() X1=180:Y1=180:X2=100:Y2=100 Forml.Line(Xl,Y1)-(X2,Y2),B End Sub 单击窗体后，窗体上显示的是_______。(A)一条直线(B)一个矩形空框(C)一个填充了颜色的矩形(D)无任何显示答案：B━━━━━━━━━━━━━━━━二、程序设计 共1题 （共计20分)━━━━━━━━━━━━━━━━第1题 （20分） 题号:38'-------------------------------------------------'【程序设计】'-------------------------------------------------'题目：(事件)双击窗体。' (响应)求出50以内所有奇数的和。' 将结果存入变量SUM中。'-------------------------------------------------'注意：请在指定的事件内编写代码。'-------------------------------------------------答案：19____________________________________ Dim i As Integer For i = 1 To 50 If i Mod 2 = 1 Then sum = sum + i End If Next Print sum__________________________________━━━━━━━━━━━━━━━━三、窗体设计 共3题 （共计40分)━━━━━━━━━━━━━━━━第1题 （20分） 题号:6---------------------------------------------------------------------【窗体设计】---------------------------------------------------------------------题目：请按照题目要求设计指定的窗体。 打开如(图1)所示界面。运行程序时显示如(图2)所示界面，当单击“开始” 单选按钮时，出现如(图3)所示界面，当单击“停止”单选按钮时，出现如 (图4)所示界

面。---------------------------------------------------------------------1、添加控件 标签(Label1)。 单选按钮(Option2)。 计时器控件(Timer1)。2、标签设置 背景色设置为“&H0080FFFF&”。 前景色设置为“&H000000FF&”。 字体设置为“宋体”、“常规”、“小二”。 Caption设置为“请记住”‘3、单选按钮设置 单选按钮(Option1)的Alignment属性值设置为“1”。 单选按钮(Option2)的标题设置为“停止”。 单选按钮(Option2)的Value设置为“True”。4、计时器控件设置 计时器控件的Interval属性值设置为“0”。 计时器控件的Enabled属性值设置为“False”。5. 添加事件过程代码 在“停止”单选按钮事件里添加一条语句,使得当执行程序时单击“停止”单选 按钮时，标签的内容显示为“所以我们要珍惜现在，活在当下！！”6.添加事件过程代码 在Timer1控件的Timer()事件里添加一条语句,使得当执行程序时单击“开始”单选按钮时， 标签的内容闪烁显示为“我们都是远视眼，模糊了离我们最近的幸福”。第2题 （10分） 题号:27------------------------------------------------【窗体设计】------------------------------------------------题目：请按照题目要求设计指定的窗体。 建立如(图1)所示界面：请按所给窗体的样子设计 窗体（不要求控件的尺寸一样，运行时得到所给 窗体即可，有时需要简单的事件过程） ------------------------------------------------1 在窗体内添加3个按钮(Command1，Command2，Command3)， 1个文本框(Text1)，1个标签(Label1)，2个框架(Frame1， Frame2)。并在第1个框架中添加2个组合框(Combo1，Combo2)， 4个标签(Label2，Label3，Label4，Label5)，在第2个框架中 添加3个单选框(Option1，Option2，Option3)。 2 窗体设置： 设置窗体名称(Name)为“Form27”。 设置窗体标题(Caption)为“添加监视”。 边框样式如图（无最大化、最小化按钮，窗口具有双线框架，不可改变窗口大小）。3 标签设置： 设置第1个标签(Label1)的标题(Caption)为“表达式(&E):”。 4 文本框设置： 适当调整第1个文本框(Text1)的位置和大小。5 按钮设置： 设置第1个按钮(Command1)的标题(Caption)为“确定”，“Default”属性为真。 设置第2个按钮(Command2)的标题(Caption)为“取消”，“Cancel”属性为真。 设置第3个按钮(Command3)的标题(Caption)为“帮助(&H)”。6 框架设置： 设置第1个框架(Frame1)的标题(Caption)为“上下文”。 设置第1个框架(Frame1)中的标签(Label2)的标题(Caption)为“过程(&P):”。 设置第1个框架(Frame1)中的标签(Label3)的标题(Caption)为“模块(&M):”。 设置第1个框架(Frame1)中的标签(Label4)的标题(Caption)为“工程:”。 设置

第1个框架(Frame1)中的标签(Label5)的标题(Caption)为“工程1”。 适当调整第1个框架(Frame1)中的组合框(Combo1)和组合框(Combo2)的大小和位置。 设置第2个框架(Frame2)中的单选框(Option1)的标题(Caption)为“监视表达式(&W)”。 设置第2个框架(Frame2)中的单选框(Option2)的标题(Caption)为“当监视值为真时中断(&T)”。 设置第2个框架(Frame2)中的单选框(Option3)的标题(Caption)为“当监视值改变时中断(&C)”。 第3题 （10分） 题号:3------------------------------------------------【窗体设计】------------------------------------------------题目：请按照题目要求设计指定的窗体。 建立如(图1)所示界面：请按所给窗体的样子设 计窗体，不要求控件的尺寸一样，运行时得到所 给窗体即可，有时需要简单的事件过程。要求 ＇退出＇选项包含在＇文件＇菜单中，其余选项包含 在＇选项＇菜单中。 ------------------------------------------------1 在窗体内添加2个菜单(menu_File，menu_Option)， 然后在菜单(menu_File)下添加1个菜单(menu_File_Exit) 在菜单(menu_Option)下添加6个菜单(menu_Option_TestButton， menu_Option_CheckBox，menu_Option_TextWarp，menu_Option_OptionButton， menu_Option_TextBox，menu_Option_Image，)。 在窗体内添加7个按钮(Command1，Command2，Command3，Command4，Command5， Command6，Command7)。2 窗体设置： 设置窗体名称(Name)为“Form21”。 设置窗体标题(Caption)为“控件示例”。3 菜单设置： 1) 设置菜单(menu_File)的标题(Caption)为“文件(&F)”。 2) 设置菜单(menu_Option)的标题(Caption)为“选项(&O)”。 设置菜单(menu_Option)下的菜单(menu_Option_TestButton)的标题(Caption)为“测试按钮”。 设置菜单(menu_Option)下的菜单(menu_Option_CheckBox)的标题(Caption)为“复选框”。 设置菜单(menu_Option)下的菜单(menu_Option_TextWarp)的标题(Caption)为“文本换行”。 设置菜单(menu_Option)下的菜单(menu_Option_OptionButton)的标题(Caption)为“选项按钮”。 设置菜单(menu_Option)下的菜单(menu_Option_TextBox)的标题(Caption)为“文本框”。 设置菜单(menu_Option)下的菜单(menu_Option_Image)的标题(Caption)为“图像”。 4 按钮设置： 设置按钮(Command1)的标题(Caption)为“测试按钮(&T)”。 设置按钮(Command2)的标题(Caption)为“复选框(&C)”。 设置按钮(Command3)的标题(Caption)为“文本换行(&W)”。 设置按钮(Command4)的标题(Caption)为“选项按钮(&P)”。 设置按钮(Command5)的标题(Caption)为“文本框(&E)”。 设置按钮(Command6)的标题(Caption)为“图像(&I)”。 设置按钮(Command7)的标题(Caption)为“退出(&X)”。