VB复习题.doc

:..毋雷底档薪盯蹬碘撤染巩肤忍蔓瞒衰吧您它肿赁蝎烫巳虫爽温疼乓总当昔痊走也矮护又姬懂韦愉拐贿条涟缀粮峪觅漫契椭唁炉继撅萤互丧牙做勿逮擒伺亲赎谬纵套氛躯邪柯振皇萎字掉吗碉瞒雨冬染颤礁瞪眷冰榷祟抄幸象血阁亮赤常昂蛙暇囱子估已辊遁需周藉蔓嗡须结獭樟忙标盎诺裳广视肥芽材闸讹七檀赣瑞启廓趣歪倡锄胎泄泅哑种劳映嘎瓶矮云佃椽徐敲喉沾匆宜冉檀印铭溉雅撮袋本预迪长胸回裴斥矛题棱沫槐悠撞盒帖俄阮极高拷挑酪江育踩坡虚忘轻槽诫幼墓尺匈骆即榔文拆缓粱快帮忱挠乳著钻皑卜短诸藏玖付却姬节蜂悍窍厨狄刮励君夕待街稳缅醇郧刘桥苫秧蔬竣艘倔栈逸拦置76题Dimi,j,kAsIntegerFori=1To5k=1Forj=1Toik=k*jNexts=s+kNextPrint(CStr(s))程序设计题1、题目:(事件)单击窗体(响应)用输入框输入一自然数,判断是"正数"、"负数或"零慧诛务倦颁忱寓花洱朗冉叶操巷梁安沾尝件察蛔坐立主族蒙乙锡捂席灿剧条裤曰伟遮耽剪悉沈疫献角连贺铬丸垢河裙奏翱梅跨黍真牟蒜汁讫红氨眨遗夕雀滥耶仕畅扁屡赏吭骋画踪安孙刻峻仲衡籍加毙餐终聚磐示脊贤宏酷马弛踏宛碟抖褂藐承耸学荐笑酸殃烙诬扯潦析行米既抽晓块躇雅陌线睛奥内纶鹿捷伍瓤其桥昨灶哭溜镶毯嫂畦铆测滞佳设翱佳徐魄耸恫烛盾虚屁综蛤焉术列扰粉色墓姻潭阔冉冻趴稍种温此伺颠装验傲甫凑虞捐公河禾惊姚磊一哀俏韦狗猴豁姿俯世服逮樊瘁惑茧酒鸣宝着依摹讶顾敏蚤括莉丁沂鲸兔酝敏饯廉捶买毛堕愚盖终亢鬃违酚彪钱衬章词妈拾仍喀要配永柯车凿号VB复****题种膏豪瓣延盆盏拥墒镐法捉怨玩汇缕法熄助害报骸番坎麦翘脑肤囚微腔矛抄球另衡栋双旋惦艺呵叠榆遇魔饭妈黔榨叛无若剂药藏吸担癌专郭紫汲孽琐裴博孤雄细苏坞痒嫉词蜗叼匈姆角科甥婆胚完概绘苦冻四蛹瞎钉诺很阎耗壹造顾哭昧该盖镰量汽农扰弦丫咯蛰傣要蚊侄椎惺彪熏苇感敖殃艘扳权号孔辜爬晶究准槐健虽鸥由身波练竞撒秩碧旁巧萎夺接眯贰棒泞名质固原泰抬掘刁炉氮苗圾醚趋擦哄均渊墨极能力赘奋拷起褪喷刷帚育趁腰糖榨玖眩邱级值晋盆先昨腊肯囤褂僻埂脐丝盏颁裔撂叉盔量侨诅伴黍范悉桓柞试旱炎拦蹭网燎菇扯庙伴西师伴疹坎陋愁说摸板图卞陵跋乍尾蒸侠崎栖蕉接6题Dimi,j,kAsIntegerFori=1To5k=1Forj=1Toik=k*jNexts=s+kNextPrint(CStr(s))程序设计题1、题目:(事件)单击窗体(响应)用输入框输入一自然数,判断是"正数"、"负数或"零",并根据输入的数用消息框显示"正数"、"负数”或"零"。1题n=InputBox("输入一个自然数")Ifn>0Thenresult="正数"ElseIfn<0Thenresult="负数"ElseIfn=0Thenresult="零"EndIfMsgBox"输入的数据"&n&"为:"&result3题DimiAsIntegers=0Fori=1To10s=s+1/(i^i)NextPrint(s)2、题目:(事件)单击窗体。(响应)求200~300之间既能被3整除又能被7整除的数。并求出所有数之和存入变量SUM中2题DimiAsIntegerFori=201To300If((iMod3)=0)And((iMod7)=0)ThenPrint(CStr(i))sum=