vb题库程序设计题讲解.docx
《vb题库程序设计题讲解.docx》由会员分享,可在线阅读,更多相关《vb题库程序设计题讲解.docx(10页珍藏版)》请在冰豆网上搜索。
vb题库程序设计题讲解
文件管理序列号:
[K8UY-K9IO69-O6M243-OL889-F88688]
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)Then
Print(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