1用MsgBox函数和换行符输出.docx
- 文档编号:15617321
- 上传时间:2023-07-06
- 格式:DOCX
- 页数:28
- 大小:21.55KB
1用MsgBox函数和换行符输出.docx
《1用MsgBox函数和换行符输出.docx》由会员分享,可在线阅读,更多相关《1用MsgBox函数和换行符输出.docx(28页珍藏版)》请在冰点文库上搜索。
1用MsgBox函数和换行符输出
1、用MsgBox函数和换行符输出:
1、用MsgBox函数和换行符输出:
你的姓名、爱好、家庭成员
你的学校及家庭地址。
答案:
msgbox"陈立杰、电脑、爸爸妈妈"&vbcr&"安吉实验小学、东方名苑"
2、输入长方体的长x,宽y,高z,输出长方体的表面积(六个面的面积之和),
答案:
a=inputbox("请输入长方体的长","长方体表面积计算器","5")b=inputbox("请输入长方体的宽","长方体表面积计算器","5")c=inputbox("请输入长方体的高","长方体表面积计算器","5")s=2*a*b+2*b*c+2*a*c
msgbox"长方体表面积是"&s
3、输入长方体的长a,宽b,高c,输出长方体的体积v,a=inputbox("请输入长方体的长","长方体体积计算器","5")b=inputbox("请输入长方体的宽","长方体体积计算器","5")c=inputbox("请输入长方体的高","长方体体积计算器","5")v=a*b*c
msgbox"长方体体积是"&v
4、设:
r=10.4,pi=3.1415,求圆的面积S=,圆的周长P=,球面积QA=,球体积QV=,
a=10.4
pi=3.1415
s=a^2*pi
p=10.4*2*pi
q=4*pi*a*a
v=4/3*a^3*pi
msgbox"圆周长是"&p&"圆面积是"&s&"球体表面积是"&q&"球体体积是"&v
5、编程计算1.5+2.5+3.5+4.5+„„+100.5=,
fori=1.5to100.5
s=s+i
next
msgboxs
6、编程计算1+2+3+„„+2006=,
fori=1to2006
s=s+i
next
msgboxs
7、编程计算100+99+98+97+„„+1=的和,
fori=100to1step-1s=s+i
next
msgboxs
8、编程计算2+4+6+8+„„+100的和,
fori=2to100step2
s=s+i
next
msgboxs
9、编程计算1+3+5+7+9+„„+99的和,fori=1to99step2s=s+i
next
msgboxs
10、编程计算1+2-3+4-5+6-7+„„+100的值,
fori=2to100step2s=s+I
next
forj=3to99step2k=k+j
next
msgboxs-k+1
11、编程计算1*2*3*4*„„*10的积,s=1
fori=1to10s=s*i
next
msgboxs
12、编程计算1/1+1/2+1/3+1/4+„„+1/20的和,
fori=1to20n=1/i
s=s+n
next
msgboxs
13、编程计算1/1+1/2+2/3+3/5+5/8+8/13的和,
a=1
b=1
fori=1to6
s=a/b
b=a+b
a=b-a
k=k+s
next
msgboxk
112358132114、编程输出+++++++„„前20项之和,12358132134a=1
b=1
fori=1to20
s=a/b
b=a+b
a=b-a
k=k+s
next
msgboxk
15、编程求和2+2(1/2)+3(1/3)+4(1/4)+5(1/5)+„„2005(1/2005)+2006(1/2006),
fori=1to2006
s=i+1/i
k=k+s
next
msgboxk
16、输入x,y两个数,输出这两个数中的最大数m,a=cint(inputbox("请输入数x","判断最大数","20"))b=cint(inputbox("请输入数y","判断最大数","20"))
ifa>bthen
msgbox"最大数是"&a
endif
ifa msgbox"最大数是"&b endif ifa=bthen msgbox"两个数一样大" endif 17、设: a=7.34,b=9.74。 求长方形的面积S和周长Ca=7.34 b=9.74 s=a*b c=a*2+b*2 msgbox"长方形面积是"&s&vbcr&"长方形周长是"&c18、输入语文、数学成绩,输出平均分和总分 a=inputbox("请输入语文成绩")b=inputbox("请输入数学成绩") s=a/2+b/2 msgbox"总分是"&(s*2)&vbcr&"平均分是"&s19、输入两个数x和y,输出x? y的整数部分I和小数部分F。 (如5? 2,则I=2,F=0.5) x=InputBox("输入第一个数","",5) y=InputBox("输入第二个数","",3) i=int(x/y) s=x/y-i msgbox"整数部分是"&i&vbcr&"小数部分是"&s20、输入两个数i,j,输出它们的最小公倍数M和最大公约数。 x=InputBox("输入第一个数","",5) y=InputBox("输入第二个数","",3)ifx>ythen u=y else u=x endif fori=uto1step-1 ifxmodi=0andymodi=0thens=i exitfor endif next msgbox"最大公约数是"&s&vbcr&"最小公倍数是"&x*y/s 21、北京奥运会于2008年8月8日开幕,计算今天距北京奥运会开幕还有多少个星期, MsgBoxDateDiff("w",Now,"2008-8-8")22、要求随便输入三个数字,这三个数排从小到大排列 a=inputbox("请输入一个数") b=inputbox("请输入一个数") c=inputbox("请输入一个数") max1=a max2=b max3=c ifa>bthen max1=b max2=a endif ifb>cthen max2=c max3=b endif ifa>cthen max3=a max1=c endif msgboxmax1&""&max2&""&max323、输入三个数,输出三个数中最大的一个。 x=InputBox("输入第一个数","",5)y=InputBox("输入第二个数","",3)z=InputBox("输入第三个数","",5)u=x ify>xthen u=y endif ifz>uthen u=z endif msgboxu 24、输入一字符串,输出它的倒序字符串。 (如输入“ABCD1234”,输出为“4321DCBA”) a=InputBox("输入字符串") a=StrReverse(a) MsgBoxa 25、编程输出: 同时满足下面两个条件的四位数n: 1)n是7的倍数;2)n中含有“888”。 fori=1to1500 s=7*i n=(s-(smod10))/10l=smod1000 ifn=888then k=k&s&"" endif ifl=888ands<>8888then k=k&s&"" endif next msgboxk 26、问题: 判断一个数能否同时被36和48整除 x=InputBox("请输入一个数")ifxmod36=0andxmod48=0then msgboxx&"能同时被36和48整除"else msgboxx&"不能同时被36和48整除"endif 27、当输入以下英语单词时能输出相应的中文单词: 英文颜色单词中文颜色名称 红色Red 蓝色Blue 黄色Yellow 绿色Greena=inputbox("请输入一个英文颜色单词") ifa="red"then msgbox"红色" endif ifa="blue"then msgbox"蓝色" endif ifa="yellow"then "msgbox"黄色 endif ifa="green"then msgbox"绿色" endif 28、闰年的判断,请你判断2060年是不是闰年 a=2060 k=(amod4=0)+(amod100=0)ifk=-1then msgboxa&"isleapyear" endif ifamod400=0then msgboxa&"isleapyear"endif 29、成绩分类 王小二的成绩如下 语文数学科学英语 78927667 请你按照优秀(90或以上)良好(80或以上)合格(60或以上)不合格(60以下)来评 价一下他的各科成绩。 n=Array(78,92,76,67) fori=0to3 SelectCasei case0s="语文" case1s="数学" case2s="科学" case3s="英语" endselect l=n(i) ifl>=60andl<80then j="合格" endif ifl>=90then j="优秀" endif ifl>=80andl<90thenj="良好" endif ifl>=0andl<60thenj="不合格" endif msgbox"王小二的"&s&"成绩是"&jnext 30、QQ密码登陆,输入QQ号码12345678,密码987654321,密码正确登陆"欢迎进入QQ! ", 错误提示"密码错误,请重新输入! "consts="12345678"constd="987654321" do a=inputbox("请输入帐号")b=inputbox("请输入密码")ifa=sandb=dthenmsgbox("欢迎进入QQ! ") exitdo else msgbox("密码错误,请重新输入! ")endif loop 31、过年了,三年级的小伟同学得到了1024块压岁钱,他想把钱存入银行,银行的年利率 为0.2%,请你算一下他到六年级毕业时能拿到多少钱, a=1024 s=a*1.02^3.5msgbox"他到六年级毕业时能拿到"&s&"钱" 32、已知一球从100米高度自由落下,落下后反复弹起,每次弹起的高度都是上次高度的一 半.求此球第10次落地后反弹起的高度和球所经过的路程。 fori=1to10 s=s+100/2^i*2 next l=100/2^10 s=s+100 msgbox"路程"&s&"第十次高是"&l33、输入一个数,判断它是奇数还是偶数。 a=inputbox("请输入一个数") ifamod2=0then msgboxa&"是偶数" endif ifamod2=1then msgboxa&"是奇数" endif ifamod2<>0andamod2<>1then msgboxa&"不是整数" endif 34、输入一个数,判断能否同时被3和7整除。 a=inputbox("请输入一个数") ifamod21=0thenmsgboxa&"能同时被3和7整除" else msgboxa&"不能同时被3和7整除"endif 35、输入三个小数,输出三个小数中的最大的小数 a=inputbox("请输入一个小数")b=inputbox("请输入一个小数") c=inputbox("请输入一个小数")ifa>banda>cthenmsgboxa endif ifb>candb>athenmsgboxb endif ifc>bandc>athen msgboxc endif ifa=banda=cthenmsgboxa endif 36、输入一个数,判断它是否是质数a=inputbox("请输入一个数")Fori=2ToSqr(a) k=k+(amodi=0)next ifk=0then msgboxa&"是素数" else msgboxa&"不是素数" endif 37、计算3到300中的质数有几个fori=3to300ifsusu(i)=0thens=s+1 endif next msgboxs Functionsusu(a)Forj=2ToSqr(a) k=k+(amodj=0) next susu=k EndFunction 38、求两个数的最大公约数 m=CSng(InputBox("输入第一个数","求最大公约数",48))n=Csng(InputBox("输入第二个数","求最大公约数",36))Fori=mTo1Step-1 IfmModi=0AndNModi=0Then MsgBoxi ExitFor EndIf Next 39、求两个数的最小公倍数 m=CSng(InputBox("输入第一个数","求最大公约数",48))n=Csng(InputBox("输入第二个数","求最大公约数",36))Fori=mTo1Step-1 IfmModi=0AndNModi=0Then s=m*n/i MsgBoxs ExitFor EndIf Next 40、输入一个数,并把它分解质因数 a=inputbox("请输入一个数") o=a fori=2toa ifamodi=0then iffj(a)=1then k=k&i&"*" else k=k&i&"^"&fj(a)&"*" endif a=a/i^fj(a) endif next p=o&"="&k msgboxLeft(p,len(p)-1) Functionfj(a) forj=1toint(sqr(a))+1 ifamodi^j=0thens=j else exitfor endif next fj=s EndFunction 41、输出九九乘法口诀表fori=1to9forj=1toi n=i*j iflen(n)=2thens=s&i&"*"&j&"="&n&"" else s=s&i&"*"&j&"="&n&"" endif next s=s&vbCr next msgboxs 42、输出一个三角矩阵fori=1to10a=string(10-i,"")b=string(i*2-1,"*")c=a&b k=k&c&vbcr next msgboxk 43、输出一个拐角矩阵 fori=1to10 k=k+string(i,"*")&vbcrnext msgboxk 44、输入一个年份,判断它是否是闰年a=inputbox("请输入一个年份") k=(amod4=0)+(amod100=0) ifk=-1then msgboxa&"isleapyear" endif ifamod400=0then msgboxa&"isleapyear" endif 45、输出当前的时间,格式如: 2006年10月11日8时13分50秒 msgboxyear(now)&"年"&Month(now)&"月"&day(now)&"日"&hour(now)&"时 "&Minute(now)&"分"&second(now)&"秒"46、算式9()3=,,输入不同的四则运算符,并计算出相应的结果 a=inputbox("请输入9()3") SelectCasea case"+"msgbox(9+3)case"-"msgbox(9-3)case"*"msgbox(9*3) case"/"msgbox(9/3) endselect 47、1分的硬币有20个,2分的硬币有10个,5分的硬币有4个。 有几种排列方法能够使 得总和为20分。 forx=1to20 fory=1to10 forz=1to4 ifx+2*y+5*z=20thens=s+1 endif next next next msgboxs 48、一本1000页的书,黄强第一天看了10页。 以后每天比前一天多看3页,编程求出黄 强最后一天看了多少页。 fori=1to100l=7+3*i s=s+l ifs>1000thenk=l-(s-1000)msgboxk exitfor endif next 49、求出200以内的素数fori=2to200 ifsusu(i)=0then s=s&i&"" endif next msgboxs Functionsusu(a) Forj=2ToSqr(a) k=k+(amodj=0)next susu=k EndFunction 50、编程找出四位正整数ABCD中满足下述关系的数: (AB+CD)*(AB+CD)=ABCD fori=32to99 s=i^2 n=smod100 l=(s-n)/100 ifi=(n+l)thenk=k&s&""endif next msgboxk 51、输出1—100之间的奇数。 fori=1to99step2 s=s&i&"" next msgboxs 52、编程计算从2001年1月20日后的10年是何时, msgbox"2011年1月20日"53、编程计算你离50岁那天,还有多少天,k=#8/1/2045# n=datediff("d",now,k)msgboxn 54、输出今年的年份与月份~即形式如: 2006年10月 n=year(now) l=month(now) msgboxN&"年"&L&"月" 55、输出现在的正确年份、月份、日期及时间~即形式如: 2006-10-1923: 52: 09 msgboxnow 56、输入一个数,求这个数和它的倒数之和a=inputbox("请输入一个数")msgbox(a+1/a) 57、输入三个数,求出最大的数的所有约数x=cint(InputBox("输入第一个数","",5))y=cint(InputBox("输入第二个数","",3))z=cint(InputBox("输入第三个数","",5))u=x ify>xthen u=y endif ifz>uthen u=z endif fori=1tou ifumodi=0thens=s&i&"" endif next msgboxs 58、1分的硬币有50个,2分的硬币有25个,5分的硬币有10个,10分的硬币有5个, 将硬币凑成50分,有哪几种方法,再求出整个程序的运行时间, a=now forx=0to50 fory=0to25 forz=0to10 foru=0to5 ifx*1+2*y+5*z+10*u=50then s=s+1 endif next next next next l=datediff("s",a,now) msgbox(s&"程序运行了"&l&"秒")59、随机输出两个数,求这两个数的最大公约数以及最小公倍数。 Randomize x=int(rnd*1000+1)y=int(rnd*1000+1) fori=xto1step-1 ifxmodi=0andymodi=0thens=i exitfor endif next msgboxx&"、"&y&"的最大公约数是"&s&vbcr&"最小公倍数是"&x*y/s 60、输入一个数,判断是否质数,如果不是,则将它分解质因数。 a=inputbox("请输入一个数")o=a ifsusu(a)=0then fori=2toa ifamodi=0then iffj(a)=1then k=k&i&"*" else k=k&i&"^"&fj(a)&"*" endif a=a/i^fj(a) endif next p=o&"="&k msgboxLeft(p,len(p)-1)endif Functionsusu(a)Foru=2ToSqr(a) k=k+(amodu=0) next susu=k EndFunction Functionfj(a) forj=1toint(sqr(a))+1 ifamodi^j=0then s=j else exitfor endif next fj=s EndFunction 61、输入10个数,输出最大的数。 dimn(10) fori=0to9 n(i)=inputbox("请输入第"&(i+1)&"个数") next u=n(0) forj=1to9 ifn(j)>uthen u=n(j) endif next msgboxu 62、输入3个数,将最大的数分解质因数。 x=InputBox("输入第一个数","",5)y=InputB
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- MsgBox 函数 换行 输出