1樓：匿名使用者
恩恩~，是個迴圈的問題，作為新手的我就把閣下這道題當作練習題，這裡用到了4個函式，和一個while(當）迴圈
private sub command1_click()
dim n as integer, s as long '宣告變數n作為項數，s作為n項累加後的最終結果
n = 0 '初始化n為0
while n < 9 '當n小於9的時候才執行以下操作
n = n + 1
s = s + val(string(n, trim(str(n)))) '這裡用了4個函式來表示第n項的n的值
wend
print "當第n項" & "值為：" & n & "時," & "s的值為：" & s '用print方法列印最後的結果
end sub
2樓：陽光上的橋
s=0for i=1 to n
x=ifor j=1 to i
x=x*10+i
next j
s=s+x
next i
print s
vb編寫程式,計算s=1+(1+2)+(1+2+3)+…+(1+2+3+…+n)
vb題 急求 程式設計求s=1²+2²+3²+......+n²（其中n的值要求用鍵盤輸入）
3樓：匿名使用者
昏暗的n作為長
點我只要
n = val（輸入框（「請輸入一個數字」，「輸入號碼」））對於i = 1到n
s = s + i ^ 2
msgbox的
4樓：匿名使用者
a=0for i := 1 to n dobegin
a := a + i*i;
endshowmessage(a)
使用vb程式設計計算s=1+2+3.......+n（n 的值由於使用者定）寫程式
5樓：匿名使用者
c語言怎麼編寫程式計算:1+22+333+4444+...的前n項的值，n由使用者輸入（n<10）
6樓：
要是作業題的話最好還是自己做··
#include
int main()
printf("第%d項是：%d\n",i,temp);
sum += temp;
}printf("前%d項和是： %d\n",n,sum);
scanf("%d",&n);
}return 0;}
7樓：匿名使用者
4444^7777+7777^4444
=16^7777+28^4444(利用一個數與它的各位數字之和對模9同餘)
=(-2)^7777+1^4444(利用16與-2,28與1同餘)=-(2^7777)+1
=-(2^3)^2596*2+1(利用7777=2596*3+1)=-(-1)^2596*2+1 (2^3=8與-1同餘)=-2+1
=-1=8(mod9)
上面各式中的等號均是對模9的同餘符號.
vb程式設計 累加器的問題 已知s=1+2+3·······+n，找出一個最大的整數n，使得s<30000,程式設計解決。
8樓：科技程式迷
dim s as long,n as integerfor n=1 to 30000
if s +n >=30000 then exit fors=s+n
next
msgbox "最大數是" & n
9樓：匿名使用者
n^2+n<60000
求deta算唄
10樓：匿名使用者
private sub command1_click()don = n + 1
s = s + n
loop until s>=30000
print n - 1
end sub
11樓：
dim i as long,
dim s as long,
dim n as long
do while (i>=1 and i<=n)s=0s=s+i
i=i+1
next j
loop
do while (s<30000)
print n
loop
vb程式設計計算VB程式設計計算
第一種 對比計算privatesub mand1 click timer1.enabled truetimer1.interval 1 計算一次用時量endsubprivatesubform load text2.text 0 計算方法初始化text3.text 0 計算開始初始化text4.tex...
計算機VB程式設計試題
不難的sub shuzu dim a 3,4 as integerdim i,j,k as integerfor i 0 to 3 for j 0 to 4 a i,j int rnd 151 50 k k 1 print format str a i,j 000 為了對齊 if k mod 5 0...
怎樣用VB計算圓的面積和周長，設計VB計算圓的面積與周長
就兩個公式嘛 圓的周長 2 半徑 圓周率 直徑 圓周率 即 圓的周長 2 r 或 d 面積 s r 或s d 2 程式，自己弄一個textbox 1用來輸入圓的半徑textbox2用來顯示計算結果周長 textbox3用來顯示計算結果面積 新增兩個button1命名為計算圓的周長和麵積。定義常量 定...