vb考试题库Word文档格式.docx

1、 Next j: Next I 则语句Print I*j 的执行次数是（ d）（1分）A、15B、18C、10D、0 14、如果要清除在窗体中打印输出的文字，可以利用（ c）语） A、InputB、LoadC、ClsD、Paint15、case ,其中的表达式表列不正确的为（d ）（1分）A、Case 100*aB、Case 1000 To 2000C、Case Is3000D、Case 2000Is4: x = x * y: y = y +1: Loop 执行后x的结果为（ b） A、1B、4C、8D、20 19、以下声明和命名标识符错误的是（ c）A、必须以字母开头B、变量名的最后一个字符

2、可以是类型声明字符C、长度不能超过8个字符D、不能与关键字同名 20、下列说明错误的是（d ）（1分）A、Const MyVar#=123B、Dim myname as stringC、dim a as integer,dim b as singleD、dim MyString=Hello,+My friend!21、VB中允许出现的数据形式为（b ）A、1.89E1.1B、.368C、D32D、2.5E22、设a=2,b=3,c=4,d=5,下列表达式ab AND cc的值是（ b）A、TrueB、False C、-1D、123、语句6 * 66/6的输出结果是（ c）A、6B、12C、36

3、D、21624、给窗体form1加载背景图片，应使用（c ） A、pictureB、ucase C、loadpictureD、image25、字符串河南农业大学现教部的长度是（c ）A、18B、10C、9D、16二、填空题（12道小题，共35分）1、设定系统当前日期是2004年5月12日，Month（date）=5。2、设A$=Visual Basic,len（a$）函数返回值是12。3、在窗体的声明部分，语句Private x% 语句，是将变量定义为 窗体模块 级变量。4、逻辑型数据只有 true false 两个值。5、顺序文件读操作用 open 语句。6、一个工程可以包括多种类型的文件,

4、其中扩展名为.frx的文件表示 frm 文件。 7、Command1.Visible=False,是将命令按钮1设为 把它设置为隐藏 。8、当鼠标在控件上暂停时，显示提示信息，要用属性 ToolTipText 属性。9、Text1.SetFocus语句功能是把焦点移到上 Text1。10、Dim X As Currency 是将变量X定义为 货币 型。三、判断题（10道小题，共10分）1、VB中请求对象执行某一操作的要求称为方法。（1分）正确2、False为字符型常量。（1分） 错误3、语句Print 25*40 执行时输出的结果是1000。（1分） 正确4、窗体的卸载使用Load 语句。（1

5、分）错误5、表达式 268=268 的结果为True。6、语句 if 0 then print Hello 是错误的。7、在for循环结构对循环变量的赋值中，终值可以大于初值，也可以小于初值。8、将文本框Text1中的内容清除，可使用语句 Text1.cls。错误9、文件名的命名规则同变量的命名规则一样。 10、InputBox函数返回值的类型是字符串类型。Private Sub Command1_Click（）Dim mark!, aver!, i%, max1!, min1!aver = 0For i = 1 To 6 mark = InputBox（输入第 & i & 位评委的打分） I

6、f i = 1 Then max1 = mark: min1 = mark Else If mark max1 Then max1=mark End If aver=aver+mark Nextaver = （aver-min1-max1）/4 Print averEnd Sub1、以下叙述中错误的是（ b ）（1分） A、在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件 B、控件的名称可以由编程人员设定 C、窗体文件包含该窗体及其控件的属性 D、Visual Basic 中控件的某些属性只能在运行时设置 2、以下关于窗体的描述中,错误的是（ d）（1分） A、窗体的Load事

7、件在加载窗体时发生 B、当窗体的Enabled属性为False时,通过鼠标和键盘对窗体的操作都被禁止 C、窗体的Height、width属性用于设置窗体的高和宽 D、执行Unload Form1语句后,窗体Form1消失,但仍在内存中 3、用Static M （60 to 90） As Integer语句定义的数组的元素个数是（c ）（1分） A、60 B、30 C、31 D、90 4、如果整型变量a、b的值分别为3和1,则下列语句中For I=a to b : Print I : Next I 循环体的执行次数是（c）（1分）A、3 B、2 C、1 D、0 5、关于语句If x=1 Then

8、 y=1 下列正确的说法是（c ）（1分） A、x=1和y=1均为赋值语句 B、x=1和y=1均为关系表达式 C、x=1为关系表达式,y=1为赋值语句 D、y=1为关系表达式,x=1为赋值语句 6、用情况选择语句Select Case X,选择|X| 10情况的语句为Case（c ）（1分） A、Not （-10 To 10） B、10 To -10 C、Is 10 D、ABS（X） 10 7、下列哪条语句是错的（ c ）（1分） A、RTrim（） B、Exit Function C、Exit While D、Exit Do 8、在Visual Basic中下面的四个数组声明语句,正确的是（

