vb题库程序设计题讲解.docx
《vb题库程序设计题讲解.docx》由会员分享，可在线阅读，更多相关《vb题库程序设计题讲解.docx（9页珍藏版）》请在冰点文库上搜索。
vb题库程序设计题讲解
题目：
（事件）单击窗体
'（响应）用输入框输入一自然数，判断是"正数"、"负数"
或"零"，并根据输入的数用消息框显示"正数"、"负数"
或"零"。
n=InputBox（"输入一个自然数"）
Ifn>0Then
result="正数"
ElseIfn<0Then
result="负数"
ElseIfn=0Then
result="零"
EndIf
MsgBox"输入的数据"&n&"为：
"&result
题目：
编写函数fun，函数的功能是：
判断一个字符是
'字母字符、数字字符还是其他字符，并做相应的显示。
'字母字符显示字符串"字母"
'数字字符显示字符串"数字"
'其他字符显示字符串"其他"
'要求使用IF语句来实现。
IfUCase（n）>="A"AndUCase（n）<="Z"Then
fun="字母"
ElseIfn>="0"Andn<="9"Then
fun="数字"
Else
fun="其他"
EndIf
'题目：
编写函数fun，函数的功能是：
根据一个百分制
'成绩mark（整数），显示对应五级制的评定。
条件如下：
'mark大于等于90显示"优秀"
'mark小于90且大于等于80显示"良好"
'mark小于80且大于等于70显示"中等"
'mark小于70且大于等于60显示"及格"
'mark小于60显示"不及格"
'要求使用IF语句来实现。
PrivateFunctionfun（markAsInteger）AsString
'**********Program**********
'**********End**********
EndFunction
Ifmark>=90Then
fun="优秀"
ElseIfmark>=80Then
fun="良好"
ElseIfmark>=70Then
fun="中等"
ElseIfmark>=60Then
fun="及格"
Else
fun="不及格"
EndIf
'题目：
编写函数fun，函数的功能是：
判断一个字符是
'字母字符、数字字符还是其他字符，并做相应的显示。
'字母字符显示字符串"字母"
'数字字符显示字符串"数字"
'其他字符显示字符串"其他"
'要求使用SelectCase语句来实现。
PrivateFunctionfun（nAsString）AsString
'**********Program**********
'**********End**********
EndFunction
SelectCasen
Case"a"To"z","A"To"Z"
fun="字母"
Case"0"To"9"
fun="数字"
CaseElse
fun="其他"
EndSelect
'题目：
编写函数fun，函数的功能是：
当x的初值为10，
'每年增长率为千分之八，计算多少年以后x的值能达到y，
'并显示所需年数的值（变量名必须为n）。
'要求使用DoWhile...Loop语句来实现。
x=10
n=0
DoWhilexx=x*1.008
n=n+1
Loop
fun=n
'题目：
编写函数fun，函数的功能是：
计算两个正整数的'最大公约数，并显示。
如：
'两个数为15、20，结果显示"5"
'要求使用Do...Loop语句来实现。
Do
r=mModn
Ifr=0ThenExitDo
m=n
n=r
Loop
fun=n
写函数fun，函数的功能是：
求1~1000以内能
同时被m、n整除的数的总和并显示。
Sum=0
Fori=1To1000
IfiModm=0AndiModn=0Then
Sum=Sum+i
EndIf
Nexti
fun=Sum
'题目：
编写函数fun，函数的功能是：
求从m到n的乘积并显示，
Product=1
Fori=mTon
Product=Product*i
Nexti
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
EndIf
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））
n=n+1
EndIf
Next
Next
Next
'题目：
（事件）双击窗体。
'（响应）写程序解决百钱买百鸡问题：
公鸡3元1只，'母鸡5元1只，小鸡一元3只，怎样用100元买'100只鸡。
把结果输出到窗体上。
'将答案数存放在变量N中
Dimi,j,kAsInteger
Fori=1To20'母鸡
Forj=1To33'公鸡
Fork=3To100'小鸡
If（（kMod3）=0）And（（i*5+j*3+k/3）=100）And（（i+j+k）=100）ThenPrint（CStr（i））
Print（CStr（j））
Print（CStr（k））
n=n+1
EndIf
Next
Next
Next
'题目：
（事件）单击窗体。
'（响应）求10~20之间所有素数的乘积并输出在窗体上。
'将结果存入变量L中。
DimiAsInteger
DimjAsInteger
DimbAsBoolean
l=1
b=False
Fori=10To20
Forj=2Toi-2
IfiModj=0Then
b=True
EndIf
Next
Ifb=FalseThen
l=l*i
EndIf
b=False
Next
PrintStr（l）
'题目：
（事件）单击窗体。
'（响应）求1-1/2+1/3-1/4+……+1/99-1/100的值。
'将结果存入变量J中。
DimiAsInteger
Fori=1To100
IfiMod2=1Then
j=j+1/i
ElseIfiMod2=0Then
j=j-1/i
EndIf
Next
Printj
题目：
（事件）双击窗体。
'（响应）求1+2+3+5+8+13+……前20项的和，并将结
'果在窗体上输出。
将结果存入变量SUM中。
DimiAsInteger
Dimj（1To20）AsInteger
Fori=1To20
Ifi<3Then
j（i）=i
Else
j（i）=j（i-1）+j（i-2）
EndIf
sum=sum+j（i）
Next
Printsum
'题目：
有一根长度为321米的钢材，要将它截取为两种规格的'短料，两种规格的长度分别为a米、b米。
每种至少一段。
'编写函数fun，函数的功能是:
'求出分割成两种规格后剩余残料r最少的值，并显示。
如：
'a为51、b为61时，则显示"5"
'要求使用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>=0Andtr=t
EndIf
Nexta0
Nextb0
fun=r
升级会员 