vb循环程序. 一个密码是一个三位数,同时能被5,11和17整除,求这个三位数?

OptionExplicitPrivateSubCommand1_Click()Label1.Visible=TrueDimrAs__single___Dim____s___AsDouble_cons

判断n是否为素数,可用n除以2到根号n之间所有的整数,除不尽则n为素数Fora=2ToInt(Sqr(n))IfnModa0Then'余数不为0,则n为素数isprime=True'n为素数Elsei

4个text1-text4,Label1(0-3).PrivateSubCommand1_Click()Dimk1AsSingle,k2AsSingle,k3AsSingle,k4AsSinglek1

PrivateSubCommand1_Click()Dima,xAsSinglea=Val(Text1.Text)Ifa再问：x=x+a*0.2+3000*0.2怎么都乘0.2呀？

把变量的取值范围贴出来.再问：求公式p=v*Z*F(s,x,y)/I。其他的一样求，其中F(s,x,y)=π/M，M=ln[2ch(πs/2y)]+ln{[shπ(x/y-s/2y)*shπ(x/y+

1.PrivateSubCommand1_Click()a=InputBox("")Fori=1ToaIfaModi=0ThenPrintiNextEndSub2.PrivateSubCommand1

公倍数,余下的,再装到其中一种盒子中.再问：。。。。这就是不知道肿么编啊程序死了N次了对信息真心要没信心了怎么编啊？

一句话while(1==1);再问：这不符合C++的特点，编译都编译不出来呀？？再答：是c++语句编译可以通过运行即死循环

定义9个变量a,b,c,d,e,f,g,h,i1-9分别赋给他们,共9的阶乘362880种,abcdefghi做判断a+b+c=15?d+e+f=15?...都符合abcdefghi值,输出~唉,你也

在屏幕上,指的是在本程序窗体上的话就是dimiaslongfori=1to2me.line(1000*rnd,1000*rnd)-(1000*rnd,1000*rnd),&Hffffff*rndnex

新建一个工程Form1最上方添加一个Label1然后在下方添加一个Label2,标题为："请输入结果："后面添加一个Text1(TextBox)Label1下方添加一个Label3

大概这个意思：Dim MaxY as SingleDim X,YMaxY = -999999For X = 1

当然是错误的,顺序结构必须有,另两种不一定要有eg:#includemain(){inta;scanf("%d",&a);printf("%d",a);}这个程序只有顺序结构

intindex=2;intcount=0;while(true){if(index%2==1&&index%3==1&&index%4==1)break;elseindex++;}总共count个

把If和Msgbox写在统一行,是默认为没有EndIf的条件句,把换行Msgbox写入If和EndIf中间即可ElseIf方式：IfCI=1ThenMsgBox"第五位数字是"&PcEElseIfCI

呵呵,一看就知道你刚学.我按照你的思路写的代码,你看看PrivateSubCommand1_Click()a=Val(Text1.Text)IfaText2="负整数"ElseIfa>0ThenTex

请问,每个人的英语课的成绩哪里来?再问：就是自己输入Scanner再答：看看符合你的要求不

楼主您好!代码如下：在窗体上画一个按钮,一个标签,然后复制粘贴代码就OK了Public Sub DaFen()    Dim Pi

DimSum,I,N,FlagN=10Flag=1Sum=1ForI=3ToNIfIMod2=1ThenSum=Sum+1/I*FlagFlag=-FlagEndIfNext再问：大哥，貌似调试不出来

lambda=100;A=exp(-lambda);x=zeros(1000,1);forj=1:1000B=1;%每次比较时都要从r（k+1）重新开始相乘n=1000;r=rand(n,1);for