09级VB复习模拟题.docx
- 文档编号:12580983
- 上传时间:2023-06-06
- 格式:DOCX
- 页数:16
- 大小:66.80KB
09级VB复习模拟题.docx
《09级VB复习模拟题.docx》由会员分享,可在线阅读,更多相关《09级VB复习模拟题.docx(16页珍藏版)》请在冰点文库上搜索。
09级VB复习模拟题
一、单项选择题(每题1分,共20分)
1、当VB程序有多个窗体时,在默认情况下,VB执行这个程序时将启动()。
A.不包含任何控件的窗体B.设计时的第一个窗体
C.包含控件最多的窗体D.命名为Form1的窗体
2、若要将文本框设置成密码框,即从文本框中输入文本时只显示字符“*”,应该怎样设置文本框的属性()。
A.将Password属性值设置为字符“*”
B.将Caption属性值设置为字符“*”
C.将Passwordchar属性值设置为字符“*”
D.将Text属性值设置为字符“*”
3、文本框的ScrollBars属性设置了非零值,却没有效果,原因是()。
A.文本框中没有内容
B.文本框的MultiLine属性设置为False
C.文本框的MultiLine属性设置为True
D.文本框的Locked属性设置为True
4、要改变控件的左右位置,应该修改控件的()属性。
A.TopB.LeftC.WidthD.Height
5、当定时器(Timer)控件的Interval属性为0时,表示控件的()。
A.Timer事件不产生B.Timer事件相隔为0毫秒
C.Timer事件相隔为0秒D.Enabled属性为False
6、所有控件都具有的属性是()。
A.CaptionB.TextC.NameD.Visible
7、在VB6.0中,语句Dima,bAsSingle定义的变量a的数据类型是()。
A.整型B.长整型C.变体型D.单精度型
8、语句Print20\30的输出结果是()。
A.“20\30”B.20\30C.0D.出现错误信息
9、已知字母A的ASCII码为65,则表达式Asc(“A”)+Asc(“C”)的值是()。
A.6567B.“AC”C.ACD.132
10、表达式Len(“VB程序设计练习1、2、3”)的值为()。
A.13B.14C.19D.21
11、表达式Val(“–221.15ab12”)的结果是()。
A.221.15B.–221.15C.–221.1512D.–221.15ab12
12、变量X是逻辑型,下面赋值语句中正确的是()。
A.X=‘True’B.X=#True#C.X=*True*D.X=5>4
13、运行下面程序,单击窗体后输出的结果是()。
PrivateSubForm_Click()
k=5
Ifk<=4Thenn=6
Ifk<=5Thenn=5
Ifk<=6Thenn=4
Printn
EndSub
A.4B.5C.6D.没有输出
14、有如下程序:
PrivateSubForm_Click()
Dima(1To10)
Fork=1To10
a(k)=k^2
Nextk
Printa(k)
EndSub
程序运行后的输出结果是()。
A.2B.10C.100D.“下标越界”提示信息
15、若定义数组:
Dima(2,-3to3,5)则数组a包含的元素个数是()。
A.60B.18C.126D.62
16、引用列表框(List1)最后一个数据项应使用的表达式是()。
A.List1.List(List1.ListCount)
B.List1.List(List1.ListCount-1)
C.List1.List(ListCount)
D.List1.List(ListCount-1)
17、如果要向工具箱中加入ActiveX控件,可以利用“工程”菜单中的()命令。
A.添加窗体B.引用C.部件D.工程属性
18、如何使图像框(Image)控件自动适应其图像的大小()。
A.将控件的Autosize属性设为False
B.将控件的Autosize属性设为True
C.将控件的Stretch属性设为False
19、为菜单项中某字母添加热键的方法是()。
A.在该字母前加“&”B.在该字母前加“@”
C.在该字母前加“_”D.在该字母前加“#”
20、下列选项中,Select语句必不可少的是()。
A.Select、FromB.Select、Where
C.From、OrderByD.Select、All
二、多项选择题(每题2分,共20分)
1、以下叙述正确的是()。
A.打开一个工程文件时,系统自动装入与该工程有关的窗体、标准模块等文件。
B.保存VB程序时,应分别保存窗体文件和工程文件。
C.编程人员不可以修改控件的名称。
D.当运行程序时,系统自动执行启动窗体的Click事件过程。
2、程序运行时,在窗体上单击鼠标,将触发以下哪几个事件()。
A.Load事件B.Click事件
C.MouseDown事件D.MouseUp事件
3、以下说法中,正确的是()。
A.在一行内写多条语句时,每条语句之间用冒号“:
”分隔。
B.在一行内写多条语句时,每条语句之间用空格加下划线“_”分隔。
C.一条语句要分隔为几行,应该用空格加下划线“_”作为续行符。
D.一条语句要分隔为几行,应该用冒号“:
”作为续行符。
4、对a、b、c三个变量都赋值为10,下列赋值语句中,不能实现的是()。
A.x=10,y=10,z=10B.xyz=10
C.x=y=z=10D.以上语句都不能实现
5、关于程序设计,以下叙述正确的是()。
A.结构化程序设计方法把程序的结构规定为:
顺序、选择、循环三种基本结构。
B.面向对象的程序设计更符合人们的思维方式,更易于软件的维护和功能增减。
C.VisualBasic、VisualFoxpro、VisualC++都是面向对象的程序设计语言。
D.面向过程的程序设计能用继承的方式减短程序开发时间。
6、下面程序段表示求两个数中的大数,正确的是()。
A.Max=xB.Ify>=xThenMax=y
Ify>=xThenMax=yelseMax=x
C.Max=IIf(x>y,x,y)D.Ify>=xThenMax=yelseMax=x
7、如下关于数组的语句,错误的是()。
A.Dima()asIntegerB.Dima()asInteger
ReDima(10)ReDima(3,4)
C.Dima()asIntegerD.Dima(10)asInteger
ReDima(10)asstringReDima(20)
8、Sub过程与Function过程的区别是()。
A.Sub过程有两种调用方式,而Funtion过程只有一种调用方式
B.两种过程的参数传递方式不同
C.Sub过程没有返回值,而Funtion过程有返回值
D.Sub过程没有参数,而Funtion过程有参数
9、以下说法,正确的是()。
A.复选框的Value属性为1时,表示该复选框被选中。
B.用来设置斜体字的属性是FontBold。
C.进度条(ProgressBar)控件有水平和垂直两种形式。
D.窗体的Show方法是将窗体装入内存然后再显示出来。
10、以下关于过程及过程参数的描述中,正确的是
A.过程的参数可以是控件名称
B.用数组作为过程的参数时,使用的是“传地址”方式
C.只有函数过程能够将过程中处理的信息传回到调用的程序中
D.窗体可以作为过程的参数
三、判断题(每小题1分,共10分,正确的在答题纸上划√,错误的划×)
1、VB程序的执行方式只有解释方式(F)。
2、VB6.0中,文本框(TextBox)控件没有Caption属性(T)。
3、VB是采用事件驱动的程序设计方式(T)。
4、将命令按钮的Enabled属性设置为False,则命令按钮不可见(F)。
5、1_abc是合法的变量名(F)。
6、当整型数据与单精度型数据进行运算时结果为单精度型(T)。
7、VB程序不区分字母大小写(T)。
8、VB提供的结构化程序设计的三种基本结构是循环结构、选择结构、顺序结构(T)。
9、关系数据库中,行被称为记录,列被称为字段(T)。
10、ADO数据控件可以直接显示记录集对象中的数据(F)。
四、写出下列程序的运行结果(每小题4分,共20分)
1、PrivateSubForm_Click()
a=1
Do
Fori=1Toa
Print"*";
Nexti
a=a+2
Ifa=7ThenExitDo
Loop
EndSub
*
***
*****
2、PrivateSubForm_Click()
DimsAsString
s="abcdefg"
Fori=1To4
PrintSpace(5–i);Mid(s,5–i,2*i–1)
Nexti
EndSub
d
cde
bcdef
abcdefg
3、Dimc%
PrivateSubForm_Click()
Dima%,b%
a=3:
b=5:
c=2
Callp1(a,b)
Printa,b,c
Callp2(a,b)
Printa,b,c
EndSub
PrivateSubp1(x%,y%)
x=2*x:
y=y+2:
c=x+y
EndSub
PrivateSubp2(x%,ByValy%)
Dimc%
x=2*x:
y=y+2:
c=x+y
EndSub
6713
12713
4、
FunctionAS(ByVala1%)
Staticc%
c=c+a1
A=c
EndFunction
PrivateSubForm_Click()
Fori=1To5
PrintAS(i);
Nexti
EndSub
1361015
5、
OptionBase1
PrivateSubForm_Click()
Dima(5,5)
Fori=1To5
Forj=1To5
k=k+1
IfiMod2<>0Then
a(i,j)=k
Else
a(i,6-j)=k
EndIf
Nextj
Nexti
Fori=1To5
Forj=1To5
PrintTab(4*(j–1)+1);a(i,j);
Nextj
Nexti
EndSub
12345
109876
1112131415
2019181716
2122232425
五、程序填空(每空1分,共10分)
1、找出被5、7、11除,余数均为3的最小的5个正整数。
PrivateSubCommand1_Click()
DimCount%,n%
Count=0
n=1
Do
n=n+1
If__nMod5=3AndnMod7=3AndnMod11=3__Then
Printn
Count=__Count+1__
EndIf
LoopWhile__Count<5_
EndSub
2、函数IsPrime用于判断某数是否为素数。
PrivateFunctionIsPrime(nAsInteger)AsBoolean
DimFlagAsBoolean
Flag=True
i=2
a=Int(Sqr(n))
DoWhilei<=aandFlag
If__nModi=0__Then
Flag=False
EndIf
__i=i+1__
loop
IsPrime=_Flag_
EndFunction
3.给定程序的功能是建立并输出除主、副对角线上的元素为0外,其余元素都为1的方阵。
OptionBase1
PrivateSubForm_Click()
Dima(10,10)
Fori=1To10
Forj=__1to10_
Ifi=jOr_i=11–j或j=11–i_Then
a(i,j)=0
Else
_a(i,j)=1_
EndIf
Nextj
Nexti
Fori=1To10
Forj=1To10
Printa(i,j);
Nextj
__print__
Nexti
EndSub
六、编程题(每小题10分,共20分)
1、输入整数n,显示出具有n行的杨辉三角形。
下图显示的是n=8的效果。
提示:
(1)定义一个动态二维数组;
(2)杨辉三角形的各元素按照如下方法设置:
第一列及对角线的元素为1,其余元素满足a(i,j)=a(i–1,j–1)+a(i–1,j);
(3)杨辉三角形的行数是在控件Text1中输入,杨辉三角形是在控件Picture1中输出,输出时,每一列要对齐。
Dima()
Picture1.Cls
n=Text1
ReDima(0Ton,0Ton)
a(0,1)=1
Fori=1Ton
Forj=1Toi
a(i,j)=a(i-1,j-1)+a(i-1,j)
Picture1.PrintTab(6*j-5);a(i,j);
Nextj
Picture1.Print
Nexti
2、编写一函数过程IsHuiwen(n),判断n是否为回文数,函数的返回值类型为逻辑型(Boolean)。
提示:
(1)所谓回文数是指顺读与倒读数字相同,例如12321,2442等是回文数,当只有一位数时也认为是回文数,例如1,5,8是回文数;
(2)调用函数时,实参是文本框的内容,所以把n看作是字符串类型进行判断;
(3)使用IsNumeric函数判断n是否是数字字符,若不是数字字符,则n
不是回文数。
调用函数的代码如下:
PrivateSubForm_Click()
IfIsHuiwen(Text1.Text)Then
PrintText1.Text;"是回文数"
Else
PrintText1.Text;"不是回文数"
EndIf
EndSub
FunctionIsHuiwen(ByValn)AsBoolean
Dimi%,j%,k%
IfNotIsNumeric(n)ThenIsHuiwen=False:
ExitFunction
k=Len(n)
Ifk=1Then
IsHuiwen=True
Else
i=1:
j=k
DoWhilei<=k\2
IfMid(n,i,1)=Mid(n,j,1)Then
IsHuiwen=True
Else
IsHuiwen=False
ExitDo
EndIf
i=i+1:
j=j-1
Loop
EndIf
EndFunction
答题纸
一.单选题
1
2
3
4
5
6
7
8
9
10
B
C
B
B
A
C
C
C
D
A
11
12
13
14
15
16
17
18
19
20
B
D
A
D
C
B
C
C
A
A
二.多选题
1
2
3
4
5
AB
BCD
AC
ABCD
ABC
6
7
8
9
10
ACD
CD
AC
ACD
AB
三.判断题
1
2
3
4
5
6
7
8
9
10
F
T
T
F
F
T
T
T
T
F
四.阅读程序,写出程序运行结果
1
2
*
***
*****
d
cde
bcdef
abcdefg
3
4
6713
12713
1361015
5
12345
109876
1112131415
2019181716
2122232425
五.程序填空
1
nMod5=3AndnMod7=3AndnMod11=3
2
Count+1
3
Count<5
4
nModi=0
5
i=i+1
6
Flag
7
1to10
8
i=11–j或j=11–i
9
a(i,j)=1
10
六、编程题
1、Dima()
Picture1.Cls
n=Text1
ReDima(0Ton,0Ton)
a(0,1)=1
Fori=1Ton
Forj=1Toi
a(i,j)=a(i-1,j-1)+a(i-1,j)
Picture1.PrintTab(6*j-5);a(i,j);
Nextj
Picture1.Print
Nexti
2、FunctionIsHuiwen(ByValn)AsBoolean
Dimi%,j%,k%
IfNotIsNumeric(n)ThenIsHuiwen=False:
ExitFunction
k=Len(n)
Ifk=1Then
IsHuiwen=True
Else
i=1:
j=k
DoWhilei<=k\2
IfMid(n,i,1)=Mid(n,j,1)Then
IsHuiwen=True
Else
IsHuiwen=False
ExitDo
EndIf
i=i+1:
j=j-1
Loop
EndIf
EndFunction
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 09 VB 复习 模拟