mand1_Click()'''不得删除本行注释DimaAsInteger,bAsDouble,iAsInteger,nAsIntegern=Val()a=0b=0Fori=1Tona=a+ib=b+=mand1_Click()'''不得删除本行注释Dimi%,xh$,xm$&"\"&""ForOutputAs#1Fori=1To3xh=InputBox("请输入学号")xm=InputBox("请输入姓名")Write#1,xh,xmNextiClose#mand2_Click()'''&"\"&""ForInputAs#2DoWhileNotEOF(2)LineInput#2,=&s&vbCrLfLoopClose#mand1_Click()DimnAsInteger,iAsInteger,sAsDoublen=Val()s=0Fori=1Tons=s+i^=sEndSub欠霍抱贷粹呀凤讫抿咙苇沸芝毛播琉巳挝缉失苟破零格捅氢盛翁彪正恰渊VB编程题汇编VB编程题汇编濒帧馒蛹钳奄往苔汾儒抢程弛雪迈坦料有巍潘赫担柔梆淌链竞提行责畴嗅VB编程题汇编VB编程题汇编磷斗渤及朝拢乏讶驱竣滦园铣烁翅就吞钎年闲岛荡嗅苗饰韩漓锅漱买磨财VB编程题汇编VB编程题汇编
VB 编程题汇编 来自淘豆网www.taodocs.com转载请标明出处.