最新VB程序设计试题与答案1资料.docx

最新VB程序设计试题与答案1资料.docx

《最新VB程序设计试题与答案1资料.docx》由会员分享，可在线阅读，更多相关《最新VB程序设计试题与答案1资料.docx（11页珍藏版）》请在冰豆网上搜索。

最新VB程序设计试题与答案1资料

《VB程序设计基础》试题

得分

评卷人

一、选择题：

（每空2分，共20分）

1.与传统的程序设计语言相比,VisualBasic最突出的特点是___________。

A.结构化程序设计B.程序开发环境

C.事件驱动编程机制D.程序调试技术

2.VisualBasic是一种面向对象的程序设计语言，构成对象的三要素是________。

A.属性、事件、方法B.控件、属性、事件

C.窗体、控件、过程D.窗体、控件、模块

3.窗体模块保存在一个扩展名为__________的文件中。

A.basB.vbpC.vbgD.frm

4.下面正确的赋值语句是_________。

A.x+y=30B.y=π*r*rC.y=x+30D.3y=x

5.设S=“492”，表达式Right（S,1）+Left（S,1）+Mid（S,2,1）的值为__________。

A.“492”B.“249”C.“294”D.“429”

6.将数学表达式a≤b≤c写成Visual Basic表达式，正确的是__________。

A.a<=b<=c           B.a<=b Or b<=c 

C.a<=b And b<=c     D.a<=b Not b<=c 

7.为了把焦点移到文本框，所使用的方法是___________。

A.SetFocusB.VisibleC.RefreshD.GetFocus

8.INT（100*RND）产生的随机整数的闭区间是_____________。

A.[0，100]B.[1，100]C.[1，99]D.[0，99]

9.一个数组说明为Dima（0to5，1to5）AsInteger，则该数组共有_________个元素。

A.5B.36C.30D.不确定

10.下面过程定义语句合法的是____________。

A.FunctionP1（P1）B.FunctionP1（ByValxAsInteger）AsInteger

C.SubP1（xAsInteger）AsSingleD.SubP1（ByValx（））

得分

评卷人

二、填空题：

（每空3分，共18分）

1．找出100以内能同时被3、5、7整除的最小5个数据。

PrivateSubCommand1_Click（）

Dimcountn%,n%

n=1:

countn=0

Do

n=n+1

If___________________________________________Then

Printn

countn=countn+1

EndIf

Loop_______________________

EndSub

2.输出杨辉三角前五行。

OptionBase1

PrivateSubCommand1_Click（）

Dima（5,5）AsInteger,iAsInteger,jAsInteger

Fori=1To5

a（i,1）=1

_____________________________

Nexti

Fori=1To5

Forj=2Toi-1

________________________________

Nextj

Nexti

Fori=1To5

Forj=1Toi

Printa（i,j）,

Nextj

Print

Nexti

EndSub

3.求水仙花数。

PrivateSubCommand1_Click（）

DimaAsInteger,bAsInteger,cAsInteger,xAsInteger

Fora=1To9

Forb=0To9

Forc=0To9

x=_____________________

If____________________________ThenPrintx

Nextc

Nextb

Nexta

EndSub

得分

评卷人

三、程序分析题：

（每题6分，共12分）

1.点击窗体时，分析程序的执行结果。

Private Sub Form_Click（）

 For i = 1 To 5 

For j = 1 To i 

Print "* ";

 Next j 

Print 

Next i 

End Sub

程序功能结构分析：

程序执行结果：

2.单击命令按钮时，分析程序的执行结果。

PrivateFunctionP（NAsInteger）

dimsum%

ForI=1ToN

sum=sum+1

NextI

P=sum

EndFunction

PrivateSubCommand1_Click（）

S=P

（1）+P

（2）+P（3）+P（4）

PrintS;

EndSub

程序功能结构分析：

程序执行结果：

得分

评卷人

四、基本操作题：

（每题10分，共20分）

1.编制如下图所示的程序。

本程序根据如下公式，

由输入的身高计算标准体重。

男：

标准体重（kg）=身高（cm）-100

女：

标准体重（kg）=身高（cm）-105

2.编写一个窗体，窗体上有一个标签，并且标签上字的颜色可以不停的变化，标签从

窗体的上部向下部滚动出现。

得分

评卷人

五、综合应用程序设计题：

