vb模拟试题全套.docx
《vb模拟试题全套.docx》由会员分享，可在线阅读，更多相关《vb模拟试题全套.docx（25页珍藏版）》请在冰豆网上搜索。
vb模拟试题全套
第一套
1．下列关于程序设计的说法正确的是（B）
A、程序设计就是指示计算机如何去解决问题或完成一组可执行指令的过程
B、程序设计就是寻求解决问题的方法，并将其实现步骤编写成计算机可以执行的程序的过程
C、程序设计语言的发展经历了机器语言、汇编语言到高级语言的过程，比较流行的高级语言是pascal、fortran、excel、c++等。
D、程序设计语言和计算机语言是同一概念的两个方面
2．图形符号“”在算法流程图描述中表示（C）
A、算法的开始或结束B、输入输出操作
C、处理或运算的功能D、用来判断条件是否满足需求
3．Integer类型的变量可存的最大整数为（C）。
A、256B、32768C、32767D、65536
4．代数表达式
改成VB表达式后，错误的是（D）
A、g*t^2/2B、g*t*t/2C、1/2*g*t^2D、gt^2/2
5．对于窗体，click（单击）是它的一个（C）
A、重要对象B、重要方法C、重要事件D、重要属性
6．下列变量名写法错误的是（D）
A、abcB、abc123C、abc_123D、123abc
7．在VB中，下列（B）函数是求绝对值的。
A、int（x）B、abs（x）C、sqr（x）D、gn（x）
8．在VB中，设置控件的大小，可改变下列（A）属性
A、height与widthB、heigth与topC、left与topD、left与width
9．以下是一段vb程序：
a=1
b=a+1
c=a+b
它的基本结构属于（A）
A、顺序结构B、选择结构C、循环结构D、树型结构
10、下列程序段运行后，Value的值为（A）
x=20
ifx>=10then
Value=5*x
Else
Value=4*x
Endif
A、100B、80C、90D、70
11、下面是判断变量x是不是能被5整除的偶数的程序，横线上的逻辑表达式应为（A、B）
PrivateSubCommand1_Click（）
DimxAsInteger
x=Val（text1.Text）
If________________Then
label1.Caption="这个数是能被5整除的偶数"
Else
label1.Caption="这个数不是能被5整除的偶数"
EndIf
EndSub
A、（xMod5）=0And（xMod2）=0B、xMod10=0
C、xMod5=0D、xMod2=0
12、阅读下面程序，单击窗体后，在窗体上输出的是（A）
PrivateSubform_Click（）
DimiAsInteger
DimsAsInteger
s=0
Fori=1To5
s=s+i
Nexti
Prints,i
EndSub
A、156B、s=15i=6C、65D、s=6i=5
13、阅读下面程序，单击窗体后，在文本框text1中显示的内容是（A）
PrivateSubform_Click（）
Dimint1AsInteger
Dimint2AsInteger
int1=1
int2=0
DoWhileint1<20
int2=int1+int2
int1=int1*（int1+1）
Loop
Text1.Text=int2
EndSub
A、9B、8C、7D、6
14、下列程序段中，循环体执行的次数是（B）
y=2
dowhiley<=8
y=y+y
loop
A、2B、3C、4D、5
15、设计一个程序，打印下面所示的图案
*
**
***
**
*
程序：
PrivateSubForm_click（）
DimiAsInteger'定义i为整型变量
DimjAsInteger'定义j为整型变量
Fori=-3To3
PrintTab（Abs（i）+5）'确定每行的起始位置
Forj=1To（4-Abs（i））-1
Print"*";
Nextj
Print
Nexti
EndSub
16、编写程序，求
的值。
（x的值在程序中调用inputbox函数，在弹出的标准输入对话框中输入）。
完成所有操作后，按“ctrl+s”保存
PrivateSubForm_click（）
DimxAsSingle'定义x为单精度型变量，由标准输入对话框输入
DimyAsSingle'定义y为单精度型变量，值由窗体显示
x=Val（InputBox（"请输入变量x"））
Ifx<=0Then
y=x*x+1
Else
y=x*x-x+1
EndIf
Print"y=";y
EndSub
17、编程计算
。
PrivateSubForm_click（）
DimsAsSingle'定义s为单精度型数
DimiAsInteger'定义循环变量
s=0
Fori=1To100
IfiMod2=1Then
s=s+1/i
Else
s=s-1/i
EndIf
Nexti
Print"s=";s
EndSub
18、编程求：
鸡与兔在一个笼里，共有100条腿，40个头，问鸡有几只？
兔有几只？
PrivateSubForm_click（）
DimjiAsInteger
DimtuAsInteger
DimlegAsInteger
DimheadAsInteger
Forji=1To50
Fortu=1To25
leg=ji*2+tu*4
head=ji+tu
Ifleg=100Andhead=40Then
Printji;tu
EndIf
Nexttu
Nextji
EndSub
第二套
1．下列说法错误的是（）
A、程序设计就是寻求解决问题的方法，并将其实现步骤编写成计算机可以执行的程序的过程
B、程序设计语言的发展经历了机器语言、汇编语言、高级语言的过程
C、计算机程序就是指计算机如何去解决问题或完成一组可执行指令的过程
D、程序设计语言和计算机语言是同一概念的两个方面
2．图形符号“”在算法流程图描述中表示（）
A、处理或运算的功能B、输入输出操作
C、用来判断条件是否满足需求D、算法的开始或结束
3．下面（）不是字符串常量。
A、”True”B、#false#C、””D、”你好”
4．下面表达式的值是false的有（）
A、str（2000）<”1997”B、int（4.99）<>len（“basic”）
C、3>2D、”969”<”n97”
5．使用VB编程，我们把工具箱中的工具称为（）
A、工具B、控件C、事件D、窗体
6．在声明一个变量时，可能用到的关键字是（）
A、EndB、AsC、SubD、Exit
7．下列函数中，返回值是字符串的是（）
A、ValB、InStrC、LenD、Mid
8．在VB中，设置控件的位置，可改变下列（）属性
A、left与topB、heigth与top
C、left与widthD、height与width
9．以下是一段vb程序：
ifI=1then
x=x+1
else
x=x+2
endif
它的基本结构属于（）
A、循环结构B、树型结构C、选择结构D、顺序结构
10、分析下列程序：
privatesubform_click（）
s=11\3+11MOD3
prints
endsub
当单击窗体是s的值为（）
A、3B、4C、5D、6
11、下列程序段运行后，A的值为（）
s=10
ifA>=10then
A=A+1
Else
A=A-1
Endif
A、8B、9C、10D、11
12、阅读下面程序，单击窗体后，在文本框text1和text2中显示的内容分别是（）
privatesubform_click（）
dimxasinteger:
yasinteger
x=1:
y=0
dowhilex<3
y=y+x
x=x+1
loop
text1.text=x
text2.text=y
endsub
A、33B、35C、53D、55
13、阅读下面程序，单击窗体后，在文本框显示的内容是（）
privatesubform_click（）
dimarray（10,10）asinteger
dimI,jasinteger
forI=1to3
forj=2to4
array1（I,j）=I+j
nextj
nextI
text1.text=array1（2,3）+array（3,4）
endsub
A、12B、13C、14D、15
14、下列程序段中，循环体执行的次数是（）
x=0
fory=1to10
x=x+1
nexty
A、10B、11C、12D、13
*
***
*****
***
*
15、设计一个程序，打印下面所示的图案
程序：
PrivateSubForm_click（）
DimiAsInteger'定义i为整型变量
DimjAsInteger'定义j为整型变量
Fori=-3To3
PrintTab（Abs（i）+5）;'确定每行的起始位置
Forj=1To2*（3-Abs（i））-1
Print"*";
Nextj
Print
Nexti
EndSub
16、编写程序，求y=6x-5的值。
（x的值在程序中调用inputbox函数，在弹出的标准输入对话框中输入）。
完成所有操作后，按“ctrl+s”保存
PrivateSubForm_click（）
DimxAsSingle'定义x为单精度型变量，由标准输入对话框输入
DimyAsSingle'定义y为单精度型变量，值由窗体显示
x=val（inpubox（"请输入变量x"））
y=6*x-5
Print"y=";y
EndSub
17、编写程序，求1+2+3+……+n>=500中最小的n。
PrivateSubForm_click（）
DimsAsSingle'定义s存入和
DimnAsSingle'定义变量
s=0
n=0
Do
n=n+1
s=s+n
LoopUntils>=500
Print"n=";n
EndSub
18、编写递归函数求5！
的函数
PublicFunctions（nAsInteger）AsLong
Ifn=1Then
s=1
Else
s=n*s（n-1）
EndIf
EndFunction
PrivateSubform_click（）
Print"s（5）=";s（5）
EndSub
第三套
1、下列关于算法的说法不正确的是（）
A、其他三项都正确B、算法是程序设计的“灵魂”
C、解决问题的过程就是实现算法的过程
D、算法独立于任何具体的语言，BASIC算法只能用BASIC语言来实现
2、下列流程图表示的是程序的（）基本结构的算法
A、顺序结构B、选择结构C、循环结构D、其他三项都不是
3、下列（）数据类型不是数值型
A、DateB、DoubleC、SingleD、Integer
4、表达式abs（-3.6）*sqr（100）的值是（）
A、360B、-36C、-360D、36
5、在VB中，显示和编辑程序代码时，采用（）
A、窗体设计器窗口B、工程资源管理器窗口C、代码编辑窗口D、属性窗口
6、下列语句中定义了一个实型变量的是（）
A、其他三项都不对B、dimnameasstring
C、dimsumassingleD、dimendasinteger
7、下列（）函数返回系统的当前时间
A、time（）B、date（）C、day（）D、year（）
8、能够改变复选框中背景颜色的属性是（）
A、FONTB、BACKCOLORC、FONTCOLORD、VALUE
9、以下是一段VB程序：
a=1
b=0forI=1to5
b=b+a*I
nextI
它的基本结构属于（）
A、顺序结构B、选择结构C、循环结构D、树型结构
10、下列程序段中，循环体执行的次数是（）
x=0
fory=1to10step–1
x=x+1
nexty
A、1B、10C、0D、4
11、下列程序段运行后，m的值为（）
a=2:
b=1:
c=5
ifaifcA、1B、2C、5D、提示错误，无答案
12、阅读下面程序，当单击窗体之后，m的值是（）
privatesubform_click（）
dimmasinteger:
dimIasinteger
m=0
forI=1to3
m=m+2
nextI
printm
endsub
A、0B、4C、6D、8
13、阅读下面程序，单击窗体后，在文本框text1和text2中显示的内容分别是（）
privatesubform_click（）
dimxasinteger,nasinteger
x=1
n=0
dowhilex<20
n=n+1
x=x*3
loop
text1.text=str（x）
text2.text=str（n）
endsub
A、273B、327C、203D、321
14、阅读下面程序，单击窗体后，在文本框显示的内容是（）
privatesubform_click（）
dima（8）,b（8）asinteger
dimI,jasinteger
forj=1to4
a（j）=2*j
b（j）=a（j）*3
nextj
text1.text=b（j\2）
endsub
A、10B、12C、14D、18
@
@@
@@@
@@@@
@@@@@
@@@@@@
15、设计一个程序，打印下面所示的图案
PrivateSubForm_click（）
DimiAsInteger
DimjAsInteger
Fori=1To6
PrintTab（10）;
Forj=1Toi
Print"@";
Nextj
Print
Nexti
EndSub
16、一只猴子摘了一堆桃子，它每天吃当天桃子数的一半，每次忍不住多吃了一个。
这样到第十天时只有一个桃子可以吃了。
编程计算猴子最初共有多少个桃子？
PrivateSubForm_click（）
DimiAsInteger
DimsAsInteger
s=1
Fori=1To9
s=（s+1）*2
Nexti
Print"s=";s
EndSub
17、编程计算s=1*2+2*3+3*4+……+n*（n+1）的值，其中n=10
PrivateSubForm_click（）
DimsAsSingle
DimiAsInteger
s=0
Fori=1To10
s=s+i*（i+1）
Nexti
Print"s=";s
EndSub
18、编写递归函数求10！
的值。
PublicFunctions（nAsInteger）AsLong
Ifn=1Then
s=1
Else
s=n*s（n-1）
EndIf
EndFunction
PrivateSubform_click（）
Print"s（10）=";s（10）
EndSub
第四套
1、以下哪个是算法的描述方法？
A、顺序法B、列表法C、集合法D、自然语言描述法
2、VB中数据类型Integer表示整型数，存储为（）位？
A、32B、64C、16D、8
3、在VB中，以下哪个是正确表示十六进制整型数常量？
无
A、&32FB、h32FC、H32FD、32F
4、在VB中，表达式2^3的结果是（）
A、2B、3C、6D、8
5、判断x是否在区间（a，b）上，在VB中以哪个逻辑表达式是正确的？
A、axandx<=bD、a6、数学式子
在VB中的正确写法是：
A、（2*a+b）/4*a*bB、（2*a+b）/（4ab）C、（2a+b）/（4ab）D、（2*a+b）/（4*a*b）
7、在VB中，假定有以下程序段：
forI=1to3step2
print“VB”
nextI
则语句print“VB”的执行次数是（）
A、3B、4C、2D、1
8、在VB中，以下程序段：
a=6
ifa<7thenx=6
执行后，x的值是（）
A、5B、6C、0D、-1
9、在VB中，要设置窗口的标题文本，应使用属性：
（）
A、CaptionB、NameC、FontD、Text
10、在VB中，要设置某个对象的属性时，应进入：
（）
A、设计模式B、运行模式C、中断模式D、任意模式
11、如要完成：
从键盘输入一个正整数，判断是否是奇数，如是就在屏幕上显示。
比较好的算法是（）
A、①输入的数存入变量n②f=（n/2=int（n/2））③如果f的值是true就显示n的值
B、①输入的数存入变量n②f=（n/2=int（n/2））③如果f的值是false就显示n的值
C、①输入的数存入变量n②如果n/2=int（n/2）成立，就显示n的值
D、①输入的数存入变量n②如果n/2=int（n/2）不成立，就显示n的值
12、a、b、c三个变量中存放不同的整数，让计算机处理一下，使：
a中值最大，b中值第二。
能实现此要求，并比较好的算法是（）
A、①定义一个max（x，y）函数（值为x、y中大的值）②a=max（max（a，b），c）③b=max（b，c）
B、①如aC、①如a>b就a=b②如a>c就a=c③如b>c就b=c
D、①如a13、向n变量存入1个两位整数，要使此两位数百位和个位上的值分别存入x、y变量。
正确的算法是（）
A、①x=left（n,1）②y=n-x*10③printx:
printy
B、①x=left（n,1）②y=right（n,1）③printx:
printy
C、①x=n/10②y=n-x*10③printx:
printy
D、①x=int（n/10）②y=n-x*10③printx:
printy
14、有5人，问第5人年龄，说比前面第4人小3岁。
问第4、3、2人，都说比前面人小3岁，问第1人，说他的年龄是38岁。
问第5人的年龄多大？
用递归法解决此问题的正确步骤是（）
A、①定义age（n）函数②函数中当n>1时，返回函数值为age（n-1），当n=1时候返回函数值为38
B、①定义age（n）函数②函数中当n>1时，返回函数值为age（n-1）-3，当n=1时候返回函数值为38
C、①定义age（n）函数②函数中不断地调用age（n-1）-3
D、①定义age（n）函数②函数中不断地调用age（n）函数自己
15、完善“显示”按钮的click程序，将代码段中“变量1”、“变量2”、“变量3”处换成正确的变量名，使当单击该按钮时，label1、label2分别显示30、10。
Privatesubcommand1_click（）
X=10
Y=30
IfxT=x
X=y
Y=t
Endif
Label1.caption=x
Label2.caption=y
Endsub
16、完善按钮“计算7！
”的click事件程序，但单击命令按钮时text1显示7！
的值。
Privatesubcommand1_click（）
Dimaassingle
DimIasinteger
A=1
ForI=1to7
A=a*I
NextI
Text1.text=a
Endsub
17、利用属性窗口进行如下修改“
1．将窗体的标题改为“江苏省中小学信息技术等级考试”；
2．将标签文字、字号设置为“楷体”“四号”
完善程序：
1、使当单击窗体时标签显示“算法与程序设计”
privatesubform1_click（）
label1.caption=”算法与程序设计”
18、编写程序，当在text1中输入x的值后，单击“计算”按钮，求y=|3x-5|的值。
Privatesubcommand1_click（）
Dimxassingle
Dimyassingle
X=val（text1.text）
Y=abs（3*x-5）
Text2.text=y
Endsub
第五套
1、以下哪个是算法的描述方法？
（）
A、枚举法B、列表法C、流程图描述法D、顺序法
2、VB中数据类型integer表示整型数，存储为（）字节
A、8B、6C、4D、2
3
升级会员 