2013年 VB对口升学真题

1、Visual Basic语言程序设计 一、 选择题1、 窗体上有一个文本框，且为该文本框编写了keypress事件过程，运行后，若要将焦点置于文本框中，则可以触发keypress事件的操作是（）A鼠标单击文本框 B鼠标双击文本框 C按下键盘上的某个键 D鼠标滑过文本框2、 设 x=“Good morning”，下面使“morning”的语句是（）AY=left(x,6,9) By=mid(x,6,7) Cy=right(x,7,7) Dy=left(x,6,7)3、 构成对象的3个要素为（）A控件 属性 事件 B属性事件方法 C窗体控件过程 D窗体 控件模块4、 下列叙述错误的是（）A.VB应

2、用程序没有明显的开始和结束语句B.VB控件的所有属性值均可在属性窗口中设置C.VB是事件驱动型可视化编程工具D.VB通过“工具”菜单的“选项”，设置代码编辑器窗口的字体大小5、 执行语句“answer=msgbox(“珍惜每一滴水”，1+64+0，“公益广告”)”后将显示一个消息框，单击“确定”按钮，则answer的值为（）A.珍惜每一滴水 B.54 C.1 D.公益广告6、 通过设置shape控件的（）属性可以绘制多种形状的图形。A.Shape B.style C.fillstyle D.borderstyle7、 在VB中，过程通常有三种，它们是（）A.事件过程，子过程和函数过程B.事件过

3、程，函数过程和属性过程C.Sub过程，function过程和property过程D.Sub过程，函数过程和通用过程8、 改变驱动器列表框的drive属性值将触发（）属性。A.Scroll B.change C.keydown D.keyup9、 若要设置计时器控件的定时时间，需设置的属性是（）A.Text B.enable C.value D.interval10、 不能通过（b）来删除列表框中的选择项。A.Clear方法 B.list属性 C.removeitem D.text属性11、 滚动条控件的（）属性表示其滚动块的当前位置。A.Value B.min C.max D.scrollch

4、ange12、 如果要在两个菜单命令之间加一条分隔线，可在“标题”文本框中输入（）A.+ B.# C. - D.&13、 在进行参数传递的时候，byval和byref的含义分别是（）A.前者表示按地址，后者表示按数值B.前者表示按数值，后者表示按地址C.前者表示按地址，后者也表示按数值D.前者表示按数值，后者也表示按数值14、 在窗体（form），框架（frame），图片框（picture），图像框（image）中，（）是容器控件。A.Picture image form B.Form frame pictureC.Image form frame D.Frame picture image1

5、5、 VB中工程文件的扩展名为（）A.vbp B .vbg C .frm D .bas16、 单击窗体上的关闭按钮时，触发的事件是（）A.Form_initialize() B.Form_load() C.Form_unload() D.Form_click()17、 设窗体的keypreview属性为true，并且有下列程序，当焦点在窗体上的文本框上时，按下D键，文本框接收到的字符是（）Private sub form_keydown（code as integer） Code=code-3End subA.A B.D C.B D.没有接收到字符18、使用commondialog控件的（）方

6、法可以显示“打印”对话框。A.Show open B.show save C.show color D.show printer19、执行语句“print format(7874.765,”#,#0.00”)”正确的输出是（）A.7874.77 B.7874.765 C.7,874.77 D.7,874.7620、 能产生一个范围在20,30）之间随机数的语句是（）A.Y=int(rnd*30)+10 B.Y=int(rnd*10)+20C.Y=int(rnd*11)+20 D.Y=int(rnd*21)+10二、 填空题1、 代数表达式e+sin4x对象的Visual Basic表达式为 2

7、、 VB中应用程序的开发主要是在 设计器中完成的。3、 用 方法可以在列表框中插入列表项。4、 菜单设计中，每一个菜单项是一个控件，这些控件都只有一个 事件。5、 在程序的起始位置有命令Dim a(3,1 to 3)，则该数组的元素个数为 。三、 程序填空1、在窗体上画一个名称为Combo1的组合框，画两个名称分别Label1和Label2及Caption属性分别为“民族”和空白的标签。程序运行后，当在组合框中输入一个新项后按回车键(ASCII码为13)时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在Label2中给出提示“已成功添加输入项”如图所示；如果存在，则在La

8、bel2中给出提示“输入项已在组合框中”。Private Sub Combo1_ (KeyAscii As Integer) If KeyAscii13 Then For i0 To combo1.listCount-1If _ _ _ _ then Label2.Caption”输入项己在组合框中” Exit SubEnd If Next iLabel2.Caption“已成功添加输入项”_ _ _ End If End Sub 2、以下命令按钮的事件过程用于计算10！，试填空。Private sub command1_click()X=1Result= While x=10Result= X=x+1WendPrint resultEnd sub四、 读程序写结果：1、 执行下列程序后，整形变量P的值为（）M=25N=325Select case n10Case 0P=m*10+nCase 1 to 9P=m*100+nCase 10 to 99P=m*1000+nEnd select2、执行下面的程序后，第一行输出 ，第二行输出 。Option explicitPrivate sub form_click()Dim i as integer, j as integeri=1: j=2Call test(i,j)Print i ,j Call test(i,