vb考试答案（C）

山东交通学院2006年（1+3）学分互认考试 课程试卷 （ ）卷 第 页 共 页 VB 课程试卷 （C）卷 第 1 页 共 3页 题号 一 二 三 四 五 六 七 八 九 十 总分 说明:本课程考试分为上机考试和笔试两部分,满分100分,其中上机占40分,笔试60分,本试卷为笔试试卷，卷面满分60分。 一.填空题(每空1分,共16分) 1. 在VB中，用来描述对象外部特征的量称之为对象的__属性__。 2. 把 写成VB表达式_ abs(-6)+5/sqr(sin(a)-1)_。 3. 用四舍五入的方法截掉x小数点后面第2位及以后的数_ cint(x*10)/10_。 4. 赋值语句的作用是：首先计算“=”右边表达式的值，然后将该值赋给“=”左边的_变量__或对象的属性。 5. 标签和文本框都用于显示文本，它们的主要区别是：__标签__中的文本是只读文本， __文本框__中的文本是可编辑文本。 6. 使用语句 Dim A As Integer 声明数组后，A数组中所有元素值为______0________。 7. 要在ListBox控件中的删除某个项目，需要用__ removeitem _方法。 8. 表示滚动条控件取值范围最小值的属性是_ min _，最大值的属性是_ max _。 9. 有如下程序段，运行时，从键盘输入1,输出的结果是_-1 0_ x=-1 s=inputbox(“请输入s的值”) select case s case is >0 s=x+1 case is=0 s=x+2 case else s=x+3 end select print x;s 10. 在窗体上添加一个图片框控件（name属性为P2），要在运行时将位于D：盘根目录下名为t1.jpg图形文件装入图片框，所使用语句为：p2.picture=loadpicture(“d:\t1.jpg”)。 11. 在V B中有一种控件组合了文本框和列表框的特性，这种控件是_组合框_。 12. 下面程序运行后输出的结果是_10 1_。 a =-8:s = 1 do s = s + 1 a = a + 1 loop while a <=0 print s;a 13. 下面程序运行后，单击窗体，输出结果为_10+10=20(换行)_10+20=30_。 Private Sub Form_Click() Print “10+10=”; Print 10+10 Print “10+20=” , Print 10+20 End Sub 14. 下列程序运行的输出结果是______9______。 for i = 1 to 3 for j = 1 to i+1 x = x+1 next i next j print x 二.选择题(每小题1分,共12分) 1. ( A )是由VB预定义的对象能够识别的动作。 (A) 事件 (B) 对象 (C) 过程 (D) 事件过程 VB 课程试卷 （C）卷 第 2 页 共 3页 2.模块文件的扩展名为( B )。 (A) .fix (B) .bas (C) .vbp (D) .frm 3. 执行语句s = mid(“VisualBasic”,7,3)后，s的值是( A )。 (A) Bas (B) aus (C) 10 (D) 4 4.下列选项中，合法的变量名( D )。 (A) +aaa (B) 555_p (C) For (D) t_222 5.​ 返回字符串首字符的ASIIC值的函数是( C ) 。 (A) Str() (B) Chr() (C) Asc() (D) Trim() 6. 运行以下程序后， i的值是( C )。 x=0 for i = 1 to 10 step 3 x = x + i next i (A) 22 (B) 23 (C) 13 (D) 10 7. 用复制、粘贴的方法建立一个命令按钮数组Command1，以下对该数组的说法错误的是（ D ）。 (A) 命令按钮的大小都相同 (B) 命令按钮共享相同的事件过程 (C) 命令按钮的所有Caption属性都是Command1 (D) 在代码中访问命令按钮只要使用名称Command1 8. 确定一个窗体或控件高度的属性是（ A ）。 (A) Height (B) Width (C) Top (D) Left 9. 使“中华人民共和国”在当前窗体上输出的语句是（ D ）。 (A) Debug. Print “中华人民共和国” (B) Picture.Print “中华人民共和国” (C) Printer. Print “中华人民共和国” (D) Print “中华人民共和国” 10. 在Visual Basic中，下列哪种控件可以包含其他控件（ A ）。 （A）Picture （B）Commandbutton （C）Label （D）Checkbox 11. 当一个单选框被选中时，它的Value属性的值是（ C ）。 （A）0 （B）1 （C）True （D）False 12. 在窗体上有一个组合框控件Combo1，其中含有4个项目，则以下能删除第一项的语句是（ B ）。 （A）Combo1.RemoveItem Text （B）Combo1.RemoveItem 0 （C）Combo1.RemoveItem 1 （D）Combo1.RemoveItem Combo1.Listcount 三.编程题(每小题4分,共32分) 1. 编程用InputBox函数输入3个数，然后按值从小到大的顺序输出。 解： Dim x As Single, y As Single, z As Single, t As Single x = InputBox("x=") : y = InputBox("y=") : z = InputBox("z=") : If x > y Then t = x : x = y : y = t If x > z Then t = x : x = z : z = t If x > y Then t = x : x = y : y = t Print x, y, z 2. 某航空公司设计一售机票程序，根据月份和订票数决定优惠率，计算票价。优惠折扣如下： （1）在旅游旺季的7～9月份，如果订票数超过20张，优惠15％；20张以下，优惠5％。 （2）在旅游淡季的1～5月份、10月份和11月份，如果订票数超过20张，优惠30％；20张以下，优惠20％。 （3）其它情况，一律优惠20％。 解： Dim y%,z%,dj%,p!,t! Y=val(inputbox(“月”)) Z= val(inputbox(“订票数”)) Dj= val(inputbox(“票价”)) Select case y case 7,8,9 If z>=20 then p=0.15 else p=0.05 case 1 to 5,10,11 If z>20 then p=0.3 else p=0.2 Case else P=0.2 End select T=z*dj*p Print T VB 课程试卷 （C）卷 第 3 页 共 3 页 3. 计算100-500之间可以被3整除的数或能被5整除的数的和。 解： dim i%,s% S=0 For i=100 to 500 If I mod 15=0 then s=s+i Next i Print s 4. 计算 的近似值。 解： dim a%,i%,n%,k# A=1 : K=1 N=inputbox(“n的值”) For i=1 to n K=k*I ： A=a+1/k Next Print a 5. 编写程序，当单击窗体时，窗体变宽，每单击一次窗体宽度增加20。 解：Private sub form_click() Form1.width=Form1.width+20 End sub 6.​ 有50个整数存放在一维数组中，编程序，求出最大数及其位置 解： dim a%(50),i%,wz%,max% For i=1 to 50 A(i)=inputbox(“输入数据”) Next wz=1 ： Max=a(1) for i=2 to 20 if a(i)>min then max=a(i) : wz=i next print max,wz 7. 在窗体上创建两个文本框text1、text2和命令按钮command1，编写command1的click事件过程，完成如下功能： （1）获取text1中输入的整数。 （2）编写一个函数过程，判断text1中输入的是奇数还是偶数。 （3）如在text1中输入的数据是奇数，在text2中显示“奇数”，否则显示“偶数”。 解： Private sub command1_click() Dim str1 as integer ,str2 as integer Str1=text1.text If pd(str1)=1 then Text2.text=” 奇数” Else Text2.text=” 偶数” End if End sub Function pd(t1 as integer) as integer If (t1+1) mod 2 = 0 then Pd=1 Else Pd=0 End if End function 8. 在窗体上一个命令按钮command1，编写command1的click事件过程，完成如下功能： （1）定义一个大小为50的数组，用随机函数产生-50~50的整数给数组中所有元素赋值。 （2）编写一个子过程，将数组中的元素按从大到小的顺序排序。 （3）将所有元素10个一行输出。 解： Private sub command1_click() Dim a%(50),i% For i=1 to 50 A(i)=int(Rnd*100)-50 next call px(a) For i=1 to 50 Print A(i); If I mod 10 =0 then print next End sub Private sub px(b%()) Dim i%,j%,t% For i=lbound(b) to ubound(b)-1 For j=i+1 to ubound(b) If b(i)