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