计算机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,"*"）:
Print
NextI
ForI=4To1Step-1
PrintTab（20-I）;String（2*I-1,"*"）:
Print
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
Print
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-1s=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
升级会员 