对口升学计算机vb高考真题,2013年 VB对口升学真题

《2013年 VB对口升学真题》由会员分享，可在线阅读，更多相关《2013年 VB对口升学真题(4页珍藏版)》请在人人文库网上搜索。

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中给出提示“已成功添加输入项”如图所示；如果存在，则在Lab。

8、el2中给出提示“输入项已在组合框中”。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 IfEnd Sub 2、以下命令按钮的事件过程用于计算10！，试填空。Private sub command1_click()X=1。

9、Result= 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,j)Print i,jEnd subPrivate sub test(m as integer, n as integer)Static sta as integerM=m+nN=n+m+staSta=sta+mEnd sub五、 编写程序编写程序求400到500之间所有质数之和。