vb模拟试题全套Word文档下载推荐.docx

vb模拟试题全套Word文档下载推荐.docx

《vb模拟试题全套Word文档下载推荐.docx》由会员分享，可在线阅读，更多相关《vb模拟试题全套Word文档下载推荐.docx（21页珍藏版）》请在冰豆网上搜索。

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

A、156B、s=15i=6C、65D、s=6i=5

13、阅读下面程序，单击窗体后，在文本框text1中显示的内容是（A）

Dimint1AsInteger

Dimint2AsInteger

int1=1

int2=0

DoWhileint1<

20

int2=int1+int2

int1=int1*（int1+1）

Loop

Text1.Text=int2

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

16、编写程序，求

的值。

（x的值在程序中调用inputbox函数，在弹出的标准输入对话框中输入）。

完成所有操作后，按“ctrl+s”保存

DimxAsSingle'

定义x为单精度型变量，由标准输入对话框输入

DimyAsSingle'

定义y为单精度型变量，值由窗体显示

x=Val（InputBox（"

请输入变量x"

））

Ifx<

=0Then

y=x*x+1

y=x*x-x+1

Print"

y="

y

17、编程计算

。

DimsAsSingle'

定义s为单精度型数

定义循环变量

s=0

Fori=1To100

IfiMod2=1Then

s=s+1/i

Else

s=s-1/i

EndIf

s="

s

18、编程求：

鸡与兔在一个笼里，共有100条腿，40个头，问鸡有几只？

兔有几只？

DimjiAsInteger

DimtuAsInteger

DimlegAsInteger

DimheadAsInteger

Forji=1To50

Fortu=1To25

leg=ji*2+tu*4

head=ji+tu

Ifleg=100Andhead=40Then

Printji;

tu

Nexttu

Nextji

第二套

1．下列说法错误的是（）

A、程序设计就是寻求解决问题的方法，并将其实现步骤编写成计算机可以执行的程序的过程

B、程序设计语言的发展经历了机器语言、汇编语言、高级语言的过程

C、计算机程序就是指计算机如何去解决问题或完成一组可执行指令的过程

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

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>

A=A+1

A=A-1

A、8B、9C、10D、11

12、阅读下面程序，单击窗体后，在文本框text1和text2中显示的内容分别是（）

privatesubform_click（）

dimxasinteger:

yasinteger

x=1:

y=0

dowhilex<

3

y=y+x

x=x+1

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）

A、12B、13C、14D、15

14、下列程序段中，循环体执行的次数是（）

x=0

fory=1to10

nexty

A、10B、11C、12D、13

***

*****

PrintTab（Abs（i）+5）;

'

Forj=1To2*（3-Abs（i））-1

16、编写程序，求y=6x-5的值。

x=val（inpubox（"

y=6*x-5

17、编写程序，求1+2+3+……+n>

=500中最小的n。

定义s存入和

DimnAsSingle'

定义变量

n=0

Do

n=n+1

s=s+n

LoopUntils>

=500

n="

n

18、编写递归函数求5！

的函数

PublicFunctions（nAsInteger）AsLong

Ifn=1Then

s=1

s=n*s（n-1）

EndFunction

PrivateSubform_click（）

s（5）="

s（5）

第三套

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=0

forI=1to5

b=b+a*I

nextI

它的基本结构属于（）

A、顺序结构B、选择结构C、循环结构D、树型结构

10、下列程序段中，循环体执行的次数是（）

fory=1to10step–1

A、1B、10C、0D、4

11、下列程序段运行后，m的值为（）

a=2:

b=1:

c=5

ifa<

bthenm=aelsem=b

ifc<

mthenm=c

A、1B、2C、5D、提示错误，无答案

12、阅读下面程序，当单击窗体之后，m的值是（）

dimmasinteger:

dimIasinteger

m=0

forI=1to3

m=m+2

printm

A、0B、4C、6D、8

13、阅读下面程序，单击窗体后，在文本框text1和text2中显示的内容分别是（）

dimxasinteger,nasinteger

x=1

n=0

20

n=n+1

x=x*3

text1.text=str（x）

text2.text=str（n）

A、273B、327C、203D、321

14、阅读下面程序，单击窗体后，在文本框显示的内容是（）

dima（8）,b（8）asinteger

dimI,jasinteger

forj=1to4

a（j）=2*j

b（j）=a（j）*3

text1.text=b（j\2）

A、10B、12C、14D、18

@

@@

@@@

@@@@

@@@@@

@@@@@@

DimiAsInteger

DimjAsInteger

Fori=1To6

PrintTab（10）;

Forj=1Toi

@"

16、一只猴子摘了一堆桃子，它每天吃当天桃子数的一半，每次忍不住多吃了一个。

这样到第十天时只有一个桃子可以吃了。

编程计算猴子最初共有多少个桃子？

DimsAsInteger

s=1

Fori=1To9

s=（s+1）*2

17、编程计算s=1*2+2*3+3*4+……+n*（n+1）的值，其中n=10

DimsAsSingle

Fori=1To10

s=s+i*（i+1）

18、编写递归函数求10！

s（10）="

s（10）

第四套

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、a<

xandx≤bB、a<

x<

=bC、a>

xandx<

=bD、a<

=b

6、数学式子

在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”

则语句print“VB”的执行次数是（）

A、3B、4C、2D、1

8、在VB中，以下程序段：

a=6

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、①如a<

b就a=b②如a<

c就a=c③如b<

c就b=c

C、①如a>

b就a=b②如a>

c就a=c③如b>

D、①如a<

b两变量值交换②如a<

c两变量值交换③如b<

c两变量值交换

13、向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:

D、①x=int（n/10）②y=n-x*10③printx:

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

Ifx<

ythen

T=x

X=y

Y=t

Endif

Label1.caption=x

Label2.caption=y

Endsub

16、完善按钮“计算7！

”的click事件程序，但单击命令按钮时text1显示7！

Dimaassingle

DimIasinteger

A=1

ForI=1to7

A=a*I

NextI

Text1.text=a

17、利用属性窗口进行如下修改“

1．将窗体的标题改为“江苏省中小学信息技术等级考试”；

2．将标签文字、字号设置为“楷体”“四号”

完善程序：

1、使当单击窗体时标签显示“算法与程序设计”

privatesubform1_click（）

label1.caption=”算法与程序设计”

18、编写程序，当在text1中输入x的值后，单击“计算”按钮，求y=|3x-5|的值。

Dimxassingle

Dimyassingle

X=val（text1.text）

Y=abs（3*x-5）

Text2.text=y

第五套

1、以下哪个是算法