武汉职业技术学院 《Visual Basic程序设计》试卷五 一、选择题 （26 分） 1．以下关于name属性的说法，错误的是[ ] a.　name属性必须以一个字母开始 b.　name属性可以在属性窗口修改，也可以在代码中修改 c. 所有控件都有name属性，其值不能为空 d.”form1.frm”是一个非法的对象名 2．如果有三个选项按钮直接画在窗体上，另有四个选项按钮画在框架中，则运行时，可以同时选中[ ]个选项按钮。 a .1 b. 2 c.3 d. 4 3．vb的三种工作模式是[ ] ，[ ] 和[ ] 编辑 b.编译 c. 设计 d. 运行 e. 中断 4．在运行时，系统自动启动窗体的[ ]事件过程。 click b.gotfocus c. Load d. Unload 5．以下[ ]是布尔常量，[ ]是字符串常量，[ ]是日期常量。 true b. “100.0” c. 11-03-99 d. f e. ‘an’ f. #11/05/1999# 6．表达式val(“.123E2CD”)的值是[ ] a. 0.123 b. 12.3 c. 0 d. .123E2CD 7．variant是一种特殊的数据类型，除了[ ]和[ ]类型外，可以包含任何种类的数据。 固定长度字符串 b. 字节 c. 实型 d. 单精度 可变长度字符串 f. 整形 g. 货币 h. 自定义 8．通过文本框的[ ]事件过程可以获取文本框中键入字符的ascii码值。 change b. Click c. Keypress d. Gotfocus 9．Visual Basic程序设计语言属于[ ] a.面向过程的语言 b.面向问题的语言 c.面向对象的语言 d.面向机器的语言 10．一个对象所能做的事情称为对象的[ ] a. 方法 b. 继承 c.属性 d.封装 11．表达式int(8*sqr(36)*10^(-2)*10+0.5)/10的值是[ ] a.0.48 b.0.048 c. 0.5 d. 0.05 12．Len(“some thing”)的值是[ ] a. 6 b. 7 c. 8 d.9 13．要从for……next总退出循环使用的语句[ ] a. exit b. exit for c. continue d stop loop 二、填空题 （24 分） 1．一个工程可以包括多种类型文件，其中扩展名为.vbp的文件表示 文件。扩展名为.frm的文件表示 文件。 2．VB可视化编程的步骤是 ， ， 。 3．VB事件是 。 4．VB事件的过程 。 5．在代码窗口中输入某行代码并按回车键后，如果代码变红，表示 。 6．对象是代码和数据的集合，例如，Visual Basic 中的 ， ， 等都是对象。 7．菜单分为 菜单和 菜单，菜单总与 相关联，设计菜单需要在 中设计。 8．要在菜单中建立分隔符条，应在菜单编辑器的 选项中键入一个 符号。 9．设有数组声明语句 ： Dim a ( 1 to 2, 2 to 4 ) as integer 则数组A中包括的所有元素有 10．一个应用程序最多可以有 个MID父窗体。 11．计时器每隔一秒钟发生一次timer时间，应将其属性 的值设置为 。 12．要让文本框text1显示多行，应该设置text1的 属性为 。 三、读程序，写结果 ( 20 分) 1．a=1:b=0 select case a case 1 select case b case 0 print “**0**” case 1 print “**1**” end select case 2 print “**2**” end select 2, dim a(10,10) for I=2 to 4 for j=4 to 5 a(I,j)=I*j next j next I print a(2,5)+a(3,4)+a(4,5) 四、下面的程序用于检查文本框Text1中输入的表达式中的圆括号是否配对，并给出相应的提示。( 10 分) Dim num as integer Private sub text1_keypress(keyascii as integer) If =” ( “ then Num=num+1 Elseif =” )” then End if If keyascii=13 then If then Print “左右括号配对” Elseif then Print “左括号多于右括号”; num ;”个“ Else Print “右括号多于左括号”；-num ;”个” End if End if End sub 五、编写程序（ 根据题意在必要时要写出相关的对象，以及它们的属性和属性值）（20 分） 1.按下图所示，写出相应的代码，该程序是求100——500之间的质数和质数之和 2.窗体上有一个图片框picture1和三个滚动条hs1、hs2和hs3（分别用来表示红色、绿色和蓝色），改变这三个滚动条的值，这图片框的背景颜色也随之改变，编写代码完成程序功能，写出相关控件的主要属性。 《Visual Basic程序设计》试卷五答案 选择题 1．b 2.b 3.c，d，e 4.c 5.a，b，f 6.b 7.a,h 8.c 9.c 10,a 11.c 12.d 填空题 工程 窗体 创建用户界面，设置对象属性，编写代码 作用在对象上，并且能被对象识别的动作 响应某事件所执行的程序代码 该行代码有语法错误 窗体 命令按钮 文本框 下拉式，弹出式，窗体，菜单编辑器 标题“一” 6 1 Interval’,1000 Multilane,true 读程序写结果 1．“**0**” 2．42 程序填空 Chr(keyascii) Chr(keyascii) Num=num-1 Num=0 Num>0 编程 Prirate sub command1_click() Dim a,b For a=101 to 500 step 2 List1.additem a B=b+a Next label.caption=”101-500 之间的奇数“+hc(13)+“和为:”& b End sub Private sub command2.click() List1.dear End sub 2.Hscroll1(hscroll2,hscroll3) Max 255 small change 1 Min 0 large change 10 Value 0 Private sub picture1_click() Dim a,b,c A=hscoll1.value B=hscoll2.value C=hscoll3.value Picture.backcolor=rgb(a,b,c) End sub