VB求用循环实现s=1 3 .... 99的值

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

没有具体数据,无法测试,但主体可用如下方法：Dimp1AsDouble‘用于储存Φi-1的值Dimp2AsDouble’用于储存Φi-2的值PrivateSubForm_Click()DimiAsIn

PrivateSubCommand1_Click()DimiAsIntegerFori=1To5Ifi5ThenPicture1.PrintSpace((i-1)*2);String(8-((i-1)

t=2;whileS(t)>Pstrong&&t

数学计算可以简化过程：因为1-2=-1,3-4=-1...所以得出-1+(-1)+...,重复(100/2)次,即代码为(这是最简单而且最快速的办法)：DimsAsInteger=-(100/2)如果

Dimi,nasIntegerDimsasdoublen=val(Text1.Text)i=(1)s=0DoUNTILi>(2*n-1)s=(i+s)i=i+（2）LoopText2.text=(s)

 Private Sub Command1_Click()s = 1For i = 2 To 10s

inti,j;\x09intn,sum=0;\x09inttemp=1;\x09scanf("%d",&n);\x09for(i=1;i

第一题：PrivateSubCommand1_Click()Foru=1To20h=0.0001*(2^u)NextPrint"厚度为0.1毫米的纸,折叠20次后厚度为"&h&"米"EndSub第二题

 这个就是用for实现的#include <stdio.h>int main(){ int num = 0; 

你好!PrivateSubForm_Click()DimiAsIntegerDimsAsIntegerFori=1To100s=s+iNextiPrintsEndSu

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

Dim year As IntegerDim num As Doublenum = 5000For year&

dimn,s,i,pdon=val(inputbox("大于0的正整数"))loopuntiln>0andn=int(n)s=1p=-1fori=1tons=s+p*2*n/(2*n+1)p=p*-1

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

PrivateSubCommand1_Click()a=16b=6'可以设置图形的水平位置Fori=1To6PrintSpace(b);'控制缩进位置,也就是每行开始时前面输出多少个空格PrintSt

#include<stdio.h>void main(){    int i;    f

(1)求10!（要用do=while或for循环实现）用vfp语言爱是包容而不是放纵爱是关怀而不是宠爱爱是相互交融而不是单相思爱是百味而不全是甜蜜

#include<stdio.h>int main(){    double s=0;   &nb

PrivateSubCommand1_Click()DimnAsInteger,iAsIntegerDimxAsVariant,sumAsDoublen=20x=CDec(x)x=1Fori=1Ton