VB试卷5(考试必备).doc

装 订 线 辽源职业技术学院考试答案（五）20 20 学年第 学期期 Visual Basic程序设计考试试卷 命题教师： 审批人： 考试方式：笔试 答题时间 100 分钟 考生人数: 人题号一二三四五六七八九总分标准分20303020100一、 一、填空题（每空1分，共20分）1、在VB的工程中，工程文件的扩展名（ vbp ）2、在运行程序时，若要使文本框获得输入焦点，可调用文本框对象的（ setfoucs ）方法来实现。3、窗体的标题栏显示内容由窗体对象的（ caption ）属性决定。4、VB中的变量如果没有显式声明其数据类型，则默认为（ 变体类型 ）5、VB中运算符被分为四类，分别是（ 算术运算符 ）、（ 关系运算符 ）、（ 逻辑运算符 ）和连接运算符。6、在VB中，执行“A=18 MOD 4”语句后，A的值为（ 2 ） 7、窗体的默认坐标原点在（ 窗体左上角 ），X轴、Y轴的方向分别是（ X轴向右，Y轴向下 ）。8、在数据库的结构中，有（ 层次模型 ）、（ 网状模型 ）和（ 关系模型 ）三种模型。9、通过控件数组的（ index ）属性，可区分控件数组中的不同元素。 10、在过程调用中,参数的传递可分为( 按地址传递 )和( 按值传递 )。11、语句：a=“123”+mid(“123456”,3,2),a的值是（ 12334 ），函数len(“today is Sunday”)的运算结果为（ 15 ）12、声明一个字符型变量mst，应使用（ dim mst as string ）语句13、设有数组声明语句：dim a(100)，则数组a有（ 101 ）个元素。二、选择题（每题2分，共30分）1、决定控件上文字的字体、字形、大小、效果的属性是（ D ）A、Text B、Caption C、Name D、Font2、Visual Basic的编程机制是（ B ）A、可视化 B、面向对象 C、面向图形 D、事件驱动3、工具栏中的“启动”按钮的作用是（ B ）A、运行一个应用程序 B、运行一个窗体 C、打开工程管理窗口 D、打开被选中对象的代码窗口4、通过以下（ B ）窗口可以在设计时直观地调整窗体在屏幕上的位置。A、代码窗口 B、窗体布局窗口 C、窗体设计窗口 D、属性窗口5、下面是合法的变量名为（ A ）A、x_yz B、123abc C、integer D、X-Y6、要分配一个3*3的单精度类型的数组，正确的数组声明语句是（ B ）A、Dim a(9) As Single B、Dim a(-1 to 1,-5 to -3) As SingleC、Dim a(3,3) As Single D、Dim a(-3 to 1,-5 to 7) As Single7、若要向列表框中新增列表项，可使用的方法是（ D ）A、Add B、Remove C、Clear D、AddItem8、在过程定义中用下列（ C ）表示形参的传值A、Var B、ByRef C、Byval D、Value9、下列函数中（ A ）函数返回的值是数值型的。A、Instr B、Mid C、Space D、Chr10、以下声明语句中错误的是（ B ）A、Const var1=123 B、Dim var2=ABC C、Dim var3 D、Static var4 as Integer11、控件数组中第一个元素的index值是（ A ）A、0 B、1 C、空值 D、212、要想从子过程调用后返回两个结果，下面子过程说明语句合法的是（ C ）A、Sub f2(ByVal n%,ByVal m%) B、Sub f1(n%,ByVal m%) C、Sub f1(n%, m%) D、Sub f2(ByVal n%, m%)13、已知函数定义Function f(x1%,x2%) as integer,则下列调用语句正确的是（ A ）A、a=f(x,y) B、call f(x,y) C、f(x,y) D、f x y14、下列控件中，没有caption属性的是（ B ）A、框架 B、列表框 C、复选框 D、单选按钮15、如果文本框的Enabled属性设为False，则（ A ）A、文本框的文本将变成灰色，并且此时用户不能将光标置于文本框上B、文本框的文本将变成灰色，用户仍然能将光标置于文本框上，但是不能改变文本框中的内容C、文本框的文本将变成灰色，用户仍然能改变文本框中内容D、文本框的文本正常显示，用户能将光标置于文本框上，但是不能改变文本框中的内容三、读程序写相应的答案（每题6分，共30分）1、下列程序运行后，单击Command1按钮，标签label1中显示的内容是（ 7 ） Option Base 1Private Sub Command1_Click() Dim a(3,4) As Integer,I as Integer,j As Integer For i=1 to 3 For j=1 to 4 A(I,j)=a(I,j)+i+j Next j Next i Label1=a(3,4)End Sub2、在窗体上画一个命令按钮，然后编写如下代码Option Base 1Private Sub Command1_Click() Dim a A=Array(1,2,3,4) J=1 For i=4 to 1 step -1S=s+a(i)*jJ=j*10 Next i Print sEnd Sub运行上面的程序，单击命令按钮，输出s的值是（ 1234 ） 3、Private Sub Command1_Click() X=inputbox() If x2=9 then y=x If x29 then y=x2+1 End Sub程序运行后，在InputBox中输入3，单击命令按钮，y的运行结果是（ 3 ） 4、下列程序段执行后 A=0:B=0 For I= -1 to -2 Step -1 For J=1 to 2B=B+1 Next J A=A+1 Next IA、B的结果分别为（ 2 4 ） 5、编写如下程序,运行后,单击窗体结果为( 1a2b3c4d5e )Private Sub Form_Click() A$=”54321”:b$=”abcde” For j=1 to 5 Print Mid$(a$,6-j,1)+Mid$(b$,j,1); Next j PrintEnd sub四、编程题（每题10分，共20分） 1、键盘输入10个数，存入数组中，输出其中最小的数和其对应的位数。 Option base 1Dim a(10) as integer For i=1 to 10 A(i)=inputbox(“请输入第”& I & “个数”) Next i Min=a(1) For i=2 to 10 If a(i)min t