vb考试答案（B）

山东交通学院2006年（1+3）学分互认考试 课程试卷 （ ）卷 第 页 共 页 VB 课程试卷 （B）卷 第 1 页 共 3页 题 快递公司问题件快递公司问题件货款处理关于圆的周长面积重点题型关于解方程组的题及答案关于南海问题 号 一 二 三 四 五 六 七 八 九 十 总分 说明:本课程考试分为上机考试和笔试两部分,满分100分,其中上机占40分,笔试60分,本试卷为笔试试卷，卷面满分60分。 一.填空题(每空1分,共16分) 1. VB是一种面向_对象_的可视化程序设计语言，采取了_事件驱动_的编程机制。 2. 把 写成VB 表 关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf 达式_ sin(a)*sin(b)+a^3_。 3. 用四舍五入的方法截掉x小数点后面第3位及以后的数_ cint(x*100)/100_。 4. 赋值语句的作用是：首先计算“=”右边表达式的值，然后将该值赋给“=”左边的__变量__或对象的属性。 5. 为了提高程序的可读性，在VB中用__’ ____或___ rem ____来表示一条注释语句。 6. 同一控件数组中各个控件的___ index ___属性相当于普通数组中的下标。 7. 要在ListBox控件中的增加某个项目，需要用__ additem __方法。 8. 将焦点移动到某个控件上的方法是__ setfocus __。 9. 有如下程序段，运行时，从键盘输入-3,输出的结果是_-5 -2__ x=-5 s=inputbox(“请输入s的值”) select case s case is >0 y=x+1 case is=0 y=x+2 case else y=x+3 end select print x;y 10. 在窗体上添加一个图片框控件（name属性为P1），要在运行时将位于C：盘根目录下名为tu1.jpg图形文件装入图片框，所使用语句为p1.picture=loadpicture(“c:\tu1.jpg”)。 11. 在V B中有一种控件组合了文本框和列表框的特性，这种控件是__组合框_。 12. 下面程序运行后输出的结果是__2 7__。 a = 8:s = 1 do s = s + 1 a = a –1 loop while a <=0 print s;a 13. 下面程序运行后，单击窗体，输出结果为_5+10=15 (换行) 8+20=28 __。 Private Sub Form_Click() Print “5+10=”; Print 5+10 Print “8+20=” , Print 8+20 End Sub 14. 下列程序运行的输出结果是____12____。 for I = 1 to 3 for j = 0 to I+1 x = x+1 next I next j print x 二.选择题(每小题1分,共12分) 1. ( B )是由VB预定义的对象能够识别的动作。 (A) 对象 (B) 事件 (C) 过程 (D) 事件过程 VB 课程试卷 （B）卷 第 2 页 共 3页 2.窗体文件的扩展名为( D )。 (A) .fix (B) .bas (C) .vbp (D) .frm 3. 执行语句s = len(mid(“VisualBasic”,1,3))后，s的值是( C )。 (A) Vis (B) 2 (C) 3 (D) 4 4.下列选项中，合法的变量名( B )。 (A) v+aaa (B) m_2 (C) End (D) 5_p 5.​ 返回字符串首字符的ASIIC值的函数是( C ) 。 (A) Str() (B) Chr() (C) Asc() (D) Trim() 6. 运行以下程序后， i的值是( D )。 x=0 for i = 1 to 10 step 2 x = x + i next i (A) 23 (B) 25 (C) 9 (D) 11 7. 对一个窗体对象，其最先发生的事件是（ C ） (A) Click (B) DbClick (C) Load (D) Unload 8. 确定一个窗体或控件宽度的属性是（ B ）。 (A) Height (B) Width (C) Top (D) Left 9. 使“山东交通学院”在当前窗体上输出的语句是（ A ）。 (A) Print “山东交通学院” (B) Picture.Print “山东交通学院” (C) Printer. Print “山东交通学院” (D) Debug. Print “山东交通学院” 10. 在Visual Basic中，下列哪种控件可以包含其他控件（ A ）。 （A）Frame （B）Commandbutton （C）Image （D）Checkbox 11. 当一个复选框不被选中时，它的Value属性的值是（ A ）。 （A）0 （B）1 （C）2 （D）3 12. 在窗体上有一个组合框控件Combo1，其中含有4个项目，则以下能删除最后一项的语句是（ D ）。 （A）Combo1.RemoveItem Text （B）Combo1.RemoveItem 2 （C）Combo1.RemoveItem Combo1.Listcount （D）Combo1.RemoveItem 3 三.编程题(每小题4分,共32分) 1. 用输入框输入x，根据下式计算对应的y，并在窗体上输出y的值。 解： Dim x!, y! x = InputBox("x=") If x > 0 Then y = Log(x) + Sin(x) ElseIf x = 0 Then y = 0 Else y = Exp(x) + 6 End If Print y 2. 输入年份、月份,输出该月天数。 解： Dim y%,m%,d% y=inputbox(“输入年份:”) m= inputbox(“输入月份:”) select case m case 1,3,5,7,8,10,12 d=31 case 4,6,9,11 d=30 case 2 if y mod 4=0 and y mod 100<>0 or y mod 400=0 then d=29 : else : d=28 end if end select print y;”年”;m;”月”;d;”天” VB 课程试卷 （B）卷 第 3 页 共 3 页 3. 如图以倒三角的方式打印九九乘法表： 解： dim i%,j% For i=1 to 9 For j=i to 9 Print tab(10*j);I & “×” & j & “=” & i*j; Next j print Next i 4. 某员工的年工资为15万元人民币，员工工资每年涨9.8%，多少年后该员工工资翻一番。 解：dim a%,i% A=15 ：I=0 While a<30 A=a*1.98 ： I=i+1 Wend Print i 5. 编写程序，当单击窗体时，窗体变宽，每单击一次窗体宽度增加50。 解：Private sub form_click() Form1.width=Form1.width+50 End sub 6. 随机产生20 个两位整数存放在一维数组中，找出其中的最大值、最小值。 解： dim a%(20),i%,min%,max% For i=1 to 20 A(i)=int(rnd*90)+10 Next Min=a(1) Max=a(1) for i=2 to 20 if a(i)min then max=a(i) next print min ,max 7. 编写窗体上命令按钮command1的click事件过程，完成如下功能： （1）输入一个字符串。 （2）编写一个函数过程，将字符串逆序，如输入字符串“abcd”，逆序后变成“dcba”。 （3）输出逆序后的字符串。 解： Private sub command1_click() Dim str1 as string ,str2 as string Str1=inputbox(“请输入一个字符串”) Str2=fun(str1) Print str2 End sub Function fun(s as string) as string Dim s1 as string,i% For i=1 to len(s) S1=mid(s,i,1)+s1 Next Fun=s1 End function 8. 在窗体上一个命令按钮command1，编写command1的click事件过程，完成如下功能： （1）编写一个函数过程， 判断一个整数是否能被11和13同时整除。 （2）将500~1000中，所有能被11和13同时整除的数5个1行显示在窗体上。 解： Private sub command1_click() Dim i as integer,j as integer J=0 For i=500 to 1000 If pdsj(i)=1 then Print I ： J=j+1 If j mod 5=0 then print End if next End sub Function pdsj(t1 as integer) as integer If t1 mod 11 = 0 and t1 mod 13=0 then Pdsj=1 Else Pdsj=0 End if End function