内蒙古对口升学考试计算机类VB综合题库.docx
- 文档编号:25404644
- 上传时间:2023-06-08
- 格式:DOCX
- 页数:75
- 大小:334.36KB
内蒙古对口升学考试计算机类VB综合题库.docx
《内蒙古对口升学考试计算机类VB综合题库.docx》由会员分享,可在线阅读,更多相关《内蒙古对口升学考试计算机类VB综合题库.docx(75页珍藏版)》请在冰豆网上搜索。
内蒙古对口升学考试计算机类VB综合题库
VB语言程序设计综合练习一
选择题部分
1已知A$=“”,则表达式Val(Left(A$,4)+Mid(A$,4,2))的值为________。
A)B)C)8D)6
2在直角坐标系中,x、y是坐标系中任意点的位置,用x与y表示在第一或第三象限的表达式,以下不正确的是______。
A)(x>=0andy>=0)and(x<=0andy<=0)
B)(x>=0andy>=0)and(x<=0andy<=0)
C)x*y>=0D)x*y=Abs(x*y)
3语句:
Print“Sqr(9)=”;Sqr(9)的输出结果是_______。
A)Sqr(9)=Sqr(9)B)Sqr(9)=3C)”3”=3D)3=Sqr(9)
4下面程序段的输出结果为________。
X=10:
Y=20
PrintX;”+”;Y;”=”;
PrintX+Y
A)10+20=30B)10+20=30C)X+Y=30D)10+20=30
5若要处理一个值为50000的整数,应采用哪种VB基本数据类型描述更合适?
_______
A)IntegerB)LongC)SingleD)String
6以下函数表达式中,其值等于-3的是________。
A)Int(-3.5)B)Fix(-3.5)C)Round(-3.5)D)Abs(-3.5)
7以下函数表达式中,其值不等于3的是________。
A)Int(3.5)B)Fix(3.5)C)Round(3.5)D)Abs(-3)
8以下函数表达式中,其值不等于-4的是________。
A)Int(-3.5)B)Fix(-4.5)C)Round(-3.5)D)Abs(-3.5)
9以下函数表达式中,其值等于4的是________。
A)Int(3.5)B)Fix(3.5)C)Round(3.5)D)Abs(3.5)
10以下函数表达式中,其值等于3.5的是________。
A)Int(3.5)B)Fix(3.5)C)Round(3.5)D)Abs(3.5)
11.窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程:
PrivateSubCommand1_Click()
DimM(10),N(10)
I=3
ForT=1To5
M(T)=T
N(I)=2*I+T
NextT
PrintN(I);M(I)
EndSub
窗体运行后,单击命令按钮,输出结果为______。
A)311B)315C)113D)153
12.下列程序段的执行结果为______。
DimM(10)
ForI=0To9
M(I)=2*I
NextI
PrintM(M(3))
A)12B)6C)0D)4
13设有如下程序:
OptionBaseO
PrvateSubForm_Click()
Dima
DimiAsInteger
a=Array(1,2,3,4,5,6,7,8,9)
Fori=0To3
Printa(5-i);
Next
EndSub
程序运行后,单击窗体,则在窗体上显示的是______。
A)4321B)5432C)6543D)7654
14在窗体上面画一个命令按钮,其名称为Command1,然后编写如下事件过程:
PrivateSubCommand1_Click()
Dima1(4,4),a2(4,4)
ForI=1to4
Forj=1To4
a1(I,j)=I+j
a2(I,j)=a1(I,j)+I+j
Nextj
NextI
Printa1(3,3);a2(3,3)
EndSub
程序运行后,单击命令按钮,在窗体上输出的是______。
A)66B)105C)721D)612
15有以下程序:
OptionBase1
Dimarr()AsInteger
PrivateSubForm_Click()
DimiAsInteger,jAsInteger
ReDimarr(3,2)
Fori=1To3
Forj=1To2
arr(i,j)=i*2+j
Nextj
Nexti
ReDimPreservearr(3,4)
Forj=3To4
arr(3,j)=j+9
Nextj
Printarr(3,2);arr(3,4)
EndSub
程序运行后,单击窗体,输出结果为______。
A)813B)013C)712D)00
16在窗体上画一个命令按钮,名称为Command1,然后编写如下代码:
OptionBase0
PrivateSubCommand1_Click()
DimA(4)AsInteger,B(4)AsInteger
Fork=0To2
A(k+1)=InputBox(“请输入一个整数”)
B(3-k)=A(k+1)
Nextk
PrintB(k)
EndSub
程序运行后,单击命令按钮,在输入对话框中分别输入2、4、6,输出结果为______。
A)0B)2C)3D)4
17在窗体上画一个命令按钮,然后编写如下事件过程:
PrivateSubCommand1_click()
Dima(5)asString
Fori=1to5
a(i)=Chr(Asc(“A”)+(i-1))
Nexti
ForEachbina
Printb;
Next
EndSub
程序运行后,单击命令按钮,输出结果是______。
A)ABCDEB)12345C)abcdeD)出错信息
18下面叙述中不正确的是______。
A)自定义类型只能在窗体模块的通用声明段进行声明
B)自定义类型中的元素类型可以是系统提供的基本数据类型或已声明的自定义类型
C)在窗体模块中定义自定义类型时必须使用Private关键字
D)自定义类型必须在窗体模块或标准模块的通用声明段进行声明
19在设定OptionBase0后,经Dimarr(3,4)AsInteger定义的数组arr含有的元素个数为_____。
A)12B)20C)16D)9
20用下面语句定义的数组的元素个数是______。
DimA(-3To5)AsIntege
A)6B)7C)8D)9
有如下程序代码,输出结果是_____。
Dima()
a=Array(1,2,3,4,5)
fori=Lbound(A)toUbound(A)
printa(i);
nextI
A)12345B)01234C)54321D)4321
21窗体上已有命令按钮Command1和标签Label1,下列程序运行后,单击Command1按钮,标签Label1中显示的内容是_____。
Optionbase0
PrivateSubCommand1_Click()
Dima(5)AsInteger,nAsInteger
Fori=1To5
a(i)=i
n=n+a(i)
Nexti
Label1=n
EndSub
A)5B)10C)15D)程序报错,Label1不能输出结果
23在窗体上画一个名称为Label1的标签,然后编写如下事件过程_____。
PrivateSubForm_Click()
Dimarr(10,10)AsInteger
DimiAsInteger,jAsInteger
Fori=2To4
Forj=2To4
arr(i,j)=i*j
Nextj
Nexti
Label1.Caption=Str(arr(2,2)+arr(3,3))
EndSub
程序运行后,单击窗体,在标签中显示的内容是_____。
A)12B)13C)14D)15
24设有如下程序,其功能是用Array函数建立一个含有8个元素的数组,然后查找并输出该数组中的最小值,请选择程序中空处应为_____。
OptionBase1
PrivateSubCommand1_Click()
Dimarr1
DimMinAsInteger,iAsInteger
arr1=Array(12,435,76,-24,78,54,866,43)
Min=_____
Fori=2To8
Ifarr1(i)《MinThenMin=arr1(i)
Nexti
Print“最小值是:
”;Min
EndSub
A)-24B)886C)arr1
(1)D)arr1(0)
25以下程序的输出结果是_____。
OptionBase1
PrivateSubCommand1_Click()
Dima(10),p(3)AsInteger
k=5
Fori=1To10
a(i)=I
Nexti
Fori=1To3
p(i)=a(i*i)
NextI
Fori=1To3
k=k+p(i)*2
Nexti
Printk
Endsub
A)33B)28C)35D)37
26以下程序段运行的结果是________。
Dima(-1To5)AsBoolean
DimflagAsBoolean
flag=false
DimiAsInteger
DimjAsInteger
DoUntilflag=True
Fori=-1to5
j=j+1
Ifa(i)=FalseThen
a(i)=True
ExitFor
EndIf
Ifi=5Then
flag=True
EndIf
Next
Loop
Printj
A)20B)7C)35D)8
27以下有关数组定义的语句序列中,错误的是______。
A)Staticarr1(3)
Arr1
(1)=100
Arr1
(2)=“Hello”
Arr1(3)=123.45
B)Dimarr2()AsInteger
DimsizeAsInteger
PrivateSubCommand2_Click()
size=InputBox(“输入:
”)
ReDimarr2(size)
。
。
.。
。
.
EndSub
C)OptionBase1
PrivateSubCommand3_Click()
Dimarr3()AsInteger
。
。
.。
。
.
EndSub
D)DimnAsInteger
PrivateSubCommand4_Click()
Dimarr4(n)AsInteger
。
。
.。
。
.
EndSub
28下述语句定义的数组元素有______个。
OPTIONBASE1
DIMA(12,8)
A)117B)128C)96D)20
29下列程序段的执行结果为______。
DimA(10,10)
ForI=1To8
ForJ=6To8
A(I,J)=I*J
NextJ
NextI
PrintA(4,6)+A(3,8)+A(8,7)
A)104B)114C)无法输出D)报错溢出
30阅读程序
OptionBase1
PrivateSubForm_Click()
Dimarr,Sum
Sum=0
arr=Array(1,3,5,7,9,11,13,15,17,19)
Fori=1To10
Ifarr(i)/3=arr(i)\3Then
Sum=Sum+arr(i)
EndIf
Nexti
PrintSum
EndSub
程序运行后,单击窗体,输出结果为______。
A)13B)14C)27D)15
31在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:
PrivateSubCommand1_Click()
Dimarray1(10,10)AsInteger
DimiAsInteger,jAsinteger
Fori=1To3
Forj=2To4
array1(i,j)=i+j
Nextj
Nexti
Text1.Text=array1(2,3)+array1(3,4)
EndSub
程序运行后,单击命令按钮,在文本框中显示的值是______。
A)15B)14C)13D)12
32窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程:
PrivateSubCommand1_Click()
DimA(10),B(5)
ForI=1To10
A(I)=I
NextI
ForJ=1To5
B(J)=J*20
NextJ
A(5)=B
(2)
Print“A(5)=”,A(5)
EndSub
窗体运行后,单击命令按钮,输出结果是______。
A)A(5)=40B)A(5)=20C)A(5)=10D)A(5)=5
33在窗体上画一个命令按钮,名称为Command1,然后编写如下事件过程:
OptionBase0
PrivateSubCommand1_Click()
DimcityAsVariant
city=Array(“北京”,“上海”,“天津”,“重庆”)
Printcity
(1)
EndSub
程序运行后,如果单击命令按钮,则在窗体上显示的内容是______。
A)空白B)错误提示C)北京D)上海
34窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程:
PrivateSubCommand1_Click()
DimA(5,5)
ForI=1To3
ForJ=1To4
A(I,J)=I*J
NextJ
NextI
ForN=1To2
ForM=1To3
PrintA(M,N);
NextM
NextN
EndSub
窗体运行后,单击命令按钮,输入结果是______。
A)123424B)123468C)123246D)123636
35设有命令按钮Command1的单击事件过程
PrivateSubCommand1_Click()
Dima(3,3)ASInteger
Fori=1To3
Forj=1To3
a(i,j)=i*j+i
Nextj
Nexti
Sum=O
Fori=1To3
Sum=Sum+a(i,4-i)
Nexti
PrintSum
EndSub
运行程序,单击命令按钮,输出结果是______。
A)20B)7C)16D)17
36在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:
OptionBase1
PrivateSubCommand1_Click()
DimcAsInteger,dAsInteger
d=0
c=6
x=Array(2,4,6,8,10,12)
Fori=1To6
Ifx(i)>=cThen
d=d+x(i)
Else
d=d-c
EndIf
Nexti
Printd
EndSub
程序运行后,如果单击命令按钮,则在窗体上输出的内容为______。
A)10B)16C)12D)20
37阅读程序:
OptionBase1
Dimarr()AsInteger
PrivateSubForm_Click()
DimiAsInteger,jAsInteger
ReDimarr(3,2)
Fori=1To3
Forj=1To2
arr(i,j)=i*2+j
Nextj
Nexti
ReDimPreservearr(3,4)
Forj=3To4
arr(3,j)=j+9
Nextj
Printarr(3,2)+arr(3,4)
EndSub
程序运行后,单击窗体,输出结果为
A)21B)13C)8D)25
38窗体中新建立一个命令按钮(Command1),其事件代码如下:
PrivateSubCommand1_Click()
Dima(4)AsInteger,b(4)AsInteger
ForK=0To2
a(K+1)=Val(InputBox(“请输入数据”))
b(3-K)=a(K+1)
NextK
Printb(K)
EndSub
窗体运行后,单击命令按钮,依次输入1、3、5,执行结果为______。
A)0B)1C)3D)5
39在窗体上画一个名称为Command1命令按钮,然后编写如下程序:
PrivateSubCommand1_Click()
DimiAsInteger,jAsInteger
Dima(10,10)AsInteger
Fori=1To3
Forj=1To3
a(i,j)=(i-1)*3+j
Printa(i,j);
Next
Nexti
EndSub
程序运行后,单击命令按钮,窗体上显示的是______。
A)123
246
369
B)234
345
456
C)147
258
369
D)123
456
789
40对窗体编写如下代码:
OptionBase1
PrivateSubForm_KeyPress(KeyAsciiAsInteger)
a=Array(237,126,87,48,498)
m1=a
(1)
m2=1
IfKeyAscii=13Then
Fori=2To5
Ifa(i)》m1Then
m1=a(i)
m2=i
EndIf
Nexti
EndIf
Printm1
Printm2
EndSub
程序运行后,按回车键,输出结果为______。
A)484
B)237
1
C)498
5
D)498
VB语言程序设计综合练习二
填空题A
1.在VB中,用来描述一个对象外部特征的量称之为对象的_____。
2.窗体_____决定了窗体的外观。
3.表达式(−10)^−2的值是_____。
4.执行_____语句,可以清除Picture1图片框内的图片。
Picture1.picture=LoadPicture('''')
5.当复选框被选中时,其Value值为_____。
6.在窗体画一个名称为Command1的命令按钮,然后编写如下事件过程:
PrivateSubCommand1_Click()
Dima()
ReDima(4)
Fori=1To4
a(i)=i
Nexti
ReDimPreservea(6)
Fork=1To6
Printa(k);
Nextk
Print“end”
EndSub
程序运行后,单击Command1命令按钮,则程序输出的结果是_____.
7.在模块文件中的声明部分用Global或_____关键字声明的变量为全局变量。
8.将通用对话框的类型设置为“字体”对话框可以使用_____方法。
9.下列程序的功能是:
当按下鼠标左键并在窗体上移动时,在鼠标经过的位置画点,松开鼠标移动时,不执行画点操作。
当单击鼠标右键时,清除窗体上的内容。
请在横线的上方填入适当的内容,将程序补充完整。
DimflagAsBoolean
PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,X!
Y!
)
flag=True
If_____Then
Cls
EndIf
EndSub
PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
IfflagThen
PSet(X,Y)'画点语句
EndIf
EndSub
PrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
_____
EndSub
填空题B
1窗体的扩展名是_____。
3日期表达式#2/24/02#-#2/12/02#的值为。
4.VB的控件分为、ActiveX控件和可插入对象
5.Style属性设置为,单选按钮和复选框以图形方式显示
6在窗体画一个名称为Command1的命令按钮,然后编写如下事件过程:
PrivateSubCommand1_Click()
DimsAsInteger
Dimarr(3,1To7)AsInteger
ForEachtestInarr
s=s+1
Nexttest
Prints
EndSub
程序运行后,单击Command1命令按钮,则程序输出的结果是.
7声明Integer类型静态变量x,写作
Staticx%
StaticxAsInteger
staticxasinteger。
8如果把一个菜单项的Visible属性设置为False,则
9在执行KeyPress事件过程时,KeyAscii是所按键的码
填空题C
1.面向对象的程序设计是一种以_____为基础,由_____驱动对象的编程技术。
2.一般来说,同一窗体中的各个控件的_____属性应该各不相同;。
如果几个控件具有相同的_____属性,则这些控件称为数组控件。
3.求a与b之积除以c的余数,用VisualBasic表达式可表示为_____。
4
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 内蒙古 对口 升学考试 计算机 VB 综合 题库
![提示](https://static.bdocx.com/images/bang_tan.gif)