07VB语言概论期末考卷.docx
- 文档编号:10252201
- 上传时间:2023-02-09
- 格式:DOCX
- 页数:12
- 大小:27.58KB
07VB语言概论期末考卷.docx
《07VB语言概论期末考卷.docx》由会员分享,可在线阅读,更多相关《07VB语言概论期末考卷.docx(12页珍藏版)》请在冰豆网上搜索。
07VB语言概论期末考卷
年级:
_____________专业:
_____________________班级:
_________________学号:
_______________姓名:
__________________
…………………………………………………………..装………………….订…………………..线………………………………………………………
诚信应考考出水平考出风格
浙江大学城市学院
2006—2007学年第二学期期末考试试卷
《VB语言程序设计概论》
开课单位:
计算分院;考试形式:
闭卷;考试时间:
2007年7月7日
所需时间:
120分钟
题序
一
二
三
四
五
总分
得分
评卷人
得分
一.是非题(本大题共10题,每题1分,共10分。
)
题号
1
2
3
4
5
6
7
8
9
10
╳或√
得分
二.单选题(本大题共15题,每题1分,共15分。
)
题号
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
得分
三.程序阅读题(本大题共5题,每题5分,共25分。
)
123________
45.
得分
四.程序填空题(本大题共3题,每空2分,共20分。
)
(1)
(2)_________________
(3)(4)________________(5)(6)________________
(7)(8)________________
(9)(10)________________
得分
五.程序设计题(本大题共3题,每题10分,共30分。
)
第1题:
.
第2题:
.
第3题:
.
年级:
_____________专业:
_____________________班级:
_________________学号:
_______________姓名:
__________________
…………………………………………………………..装………………….订…………………..线………………………………………………………
浙江大学城市学院
2006—2007学年第二学期期末考试试卷
《VB语言程序设计概论》
开课单位:
计算分院;考试形式:
闭卷;考试时间:
2007年7月7日
所需时间:
120分钟
一、是非题(10分,每题1分)
1.使用复选框控件数组时,它们响应同一个Click事件,由Index参数值来区分不同的按钮。
2.要使输入文本框的字符始终显示“*”,则应修改其PasswordChar属性为“*”。
3.列表框控件List1的最后一个表项为List1.List(List1.ListCount)。
4.设置框架时,可先在窗体上画好框架,再往框架内添置控件;也可以先设计控件,再建立框架,然后将已有控件拖动到框架中。
5.数组作参数传递时,实参和形参共用相同的存储空间。
6.将容器的FillStyle属性设置为1后,容器中已绘制的图形的填充样式都为实心。
7.标签和文本框控件都能显示字符,其显示的内容都是该控件的Caption属性值。
8.将数据项“西瓜”添加到列表框list1中,且使之成为最上面第一项,可以使用下面语句实现:
list1.additem“西瓜”,1
9.当定时器控件的Interval属性值设置为0时,会连续不断地激发Timer事件。
10.执行语句:
Print10=5+8不会出现语法错误。
二、单选题(15分,每题1分)
1.代数式
的VisualBasic表达式是。
A、a+b/Sqr(c+Log(a))+c/dB、(a+b)/(Abs(c+Log(a))+c/d)
C、(a+b)/(Abs(c+Log(a))+c/d)D、(a+b)/(Sqr(c+Log(a))+c/d)
2.设计动画时通常用定时器控件属性来控制动画速度。
A、IntervalB、TimerC、MoveD、Enabled
3.当文本框的属性设置为True时,文本框控件就可以接受多行文本并设置滚动条了。
A、EnabledB、LockedC、passwordcharD、MultiLine
4.执行下面程序后,列表框中的数据项有______。
subform_click()
fori=1to4
list1.additemi
nexti
fori=1to2
list1.removeitemi
nexti
Endsub
A、1,3B、1,2C、1,4D、2,4
5.复选框被选中时,Value属性的值为_______。
A、TrueB、FalseC、0D、1
6.若i的初值为8,则下列循环语句的循环次数为______次。
Dountili<=12
i=i+2
Loop
A、0次B、1次C、2次D、3次
7.运行时组合框控件Combl中所选择的表项,可以表示为。
A、Combl.ListlndexB、Combl.List
C、Combl.TextD、Combl.ListCount
8.函数Val("&H100")的返回值为。
A、256B、0C、100D、64
9.滚动条控件的属性用于指定用户单击滚动箭头时Value属性值的增量。
A、LargeChangeB、Change
C、SmallChangeD、Value
10.List1.Clear中的Clear是。
A、方法B、对象C、属性D、事件
11.具有Clear方法。
A、图片框B、窗体C、复选框D、列表框
12.重新定义图片框控件的坐标系统,可采用该图片框的方法。
A.ScaleXB.ScaleC.ScaleYD.SetFocus
13.在SelectCasex的语句中,判断x是否大于等于10小于等于20的是。
A、Casex>=10Andx=<20B、Case10To20
C、Case10<=x<=20D、CaseIs>=10,Is=<20
14.将焦点主动设置到指定的控件或窗体上,应采用方法。
A、SetDateB、SetFocusC、SetTextD、GetGata
15.在图片框控件Picture1上坐标(x,y)处画一个绿色点,写作。
A、Pset(x,y),Rgb(0,255,0)B、Picture1.Pset(x,y),Green
C、Pset(x,y),vbGreenD、Picture1.Pset(x,y),vbGreen
三、程序阅读题(25分,每题5分)
1.下列程序运行时单击Command1后,分别写出文本框Text1和Text2中Text的值。
PrivateSubCommand1_Click()
n=0:
x=1
DoWhilex<20
n=n+1
x=x*(x+1)
Loop
Text1.Text="n="&Str(n)
Text2.Text="x="&Str(x)
EndSub
2.写出下列程序运行时单击窗体后,Form1上的输出结果。
PrivateSubForm_Click()
Dimx(5)AsInteger
x
(1)=18:
x
(2)=12:
x(3)=16:
x(4)=15:
x(5)=24
Fori=1To4
Forj=i+1To5
Ifx(i) x(i)=x(j): x(j)=t Nextj,i Fork=1To5 Print"x(";k;")=";x(k) Nextk EndSub 3.下面程序运行时,单击窗体后,请写出窗体上显示的结果。 DimiAsInteger,nAsInteger PrivateSubForm_Click() DimiAsInteger Fori=1To3 s=sum(i): Print"s=";s Nexti EndSub PrivateFunctionsum(nAsInteger)asinteger StaticjAsInteger j=j+n+1: sum=j EndFunction 4.下面程序运行时,在输入对话框中输入字符串“ABCDEFG”,写出窗体中显示的结果。 PrivateSubForm_Click() DimsAsString,nAsInteger DimiAsInteger,jAsInteger s=InputBox("请输入字符串s") n=Len(s) Fori=1Ton PrintTab(10-i); Forj=1To2*i-1 PrintChr(Asc(Mid(s,i,1))+2); Nextj Print Nexti EndSub 5.说明程序运行后,鼠标在图片框上压下左键,拖动后再弹起左键,窗体上的输出结果。 Dimx1AsSingle,y1AsSingle PrivateSubPicture1_MouseDown(ButtonAsInteger,ShiftAsInteger, XAsSingle,YAsSingle) x1=X: y1=Y EndSub PrivateSubPicture1_MouseUp(ButtonAsInteger,ShiftAsInteger, XAsSingle,YAsSingle) Picture1.Line(x1,y1)-(X,Y),,B EndSub 四、程序填空题(20分,每空2分) 1.【程序说明】在窗体Form_Click事件过程中,用随机函数产生100个100-899的整数,放入数组a。 将其中的奇数放入数组b,然后运用选择排序法将数组b中的数据按 从小到大的顺序排序,并将数组b以每行10个数据在窗体上输出。 PrivateSubForm_Click() DimiAsInteger,jAsInteger,kAsInteger DimtAsInteger,mAsInteger,a(100)AsInteger,b(100)AsInteger Print"原始数据为: ": Print Fori=1To100 _________ (1)_________ Printa(i);: IfiMod10=0ThenPrint: Ifa(i)Mod2=1Then m=m+1 b(m)=a(i) EndIf Nexti Fori=1Tom-1 k=i ________ (2)_________ ________(3)_________ Nextj __________(4)___________ Nexti Print"其中偶数从小到大的排列为: " Fori=1Tom Printb(i); IfiMod10=0ThenPrint: Print Nexti EndSub (1)A、a(i)=Int(900*Rnd+100)B、a(i)=Int(901*Rnd+100) C、a(i)=Int(801*Rnd+100)D、a(i)=Int(800*Rnd+100) (2)A、Forj=1TomB、Forj=iTom-1 C、Forj=i+1TomD、Forj=iTom (3)A、Ifb(k)b(j)Thenk=j C、Ifb(k)>b(j)Thenb(k)=b(j)D、Ifb(k) (4)A、t=b(i): b(i)=b(k): b(k)=tB、t=b(i): b(k)=b(i): b(i)=t C、t=i: i=k: k=tD、t=b(k): b(i)=b(k): b(k)=t 2.【程序说明】如图,窗体上有一个图片框和两个组合框,图片框中有控件Shape1。 在两个组合框中分别选择Shape1的形状、边框参数后,图片框中控件Shape1作相应变化 PrivateSubCombo1_Click() Shape1.Shape=Combo1.List(_______(5)_______) EndSub PrivateSubCombo2_Click() ______(6)_________=Combo2.List(Combo2.ListIndex) EndSub PrivateSubForm_Load() DimiAsInteger Fori=0To5 Combo1.AddItemStr(i) Nexti Fori=0To6 _________(7)________ Nexti EndSub (5)A、Combo1.ListIndexB、Combo1.text C、Combo1.ListD、Combo1.Index (6)A、Shape1.FillStyleB、Shape1.BorderStyle C、Shape1.FillColorD、Shape1.BorderColor (7)A、Combo2.RemoveItemiB、Combo2.AddItemi C、Combo2.AddItemStr(i)D、Combo2.RemoveItemStr(i) 3.【程序说明】以下的通用函数过程,计算integer类型一维数组所有元素的平均值。 Private____(8)____fsum(____(9)_____,nAsInteger)Assinger DimiAsInteger Fori=1Ton fsum=fsum+x(i) Nexti __________(10)___________ EndFunction (8)A、FunctionB、Static C、SubD、Public (9)A、x(n)asIntegerB、x()asString C、a()asIntegerD、x()asInteger (10)A、fsum/nB、pj=fsum/n C、fsum=fsum/nD、pj=fsum 五、程序设计题(30分,每题10分) 1.编制事件过程Command1_Click,执行该过程时调用InputBox函数输入x,按下式计算y并在标签框控件Label1中显示y值。 2.编制Form_Click事件过程,计算下列数列的值,用InputBox函数输入n,将结果在文本框中输出。 3.编制Form_Click事件过程,画1个当前窗体中所能容纳的最大的蓝色实心圆。
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 07 VB 语言 概论 期末 考卷