宁德八中高二上VB半期考试.docx
- 文档编号:29459700
- 上传时间:2023-07-23
- 格式:DOCX
- 页数:20
- 大小:26.20KB
宁德八中高二上VB半期考试.docx
《宁德八中高二上VB半期考试.docx》由会员分享,可在线阅读,更多相关《宁德八中高二上VB半期考试.docx(20页珍藏版)》请在冰豆网上搜索。
宁德八中高二上VB半期考试
宁德八中2011-2012高二(上)VB半期考试
专业班姓名学号
一、单项选择题(将答案写在试卷所附的白纸上,每题小题2分,共80分)
1.如下数组声明语句,()正确。
(A)Dima[3,4]AsInteger(B)Dima(3,4)AsInteger
(C)Dima(n,n)AsInteger(D)Dima(34)AsInteger
2.以下说法不正确的是()。
(A)使用ReDim语句可以改变数组的维数
(B)使用ReDim语句可以改变数组的类型
(C)使用ReDim语句可以改变数组的每一维的大小
(D)使用ReDim语句可以对数组中的所有元素进行初始化
3.假如用复制、粘贴的方法建立了一个命令按钮数组Command1,一下对该数组的说法错误的是()。
(A)命令按钮的所有Caption属性都是Command1
(B)在代码中访问命令按钮只需使用名称Command1
(C)命令按钮的大小都相同
(D)命令按钮共享相同的事件过程
4.要分配存放如下方阵的数据,可使用数组声明语句()来实现(不能浪费空间)。
(A)Dima(9)AsSingle
(B)Dima(3,3)AsSingle
(C)Dima(-1To1,-5To-3)AsSingle
(D)Dima(-3To-1,5TO7)AsInteger
5.如下数组声明语句,数组a包含元素的个数为()。
Dima(3,-2to2,5)
(A)120(B)75(C)60(D)13
6.以下程序输出的结果是()。
Dima
a=Array(1,2,3,4,5,6,7)
Fori=Lbound(a)ToUbound(a)
a(i)=a(i)*a(i)
Nexti
Printa(i)
(A)49(B)0(C)不确定(D)程序出错
7.以下程序输出的结果是()。
OptionBase1
PrivateSubCommandl_Click()
Dima%(3,3)
Fori=1To3
Forj=1To3
Ifi>1Andj>1Then
a(i,j)=a(a(i-1,j-1),a(i,j-1))+1
E1se
a(i,j)=i*j
EndIf
Printa(i,j);"";
Nextj
Nexti
EndSub
(A)123(B)123(C)123(D)111
231123246222
323123369333
8.以下程序输出的结果是()。
OptionBase1
PrivateSubCommand1_Click()
Dima,B(3,3)
a=Array(1,2,3,4,5,6,7,8,9)
Fori=1To3
Forj=1To3
B(i,j)=a(i*j)
If(j>=i)ThenPrintTab(j*3);Format(B(i,j),"###");
Nextj
Nexti
EndSub
(A)123(B)1(C)147(D)123
4564524646
7897893699
9.下列程序段的执行结果是()。
DimM(10)
ForK=1To10
M(K)=11-K
NextK
X=6
PrintM(2+M(X))
(A)2(B)3(C)4(D)5
10.下列程序段的执行结果是()。
PrivateSubCommand1_Click()
Dimarr(5)AsInteger,arr1(5)AsInteger
n=3
Fori=1To5
arr(i)=i
arr1(n)=2*n+i
Next
Printarr1(n);arr(n)
EndSub
(A)311(B)315(C)113(D)153
11.在窗体上添加一个命令按钮Command1,然后编写如下事件过程,该过程的执行结果是()。
OptionBase1
PrivateSubCommand1_Click()
Dima
a=Array(1,2,3,4)
j=1
Fori=4To1Step-1
s=s+a(i)*j
j=j*10
Next
Prints
EndSub
(A)4321(B)1234(C)34(D)12
12.在程序的开始有OptionBase0,则下面定义的数组中正好可以存放1个4×3矩阵(即只有12个元素)的是()。
(A)Dima(-2To0,2)AsInteger(B)Dima(3,2)AsInteger
(C)Dima(-1To-4,-1To-3)AsInteger(D)Dima(4,3)AsInteger
13.在窗体上有一个命令按钮Command1,然后编写如下事件过程,程序运行后,单击按钮输出结果是()。
OptionBase1
PrivateSubCommand1_Click()
Dima(5,5)AsInteger
Fori=1To5
Forj=1To5
a(i,j)=(i+j)*5\10
Nextj
Nexti
s=0
Fori=1To5
s=s+a(i,i)
Nexti
Prints
EndSub
(A)15(B)13(C)11(D)9
14.在窗体上画一个命令按钮,名为Command1,然后编写如下事件过程,程序运行后,单击按钮输入2、3,其输出结果是()。
PrivateSubCommand1_Click()
Dimn()AsInteger
Dima,bAsInteger
a=InputBox("Enterthefirstnumber")
b=InputBox("Enterthesecondnumber")
ReDimn(aTob)
Fork=LBound(n,1)ToUBound(n,1)
n(k)=k
Print"n(";k;")=";n(k)
Nextk
EndSub
(A)n
(2)=1(B)n
(2)=2(C)n
(2)=2(D)n
(2)=3
n(3)=2n(3)=1n(3)=3n(3)=2
15.下列程序运行后输出结果是()。
Dimm
(2)AsInteger
Fori=1To2
m(i)=0
Nexti
k=2
Fori=1Tok
Forj=1Tok
m(j)=m(i)+1
Printm(k)
Nextj
Nexti
(A)1(B)1(C)0(D)0
2221
2322
3433
16.VB中使用的过程不包括以下()。
(A)子程序过程(B)调用过程(C)函数过程(D)属性过程
17.在过程定义中用()表示形参为传值形式。
(A)Var(B)ByDef(C)ByVal(D)Value
18.以下哪个为定义静态变量的关键字()。
(A)Dim(B)Public(C)Static(D)Const
19.某过程Function中形参是一个数组,编写过程Fun的代码时,如果想知道该数组的下界,应该使用()函数。
(A)UCase(B)Bound(C)LBound(D)UBound
20.若已编写了一个Sort子过程,在该工程中有多个窗体,为了方便地调用Sort子过程,应该将过程放在()中。
(A)窗体模块(B)标准模块(C)类模块(D)工程
21.在过程中定义的变量,若希望在离开该过程后,还能保存过程中局部变量的值,则应使用()关键字在过程中定义局部变量。
(A)Dim(B)Private(C)Public(D)Static
22.下面子过程语句说明合法的是()。
(A)Subff(ByValn%())(B)Subff(n%)AsInteger
(C)Functionff%(ff%)(D)Functionff(ByValn%)
23.要想从子过程调用后返回两个结果,下面子过程语句说明合法的是()。
(A)Subf1(ByValn%,ByValm%)
(B)Subfl(n%,ByValm%)
(C)Subf1(n%,m%)
(D)Subfl(ByValn%,m%)
24.下面过程运行后,点击Command1一次显示的结果是()。
PublicSubFun(n%,ByValm%)
n=nMod10
m=m\10
EndSub
PrivateSubCommand1_Click()
Dimx%,y%
x=12:
y=34
CallFun(x,y)
Printx,y
EndSub
25.如下程序,单击Command1后的运行结果是()。
Dima%,b%,c%
PublicSubp1(x%,y%)
Dimc%
x=2*x:
y=y+2:
c=x+y
EndSub
PublicSubp2(x%,ByValy%)
Dimc%
x=2*x:
y=y+2:
c=x+y
EndSub
PrivateSubCommand1_Click()
a=2:
b=4:
c=6
Callp1(a,b)
Print"a=";a;"b=";b;"c=";c
Callp2(a,b)
Print"a=";a;"b=";b;"c=";c
EndSub
(A)a=2b=4c=6(B)a=4b=6c=10
a=4b=6c=10a=8b=8c=16
(C)a=4b=6c=6(D)a=4b=6c=14
a=8b=6c=6a=8b=8c=6
26.如下程序,运行的结果是()。
PublicSubProc(a%())
Statici%
Do
a(i)=a(i)+a(i+1)
i=i+1
LoopWhilei<2
EndSub
PrivateSubCommand1_Click()
Dimm%,i%,x%(10)
Fori=0To4
x(i)=i+1
Nexti
Fori=1To2
CallProc(x)
Nexti
Fori=0To4
Printx(i);
Nexti
EndSub
(A)34756(B)35745(C)23445(D)45678
27.在窗体上画一个名称为Command1的命令按钮,编写以列程序:
PrivateSubCommand1_Click()
DimaAsInteger
StaticbAsInteger
a=a+b
b=b+4
Cls
Printa,b
EndSub
程序运行后,单击该命令按钮三次,屏幕上显示的值是()
(A)412(B)04(C)48(D)812
28.标准模块的文件扩展名是()。
(A)frm(B)cls(C)bas(D)vbp
29.声明全局变量的位置是()。
(A)事件过程(B)函数过程
(C)标准模块通用声明段(D)窗体模块通用声明段
30.单击一次窗体后,下列代码执行的结果是()。
PrivateSubForm_Click()
CallTest
EndSub
PrivateSubTest()
DimxAsInteger,yAsSingle
x=2.8
Ifx<2Then
y=x*4
ElseIfx<3Then
y=x*3
ElseIfx=2.8Then
y=x*2
Else
y=x
EndIf
Printy
EndSub
(A)11.2(B)8.4(C)6(D)3
31.有如下程序:
PrivateSubCommand1_Click()
DimaAsSingle
DimbAsSingle
a=5:
b=4
CallS(a,b)
EndSub
SubS(xAsSingle,yAsSingle)
t=x
x=t\y
y=tMody
EndSub
在调试运行上述程序后,a和b的值分别为()
(A)00(B)11(C)22(D)12
32.文本框Text1的KeyDown事件过程如下:
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
…
End Sub
其中参数KeyCode的值表示的是发生此事件时( )。
A)是否按下了Alt键或Ctrl键 B)按下的是哪个数字键
C)所按的键盘键的键码 D)按下的是哪个鼠标键
33.窗体上有两个名称分别为Text1、Text2的文本框,Text1的KeyUp事件过程如下:
PrivateSubText1_KeyUp(KeyCodeAsInteger,ShiftAsInteger)
DimcAsString
c=UCase(Chr(KeyCode))
Text2.Text=Chr(Asc(c)2)
EndSub
当向文本框Text1中输入小写字母a时,文本框Text2中显示的是
A.AB.aC.CD.D
34.已知A$="12345678",则表达式Val(Left$(A$,4)十Mid$(A$,4,2))的值为()。
A)123456B)123445C)8D)6
35.在程序中添加一个命令按钮和一个文本框,并在命令按钮中编写如下代码:
PrivateSubCommand1_Click()
A=1.2:
B=32
C=Len(Str(A)+Str(B))
Text1.Text=C
EndSub
程序运行后在文本框中显示()
A、3B、6C、7D、8
36.下面的程序段中,Print语句执行的次数为_________。
DimB(-5To5)AsInteger,xAsVariant
ForEachxInB
x=Int(10*Rnd)
Printx
Nextx
37.函数InStr("VB程序设计","序")的值为。
A.3B.4C.5D.6
(26)以下叙述中错误的是
A)在KeyUp和KeyDown事件过程中,从键盘上输入A或a被视作相同的字母(即具有相同的KeyCode)
B)在KeyUp和KeyDown事件过程中,将键盘上的“1”和右侧小键盘上的“1”视作不同的数字(具有不同的KeyCode)
C)KeyPress事件中不能识别键盘上某个键的按下与释放
D)KeyPress事件中可以识别键盘上某个键的按下与释放
39.设有语句optionBase1:
DimA(4,3)AsInteger,则A(3,2)元素位于数组开始的第___个元素的位置。
(A)6(B)7(C)8(D)9
40、在VisualBasic中,保存新建工程时的默认路径为。
A.MyDocunmentB.A:
C.桌面D.VB98
二、填空题(将结果填在首页答题纸上的对应位置,每空4分,共48分)
1.下面程序运行后,在文本框中输入“ABCD”四个字符,窗体上显示为:
PrivateSubText1_Keypress(KeyasciiAsInteger)
PrintText1.Text;
EndSub结果1:
______
2.下面程序运行后,单击窗体
OptionBase1
PrivateSubform_Click()
Dima%(3,3),b%(3,3)
Fori=1To3
Forj=1To3
a(i,j)=i
Nextj
Nexti
Fori=1To3
Forj=1To3
b(i,j)=a(j,i)
Printb(i,j);
Nextj
Nexti
EndSub结果2:
_____
3.下面程序运行后,单击命令按钮Command1,窗体上打印的结果为:
PrivateSubCommand1_Click()
Dima%,b%
Fori=1To5
Forj=1To4
a=0
Fork=1To5
a=a+2
b=b+1
Nextk
b=b–2
Nextj
Nexti
Print"a=";a;"b=";b
EndSub结果3:
_____
4.下面程序运行后,单击命令按钮Command1,窗体上显示的结果为:
PrivateSubCommand1_Click()
Fori=1To3
Printf(i);
Nexti
EndSub
Functionf(x)
Statica
a=a+2
f=x+a
EndFunction结果:
____
5.如下程序运行后,单击窗体,先后输入100和200,则在窗体上显示的是:
PrivateSubForm_Click()
DimaAsString
Dimb$
a=InputBox("请输入一个整数")
b=InputBox("请输入一个整数")
Printa+b
EndSub结果为:
6.在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程,单击命令按钮,结果为:
PrivateSubCommand1_Click()
DimaAsInteger
a=100
Do
Printa;结果:
______________
a=a+10
LoopUntila>10
EndSub
7.在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程,单击命令按钮,结果为:
PrivateSubCommand1_Click()
DimmstrAsString
mstr="ABCDEFG"
Fori=1To3
Printleft(mstr,i);
Nexti
EndSub结果:
____________
8.下面程序运行后,单击窗体,则在窗体上显示的信息是:
Functionmyfun(xAsInteger,ByValyAsInteger)
x=x+1
y=y+2
myfun=x+y
EndFunction
PrivateSubForm_click()
DimaAsInteger,bAsInteger
a=5
b=10
c=myfun(a,b)
Printa;b;c
EndSub 结果:
_______
10.在窗体上画一个名称为Command1的命令按钮,然后编写如下代码,程序运行后,如果单击命令按钮,则在窗体上输出的内容为:
PrivateSubCommand1_Click()
Dimarr()
DimsAsInteger
arr=Array(1,3,5,7,9,2,4,6,8)
Fori=UBound(arr)ToLBound(arr)Step-2
s=s+arr(i)
Nexti
Prints
EndSub结果:
_______________
11.在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程,单击命令按钮,则在窗体上输出的内容为:
PrivateSubCommand1_Click()
Forn=1To10
IfnMod3<>0Thenm=m+n\3
Nextn
Printn,m
EndSub结果:
11.在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程,程序运行后,单击命令按钮,则窗体上输出的内容是
PrivateSubCommand1_Click()
DimxAsInteger
DimiAsInteger
Remx=10
Fori=-10To20
x=x+1
Nexti
Printx
EndSub结果:
__________
12.下面程序运行后,单击命令按钮Command1,窗体上显示的结果为:
PrivateSubCommand1_Click()
j=6
Fori=1Toj
i=i+1
j=j–i
Nexti
Printi,j
EndSub结果:
_____
三、编程题(将答案写在试卷所附的白纸上,8+14,共22分)
1.计算S=1+1/3+1/5+1/7+1/9+…+1/99的值
2.随机产生10个200到300间的整数(包括200和300),统计其中出现了多少次5的倍数,并在屏幕上将这10个随机数和次数打印出来
答题卷:
专业班姓名学号
一、选择题
1-
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 宁德八中 高二上VB半期考试 宁德 高二上 VB 考试