计算机二级VB考试题.docx

计算机二级VB考试题.docx

《计算机二级VB考试题.docx》由会员分享，可在线阅读，更多相关《计算机二级VB考试题.docx（15页珍藏版）》请在冰豆网上搜索。

计算机二级VB考试题

1、任意输入3种商品价格，若分别购买x,y,z斤，求总后的总价格

PrivateSubCommand1_Click（）

a=Val（Text1.Text）

b=Val（Text2.Text）

c=Val（Text3.Text）

d=Val（Text4.Text）

e=Val（Text5.Text）

f=Val（Text6.Text）

total=a*b+c*d+e*f

Text7.Text=total

EndSub

2、一物体做自由落体运动，求下降t秒时的速度。

（重力加速度g=9.8）

PrivateSubCommand1_Click（）

t=Val（Text1.Text）

v=9.8*t

Text2.Text=v

EndSub

3、用inputbox函数输入x的值，根据下列分段函数求y值，并用msgbox输出。

PrivateSubCommand1_Click（）

x=Val（InputBox（"pleaseinputx"））

Ifx>0Then

y=（x^2+9）/x

ElseIfx>-1Andx<=0Then

y=1

Else

y=x*x

EndIf

MsgBox"y="&y

EndSub

4、任意输入x值，根据分段函数求y值。

（用文本框进行输入输出）

PrivateSubCommand1_Click（）

x=Val（Text1.Text）

Ifx<0Then

y=x

ElseIfx>0Andx<=10Then

y=x*x

ElseIfx>10Andx<=20Then

y=10

ElseIfx>20Andx<=40Then

y=-0.5*x+20

EndIf

Text2.Text=y

EndSub

1、任意输入5个整数，当这个数大于等于1小于10时，输出该数“是一位数字”；当该数大于等于10小于100时，输出该数“是两位数字”；其他情况输出“数字输入错误”，并计算这5个数的平均数。

PrivateSubCommand1_Click（）

Dima（1To5）AsSingle

Fori=1To5

a（i）=Val（InputBox（"请输入第"&i&"个数"））

s=s+a（i）

Next

Print"平均数"&s/5

EndSub

2、航空公司对飞往北京的飞机票实行按月份打折销售，

1月、3～6月折扣为6折；9～11月折扣为7折；7、8月折扣为8折；其余月折扣为9折

设每张机票原价1000元，使用选择结构计算打折后的机票金额。

在程序中使用文本框1输入出行的月份，文本框2输入购买的票数。

使用消息框或标签或文本框3输出总需要的金额。

PrivateSubCommand1_Click（）

a=Val（Text1.Text）

b=Val（Text2.Text）

SelectCasea

Case1,3To6

y=1000*b*0.6

Case9To11

y=1000*b*0.7

Case7,8

y=1000*b*0.8

CaseElse

y=1000*b*0.9

EndSelect

MsgBoxy

EndSub

3、从键盘输入正整数n，求s=3+6+9+…+m,

m是小于等于n的最大正整数。

PrivateSubCommand1_Click（）

n=Val（Text1.Text）

IfnMod3=0Thenm=n

IfnMod3=1Thenm=n-1

IfnMod3=2Thenm=n-2

Fori=3TomStep3

s=s+i

Next

Prints

EndSub

4、用级数

求II的近似值，当最后一项的绝对值小于10^（-5）时，停止计算。

PrivateSubCommand1_Click（）

i=1

DoWhile1/（2*i-1）>10^（-5）

s=s+（-1）^（i-1）/（2*i-1）

i=i+1

Loop

Print4*s

EndSub

5、公式

求s的值，直到最后一项大于0.9999

PrivateSubCommand1_Click（）

i=1

s=0

DoUntili/（i+1）>0.9999

s=s+i/（i+1）

i=i+1

Loop

Prints

EndSub

6、利用ex的下述近似公式计算e2（直到最后一项小于10^（-5）为止）

这里可以看出x=2

PrivateSubCommand1_Click（）

p=1'存放阶乘

i=1

s=1'存放和

DoUntil2^i/p<10^（-5）

p=p*i

s=s+2^i/p

i=i+1

Loop

Prints

EndSub

