下载此文档

vb各种程序.doc

文档分类：IT计算机 | 页数：约5页举报非法文档有奖

1/5

下载提示

1.该资料是网友上传的，本站提供全文预览，预览什么样，下载就什么样。
2.下载该文档所得收入归上传者、原创者。
3.下载的文档，不会出现我们的网址水印。

同意并开始全文预览

(约 1-6 秒)

1/5 下载此文档

文档列表 文档介绍

PrivateSubButton1_Click(,),i,nAsIntegerDims,jAsDoublen=InputBox("请输入n的值"&n)i=0m=1s=2Fori=1Toni=i+1m=m+ij=1+1/is=s+jNextMsgBox(Str(s))lassForm1PrivateSubButton1_Click(,),ww,qw,sw,gw,kAsIntegerDimstr1AsStringstr1=""Fori=10000To50000ww=i/10000qw=(iMod10000)/1000sw=(iMod100)/10gw=iMod10Ifww=gwAndqw=swThenk=k+1IfkMod5=0Thenstr1=str1+Str(i)+vbCrLfElse:str1=str1+Str(i)EndIfEndIfNextMsgBox(Str(k)+vbCrLf+str1)EndSubEndClass3求素数PrivateSubButton1_Click(,),j,k,sAsIntegerDimstr1AsStringstr1=""Fori=3To100Forj=2Toi-1IfiModj=0ThenExitForEndIfNextjIfj=iThenk=k+1IfkMod5=0Thenstr1=str1+Str(i)+vbCrLfElse:str1=str1+Str(i)EndIfEndIfNextMsgBox(str1)lassForm1PrivateSubButton1_Click(,),j,k,sAsIntegerDimstr1AsStringstr1=""Fori=2To10000s=0Forj=1Toi/2IfiModj=0Thens=s+jEndIfNextIfi=sThenk=k+1IfiMod5=0Thenstr1=str1+Str(i)+vbCrLfElse:str1=str1+Str(i)EndIfEndIfNextMsgBox("k="+()+vbCrLf+str1)EndSubEndClass矩阵最大元素查找Dima(,),n,m,i,jAsIntegerDimmax,row,colAsIntegerDimstr1AsStringn=Val(InputBox("请输入矩阵行数n="))m=Val(InputBox("请输入矩阵列数m="))ReDima(n-1,m-1)Fori=0Ton-1Forj=0Toj-1a(i,j)=Val(InputBox("请输入"&i&"行"&j&"列元素的值"))st

vb各种程序来自淘豆网www.taodocs.com转载请标明出处.