vb求1 2 3 5 8--

for语句fori=n1ton2[stepn3]...[exitfor]nexti对于对象集合有个特殊的For语句比如Text控件数组Text1(n)dimttasTextBoxForeachttin

distance是用来计算指定点到最外面圈(以下简称圈9)的圈心的距离Shape1(9).Height\2是圈9的y半径长度Shape1(9).Top+Shape1(9).Height\2是指从圈9的

四个标签lab1(0),lab1(1),lab1(2),lab1(3),caption为1-3月,4-6月,7-9月,10-12月四个文本框text1(0),text1(1),text1(2),tex

解题思路：历史知识的积累解题过程：<三国演义>最终答案：略

Dimn,x,r,sAsSinglen=2s=0DoWhilen再问：能说一下算法的思路吗？再答：首先1不是素数,就用枚举将2到1000的每个数列举出来,再逐个检验,即从2到n/2一一举例，判断是否能

PrivateSubCommand1_Click()a=InputBox("输入电阻的个数")Fori=1Toac=InputBox("输入第"&i&"电阻的阻值")b=b+1/cNextMsgBox

是没有思路,还是不会编程?至少有一位数字是5用以下的子函数boolIsInclude5(intnum){while(num!=0){if(num%10==5)returntrue;num=num/10

精度不够,我这个代码在VBA下可以得到0.5DimpiAsDoublepi=3.14159265358979MsgBoxSin(pi/6)实际上编程的时候,碰到有小数的场合,都应该考虑精度问题,一般不

简单就是不会再问：....再答：不是不会是好久没做了差不多都忘了呵呵

Atn(X/Sqr(-X*X+1))这里的x是正弦值.

PrivateSubCommand1_Click()Dimi,j,kFori=1To10k=1Forj=1Toik=k*jNextPrinti&"!="&kNextEndSub再问：如果用inputb

它简单易学、效率高,且功能强大可以与Windows专业开发工具SDK相媲美.在VisualBasic环境下,利用事件驱动的编程机制、新颖易用的可视化设计工具,使用Windows内部的广泛应用程序接口（

非递归：staticvoidf(intn){longp1=1,p2=1,p=1;for(inti=1;i

dimnasdouble,rasdoubler=0.8n=log(2)/log(1+r)printn

dima%(1to10)max=0:k=0fori=1to10a(i)=int(rnd*(99-10+1)+10)text1=text1&a(i)&space(2)ifa(i)>maxthenmax=

我用VB6.0编写了一下,结果是“100”,如图：

PrivateSubCommand1_Click()x=InputBox("请输入x：")e=2.718281828SelectCasexCase-10To-1y=e^x+1Case0To5y=Abs

答案是C10程序共循环5次因为A的是是加2所以是两倍.就是10再问：不是很明白？能不能详细点？还有，a=a+2中，a一开始是多少？再答：vb里面所有未定义的变量初始值都是0明白了吧.第一次I的循环循环

你的描述太乱了,看不懂,还是看我的吧定额.Text=Val(定额单价.Text)*Iif(Val(定额数.Text)超额.Text=Val(超额单价.Text)*Iif(Val(实际完成数.Text)

dimiaslongdimsaslong,osaslong,otaslongs=5000'------------------------输入的值ifs