9、 c）（1分） A、Dim a10 B、Def fn（10） C、Dim a（10） D、Dimension a（10） 9、阅读下面的程序段For i=1 To 3:For j=1 To i:For k=j To 3 :a=a+2:Next :Next:Next 执行上面的三重循环后,a 的值为（ c）（1分） A、26 B、27 C、28 D、29 10、下面说法错误的是（ b ）（1分） A、对象的性质和状态值称为属性 B、请求对象执行某一操作的要求称为消息C、改变对象的一个或多个属性值的操作称为事件 D、对象发生某事件所执行的程序称为事件驱动程序 11、若使用文本框Text1,为对用户

10、输入内容进行立即检查,应对Text1的哪个事件编程（ a ）（1分） A、Change B、Interval C、Left D、Top 12、如果数据包含小数,则不应定义为下列哪种类型（c ）（1分） A、Double B、Single C、Byte D、Currency 13、下列程序段s=0:for i=9 to 42 step 11:s=s+i:next:if i50 then s=s+i else s=s-i 运行后s的结果为（ ）（1分） A、167 B、139 C、144 D、155 14、有如下程序,m$ =ABCDE:MID（m$, 1 ,5）=abcdePrint m$,运行

11、后的输出结果是（ a ）（1分） A、abcdeABCDE B、ABCDEabcde C、abcde D、ABCDE 15、在下列四个式子中,非法的Visual Basic表达式是（ c）（1分） A、a=b+e B、53+3 C、a=exp D、55 16、表达式INT（6*RND+1）*（INT（6*RND1）值的范围是（ b ）（1分） A、-6,18 B、-6,24 C、-3,24 D、-3,18 17、字符串计算机技术基础的长度是,应使用下列（c ）函数（1分） A、TAB B、STR C、LEN D、INSTR 18、表达式（not true or true） and （true

12、or false）的值为（ b ）（1分） A、false B、true C、0 D、-1 19、下列叙述中正确的是（c ）（1分） A、在窗体的Form_Load事件过程中定义的变量是全局变量 B、局部变量的作用域可以超出所定义的过程 C、在某个Sub 过程中定义的局部变量可以与其它事件过程中定义的局部变量同名,但其作用域只限于该过程 D、在调用过程时,所有局部变量被系统初始化为0或空符串 20、下面的变量名合法的是（c ）（1分） A、k.name B、k%name C、name D、k-name 21、在Visual Basic中,下面四个数据,数据形式错误的是（b ）（1分） A、3.

13、456# B、236! C、1.23D-23 D、1.89E1.1 22、已知CD,ST,正确表示它们之间关系的式子是（ c）（1分） A、Sgn（D-C）-Sgn（S-T）0 B、Sgn（D-C）-Sgn（S-T）=-2 C、Sgn（D-C）-Sgn（S-T）=0 D、Sgn（D-C）-Sgn（S-T）=1 23、表达式Int（Rnd*11）+100的值的范围是（ b）（1分） A、11,111 B、100,110 C、11,100 D、100,111 24、下列关于属性设置的叙述正确的是（d ）（1分） A、所有的对象都有同样的属性 B、控件的属性只能在设计时修改,运行时无法改变 C、控件

14、的属性都有同样的默认值 D、引用对象属性的格式为：对象名称.属性 25、Visual Basic中没有提供下列（ d）事件（1分） A、MouseDown B、MouseUp C、MouseMove D、MouseExit 二、填空题（12道小题，共35分） 1、可视化Visual Basic语言是 公司推出的程序开发语言。2、双击某个对象时，最终引发该对象的事件 执行。3、程序流程中被重复执行的程序段叫 循环体 。4、将对象设置为允许用户操作，并对操作作出响应，是将它的Enabled属性值设为 True。5、在Visual Basic6.0中，用Font.StrikeThtouth属性设置

15、。6、表示单精度型数据的单一字符是 !7、Rnd函数的含义是 。8、Chr$（数值）函数返回 该数值表示的字符。9、在窗体各过程中均有效的变量是 全局变量 。10、在Print方法中，句尾有符号时，是 换行 执行下一个Print语句11、下列程序段将十进制数转换为十六进制数，要求十进制数为非负整数。单击窗体，弹出InputBox对话框，让用户输入一个十进制数；单击“确定”后，在Label1上显示出十六进制数的结果。如果输入的不是十进制数，在标签Label1上显示出你输入的不是十进制数，退回到对话框状态，让用户重新输入。 Private Sub Form_Click（） Dim sHex As

16、String, Ys As Integer Dim n As String, nd As Integer, Ai As String sHex = n = InputBox（请输入一个十进制整数 If Not IsNumeric（n） Or Left（n, 1） = 0 Or _ Int（Val（n） = 10 Ys = nd Mod 16 Select Case Ys Case 10 Ai = A Case 11B Case 12C Case 13D Case 14E Case 15F Case 0 To 9 Ai = Ys End Select sHex = Trim（Ai） & sHex

