计算机二级VB考试题文档格式.docx
《计算机二级VB考试题文档格式.docx》由会员分享，可在线阅读，更多相关《计算机二级VB考试题文档格式.docx（15页珍藏版）》请在冰豆网上搜索。
MsgBox"
y="
&
y
4、任意输入x值，根据分段函数求y值。
（用文本框进行输入输出）
x=Val（Text1.Text）
Ifx<
y=x
0Andx<
=10Then
10Andx<
=20Then
y=10
20Andx<
=40Then
y=-0.5*x+20
Text2.Text=y
1、任意输入5个整数，当这个数大于等于1小于10时，输出该数“是一位数字”；
当该数大于等于10小于100时，输出该数“是两位数字”；
其他情况输出“数字输入错误”，并计算这5个数的平均数。
Dima（1To5）AsSingle
Fori=1To5
a（i）=Val（InputBox（"
请输入第"
i&
"
个数"
s=s+a（i）
Next
Print"
平均数"
s/5
2、航空公司对飞往北京的飞机票实行按月份打折销售，
1月、3～6月折扣为6折；
9～11月折扣为7折；
7、8月折扣为8折；
其余月折扣为9折
设每张机票原价1000元，使用选择结构计算打折后的机票金额。
在程序中使用文本框1输入出行的月份，文本框2输入购买的票数。
使用消息框或标签或文本框3输出总需要的金额。
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
3、从键盘输入正整数n，求s=3+6+9+…+m,
m是小于等于n的最大正整数。
n=Val（Text1.Text）
IfnMod3=0Thenm=n
IfnMod3=1Thenm=n-1
IfnMod3=2Thenm=n-2
Fori=3TomStep3
s=s+i
Prints
4、用级数
求II的近似值，当最后一项的绝对值小于10^（-5）时，停止计算。
i=1
DoWhile1/（2*i-1）>
10^（-5）
s=s+（-1）^（i-1）/（2*i-1）
i=i+1
Loop
Print4*s
5、公式
求s的值，直到最后一项大于0.9999
s=0
DoUntili/（i+1）>
0.9999
s=s+i/（i+1）
6、利用ex的下述近似公式计算e2（直到最后一项小于10^（-5）为止）
这里可以看出x=2
p=1'
存放阶乘
s=1'
存放和
DoUntil2^i/p<
p=p*i
s=s+2^i/p
7、在窗体上打印5行6列的*，打印出来的图形呈菱形
Forj=1To6
Print"
*"
;
Next
Print
8、
当n=10时，求s
p=1
Fori=2Ton‘若n=10，直接把n替换成10，前面n的输入去掉
s=s+（i-1）/p
9、任意输入10个数放入数组,要求这10个数是介于100到1000之间的随机正整数.打印出数组中得到的所有数字.
Dima（1To10）AsInteger
Randomize'
用于产生不同的随机数种子，以避免连续产生相同的随机数
Fori=1To10
a（i）=Int（Rnd（）*90+10）
Printa（i）
2、
求s,直到最后一项的值小于10^（-6）
i=3
p=6'
放阶乘
DoUntil1/（p-i）<
10^（-6）
s=s+1/（p-i）
3、有两个数组a和b，各自有10个数组元素，利用循环分别给这两个数组进行赋值，要求这两个数组中的数是从100~999之间的整数。
然后求出数组a中有几个数组元素比数组b中的对应数组元素大。
Dima（1To10）AsInteger,b（1To10）AsInteger
a（i）=Int（Rnd（）*900+100）
a（"
）="
a（i）
Print
Randomize
b（i）=Int（Rnd（）*900+100）
b（"
b（i）
Ifa（i）>
b（i）Thenn=n+1'
n用于计数
n="
n
4、设计程序，求s=1*（1+2）*（1+2+3）*….*（1+2+3+..+n）的值，编程求当n=20时的s值。
s=1
Fori=1To20
p=p+i
s=s*p
5、输入一个n值，计算
的值并打印。
p用来放阶乘
Fori=1Ton
p=p*i
s=s+p/（i+i+1）
2、有2数组，每个数组10个元素，且均已按从大到小顺序排好。
编一个程序将这2组数合并为一组数，并仍按从大到小顺序排列。
（提示：
合并时可以新建一个含有20个元素数组，每一次比较后把数据放在新数组中）
OptionBase1‘通用声明段
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
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
ElseIfj>
Fori=iTo10
Fork=1To20
Printc（k）;
编写一个求n!
的子程序过程，利用该过程求下列表达式的值：
S=1/1!
+1/2!
+1/3!
+…+1/n!
求当n=10时s的值。
DimjAsInteger,pAsLong
Forj=1To10
Callff（j,p）
s=s+1/p
PublicSubff（nAsInteger,sAsLong）
s=s*i
1、编写一个求1+2+3+。
。
+n的function过程，利用该过程求下列表达式的值：
任意输入n的值，调用上述函数求s.
PublicFunctionmm（nAsInteger）AsInteger
mm=mm+i
EndFunction
DimjAsInteger
Forj=1Ton
s=s+1/mm（j）
3、某专业有100个同学，每个人选修了英语/数学/专业课3门课，要求输入任意一个学生的序号，能够查看该学生的3门课的成绩。
利用用户自定义类型与数组，学生成绩可以利用随机函数生成。
）
PrivateTypestu
engAsInteger
mathAsInteger
proAsInteger
EndType
Dima（1To100）Asstu‘以上是在通用的声明段定义的
Fori=1To100
a（i）.eng=Int（Rnd（）*90+10）
a（i）.math=Int（Rnd（）*90+10）
a（i）.pro=Int（Rnd（）*90+10）
Ifn>
=0Andn<
=100Then
英语：
"
a（n）.eng;
数学：
a（n）.math;
专业课：
a（n）.pro
1、设计一个如下图7-4所示的程序。
它对列表框具有随机产生10个数据、删除最小值、删除最大值、添加数据、统计数据的功能。
统计结果显示在图7-5所示的窗体中。
图7-4主界面图7-5统计界面
首先在界面上添加上图所示各类控件及窗体，代码如下：
PrivateSubcount_Click（）'
统计菜单
Form2.Show
m1=a
（1）
m2=a
（1）
Ifm1<
a（i）Then
m1=a（i）'
存放最大值
Ifm2>
m2=a（i）'
存放最小值
s=s+a（i）'
求和
Form2.Text1=m1
Form2.Text2=m2
Form2.Text3=s/10
PrivateSubmax_Click（）'
删除最大值
Fori=1To9
Ifa（i）<
a（i+1）Then
m1=a（i+1）
j=i'
记录下当前最大值在数组中的位置
List1.RemoveItemj
PrivateSubmin_Click（）'
删除最小值
PrivateSubr_Click（）'
随机产生10个数
a（i）=Int（Rnd（）*100）
List1.AddItema（i）
2、分别编写子程序过程和函数过程求一个数的阶乘，然后分别调用这两个过程计算5!
+6!
+8!
的值。
DimhAsInteger,gAsLong
Callff（5,g）
s=s+g
Callff（6,g）
Callff（8,g）
PublicFunctiongg（aAsInteger）AsLong
gg=1
Fori=1Toa
gg=gg*i
PrivateSubCommand2_Click（）
Printgg（5）+gg（6）+gg（8）
3、编写一个函数过程求
的值，调用该过程计算并输出
PublicFunctionff（nAsInteger）AsSingle
ff=ff+1/i
Printff（50）
4、已知函数f（x,n）的递推公式为：
编程求f（4,4）的值。
PublicFunctionf（xAsSingle,nAsInteger）
Ifn=1Then
f=x
ElseIfn>
1Then
f=x*（2-f（x,n-1））
Printf（4,2）
5、编写一个通用子程序过程，以整型数作为形参，当该参数为奇数时输出False，而当该参数为偶数时输出True。
PublicSubp（nAsInteger,tAsBoolean）
IfnMod2=0Then
t=True
t=False
DimaAsInteger,tAsBoolean
Callp（a,t）
Printt
升级会员 