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