07图形图像vb编程期末考试卷

芜湖职业技术学院2008—2009学年第一学期07图像《VB程序设计》期末考试试卷（A卷）班级学号⎽⎽⎽⎽⎽⎽⎽姓名⎽⎽⎽⎽⎽⎽⎽⎽⎽得分⎽⎽⎽⎽⎽⎽一、选择题（每题2分，共50分）1.下列描述中正确的是。

A）软件就是用高级语言编写的程序B）软件开发不受计算机系统的限制C）软件就是能在计算机上运行的程序D）软件是程序、数据与相关文档的集合2.下列各项不是VB的基本数据类型的是。

A）Single B）stringC）Integer D）char3.下列符号中，可以用作VB变量名的是。

A）If B）3saC）_a b D）fab_3a4.表达式Len (str(173)) 的值是。

A）4 B）3C）2 D）15.已知A= "12345678"，则表达式Val ( Left (A,3) + Mid ( A,6,2 ) )的值是。

A）12356 B）179C）12367 D）456.表达式4*2>2 Or 2^3 >9 And Not 5-4<2 的值是。

A）true B）falseC）5 D）67.下面的语句可以实现：先在窗体上输出大写字母A，然后在同一行的第10列输出小写字母b。

A）Print "A" ; Tab (9) ; "b"B）Print "A" ; Space (9) ; "b"C）Print "A" ; Space (10) ; "b"D）Print "A" ; Tab (10) ; "b"8.数学表达式1≤x≤10表示成正确的VB表达式为。

A）1≤x<10B）x >=1 And x <=10C）x >= 1 Or x < 10D）x >=1 And <109.下面正确的赋值语句是。

A）a = 5b B）2 * x = yC）y = 7 * ttt D）a + b = 1010.对于窗体Form1，若将其名称属性设置为Disp，Caption属性设置为OK，则下列正确的语句是。

A）Form1 . Left=1000B）OK . Left=1000C）Disp . Left=1000D）以上语句都不对11.复选框或单选按钮的当前状态可通过_ 属性来设置或访问。

A）Caption B）ValueC）Checked D）Selected12.下列控件中，没有Caption属性的是。

A）框架B）标签C）文本框D）组合框13.将数据项“看日出”添加到组合框Combo1中成为第4项，应使用语句。

A）Combo1.AddItem "看日出" , 5B）Combo1.AddItem 4," 看日出"C）Combo1.AddItem "看日出" , 4D）Combo1.AddItem 5," 看日出"14.如果每0.2秒产生一个计时器事件，那么时钟控件的Interval属性值应设为。

A）2 B）20C）200 D）200015.关于msg=MsgBox（”你好”）函数显示的对话框，以下叙述正确的是。

A）该对话框有一个“确定”按钮B）该对话框有“是”、“否”两个按钮C）该对话框有“是”、“否”、“取消”3个按钮D）该对话框通过选择参数可以得到以上不同的按钮组合16.执行下列语句：A = val(text1.text)B = val(InputBox ("请输入一个数"))Print A + B当输入为111和222时，输出结果为。

A）111222 B）111C）222 D）33317.下列程序段的输出结果是。

Dim s As IntegerFor i = 10 To 1 Step –2s = s + iNext iPrint iA）0 B）-1C）1 D）-218.下列4个字符串进行比较，最小的是。

A）"2007" B）"About" C）"Basic" D）"DATA" 19.若Dim b (3) As Integer，则Ucase ( Chr (97) & UBound (b))的结果是。

A）A3 B）A2 C）A1 D）A0以下20.某人在窗体上画了一个名称为Timer1的计时器和一个名称为Lab的属性设置为Enabled=True, Interval=0,并编程如下。

希望在每2秒在标签上显示一次系统当前时间。

Private Sub Timer1_Timer （）Label1.Caption=Time$End Sub在程序执行时发现未能实现上述目的，那么，他应做的修改是 。

A ）通过属性窗口把计时器的Interval 属性设置为2000B ）通过属性窗口把计时器的Enabled 属生设置为FalseC)把事件过程中的Label1.Caption=Time$语句改为Timer1.Interval=Tims$D)把事件过程中的Label1.Caption=Time$语句改为Label1.Caption=Timer1.Time语句Dim A (-2 To 2,1 To 4)As Single 定义的数组元素个数是 。

A ）16B ）20C ）24D ）3021. 表示滚动条控件取值范围最大值的属性是 。

