vb题库程序设计题讲解

《vb题库程序设计题讲解》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、...题目：(事件)单击窗体'(响应)用输入框输入一自然数，判断是"正数"、"负数"或"零"，并根据输入的数用消息框显示"正数"、"负数"或"零"。n=InputBox("输入一个自然数")Ifn>0Thenresult="正数"ElseIfn<0Thenresult="负数"ElseIfn=0Thenresult="零"EndIfMsgBox"输入的数据"&n&"为："&result题目：编写函数fun，函数的功能是：判断一个字符是'字母字符、数字字符还是其他字符，并做相应的显示。'字母字符显示字符串"字母"

2、'数字字符显示字符串"数字"'其他字符显示字符串"其他"'要求使用IF语句来实现。IfUCase(n)>="A"AndUCase(n)<="Z"Thenfun="字母"ElseIfn>="0"Andn<="9"Thenfun="数字"Elsefun="其他"EndIf'题目：编写函数fun，函数的功能是：根据一个百分制'成绩mark（整数），显示对应五级制的评定。条件如下：'mark大于等于90显示"优秀"'mark小于90且大于等于80显示"良好"'mark小于80且大于等于70显示"中等"'mark小于70

3、且大于等于60显示"及格"'mark小于60显示"不及格"'要求使用IF语句来实现。PrivateFunctionfun(markAsInteger)AsString'**********Program**********'**********End**********EndFunctionIfmark>=90Thenfun="优秀"ElseIfmark>=80Then......fun="良好"ElseIfmark>=70Thenfun="中等"ElseIfmark>=60Thenfun="及格"Elsefu

4、n="不及格"EndIf'题目：编写函数fun，函数的功能是：判断一个字符是'字母字符、数字字符还是其他字符，并做相应的显示。'字母字符显示字符串"字母"'数字字符显示字符串"数字"'其他字符显示字符串"其他"'要求使用SelectCase语句来实现。PrivateFunctionfun(nAsString)AsString'**********Program**********'**********End**********EndFunctionSelectCasenCase"a"To"z","A"To"Z"

5、fun="字母"Case"0"To"9"fun="数字"CaseElsefun="其他"EndSelect'题目：编写函数fun，函数的功能是：当x的初值为10，'每年增长率为千分之八，计算多少年以后x的值能达到y，'并显示所需年数的值（变量名必须为n）。'要求使用DoWhile...Loop语句来实现。x=10n=0DoWhilex

6、...Loop语句来实现。Dor=mModnIfr=0ThenExitDo......m=nn=rLoopfun=n编写函数fun，函数的功能是：求1~1000以内能'同时被m、n整除的数的总和并显示。Sum=0Fori=1To1000IfiModm=0AndiModn=0ThenSum=Sum+iEndIfNextifun=Sum'题目：编写函数fun，函数的功能是：求从m到n的乘积并显示，Product=1Fori=mTonProduct=Product*iNextifun=Product'题目：(事件)单

7、击窗体。'(响应)一球从100米高度自由落下，每次落地返回'原高度的一半，求第10次落地时，共经过多'少米？并将结果在窗体上输出。Dimj,iAsIntegers=0j=100Fori=2To10j=j/2s=s+2*jNexts=100+sPrint(CStr(s))题目：(事件)单击窗体。'(响应)求出1000-9999之间具有如下特点的四位数字，'它的平方根恰好就是它中间的两位数字，例如，'2500开平方为50，恰为2500的中间两位，找出'所有这样的四位数。并求出所有这样的数的和'存入SUM中DimiA

8、sIntegerDimjAsIntegerFori=1000To9999j=Val(Mid(Trim(Str(i)),2,2))Ifj^2=iThenPrinti,......sum=sum+iEndIfNext'题目：(事件)双击窗体。'(响应)把一元钞票换成一分、二分和五分的硬币'（每种至少有一枚），求出其所有的换法，'把结果输出在窗体上。'将所有的换法的数目存入变量N中Dimi,