1樓：我個去又被註冊
樓上那位老兄，題主要的是奇數項的平方和，你求的是連續數的平方和了~~~
我的程式是這樣的——執行視窗和示例**如下——private sub command1_click()dim sum as long
dim a as integer, i as integer, n as integer, max_cnt as integer
n = val(text1.text)
sum = 0
max_cnt = (n + 1) / 2for i = 1 to max_cnt
a = 2 * i - 1
sum = sum + a * a
next i
text2.text = str(sum)end sub
有什麼不懂的繼續問，望採納~
2樓：
function cal(byval n as integer)as long
dim s as long
for i=1 to n
s=s+i*i
next
cal=s
end sub
資訊科技，vb**，**等，必採納
3樓：白龍無馬
會考a級生為你解答
第一題private sub command1_click()
dim s as integer '存放個數
dim i as integer '迴圈變數
dim j as integer '迴圈變數
dim temp as integer '用來臨時存放i的值用的，為了避免計算改變了i的值
for i = 100 to 999
if i mod 3 = 0 then '取餘計算 看是否能被3整除
temp = i '如果可以 傳遞i的值到臨時變數
for j = 1 to 3 '這段迴圈判斷含不含5
if temp mod 5 = 0 then '判斷能不能被5整除，就是判斷最後一位是不是5
s = s + 1 '是的話累加計數器
exit for '然後退出小迴圈
else '如果最後一位不是5
temp = temp \ 10 '這句 這個除和/不一樣，這個相當於 fix(temp/10)，判斷中間那位是不是5，再不是就再\10也就是判斷第一位是不是5
end if
next j
end if
next i
msgbox str(s) '輸出個數
end sub
第二題private sub command1_click()
dim s as double '怕不夠存放所以定義了範圍最大的
dim n as integer
dim i as integer
s = 1 '變數初始化
n = val(text1.text)
if n mod 2 = 0 or n <= 13 then msgbox "輸入有誤，請重新輸入": exit sub '判斷輸入是否有效，無效退出事件
for i = 11 to n step 2
s = i * s '累乘
next i
msgbox str(s) '輸出
end sub
第三題private sub command1_click()
dim i as integer
dim s as double
for i = 2 to 5000 step 2 '迴圈為什麼這麼寫呢 因為是偶數，所以奇數不用做迴圈判斷，所以從2開始的偶數做迴圈判斷
if i mod 11 = 5 and i mod 17 = 3 then '題中所給滿足的條件
s = s + i * i '累加
end if
next i
msgbox str(s) '輸出
end sub
這題**是這麼寫的，但是定義了double還是會溢位
第四題會考這個不大會考
純手打 現打 望採納
資訊科技vb
4樓：匿名使用者
3.反斜槓(\)類似int()，斜槓(/)類似數學中的除號。
4.窗體擴充套件名為.frm，工程擴充套件名為.vbp，可執行擴充套件名為.exe
5.for x=1 to 10 step -2 步長為0，因為10比1大，但這裡的步長計算是每次-2；for x=9 to 2 step -2步長為4，意思是x從9到2每次減2，即會有（9，7，5，3）這四個值
6.顯示"確定"，name屬性是**中對其操控使用的，caption屬性是顯示出來的內容
7.可執行檔案c，窗體檔案b，工程檔案d，請參考第4問的解答
資訊科技還要學vb有必要嗎
5樓：vb程式設計解放雙手
學一門程式語言是有必要的，不管將來幹什麼工作。但學不學好，用沒用上，那是另一回事！
高中資訊科技，vb**，如圖。急急急。 50
高中資訊科技 程式設計 vb
6樓：聽不清啊
private sub command1_click()n = cint(text1)
pi = 1
t = 1
for i = 1 to n - 1
t = t * i / (i + i + 1)pi = pi + t
next i
text2 = pi * 2
end sub
7樓：匿名使用者
（1）選 圓圈2
（2）1、1/3 2、b*i/（i*2+1）
（3）選d
8樓：匿名使用者
是那個帶介面的題目麼？
高中資訊科技（vb程式設計）
9樓：匿名使用者
private sub form_click()dim x as integer, s as long, n as integer
x = 100
do while x >= 100 and x <= 999if x \ 100 > (x \ 10 mod 10) and (x \ 10 mod 10) > (x mod 10) then
s = s + x
n = n + 1
end if
i = i + 1
loop
print "百位大於十位,十位大於個位的三位數的和："; sprint "百位大於十位,十位大於個位的三位數的個數："; nend sub
資訊科技包括哪些？資訊科技包括哪些方面？
資訊科技是指有關資訊的收集 識別 提取 變換 存貯 傳遞 處理 檢索 檢測 分析和利用等的技術。凡涉及到這些過程和技術的工作部門都可稱作資訊部門。資訊科技能夠延長或擴充套件人的資訊功能。資訊科技可能是機械的，也可能是雷射的 可能是電子的，也可能是生物的。資訊科技主要包括感測技術，通訊技術，計算機技術...
新一代資訊科技股有哪些，新一代資訊科技股票有哪些
通訊網路 物聯網 三網融合 新型平板顯示 高效能積體電路和高階軟體 三網融合 電子 手機 支付 軟體 仙珈藍禧 新一代資訊產業 將聚焦在下一代通訊網路 物聯網 三網融合 新型平板顯示 高效能積體電路和高階軟體等範疇。而物聯網 三網融合等都並非單一產業，而是包含多個產業及核心技術在內的產業集群，這意味...
高中資訊科技題目，高中資訊科技題目 50
打掃衛生 洗衣服 煮飯可以一起進行，需要1小時，煮選單獨進行需要0.5小時，理髮和買書單獨進行，需要1.5小時，總共需要3小時 文庫精選 內容來自使用者 蔡南樹 一 基礎知識 一 選擇題 1 關於資訊的說法，以下敘述中正確的是 a 收音機就是一種資訊b 一本書就是資訊c 一張報紙就是資訊d 報上登載...