17、 nd = nd 16 Loop Label1 = nd & End Sub12、在窗体上有两个命令按钮和一个文本框，名称分别为 cmdstart（“开始”）、cmdend（“结束”）和txt。程序开始运行时，要求文本框txt中的字符个数不超过300个，“结束”按钮成灰色，单击“开始”按钮后，“开始”按钮不可用，同时使“结束”按钮能响应,单击“结束”按钮结束程序。 Private sub form_load（） =300 Cmdend.enabled=false End sub Private sub cmdstart_click（） cmdstart.enabled=false =true

18、end sub private sub cmdend_click（） end ?/三、判断题（10道小题，共10分） 1、通过 label1.cls 可以清除由label1所显示的内容。（1分） 错误 2、变量是指在程序运行过程中其值可以改变的那些量，而值不能改变的是常量。 错误 3、设a5，则语句 print a5的运行结果为True。正确 4、能够改变窗体背景颜色的属性是BackColor。（1分） 正确 5、在VB的表达式中，加入括号有时可以改变运算符的优先级。6、在 if then 结构中，条件可以是逻辑表达式或关系表达式。7、在 For To Step 结构中，步长可以取任意值。（1

19、分） 错误 8、可以用Text1.text= 来清除Text1中的内容。9、在VB中可以同时打开多个工程。（1分）正确 10、在定义了一个函数后，可以象调用任何一个VB内部函数一样使用它，即可以在任何表达式、语句或函数中引用它。四、编程题（4道小题，共60分） 1、求公式：e=1/1!+1/2!+1/3!+1/n! 直到最后一项小于10（-6）时e的值。（保留小数点后9位）（注：程序代码写在命令按钮Command1的Click事件中。e = 0s = 1i = 1Do Until s 10 （-6）s = s / ie = e + si = i + 1LoopPrint e2、有100匹马，驮

20、100担货：大马驮3担，中马驮2担，两匹小马驮1担，问有大、中小马各多少？（本题不要求填写运行结果） 请将你解答本题所写的源程序粘贴到下面或者上载源程序 Private Sub Command1_Click（）Dim a, b, c As IntegerFor a = 1 To 100For b = 1 To 100c = 100 - a - bIf 3 * a + 2 * b + c / 2 = 100 ThenPrint a, b, cEnd If3、编写程序，用牛顿切线法求方程f（x）= x+lnx-1.7=0的近似实根r，迭代初值自选，精确到0.0001。提示:计算公式为x=x-f（x

21、）/f（x）必须将本题程序最后的运行结果填入下面的框中。否则，该题以零分计!4、 编写程序，输出下列三角形： （要求用循环做，非循环不给分。 1 1 2 3 1 2 3 4 5 1 2 3 4 5 6 7For i = 1 To 4Print Tab（20 - 3 * i）;For t = 1 To 2 * i - 1Print t;1、如果一个工程含有多个窗体,则以下叙述中错误的是（d ）（1分） A、不可以在运行期间改变对象的Name属性的值 B、用Hide方法只是隐藏一个窗体,不能从内存中清除该窗体 C、任何时刻最多只有一个窗体是活动窗体 D、窗体的Name属性的值是显示在窗体标题栏中的

22、文本 2、下列不能打开属性窗口的操作是（c ）（1分） A、执行“视图”菜单中的属性窗口命令 B、按F4键 C、按Ctrl+T D、单击工具栏上的按钮 3、用Dim S （20） As Integer语句定义的数组的元素个数是（ ）（1分） A、19 B、20 C、21 D、22 Next I 循环体的执行次数是（ ）（1分） A、3 B、2 C、1 D、0 5、关于语句If x=1 Then y=1 下列正确的说法是（ ）（1分） 10情况的语句为Case（ ）（1分） 7、在运行阶段,要在文本框Text1获得焦点时选中文本框中所有内容,对应的事件过程是（ a ）（1分） A、Private

23、 Sub Text1_GotFocus（ ） : Text1.SelStart=0 : Text1.SelLength=Len（Text1.text） : End Sub B、Private Sub Text1_LotFocus（ ） : End Sub C、Private Sub Text1_Change（ ） : End Sub D、Private Sub Text1_SetFocus（ ） :8、在Visual Basic中下面的四个数组声明语句,正确的是（ ）（1分） 9、假设有以下程序段For I=1 to 3:For j=7 to 1 Step -1:Print I*j:Next

24、j:Next I则语句 Print I*j 的执行次数以及I、j的值分别是（ ）（1分） A、21 3 0 B、21 4 0 C、20 3 0 D、20 4 0 10、如果Form1是启动窗体,并且Form1的Load事件过程中有Form2.Show,则程序启动后（ c ）（1分） A、发生一个运行时错误 B、发生一个编译时错误 C、在所有的初始化代码运行后Form1是活动窗体 D、在所有的初始化代码运行后Form2是活动窗体 11、以下控件中可以入选为容器控件的是（ b）（1分） A、Image图像框控件 B、PictureBox图片框控件 C、TextBox文本框控件 D、ListBox列表框控件 12、假设变量bool_x是一个布尔型（逻辑型）的变量,则下面正确的赋值