资源描述：
《全国计算机二级VB 40 8合一试题答案》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、1~40套模拟试题的简单应用和综合应用的答案一：2（1）：indexnn+2nf12（2）：ss,s1<>str(n)3:PrivateSubC1_Click()DimxAsIntegerx=17999DoWhilex<18000Ifisprime(x)ThenExitDox=x-1LoopText1.Text=Str(x)EndSubPrivateSubC2_Click()OpenApp.Path&"out5.txt"ForOutputAs1Print#1,Text1.TextClose1EndSub二：2（1）：check1.value“”“#”t
2、ext2.text2（2）：5xstr(x)>3：DimiAsInteger,jAsInteger,nAsIntegerFori=1To7Forj=1To7Ifi=1Ori=7Orj=1Orj=7ThenSum=Sum+a(i,j)Ifa(i,j)Mod7=0Thenn=n+1EndIfNextjNextilblFirst.Caption=Str(n)lblSecond.Caption=Str(Sum)三：2（1）：<>ornum>2（2）：Avgis>=85is>=60endselectn-13：Dimb(20)AsSingle,iAsInteger,
3、jAsIntegerDimmaxAsInteger1851~40套模拟试题的简单应用和综合应用的答案一：2（1）：indexnn+2nf12（2）：ss,s1<>str(n)3:PrivateSubC1_Click()DimxAsIntegerx=17999DoWhilex<18000Ifisprime(x)ThenExitDox=x-1LoopText1.Text=Str(x)EndSubPrivateSubC2_Click()OpenApp.Path&"out5.txt"ForOutputAs1Print#1,Text1.TextClose1End
4、Sub二：2（1）：check1.value“”“#”text2.text2（2）：5xstr(x)>3：DimiAsInteger,jAsInteger,nAsIntegerFori=1To7Forj=1To7Ifi=1Ori=7Orj=1Orj=7ThenSum=Sum+a(i,j)Ifa(i,j)Mod7=0Thenn=n+1EndIfNextjNextilblFirst.Caption=Str(n)lblSecond.Caption=Str(Sum)三：2（1）：<>ornum>2（2）：Avgis>=85is>=60endselectn-13：
5、Dimb(20)AsSingle,iAsInteger,jAsIntegerDimmaxAsInteger1851~40套模拟试题的简单应用和综合应用的答案一：2（1）：indexnn+2nf12（2）：ss,s1<>str(n)3:PrivateSubC1_Click()DimxAsIntegerx=17999DoWhilex<18000Ifisprime(x)ThenExitDox=x-1LoopText1.Text=Str(x)EndSubPrivateSubC2_Click()OpenApp.Path&"out5.txt"ForOutputAs
6、1Print#1,Text1.TextClose1EndSub二：2（1）：check1.value“”“#”text2.text2（2）：5xstr(x)>3：DimiAsInteger,jAsInteger,nAsIntegerFori=1To7Forj=1To7Ifi=1Ori=7Orj=1Orj=7ThenSum=Sum+a(i,j)Ifa(i,j)Mod7=0Thenn=n+1EndIfNextjNextilblFirst.Caption=Str(n)lblSecond.Caption=Str(Sum)三：2（1）：<>ornum>2（2）：A
7、vgis>=85is>=60endselectn-13：Dimb(20)AsSingle,iAsInteger,jAsIntegerDimmaxAsInteger1851~40套模拟试题的简单应用和综合应用的答案一：2（1）：indexnn+2nf12（2）：ss,s1<>str(n)3:PrivateSubC1_Click()DimxAsIntegerx=17999DoWhilex<18000Ifisprime(x)ThenExitDox=x-1LoopText1.Text=Str(x)EndSubPrivateSubC2_Click()OpenApp
8、.Path&"out5.txt"ForOutputAs1Print#1,Tex
