vb题库程序设计题讲解.docx
- 文档编号:11517161
- 上传时间:2023-03-02
- 格式:DOCX
- 页数:9
- 大小:16.19KB
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
DoWhilex x=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>=0Andt r=t EndIf Nexta0 Nextb0 fun=r
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vb 题库 程序设计 讲解