武汉职业技术学院 《Visual Basic程序设计》试卷六 一、选择题 （26 分） 1．表达式val(“.123E2CD”)的值是[ ] a. 0.123 b. 12.3 c. 0 d. .123E2CD 2．variant是一种特殊的数据类型，除了[ ]和[ ]类型外，可以包含任何种类的数据。 固定长度字符串 b. 字节 c. 实型 d. 单精度 可变长度字符串 f. 整形 g. 货币 h. 自定义 3．通过文本框的[ ]事件过程可以获取文本框中键入字符的ascii码值。 change b. Click c. Keypress d. Gotfocus 4．Visual Basic程序设计语言属于[ ] a.面向过程的语言　　　　　　　　　　b.面向问题的语言 c.面向对象的语言 d.面向机器的语言 5．一个对象所能做的事情称为对象的[ ] a. 方法 b. 继承 c.属性 d.封装 6．以下关于name属性的说法，错误的是[ ] a,name属性必须以一个字母开始 b.name属性可以在属性窗口修改，也可以在代码中修改 c. 所有控件都有name属性，其值不能为空 d.”form1.frm”是一个非法的对象名 7．如果有三个选项按钮直接画在窗体上，另有四个选项按钮画在框架中，则运行时，可以同时选中[ ]个选项按钮。 a. 1 b. 2 c. 3 d. 4 8．vb的三种工作模式是[ ] ，[ ] 和[ ] 编辑 b.编译 c. 设计 d. 运行 e. 中断 9．在运行时，系统自动启动窗体的[ ]事件过程。 click b.gotfocus c. Load d. Unload 10．以下[ ]是布尔常量，[ ]是字符串常量，[ ]是日期常量。 true b. “100.0” c. 11-03-99 d. f e. ‘an’ f. #11/05/1999# 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．对象是代码和数据的集合，例如，Visual Basic 中的 ， ， 等都是对象。 2．菜单分为 菜单和 菜单，菜单总与 相关联，设计菜单需要在 中设计。 3．要在菜单中建立分隔符条，应在菜单编辑器的 选项中键入一个 符号。 4．设有数组声明语句 ： Dim a ( 1 to 2, 2 to 4 ) as integer 则数组A中包括的所有元素有 5．一个应用程序最多可以有 个MID父窗体。 6．一个工程可以包括多种类型文件，其中扩展名为.vbp的文件表示 文件。扩展名为.frm的文件表示 文件。 7．VB可视化编程的步骤是 ， ， 。 8．VB事件是 。 9．VB事件的过程 。 10．在代码窗口中输入某行代码并按回车键后，如果代码变红，表示 。 11．计时器每隔一秒钟发生一次timer时间，应将其属性 的值设置为 。 12．要让文本框text1显示多行，应该设置text1的 属性为 。 三、读程序，写结果 ( 20 分) 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 分） １．按下图所示，写出相应的代码，该程序是求100——500之间的质数和质数之和 2．设计两个变量交换值的程序  《Visual Basic程序设计》试卷六答案 一、选择题 1．b 2. .a,h 3. c 4.c 5.a 6.b 7.b 8.c，d，e 9. c 10,a,b,f 11.c 12. b 13.d 二、填空题 1．窗体 命令按钮 文本框 下拉式，弹出式，窗体，菜单编辑器 标题“一” 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 属性command。Caption=“交换” Private sub command1.clickc） Dim temp，X，Y X=text1。Text Y= Temp=X X=Y Y=temp Text3。Text=X Text4。Text=Y End sub