7、在窗体上打印5行6列的*，打印出来的图形呈菱形

PrivateSubCommand1_Click（）

Fori=1To5

Forj=1To6

Print"*";

Next

Print

Next

EndSub

8、

当n=10时，求s

PrivateSubCommand1_Click（）

n=Val（Text1.Text）

p=1

Fori=2Ton‘若n=10，直接把n替换成10，前面n的输入去掉

p=p*i

s=s+（i-1）/p

Next

Prints

EndSub

9、任意输入10个数放入数组,要求这10个数是介于100到1000之间的随机正整数.打印出数组中得到的所有数字.

PrivateSubCommand1_Click（）

Dima（1To10）AsInteger

Randomize'用于产生不同的随机数种子，以避免连续产生相同的随机数

Fori=1To10

a（i）=Int（Rnd（）*90+10）

Printa（i）

Next

EndSub

2、

求s,直到最后一项的值小于10^（-6）

PrivateSubCommand1_Click（）

i=3

p=6'放阶乘

DoUntil1/（p-i）<10^（-6）

s=s+1/（p-i）

i=i+1

p=p*i

Loop

Prints

EndSub

3、有两个数组a和b，各自有10个数组元素，利用循环分别给这两个数组进行赋值，要求这两个数组中的数是从100~999之间的整数。

然后求出数组a中有几个数组元素比数组b中的对应数组元素大。

PrivateSubCommand1_Click（）

Dima（1To10）AsInteger,b（1To10）AsInteger

Fori=1To10

a（i）=Int（Rnd（）*900+100）

Print"a（"&i&"）="&a（i）

Next

Print

Randomize

Fori=1To10

b（i）=Int（Rnd（）*900+100）

Print"b（"&i&"）="&b（i）

Next

Fori=1To10

Ifa（i）>b（i）Thenn=n+1'n用于计数

Next

Print"n=";n

EndSub

4、设计程序，求s=1*（1+2）*（1+2+3）*….*（1+2+3+..+n）的值，编程求当n=20时的s值。

PrivateSubCommand1_Click（）

s=1

Fori=1To20

p=p+i

s=s*p

Next

Prints

EndSub

5、输入一个n值，计算

的值并打印。

PrivateSubCommand1_Click（）

n=Val（Text1.Text）

p=1'p用来放阶乘

Fori=1Ton

p=p*i

s=s+p/（i+i+1）

Next

Prints

EndSub

2、有2数组，每个数组10个元素，且均已按从大到小顺序排好。

编一个程序将这2组数合并为一组数，并仍按从大到小顺序排列。

（提示：

合并时可以新建一个含有20个元素数组，每一次比较后把数据放在新数组中）

OptionBase1‘通用声明段

PrivateSubCommand1_Click（）

Dimc（1To20）AsInteger

a=Array（211,210,203,199,187,165,154,132,102,100）

b=Array（985,300,200,198,188,176,150,120,110,9）

i=1:

j=1:

k=1

DoWhilei<=10Andj<=10Andk<=20

Ifa（i）>b（j）Then

c（k）=a（i）

i=i+1

Else

c（k）=b（j）

j=j+1

EndIf

k=k+1

Loop

Ifi>10Then

Forj=jTo10

c（k）=b（j）

k=k+1

Next

ElseIfj>10Then

Fori=iTo10

c（k）=a（i）

k=k+1

Next

EndIf

Fork=1To20

Printc（k）;

Next

Print

EndSub

编写一个求n!

的子程序过程，利用该过程求下列表达式的值：

S=1/1!

+1/2!

+1/3!

+…+1/n!

求当n=10时s的值。

PrivateSubCommand1_Click（）

DimjAsInteger,pAsLong

Forj=1To10

Callff（j,p）

s=s+1/p

Next

Prints

EndSub

PublicSubff（nAsInteger,sAsLong）

s=1

Fori=1Ton

s=s*i

Next

EndSub

1、编写一个求1+2+3+。

。

。

+n的function过程，利用该过程求下列表达式的值：

任意输入n的值，调用上述函数求s.

PublicFunctionmm（nAsInteger）AsInteger

Fori=1Ton

mm=mm+i

Next

EndFunction

PrivateSubCommand1_Click（）

