vb模拟试题全套.docx
《vb模拟试题全套.docx》由会员分享，可在线阅读，更多相关《vb模拟试题全套.docx（21页珍藏版）》请在冰豆网上搜索。
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=
升级会员 