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