DimjAsInteger

n=Val（Text1.Text）

Forj=1Ton

s=s+1/mm（j）

Next

Prints

EndSub

3、某专业有100个同学，每个人选修了英语/数学/专业课3门课，要求输入任意一个学生的序号，能够查看该学生的3门课的成绩。

（提示：

利用用户自定义类型与数组，学生成绩可以利用随机函数生成。

）

PrivateTypestu

engAsInteger

mathAsInteger

proAsInteger

EndType

Dima（1To100）Asstu‘以上是在通用的声明段定义的

PrivateSubCommand1_Click（）

Randomize

Fori=1To100

a（i）.eng=Int（Rnd（）*90+10）

a（i）.math=Int（Rnd（）*90+10）

a（i）.pro=Int（Rnd（）*90+10）

Next

n=Val（Text1.Text）

Ifn>=0Andn<=100Then

Print"英语：

";a（n）.eng;"数学：

";a（n）.math;"专业课：

";a（n）.pro

EndIf

EndSub

1、设计一个如下图7-4所示的程序。

它对列表框具有随机产生10个数据、删除最小值、删除最大值、添加数据、统计数据的功能。

统计结果显示在图7-5所示的窗体中。

图7-4主界面图7-5统计界面

首先在界面上添加上图所示各类控件及窗体，代码如下：

Dima（1To10）AsInteger

PrivateSubcount_Click（）'统计菜单

Form2.Show

m1=a

（1）

m2=a

（1）

Fori=1To10

Ifm1

m1=a（i）'存放最大值

EndIf

Ifm2>a（i）Then

m2=a（i）'存放最小值

EndIf

s=s+a（i）'求和

Next

Form2.Text1=m1

Form2.Text2=m2

Form2.Text3=s/10

EndSub

PrivateSubmax_Click（）'删除最大值

Fori=1To9

Ifa（i）

m1=a（i+1）

j=i'记录下当前最大值在数组中的位置

EndIf

Next

List1.RemoveItemj

EndSub

PrivateSubmin_Click（）'删除最小值

Fori=1To9

Ifa（i）>a（i+1）Then

m1=a（i+1）

j=i'记录下当前最大值在数组中的位置

EndIf

Next

List1.RemoveItemj

EndSub

PrivateSubr_Click（）'随机产生10个数

Fori=1To10

a（i）=Int（Rnd（）*100）

List1.AddItema（i）

Next

EndSub

2、分别编写子程序过程和函数过程求一个数的阶乘，然后分别调用这两个过程计算5!

+6!

+8!

的值。

PrivateSubCommand1_Click（）

DimhAsInteger,gAsLong

Callff（5,g）

s=s+g

Callff（6,g）

s=s+g

Callff（8,g）

s=s+g

Prints

EndSub

PublicSubff（nAsInteger,sAsLong）

s=1

Fori=1Ton

s=s*i

Next

EndSub

PublicFunctiongg（aAsInteger）AsLong

gg=1

Fori=1Toa

gg=gg*i

Next

EndFunction

PrivateSubCommand2_Click（）

Printgg（5）+gg（6）+gg（8）

EndSub

3、编写一个函数过程求

的值，调用该过程计算并输出

的值。

PublicFunctionff（nAsInteger）AsSingle

Fori=1Ton

ff=ff+1/i

Next

EndFunction

PrivateSubCommand1_Click（）

Printff（50）

EndSub

4、已知函数f（x,n）的递推公式为：

编程求f（4,4）的值。

PublicFunctionf（xAsSingle,nAsInteger）

Ifn=1Then

f=x

ElseIfn>1Then

f=x*（2-f（x,n-1））

EndIf

EndFunction

PrivateSubCommand1_Click（）

Printf（4,2）

EndSub

5、编写一个通用子程序过程，以整型数作为形参，当该参数为奇数时输出False，而当该参数为偶数时输出True。

PublicSubp（nAsInteger,tAsBoolean）

IfnMod2=0Then

t=True

Else

t=False

EndIf

EndSub

PrivateSubCommand1_Click（）

DimaAsInteger,tAsBoolean

a=Val（Text1.Text）

Callp（a,t）

Printt

EndSub