vb题库程序设计题讲解Word下载.docx
《vb题库程序设计题讲解Word下载.docx》由会员分享，可在线阅读，更多相关《vb题库程序设计题讲解Word下载.docx（10页珍藏版）》请在冰豆网上搜索。
EndIf
MsgBox"
输入的数据"
&
n&
"
为：
"
result
编写函数fun，函数的功能是：
判断一个字符是
字母字符、数字字符还是其他字符，并做相应的显示。
字母字符显示字符串"
字母"
数字字符显示字符串"
数字"
其他字符显示字符串"
其他"
要求使用IF语句来实现。
IfUCase（n）>
="
A"
AndUCase（n）<
Z"
Then
fun="
ElseIfn>
0"
Andn<
9"
Else
根据一个百分制
成绩mark（整数），显示对应五级制的评定。
条件如下：
mark大于等于90显示"
优秀"
mark小于90且大于等于80显示"
良好"
mark小于80且大于等于70显示"
中等"
mark小于70且大于等于60显示"
及格"
mark小于60显示"
不及格"
PrivateFunctionfun（markAsInteger）AsString
**********Program**********
**********End**********
EndFunction
Ifmark>
=90Then
ElseIfmark>
=80Then
=70Then
=60Then
要求使用SelectCase语句来实现。
PrivateFunctionfun（nAsString）AsString
SelectCasen
Case"
a"
To"
z"
"
CaseElse
EndSelect
当x的初值为10，
每年增长率为千分之八，计算多少年以后x的值能达到y，
并显示所需年数的值（变量名必须为n）。
要求使用DoWhile...Loop语句来实现。
x=10
n=0
DoWhilex<
y
x=x*1.008
n=n+1
Loop
fun=n
计算两个正整数的
最大公约数，并显示。
如：
两个数为15、20，结果显示"
5"
要求使用Do...Loop语句来实现。
Do
r=mModn
Ifr=0ThenExitDo
m=n
n=r
求1~1000以内能
同时被m、n整除的数的总和并显示。
Sum=0
Fori=1To1000
IfiModm=0AndiModn=0Then
Sum=Sum+i
EndIf
Nexti
fun=Sum
求从m到n的乘积并显示，
Product=1
Fori=mTon
Product=Product*i
fun=Product
（事件）单击窗体。
（响应）一球从100米高度自由落下，每次落地返回
原高度的一半，求第10次落地时，共经过多
少米？
并将结果在窗体上输出。
Dimj,iAsInteger
s=0
j=100
Fori=2To10
j=j/2
s=s+2*j
Next
s=100+s
Print（CStr（s））
（响应）求出1000-9999之间具有如下特点的四位数字，
它的平方根恰好就是它中间的两位数字，例如，
2500开平方为50，恰为2500的中间两位，找出
所有这样的四位数。
并求出所有这样的数的和
存入SUM中
DimiAsInteger
DimjAsInteger
Fori=1000To9999
j=Val（Mid（Trim（Str（i））,2,2））
Ifj^2=iThen
Printi,
sum=sum+i
Next
（事件）双击窗体。
（响应）把一元钞票换成一分、二分和五分的硬币
（每种至少有一枚），求出其所有的换法，
把结果输出在窗体上。
将所有的换法的数目存入变量N中
Dimi,j,kAsInteger
Fori=1To100
Forj=1To50
Fork=1To20
If（（i+2*j+k*5）=100）Then
Print（CStr（i））
Print（CStr（j））
Print（CStr（k））
（响应）写程序解决百钱买百鸡问题：
公鸡3元1只，
母鸡5元1只，小鸡一元3只，怎样用100元买
100只鸡。
把结果输出到窗体上。
将答案数存放在变量N中
Fori=1To20'
母鸡
Forj=1To33'
公鸡
Fork=3To100'
小鸡
If（（kMod3）=0）And（（i*5+j*3+k/3）=100）And（（i+j+k）=100）Then
（响应）求10~20之间所有素数的乘积并输出在窗体上。
将结果存入变量L中。
DimbAsBoolean
l=1
b=False
Fori=10To20
Forj=2Toi-2
IfiModj=0Then
b=True
Ifb=FalseThen
l=l*i
PrintStr（l）
（响应）求1-1/2+1/3-1/4+……+1/99-1/100的值。
将结果存入变量J中。
Fori=1To100
IfiMod2=1Then
j=j+1/i
ElseIfiMod2=0Then
j=j-1/i
Printj
（响应）求1+2+3+5+8+13+……前20项的和，并将结
果在窗体上输出。
将结果存入变量SUM中。
Dimj（1To20）AsInteger
Fori=1To20
Ifi<
3Then
j（i）=i
Else
j（i）=j（i-1）+j（i-2）
sum=sum+j（i）
Printsum
有一根长度为321米的钢材，要将它截取为两种规格的
短料，两种规格的长度分别为a米、b米。
每种至少一段。
编写函数fun，函数的功能是:
求出分割成两种规格后剩余残料r最少的值，并显示。
a为51、b为61时，则显示"
要求使用For语句来实现。
Dimr!
t!
a0%,b0%
r=321
Forb0=1To（321-a）\b
Fora0=1To（321-b*b0）\a
t=321-b0*b-a0*a
Ift>
=0Andt<
rThen
r=t
Nexta0
Nextb0
fun=r
升级会员 