vb考试答案(g).doc

试卷适用班级 班级 姓名 学号 VB 课程试卷答案 （G ）卷 第 1 页 共 3 页 题号一二三四五六七八九十总分得分审核得分阅卷人 一、填空题（每小题2分，共20分）1表达式 Int(-7.8)+Sgn(7.8)的值是_-7_。2Picture图片框要适应图片的大小，应将AutoSize属性设置为_True_。3下面程序运行后输出的结果是_3_9_。Dim X%, Y%X=6Y=3X= X - YY= X * YPrint X; Y4设置字体大小的属性是_fontsize或font_。5命令按钮最常用的事件是_click或单击_。6计算Z的值：当X大于等于Y时，Z=X，否则 Z=Y 请写出IF语句_if x=y then z=x else z=y_。 7在For、While和Do循环语句中， _for_循环语句不能解决循环次数不确定的问题。8为停止计时器控件计时，应将计时器控件的Enabled属性设置为_false_。9在VB中，实参与形参的结合有两种方法：_传址_和传值。10VB提供的_inputbox_函数可生成输入框。得分阅卷人 二、选择题（每小题2分，共20分）1在设计模式下，双击某个控件可以打开VB_B_窗口。A. 属性 B. 代码 C. 工程资源管理器 D. 工具箱2字符串函数Mid (“BisualBasic”, 7, 3) 的函数值是_D_。A. Bis B. sualBas C. sua D. Bas3VB三种语句控制结构是顺序结构、分支结构和_D_。A. 赋值语句 B. InputBox语句 C. MsgBox语句 D. 循环结构4下列程序运行后，窗体上显示的结果是_C_。 Private sub form_ click()x= -9If Sgn (x)=true theny=Sgn (x2)Elsey=Sgn (x)End IfPrint yEnd subA. -9 B. 81 C. 1 D. 15下列程序的执行结果是_C_。Private sub form_click() x=10i=6.5While I4.9x=x-1i=i-0.5Wendprint xEnd subA. 4.5 B. 5 C. 6 D. 6.56要在标签Label1中同步显示文本框Text1里输入的内容，必须触发Text1的_C_。A. Click事件 B. DbClick事件 C. Change事件 D. LostFocus事件7某个组合框中共有5个列表选项，_D_可以删除最后一个选项。A. Combo1.RemoveItem 5 B. Combo1.RemoveItem combo1.listCount C. Combo1.RemoveItem Text D. Combo1.RemoveItem 48Option base 1Dim A %(4) 所定义的数组A中，共有_A_个元素。A. 4 B. 5 C. 25 D.16密封线 试卷适用班级 2006级本专科学生 班级 姓名 学号 VB 试卷答案 （ G ）卷 第 2 页 共 3 页 9关于Sub过程和Function过程下列说法， _D_是正确的。A. Sub过程有形参，Function过程没有形参 B. Sub过程不能用Call语句调用C. Sub过程能返回过程值，Function过程不能返回函数值D. Function过程可以使用函数名返回函数值10有关VB菜单的描述如下，其中正确的选项是_B_。A. VB菜单分下拉式菜单、弹出式菜单和浮动式菜单B. 要建立弹出式菜单，必须将主菜单的Visible 属性设置为FalseC. 在菜单中插入分割条，需要在菜单编辑器的标题栏中输入“+”号D. PopupMenu方法可用来显示下拉菜单得分阅卷人 三、编程题（每小题10分，共60分）1. 编写程序计算出一元二次方程的根，其中b2-4ac大于零时，有两个实根，b2-4ac等于零时，有一个实根，b2-4ac小于零时，有两个复根。解： dim a!,b!,c!,x1!,x2!,d!,x3$,x4$ a=inputbox(“a的值：”) b=inputbox(“b的值：”)c=inputbox(“c的值：”)d=b*b-4*a*cif d0 then x1=(-b+sqr(d)/(2*a)x2=(-b-sqr(d)/(2*a)elseif d=0 then x1=-b/(2*a)else x3=-b/(2*a) & “+” & sqr(-d)/(2*a) & “i” x4=-b/(2*a) & “-” & sqr(-d)/(2*a) & “i”end if2编写程序，判断一个整数是否能被3和17同时整除。解：Dim x%X=inputbox(“x的值”)If x mod 51 then Print x & “能被3和17整除” else Print x & “不能被3和17整除” End if3编写程序打印100到900之间的所有素数，并统计100到900之间素数的个数。解： dim I%,flag%,t%,j% t=0for I =101 to 900 step 2 flag=0 for j=2 to int(sqr(i) if I mod j =0 then flag=1 nextif flag=0 then print It=t+1endif next print t 密封线 4使用循环语句编写程序打印输出下列图形： * * *解： dim I%,j% for I=4 to 1 step -1 for j=1 to 2*I+1 print tab(20-I+j);“*”;nextprint next5编程序用随机函数产生有50个200以内的整数存放在一维数组中，按从小到大进行排序打印。解： dim a%(50),I%,j%,t% for I=1 to 50 a(i)=int(Rnd*200) next for I=1 to 9 for j=I+1 to 10 if a(i)a(j) then t=a(i) a(i)=a(j) a(j)=t end if next j next i for I=1 to 10 print a(i); next 6在窗体上一个命令按钮command1，编写command1的click事件过程，完成如下功能：（1）编写一个子过程， 计算13+24+35+（n-2）n的值。（2）输入n的值，将计算结果显示在窗体上。解： private sub nnz(n%) dim I%,t# t=1 for I=1 to n-2 t=t+I*(I+2) next p