1樓：
1)首先判斷選中的是哪個單元按鈕。如選中第乙個dim sum as integer
sum = 0
dim i as integer
if opt1.checked = true thenfor i = 100 to 200
if i mod 2 = 0 then 』判斷是否為偶數。
sum = sum + i 『如果為偶數進行相加了end if
next
end if
if opt2.checked = true thenfor i = 200 to 400
if i mod 2 = 0 then
sum = sum + i
end if
next
end if
text1.text = sum 『你的第一步已經實現了2）進行存檔
open "d：\out.txt" for output as #1 』檔案操作
print #1,sum '寫入到檔案中close #1
3）已經全部ok了，關於那個窗體之間儲存類就不需要介紹了吧，也表現不出來了
記得一定要給分的啊
2樓：匿名使用者
private sub command1_click()if option1.value theni1 = 100: i2 = 200
else
i1 = 200: i2 = 400
end if
s = 0
for i = i1 to i2 step 2s = s + i
next i
text1 = s
end sub
private sub command2_click()command1_click
open "d:\out.txt" for output as #1print #1, text1.text
close #1
end sub
3樓：匿名使用者
我用的是vb6.0，部分**如下：
private sub command1_click()
dim x as double
x = 1
print newtons_tangent_method(x)
end sub
private function newtons_tangent_method(byval x0 as double, optional diaoda as double = 0.0001) as double
dim x as double
if diaota < 0.0000001 or diaoda > 1 then diaoda = 0.0001
dox = x0 - f(x0) / fba(x0)
if abs(x - x0) <= diaoda then exit do
x0 = x
loop
newtons_tangent_method = x
end function
'f(x)
private function f(x as double) as double
f = 3 * x ^ 3 - 4 * x ^ 2 - 5 * x + 13
end function
'f'(x)
private function fba(x as double) as double
fba = 9 * x ^ 2 - 8 * x - 5
end function
計算結果為：-1.54890959397749
用matlab畫圖看出，在區間[1，2]上，f(x)>0，不可能有實數解。
問很蔡的VB程式設計題，問乙個很蔡的VB程式設計題
step是步長的意思。通俗來講，就是執行相鄰兩次的間隔。比如for x 5 to 1 step 1，他將按5,4,3,2,1 間隔 1 來執行五次 for x 5 to 0 step 2，將按5,3,2，0 間隔 2 來執行四次 for x 1 to 9 step 3 x將按1，3，6，9 間隔3 ...
vb程式設計習題，VB程式設計習題
1.x val inputbox input x if x 10 then y abs x if x 20 then y sqr 3 x 1 if x 20 then y 3 x 2debug.print y 2.x val inputbox input x if x 10 then y abs x...
vb程式設計，什麼是VB程式設計？
1設計引數介面2 設計介面上各個控制項屬性3 編寫程式 4除錯和儲存 什麼是vb程式設計？visual basic程式設計是basic程式語言。vb擁有圖形使用者介面 gui 和快速應用程式開發 rad 系統，可以輕易的使用dao rdo ado連線資料庫，或者輕鬆的建立active x控制項，用於...