资源描述：
《计算机二级VB编程题目含答案》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、Word格式PrivateSubCommand1_Click()DimnAsInteger,iAsInteger,sAsDoublen=Val(Text1.Text)s=0Fori=1Tons=s+i^2NextiText2.Text=sEndSub完美整理Word格式PrivateSubCommand1_Click()'''不得删除本行注释DimiAsIntegerOpenApp.Path&""&"yssj.txt"ForInputAs#1Fori=1To10Input#1,a(i)NextiClose#1EndSubPr
2、ivateSubCommand2_Click()'''不得删除本行注释DimiAsIntegerText1.Text=""Fori=1To10Ifa(i)Mod3=2ThenText1.Text=Text1.Text&Str(a(i))EndIf完美整理Word格式NextiEndSub完美整理Word格式完美整理Word格式PrivateSubcommand1_Click()'''不得删除本行注释DimaAsInteger,bAsDouble,iAsInteger,nAsIntegern=Val(Text1.Text)a=0
3、b=0Fori=1Tona=a+ib=b+aNextiText2.Text=bEndSub完美整理Word格式PrivateSubCommand1_Click()'''不得删除本行注释Dimi%,xh$,xm$OpenApp.Path&""&"Xhxm.txt"ForOutputAs#1Fori=1To3xh=InputBox("请输入学号")xm=InputBox("请输入姓名")Write#1,xh,xmNextiClose#1EndSubPrivateSubCommand2_Click()'''不得删除本行注释Dims
4、asstringOpenApp.Path&""&"Xhxm.txt"ForInputAs#2DoWhileNotEOF(2)完美整理Word格式LineInput#2,sText1.Text=Text1.Text&s&vbCrLfLoopClose#2EndSub完美整理Word格式完美整理Word格式完美整理Word格式PrivateSubCommand1_Click()‘”读取文件”按钮代码'''不得删除本行注释DimstAsStringText1.Text=""OpenApp.Path&""&“jmwb.txt"Fo
5、rInputAs#1WhileNotEOF(1)Input#1,stText1.Text=Text1.Text+st+vbCrLfWendClose#1EndSubPrivateSubCommand2_Click()DimsAsString,coAsString,cAsString,DimnAsInteger,iAsInteger,pAsIntegers=Trim(Text1.Text)n=Len(s)co=""Fori=1Tonc=Mid(s,i,1)p=Asc(c)+5co=co+Chr(p)NextiText2.Text
6、=coEndSub完美整理Word格式完美整理Word格式PrivateSubcommand1_click()'''不得删除本行注释ForN=1To15x(N)=Int(Rnd*91+10)Text1.Text=Text1.Text+Str(x(N))NextNEndSubPrivateSubCommand2_Click()'''不得删除本行注释DimmAsInteger,KAsIntegerForN=1To15完美整理Word格式Form=N+1To15Ifx(m)>x(N)ThenK=x(N)x(N)=x(m)x(m)=K
7、EndIfNextmText2.Text=Text2.Text+Str(x(N))NextNEndSub完美整理Word格式完美整理Word格式PrivateSubCommand1_Click()DimcharAsString*1char=Trim(Text1.Text)IfNotIsNumeric(char)ThenIf(Asc(char)>=65AndAsc(char)<=90)Or_(Asc(char)>=97AndAsc(char)<=120)ThenLabel1.Caption="输入的是字母"Else:Label1
8、.Caption="输入的是其它符号"EndIfElse:Label1.Caption="输入的是数字"EndIfEndSubPrivateSubCommand1_Click()Text1.Text=UCase(Text1.Tag)EndSubPrivateSubComman