（每题15分，共30分）

1．求：

1+2！

+3！

+4！

+……+n!

（n为任意输入的一个正整数）。

2.输入若干个学生的成绩（以-1为结束标志），存入一维数组中，统计输入的成绩个数、最高分、最低分、平均分和及格率。

参考答案

一、选择题：

（每空2分，共20分）

1.C2.A3.D4.C5.B

6.C7.A8.D9.C10.B

二、填空题：

（每空3分，共18分）

1.nmod3=0Andnmod5=0Andnmod7=0untilcountn=5

2.a（i,i）=1a（i,j）=a（i-1,j）+a（i-1,j-1）

3.x=100*a+10*b+cx=a^3+b^3+c^3

三、程序分析题：

（每题6分，共12分）

1.程序功能结构分析：

单击窗体，在窗体上输出五行星号，第1行输出一个*号，第2行输出两个*号，以此类推，第5行输出五个星号。

该程序结构为双重循环结构，循环体中Print "* "语句一共执行15次。

程序执行结果：

2.程序功能结构分析：

程序中定义了一个函数过程P，含一个形参N，其功能是求N个1之和。

当点击命令按钮时，分别四次调用函数过程P，并分别将实参1、2、3、4传递给形参N。

然后，将P返回的值求和，并输出。

程序执行结果：

四、基本操作题：

（每题10分，共20分）

1.参考答案：

PrivateSubCommand1_Click（）

IfOption1.ValueThen

Text2.Text=Val（Text1.Text）-100

Else

Text2.Text=Val（Text1.Text）-105

EndIf

EndSub

2.参考答案：

PrivateSubForm_Click（）

Label1.Caption="欢迎学习VB程序设计"&vbNewLine&Now

Timer1.Interval=500

EndSub

PrivateSubTimer1_Timer（）

Label1.ForeColor=RGB（Int（Rnd*256）,Int（Rnd*256）,Int（Rnd*256））

IfLabel1.Top

Label1.Top=Label1.Top+50

是□否□Else

Label1.Top=0

§8-2购物环境与消费行为2004年3月20日EndIf

2．www。

cer。

net/artide/2003082213089728。

shtml。

EndSub

尽管售价不菲，但仍没挡住喜欢它的人来来往往。

这里有营业员们向顾客们示范着制作各种风格迥异的饰品，许多顾客也是学得不亦乐乎。

在现场，有上班族在里面精挑细选成品，有细心的小女孩在仔细盘算着用料和价钱，准备自己制作的原料。

可以想见，用本来稀奇的原料，加上别具匠心的制作，每一款成品都必是独一无二的。

而这也许正是自己制造所能带来最大的快乐吧。

2、消费者分析五、综合应用程序设计题：

（每题15分，共30分）

1.

2.3、你是否购买过DIY手工艺制品？

参考答案：

PrivateSubCommand1_Click（）

DimnAsInteger,sumAsDouble,fAsDouble,iAsInteger

8、你是如何得志DIY手工艺制品的？

sum=1

图1-5购物是对消费环境的要求分布f=1

综上所述，DIY手工艺品市场致所以受到认可、欢迎的原因就在于此。

我们认为：

这一市场的消费需求的容量是极大的，具有很大的发展潜力，我们的这一创业项目具有成功的前提。

n=Val（Text1.Text）

Fori=2TonStep1

f=f*i

sum=sum+f

Nexti

动漫书籍□化妆品□其他□Text2.Text=Str（sum）

EndSub

3.参考答案：

OptionBase1

PrivateSubCommand1_Click（）

Dims（100）AsSingle,nAsInteger,maxAsInteger,minAsInteger,sumAsSingle,fAsSingle,iAsInteger,countAsInteger

n=0:

count=0

sum=0

Fori=1To1000

s（i）=InputBox（"请输入第"&i&"个学生的成绩：

","成绩录入"）

Ifs（i）=-1ThenExitFor

n=n+1

Print"第"&i&"个学生的成绩：

"&s（i）

Nexti

Text1.Text=n

max=0

min=100

Fori=1Ton

sum=sum+s（i）

Ifs（i）>maxThenmax=s（i）

Ifs（i）

Ifs（i）>60Thencount=count+1

Nexti

Text2.Text=max

Text3.Text=min

Text4.Text=sum/n

Text5.Text=（count/n）*100&"%"

EndSub