1樓：匿名使用者
^1^2+2^2+3^2+4^2+……+n^2>1000
這句不可以直接出現的，不符合vb語法，但在上面的**裡，這行**前面加有單引號「'」，表示後面的為註釋(在vb6.0裡，註釋的文字顏色預設為綠色，註釋是不被執行的)。
do while sum < 1000#
這是小於沒錯的，sum是變數，這個變數在前面已經宣告瞭(「dim sum, i」這句是宣告 sum 和 i 這兩個變數的**)，可以直接使用。
「do while sum < 1000#」我覺得這句寫成「do while sum <= 1000」更好。後面不需要寫「#」，「<」應該改為 小於等於號「<=」(小於或者等於)，但在這裡不可能等於 1000的，所以也可以不用「=」號。
幫你改下**：
private sub command1_click()
'要求:1^2+2^2+3^2+4^2+5^2+...+n^2>2000
dim sum, i as long
sum = 0: i = 0
do while sum <= 2000
i = i + 1
debug.print i
sum = sum + i * i
loop
msgbox "最小項數:" & i
end sub
好了，我就回答到這了，我是laser，如果答案滿意，就採納我吧！
2樓：匿名使用者
private sub command1_click()'1^2+2^2+3^2+4^2+……+n^2>2000 '這行是註釋，以單引號開頭就是註釋。
dim sum, i
sum = 0: i = 0
do while sum < 2000 '是小於，意思是小於2000的時候，迴圈繼續，直到sum大於2000的時候跳出迴圈。
i = i + 1
sum = sum + i * i
loop
msgbox "最小項數:" & i
end sub
輸出結果：18
3樓：易醉之人
^dim i, sum as integeri = 0 : sum = 0
do until sum > 2000
sum = sum + i ^ 2
i = i + 1
loop
msgbox "最小項數" & i
4樓：
^private sub command1_click()'1^2+2^2+3^2+4^2+……+n^2>1000 //這句是vb中的註釋行~
dim sum, i
sum = 0: i = 0
do while sum < 1000# //看題設值……貌似是sum<=2000；上面第3行已經宣告sum變數。
i = i + 1
sum = sum + i * i
loop
msgbox "最小項數:" & i
end sub
另外vb不支援上面那樣「//」的註釋格式。lz如果是從其它語言轉過來的可能要深感vb的不便……
用vb語言求滿足 1^2+2^2+3^2+4^2+…+n^2<1000最大的n值，寫出**
5樓：匿名使用者
private sub form_click()s = 0
i = 1
do while s < 1000
s = i * 2 + s
i = i + 1
loop
print i - 2
end sub
6樓：
sum=0
i=0while sum <1000
i=i+1
sum=sum+i*i
wend
msgbox "最大n值為 " & i
7樓：
dim i as integer
dim s as integer
i = 1
dos = s + i * i
i = i + 1
loop until s > 1000
msgbox i - 1
答案是14 望採納
vb編一個程式求1+2^2+3^3+4^4+5^5……+n^n
8樓：匿名使用者
'按鈕呼叫test這個函式就可以, test 裡面這個5 隨便改 就是你題目的n了
sub test()
print jisuan(5)
end sub
function jisuan(a as integer)dim i as integer
for i=1 to a
jisuan=jisuan+i^2
next
next
9樓：匿名使用者
dim s as single
dim n as integer
n = val(textbox1.text)for i = 1 to n
s = s + (i) ^ (i)
next
label1.caption = s
急急急求1^2+2^2+3^2+4^2+……大於或等於某數n的最小值的vb程式
10樓：江魚
option explicit
private sub command1_click()dim i, j as long
dim temp as long
dim n as long
n = text1.text
for i = 0 to n
temp = temp + i * i
if temp >= n then
text2.text = i
exit sub
end if
next
end sub
11樓：寒信
s=0n=0
do wihle s<=某數
n=n+1
s=s +n*2
loop
print n;s
vb程式：求滿足1^2+2^2+3^2+…+n^2＞1000的最小值的程式
12樓：匿名使用者
如圖所示，n=14時，和為1015。望採納。。。。。
13樓：匿名使用者
^50分少了
。。。。。。。。。。。。。
private sub command1_click()dim n as integer
n = 0
dim sum as integer
sum = 0
do while sum < 1000
n = n + 1
sum = sum + n ^ 2
loop
print n
print sum
end sub
使用vs2019用vb語言編寫簡單的網頁具體代
就是最簡單的html 了！這有什麼難度 用vs2012編寫vb程式。等急求！嗯很願意幫助你怎麼發給你呢 vs2012中vb語言的form1.move 20,20 form1.left 20 form1.top 20 我猜是這樣！誰能幫我用html語言做一個簡單的網頁?就行 第一行第一列 第一行第二列...
用VB編寫自動關機程式，用VB編寫一個自動關機程式
option explicit private declare function getlastinputinfo lib user32 plii as lastinputinfo as boolean private declare function gettickcount lib kernel...
可以用vb製作介面而用c語言編寫程式嗎
當然，c可以 抄做你不能做一個 襲vb介面的系統，除 bai非你將使用的api函式du，zhi你可以用c語言寫的dll在vb。vb是不是dao也是一種高層次的語言寫出來的嗎？vc只是一個用c語言編寫，它可以做一些事情，能夠實現在vc的環境。太多自己的清晰圖形介面的vc，vb介面的發展不是太複雜，即使...