计算机二级VB考试题文档格式.docx
- 文档编号:20334270
- 上传时间:2023-01-22
- 格式:DOCX
- 页数:15
- 大小:99.47KB
计算机二级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
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)
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
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 计算机 二级 VB 考试题