VB编程,为一个3*3的二维数组输入任意整数

假定10000个数在全局变量的数组a里,Subsort()Fori=1To9999k=iForj=i+1To10000Ifa(j)Nextjt=a(i):a(i)=a(k):a(k)=tNexti调用

dimnum3,num7asintegerfori=1to1000ifimod3=0thennum3=num3+1endififimod7=0thennum7=num7+1endifnext最后num

抢个沙发!S=""fori=0to200step5ifimod30thenS=S&i&","nextiMsgboxS

OptionExplicitOptionBase1PrivateSubForm_Click()Dimi%,j%,k%,n%Dima()AsIntegern=0Fori=1To1000k=0Forj=1

这个采用枚举算法：枚举的关键：一一列举,逐个检验一一列举：用循环逐个检验：用选择n3=0'存放3的倍数的个数n7=0'存放7的倍数的个数Fori=1To100ifiMod3=0Thenn3=n3+1i

判断素数的原理是：素数是只能被1和本身整除的数.例如3只能被1和3整除,17只能被1和17整除等等,想9就不是素数（能被1,3,9整除）.编程的算法是：穷举法,就是将需要判断的数除2、除3.一直除到这

Dima1,a2,a3,a4,iAsIntegera1=3:a2=4:a3=5fori=4to26a4=a1+a2+a3a1=a2a2=a3a3=a4next输出a4即可

PrivateSubForm_Load()q=123'平方MsgBoxc(q,2)'平方根MsgBoxc(q,1/2)'求2次根一个数的1/2次方'立方MsgBoxc(q,3)'立方根MsgBoxc(

你可以将行列算出的值用一个数组接收,这里是采用变量接收的方式.Option Compare DatabasePrivate Sub aa()Dim h

'更快的方法PrivateSubCommand1_Click()Fori=300To500step5IfiMod3=0ThenPrintiNextEndSub'最快的方法：PrivateSubComm

这个简单啊!嘿嘿……你的错误是输入的语句,%c是字符的输入形式,而你定义的是int型,应该为%d.代码如下:#includevoidmain(){inti,j,t=0,A[3][3];for(i=0;

代码如下:运行条件:form1上有一个文本框,名称text1,一个按钮,名称command1运行结果显示在text1里面PrivateSubCommand1_Click()DimiAsIntegerM

PrivateSubForm_Click()DimiAsInteger,sumAsIntegerFori=1To100IfiMod3=0Thensum=sum+iNextPrintsumEndSu

PrivateSubCommand1_Click()DimaAsLongDimiAsLongDimsAsBooleans=Truea=InputBox("请输入一个自然数","输入")'-------

dima=1234.5;dimb;ifa>0thenb=a;elseb=-1*aend其中b就是a的绝对值

PrivateSubCommand_1Click()Dima!,b!c!,w!a=Val(Text1)b=Val(Text2)c=Val(Text3)Ifa

?"水仙花数："m=100dowhilem

Private Sub Command1_Click()Dim i As Integer, j As Integer,&

PrivateSubForm_Load()DimaAsInteger,bAsInteger,cAsInteger,MaxAsInteger,MinAsIntegera=InputBox("请输入a值"

PrivateSubCommand1_Click()Fori=100To200IfiMod30Thens=s+iPrinti;n=n+1IfnMod10=0ThenPrintEndIfNextPrin