云南农业大学学年第2学期期末考试.docx
- 文档编号:9461122
- 上传时间:2023-05-19
- 格式:DOCX
- 页数:16
- 大小:26.02KB
云南农业大学学年第2学期期末考试.docx
《云南农业大学学年第2学期期末考试.docx》由会员分享,可在线阅读,更多相关《云南农业大学学年第2学期期末考试.docx(16页珍藏版)》请在冰点文库上搜索。
云南农业大学学年第2学期期末考试
学院:
专业:
学号:
姓名:
教学班号:
云南农业大学2008—2009学年第2学期期末考试
《VisualBasic程序设计》试卷(A卷)
(课程代码6111012)
本试题满分100分,考试时间120分钟。
题号
一
二
三
四
总分
得分
阅卷人
注意:
所有答案要填写至答题卡上。
密
线
封
一.判断题(每题1分,共10分)。
1.任何字母的组合都可以作为VB的变量名。
A
A.对B.错
2.CLS方法能清除窗体上的所有文字和图片B。
A.对B.错
3.标签不能接收焦点。
B
A.对B.错
4.Int(-1.2)和Fix(-1.2)的结果一样B。
A.对B.错
5.注释语句不能放在续行符的后面。
A
A.对B.错
6.当一行中有多个语句时,可以用逗号作为分隔符。
A
A.对B.错
7.表达式5/4*6\5Mod2的值为1。
A
A.对B.错
8.事件过程可以像通用过程一样由用户定义过程名。
B
A.对B.错
9.语句“Dima,bAsInteger”声明了两个整型变量。
B
密
线
封
A.对B.错
第1页(共12页)
10.VisualBasic中允许不同对象使用相同名称的方法。
A
A.对B.错
二.单选题(每题2分,共50分)。
1.如果要在文本框中键入字符时,只显示某个字符,如星号(*),应设置文本框的__B____属性。
A.CaptionB.PasswordCharC.TextD.Char
2.下列数组声明语句,正确的是___C___。
A.Dima[3,4]AsIntegerB.Dima(3,4)AsInteger
C.Dima(n,n)AsIntegerD.Dima(34)AsInteger
3.下列程序段的执行结果为_____D_。
a=1:
b=2:
c=a=b
Printa;b;c
A.112B.111C.222D.12False
4.现有语句:
y=IIf(x>0,xMod3,0),设x=10,则y的值是__B____。
A.0 B.1 C.3 D.语句有错
5.下面程序执行时,当在窗体上单击左键时的输出结果是__B____。
PrivateSubForm-Click()
DimiAsInteger,jAsInteger,sAsSingle
Fori=6To5Step-1
s=0#
Forj=iTo4Step-1
s=s+i*j
Nextj
Nexti
Prints
EndSub
A.90B.45C.135D.60
6.为了在按下Esc键时执行某个命令按钮的Click事件过程,需要把该命令按钮的一个属性
设置为True,这个属性是_C_____。
A.CancelB.DefaultC.valueD.Enabled
第2页(共12页)
7.当一个复选框被选中时,它的Value属性的值是____B__。
A.0B.1C.2D.3
8.设有如下程序:
OptionBase0
PrivateSubForm_Click()
Dima
DimiAsInteger
a=Array(1,2,3,4,5,6,7,8,9)
Fori=0To3
Printa(5-i);
Next
EndSub
程序运行后,单击窗体,则在窗体上显示的是__C____。
A.4321B.5432C.6543D.7654
9.以下能在窗体Form1的标题栏中显示“VisualBasic窗体"的语句是______C。
A.Form1.Name="VisualBasic窗体"B.Form1.Title="VisualBasic窗体"
C.Form1.Caption="VisualBasic窗体"D.Form1.Text="VisualBasic窗体”
10.为了使列表框中的项目呈多列显示,需要设置的属性为___B___。
A.Columns B.StyleC.List D.MultiSelect
11.若变量a未实现定义而直接使用(例如:
a=0),则变量a的类型是____B__。
A.Integer B.String C.Boolean D.Variant
12.下列程序段的执行结果为_____B_。
A=75
IfA>60ThenI=1
IfA>70ThenI=2
IfA>80ThenI=3
IfA>90ThenI=4
第3页(共12页)
Print“I=”;I
A.I=1B.I=2C.I=3D.I=4
13.执行以下程序段后,x的值为___B___。
DimiAsInteger,xAsInteger
x=0
Fori=20To1Step-420,16,12,8,4
x=x+i\5
Next
Printx
A.9B.10C.11D.12
14.在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框,然后编写如下事件过程:
PrivateSubCommand1_Click()
n=Text1.Text
SelectCasen
Case1To20
x=10
Case2,4,6
x=20
CaseIs<10
x=30
Case10
x=40
EndSelect
Text2.Text=x
EndSub
程序运行后,如果在文本框Text1中输入10,然后单击命令按钮,则在Text2中显示的内容是__D____。
A.10B.20C.30D.40
第4页(共12页)
15.下列程序段的执行结果为__C____。
X=6
ForK=1to10step-2
X=X+K
NextK
PrintK;X
A.-16B.-116C.16D.1131
16.设a=“VisualBasic”,下面使b=“Basic”的语句是___C___。
A.b=Left(a,8,12)B.b=Mid(a,8,5)C.b=Rigth(a,5,5)D.b=Left(a,8,5)
17.设x=4,y=8,z=7,以下表达式的值是___D___。
x A.1B.-1C.TrueD.False 18.在窗体上画一个名为Command1的命令按钮,然后编写以下程序: Private Sub Command1_Click() Dim M(10) As Integer For k = 1 To 10 M(k) = 12-k Next k x = 8 Print M(2+M(x)) End Sub 运行程序,单击命令按钮,在窗体上显示的是___A___。 A.6 B.5 C.7 D.8 19.在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: PrivateSubCommand1_Click() DimaAsInteger,sAsInteger a=8 s=1 Do 第5页(共12页) s=s+a a=a-1 LoopWhilea<=0 Prints;a EndSub 程序运行后,单击命令按钮,则窗体上显示的内容是____C__。 A.79B.340C.97D.死循环 20.Int(100*Rnd (1))产生的随机整数的闭区间是__D____。 A.[0,99]B.[1,100]C.[0,100]D.[1,99] 21.执行如下语句: a=inputBox(“xx”,“yy”,“zz”,5) 将显示一个输入对话框,在对话框的输入区中显示的信息是___C___。 A.xxB.yyC.zzD.5 22.在窗体中添加一个命令按钮(Name属性为Command1),然后编写如下代码: PrivateSubCommand1_Click() Dimk,n,mAsInteger n=5 m=1 k=1 DoWhilek<=n m=m*2 k=k+1 Loop Printm EndSub 程序运行后,单击按钮,输出结果为___B___。 A.12B.32C.48D.96 23.在窗体上画一个名称为Commandl的命令按钮,再画两个名称分别为Labell、Label2 的标签,然后编写如下程序代码: 第6页(共12页) PrivateSubCommandl—Click() DimX%,Y% X=5: Y=3 Callproc(X,Y) Label1.Caption=X Label2.Caption=Y EndSub PrivateSubproc(ByValaAsInteger,ByValbAsinteger) X=2*a Y=b+b EndSub 程序运行后,单击命令按钮,则两个标签中显示的内容分别是___C___。 A.5和3B.10和3C.10和6D.5和6 24.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程: PrivateSubCommand1_Click() DimiAsInteger,nAsInteger Fori=0To50 i=i+3 n=n+1 Ifi>10ThenExitFor Next Text1.Text=Str(n) EndSub 程序运行后,单击命令按钮,在文本框中显示的值是_____C_。 A.5 B.4 C.3 D.2 25.为了清除窗体上的一个控件,下列正确的操作是__D____。 A.按回车键B.按Esc键 C.选择(单击)要清除的控件,然后按回车键 D.选择(单击)要清除的控件,然后按Del键 第7页(共12页) 三.填空题(每空2分,共20分)。 1.VB中窗体的扩展名是frm。 2.表达式Abs(-3)+Sqr(100)*Len(“12”)的值为23。 3.为了使计时器控件Timer1每隔0.5秒触发一次Timer事件,应将Timer1控件的interval属性设置为500。 4.假设某一过程如下: PrivateSubCmd1_Click() Form1.Caption=“VB示例” EndSub 则响应该过程的对象名是command1。 5.以下程序的功能是: 求1+2+…+100,请将下列程序补充完整。 DimsAsInteger,iAsInteger s=0 fori=1to100 s=s+i next Prints 6.若使命令按钮不可见,应将按钮的visible属性设置为False。 7.在窗体上画一个名称为Commandl的命令按钮,一个名称为Labell的标签,然后 编写如下事件过程: PrivateSubCommandl_C1ick() s=0 Fori=1to15 x=2*i-1 ifxMod3=0Thens=s+1 Nexti Label1.Caption=s EndSub 程序运行后,单击命令按钮,则标签中显示的内容是label1。 第8页(共12页) 8.设a=10,b=5,c=1,执行语句Printa>b>c后,窗体上显示的是ture。 9.执行下面的程序段后,k的值为12。 K=0 ForJ=1To2 ForI=1To4 K=I+1 NextI ForI=1To7 K=K+1 NextI NextJ PrintK 10.在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程: PrivateSubCommand1_Click() DimiAsInteger,xAsInteger Fori=1To6 Ifi=1Thenx=i Ifi<=4Then x=x+1 Else x=x+2 EndIf Nexti Printx EndSub 程序运行后,单击命令按钮,其输出结果为。 第9页(共12页) 四.编程题(每题10分,共20分)。 1.通过键盘输入三个数,求出这三个数中的最大数,并将其输出到窗体上。 2.计算S=1+1/2+1/4+1/7+1/11+1/16+1/22+1/29+……,当第I项≤10-2时结束。 第10页(共12页) 云南农业大学2008—2009学年第2学期期末考试 《VisualBasic程序设计》答题卡(A卷) 学院: 专业: 学号: 姓名: 教学班号: 题号 一 二 三 四 总分 得分 阅卷人 一.判断题(每题1分,共10分)。 1 2 3 4 5 6 7 8 9 10 二.单项选择题(每小题2分,共50分)。 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 三.填空题(每小题2分,共20分)。 1.2. 3.4. 5.6. 7.8. 9.10. 第11页(共12页) 四.编程题(每题10分,共20分)。 1. 2. 第12页(共12页)
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 云南 农业大学 学年 学期 期末考试