A ）MaxB ）LargeChangeC ）ValueD ）Min22. 窗体中有图片框Picture1和图像框Image1 两个对象，下面关于Print 方法的使用中，错误的是 。

A ）Picture1. Print 100B ）Print 100C ）Printer. Print 100D ）Image1.Print 10023. 执行语句Open " Test .dat" For Output As #1，对文件Test .dat 中的数据能够执行的操作是。

A ）只能读，不能写B ）既可以读，也可以写C ）只能写，不能读D ）不能读，不能写菜单控件只有一个 事件。

A ）KeyPressB ）ClickC ）DblClickD ）MouseDown24. 菜单控件只有一个 事件。

A ）KeyPressB ）ClickC ）DblClickD ）MouseDown25. 程序段运行后，输出结果是 。

For i =1 To 3For j =1 To iIf j Mod 2 = 0 ThenPrint "@" ;ElsePrint "$" ;End IfNext jPrintNext iA ）$B ）@C ）@D ）$$$ @@ @$ $@$$$ @@@ @$@ $@$二、 填空题（每空2分，共20分）1. VB 工程文件的扩展名为.vbp ，窗体文件的扩展名为 【1】 。

2. 数学表达式的VB 表达式是 ___【2】_____ 。

3. VB 的三种基本流程控制结构（处理问题的三种方法）是指：顺序结构、 【3】__ 与循环结构。

xy ya 24.若要求输入信息时文本框中没反应，则应当把文本框的属性窗口中锁定属性_____【4】调为false。

5.下面程序的功能是找出100到999之间所有的“水仙花数”，请用正确的内容填空。

所谓“水仙花数”是指一个三位数，其各位数字的立方和等于该数本身，例如153=13+53+33，故153是“水仙花数”。

Private Sub Form_Click ()Dim p As IntegerFor n = 100 To 999a = 【5】b = Int (( n – a * 100 ) / 10 )c = n Mod 10p= a ^ 3 + b ^ 3 + c ^ 3If 【6】ThenPrint n ; "是水仙花数"End IfNext nEnd Sub6.执行下面的程序后，若输入4，则输出的结果是【7】。

Private Sub Form_Click ()Dim x As Integer , y As Integerx = InputBox ("请输入一个整数")Select Case xCase Is >= 5y = x * 5Case Is >= 4y = x * 4Case Is >= 3y = x * 3Case Elsey = x * 2End SelectPrint x ; yEnd Sub7.下面程序运行后，输出的结果是【8】。

Private Sub Form_Click ()Dim a As IntegerFor i =1 To 10 step 3a= a+iNext iPrint aEnd Sub8.下面程序运行后，输出的结果是【9】。

Option Base 1Private Sub Command1_Click ()d = 0c = 10x = Array (10 , 12 , 21 , 32 , 24 )For i =1 To 5If x ( i ) > c Thend = d + x( i )c = x ( i )Elsed = d – cEnd IfNext iPrint "d = " ; dEnd Sub9. 在窗体上添加一个命令按钮Command1，然后编写如下代码：Dim x As Integer , y As Integer Private Sub Command1_Click () x = 4 y = 4 Call s1 ( x , y ) Print x + y Call s2 ( x , y ) Print x + y End Sub程序运行后，单击命令按钮，输出的结果是 【10】 。

三、 编程题（共30分）1. 编写一个程序，其功能是计算从1加到n 的和。

（10分）2. 利用随机函数模拟产生10名学生的《VB 课程》期末考试成绩（0～100），然后将成绩按从大到小的次序排序输出。

（8分）3. 某城市出租车的收费标准为起步价6元2.5公里，超过2.5公里每公里收费1.2元。

如果行驶里程超过10公里，加收空驶费10元（实际收费按四舍五入计算到整元）。

试编写下图中“计算”按钮Command1的Click 事件代码。

（12分）图1设计模式 图2 运行模式Sub s1 ( a As Integer , b As Integer ) a = 2 * a b = b + 2 End Sub Sub s2 ( a As Integer , Byval b As Integer ) a = 2 * a b = b + 2 End Sub芜湖职业技术学院2008—2009学年第一学期07图像《VB程序设计》期末考试试卷（B卷）班级学号⎽⎽⎽⎽⎽⎽⎽⎽姓名⎽⎽⎽⎽⎽⎽⎽⎽⎽得分⎽⎽⎽⎽⎽⎽一、单项选择题（每题2分，共40分）1.Visual Basic程序设计采用的编程机制是。