《高职vb期末考试试卷(c).pdf》由会员分享，可在线阅读，更多相关《高职vb期末考试试卷(c).pdf（5页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、学 号:青岛恒星职业技术学院2008-2009第一学期期末考试姓 名:班 级:Visual Basic程序设计 试 卷(C)(考试时间100分钟，满 分100分)注 意 事 项1.考生应严格遵守考场规定，得到人员指令后方可答题。2.考生拿到试卷后应首先填写密封线内各项内容(学号、姓名、专业)，不得填出密封线外。3.注意字迹清楚、保持卷面整洁。4.考试结束将试卷放在桌上，不得带走。待监考人员收毕清点后，方可离场。题号一二三四五六七八总分阅卷人分数装订线得分评卷人一、单项选择题(本大题共20小题，每小题2 分，共 4 0 分)1、设有如下语句：Dim a,b As Integerc=nVisual
2、Basicd=#7/2 0/2005#以下关于这段代码的叙述中，错误的是()A)a 被定义为Integer类型变量B)b 被定义为Integer类型变量C)c 中的数据是字符串D)d 中的数据是日期类型2、设 a=4,b=3,c=2,d=l,下列表达式的值是()ab+1 Or cd And b Mod cA)True B)1 C)-l D)03、以下可以作为VisualBasic变量名的是()A)A#A B)counstA C)3A D)?AA4、设 x=4,y=6,则以下不能在窗体上显示出“A=10”的语句是()A)Print A=x+y B)Print A=；x+yC)Print A=+S
3、tr(x+y)D)Print,A=&x+y5、当组合框的Style属性设置为何值时，组合框称为简单组合框()A.0 B.1 C.2 D.36、在参数传递过程中，使用关键字()来修饰参数，可以按值传递A.By Vai B.By Ref C.Value D.Reference7、在 VB中，要将一个窗体装入内存，应使用的语句是()A.UnLoad B.Hide C.Show D.Load8、假定在图片框Picturel中装入了一个图形，为了清除该图形(不删除图片框)，应采用的正确方法是()A.选择图片框，然后按 Del 键 B.执行语句 Picture.Picture:LoadPicture()C
4、.执行语句Picturel.Piclure=“D.选择图片框，在属性窗口中选择Piclure属性，9、Private Sub Command l_Click()Dim a As Integera=2For i=l To 3Print Gad(a)Next iEnd SubFunction Gad(a As Integer)b=0Static cb=b+1c=c+1Gad=a+b+cEnd Function运行上面的程序后，单击命令按钮，输出结果为()A.1 2 3 B.2 3 4 C.4 5 6 D.1 4 610、下列数组定义语句错误的是()A.k%=10Dim Arr(k)B.Const
5、k%=10Dim Arr(k)C.Dim Arrl(10)As IntegerDimArr2(10)D.DimArrl(l To10)Dim Arr2（i To 10,2 To 11）1 1 如果要将窗体中的某个命令按钮设置成无效状态，应该动命令按钮的何种属性（）A.Value B.Visible C.Default D.Enabled1 2 在窗体上有多个控件，要实现程序运行后焦点默认 在 某 控件上，应该设置的属性是（）A.设置Enabled的值为TrueB.设置Tabindex的值为1C.设置Tabindex的值为0D.设置Index的值为013下列几项中，属于合法的日期型常量的是（）A
6、.”10/10/02”B.10/10/02 C.10/10/02）D.#10/10/02#14、下列程序段的执行结果为（）A=2B=5If A*B0A.True B.False C.-1 D.115、标签控件能够显示文本信息，决定其文本内容的属性是（）A.Alignment B.Caption C.Visible D.BorderStyle16、在属性窗口中，加载指定的图形放入当前对象中的属性是（）A.CurrentY B.Picture C.CurrentX D.Caption17、在窗体上湎一个名称为Comamndl的命令按钮，然后编写如下通用过程和命令按钮的事件过程：Private Fu
7、nction fun（By Vai m As Integer）IfmM od2=0Thenfun=2Elsefun=1End IfEnd FunctionPrivate Sub Command 1 _Click()Dim i As Integer,s As Integers=0For i=1 To 5s=s+fun(i)Next iPrint sEnd Sub程序运行后,单击命令按钮，则窗体上显示的是()A.6 B.7 C.8 D.918、在窗体上画一个名称为Labell的标签，然后编写如下事件过程:Private Sub Form_Click()Dim arr(10,10)As Intege
8、rDim i As Integer,j As IntegerFor i=2 To 4Forj=2To4arr(i,j)=i*jNext jNext iLabel 1 .Caption=Str(arr(2,2)+arr(3,3)End Sub程序运行后，单击窗体，在标签中显示的内容是()A.12 B.13 C.14 D.1519、下列程序段的执行结果为()1=1x=5Do1=1+1x=x+2Loop Until I=7PrintMI=;I,Printx=;xA.1=4 x=5 B.1=7 x=15C.I=6 x=8 D.I=7 x=1720、根据变量 的 作 用域，可以将变量分为3类，分别为()
9、A.局部变量、模块变量和全局变量B.局部变量、模块变量和标准变量C.局部变量、模块变量和窗体变量D.局部变量、标准变量和全局变量得分评卷入二、填空题(本大题共5小题，每小题3分，共15分)I、随机产生10到1000之间的整数(包括10和1000)。2、表达式3 A 2 Mod 36 2八5的值是。3、当对象得到焦点时，会触发 事件，当对象失去焦点时招触发 事件。4、3、在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程：Private Sub Form_Click()Text 1.Text=VB 程序设计”End SubPrivate Sub Text I _Change()Pictu
10、re 1.Print VBProgrammingEnd Sub程序运行后，单击窗体，在 文 本 框 中 显 示 的 内 容 是，而在图片框中显示的内容是 05、x+y 小于10 且 x-y 要 大 于 0 的 逻 辑 表 达 式是0得分评卷人三、完善程序题(本大题共3小题，第小题5分，共15分)1、卜.面是用冒泡法将5个整数按升序排列，请将程序补充完整。Sub GASR()Dim mm=Array(10,1,5,6,7)For i=0To3Forj=_If m(i)=m(j)Thenm(i)=m(j)m(j)=tEnd IfNextjFori=0 To4Print m(i)NextEndSub
11、2、我国古代数学家张丘建在其著名的算经 中提出了百鸡问题：每只公鸡元，每只母 鸡 3元，三只雏鸡1元；如何用100元 买 100只鸡，即公鸡、母鸡、雏鸡各多少只。请在空白处填入适当的内容，将程序补充完整。Private Sub Command I _Click()Dim Cock As IntegerDini Hen As IntegerDim Chick As IntegerForm 1 .Print”公鸡数，“母鸡数“，“雏鸡数”ForCock=0To20For Hen=0 To 33For Chick=0To 100I fThenForm 1 .Print Cock,Hen,ChickEnd IfNext ChickNext HenNext CockEnd Sub3、新建一个工程，内有两个窗体，窗体Form 11 二有一个命令按钮Command1,钮，Form l窗体消失，显示Form2窗体，程序如卜.：Private Sub Command 1 _Click()_.HideForm2._End Sub得分评卷人单击该按四、编写程序题(本大题共3 小题，每小题10分，共 30分)1、编程序计算下面分段函数ex+In x x0丫 =0 x=03x2+5x+1 x=3)