计算机VB考试试题精选.docx
- 文档编号:2922056
- 上传时间:2022-11-16
- 格式:DOCX
- 页数:41
- 大小:34.46KB
计算机VB考试试题精选.docx
《计算机VB考试试题精选.docx》由会员分享,可在线阅读,更多相关《计算机VB考试试题精选.docx(41页珍藏版)》请在冰豆网上搜索。
计算机VB考试试题精选
1编写程序,计算并输出下面级数前n项(n=50)中偶数项的和。
(要求用循环做,非循环不给分。
)
1*2+2*3+3*4+4*5+……+n*(n+1)+…
PrivateSubForm_Activate()
s=0
ForI=2To50Step2
s=s+I*(I+1)
NextI
Prints
EndSub
2勾股定理中三个数的关系是:
a^2+b^2=c^2编写程序,输出100以内满足上述关系的整数组合,例如3,4,5就是一个整数组合。
PrivateSubForm_Activate()
Fora=1To100
Forb=a+1To100
Forc=b+1To100
Ifa^2+b^2=c^2ThenPrinta,b,c
Nextc,b,a
EndSub
3编写程序,随机生成100个两位整数,并统计出其中小于等于40、大于40小于等于70及大于70的数据个数。
PrivateSubForm_Activate()
Randomize
a=0:
b=0:
c=0
ForI=1To100
NextIx=Int(Rnd*90+10)
SelectCasex
CaseIs<=40
a=a+1
CaseIs<=70
b=b+1
CaseElse
c=c+1
EndSelect
Printa,b,c
EndSub
4编写程序,单击窗体时在窗体上输出如下所示的图形。
*
***
*****
*******
*********
*******
*****
***
*
要求:
用循环做,非循环不给分。
PrivateSubForm_Activate()
ForI=1To5
PrintTab(20-I);String(2*I-1,"*"):
NextI
ForI=4To1Step-1
PrintTab(20-I);String(2*I-1,"*"):
NextI
EndSub
5编写程序,计算并输出下面级数前n项中(n=50)偶数项的和。
(要求用循环做,非循环不给分。
)
1*2*3+2*3*4+3*4*5+……+n*(n+1)*(n+2)+…
PrivateSubForm_Activate()
s=0
Fori=1To50
IfiMod2=0Then
s=s+i*(i+1)*(i+2)
EndIf
Nexti
Prints
EndSub
6输入一串数字,求其中偶数数字的个数及其和。
(输入:
123456789),运算得:
420
PrivateSubForm_Activate()
x=InputBox("输入一串数字")
s=0:
t=0
Fori=1ToLen(x)
a=Mid(x,i,1)
IfaMod2=0Thens=s+1:
t=t+a
Nexti
Prints,t
EndSub
7编写程序,用普通迭代法求方程f(x)=x+lnx-2.5=0的近似实根r,迭代初值为1.5,精确到0.0001。
〔提示:
必须把方程f(x)=0化成其等价形式x=g(x)〕。
(允许使用其他迭代法)
x=1.87264704036406
PrivateSubForm_Activate()
Dimx0,x1,fx0,f1x0
x1=1.5
Do
x0=x1
fx0=x0+log(x0)-2.5
f1x0=1+1/x0
x1=x0-fx0/f1x0
LoopUntilAbs(x1-x0)<=0.0001
Print"x=";x1
EndSub
8编写程序,给出行3,6,9,12的值和列15,16,17,18的值,得到如下的乘积表:
(要求用循环做,非循环不给分。
)
*36912
154590135180
164896144192
1751102153204
1854108162216
PrivateSubForm_Activate()
a="!
@@@@@@"
Fori=0To12Step3
Ifi=0Then
PrintFormat("*",a);
Else
PrintFormat(i,a);
EndIf
Nexti
Fori=15To18
PrintFormat(i,a);
Forj=3To12Step3
PrintFormat(i*j,a);
9把一百元钱人民币全兑换成硬币(一元的、五角的、一角的),有多少种兑换方法?
(15分)
顶
2
2009-01-0418:
04回复
RedBlack_m
2位粉丝2楼
PrivateSubForm_Activate()
s=0
Fori=0To100
Forj=0To200
Fork=0To1000
Ifi+j*0.5+k*0.1=100Thens=s+1
Nextk,j,i
Prints
EndSub
10编写程序,计算下面级数前n项(n=20)的部分和,并输出该级数最后两项之差的绝对值。
(要求用循环做,非循环不给分。
)
1*2*3+2*3*4+3*4*5+……+n*(n+1)*(n+2)+…(15分)
PrivateSubForm_Activate()
s=0
Fori=1To20
t=i*(i+1)*(i+2)
s=s+t
Ifi=19Thenk=t
Ifi=20Thenk=Abs(t-k)
Nexti
Prints,k
EndSub
11编写程序,用普通迭代法求方程f(x)=x+lnx-2.5=0的近似实根r,迭代初值为1.5,精确到0.0001。
〔提示:
必须把方程f(x)=0化成其等价形式x=g(x)〕。
(允许使用其他迭代法)(15分)
x=1.87264704036406
PrivateSubForm_Activate()
Dimx0,x1,fx0,f1x0
x1=1.5
Do
x0=x1
fx0=x0+log(x0)-2.5
f1x0=1+1/x0
x1=x0-fx0/f1x0
LoopUntilAbs(x1-x0)<=0.0001
Print"x=";x1
EndSub
求公式:
e=1/1!
+1/2!
+1/3!
+……+1/n!
直到最后一项小于10^(-6)时e的值。
(保留小数点后9位)
(注:
程序代码写在命令按钮Command1的Click事件中。
)
程序:
PrivateSubCommand1_Click()
s=0:
t=1
i=1
Do
t=t*i
s=s+1/t
i=i+1
LoopUntil1/t<=0.000001
PrintFormat(s,"0.#########")
EndSub
求公式:
e=1/1!
+1/2!
+1/3!
+……+1/n!
直到n=50时的e值。
(保留小数点后9位)
程序:
PrivateSubCommand1_Click()
s=0:
t=1
Fori=1To50
t=t*i
s=s+1/t
Nexti
PrintRound(s,9)
EndSub
有一分数序列:
1,1/2,2/3,3/5,5/8,8/13,13/21……
求出这个数列的前20项之和。
程序:
PrivateSubForm_Activate()
f1=1:
f2=1:
s=0
Fori=1To20
s=s+f1/f2
f=f1+f2
f1=f2
f2=f
Nexti
Prints
EndSub
输入一串数字,求其中偶数位数字之和。
例如输入234567,则求3+5+7。
程序:
PrivateSubForm_Click()
s=0
x=InputBox("x=")
IfIsNumeric(x)Then
Fori=1ToLen(x)
IfiMod2=0Thens=s+Mid(x,i,1)
Nexti
Printx,s
EndIf
EndSub
编程求函数SUMX(X),当-1 +X*5/5! +...+X*21/21! 当X>1或X<-1时,函数值为0。 X由键盘输入。 程序: PrivateSubForm_Click() x=Val(InputBox("x=")) If-1 s=1 Fori=3To21Step2 t=1 Forj=1Toi t=t*j Nextj s=s+x*i/t Nexti EndIf Ifx<-1Orx>1Thens=0 Prints EndSub 编写程序,用牛顿切线法求方程f(x)=x+lgx-1.7=0的近似实根r,迭代初值自选,精确到0.0001。 〔提示: 计算公式为x=x-f(x)/f'(x)〕 注意: PrivateSubForm_Activate() x1=2 Do x0=x1 f=x0+Log(x0)/Log(10)-1.7 f1=1+1/(x0*Log(10)) x1=x0-f/f1 LoopUntilAbs(x1-x0)<=0.0001 Print"x=";x1 EndSub 编写程序,用牛顿切线法求方程f(x)=x+lnx-1.7=0的近似实根r,迭代初值自选,精确到0.0001。 〔提示: 计算公式为x=x-f(x)/f'(x)〕 程序: PrivateSubForm_Activate() Dimx
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 计算机 VB 考试 试题 精选