VB 程式設計第 4 版問題解決

private sub command1_click()

dim i as integer

dim a as integer, b as integer, c as integer

for i = 100 to 999

a = i \ 100 '找到三位數的百分之一的數字。

b = (i - a * 100) \10 '在三位數的幾十個數字中找到數字。

c = i - a * 100 - b * 10 '在三位數的個位數中查詢數字。

if a ^ 3 + b ^ 3 + c ^ 3 = i then '判斷是否是水仙花的數量。

print i; '如果是水仙花的數量，則輸出。

end if

next i

end sub

<>用三重迴圈來做到這一點：

private sub command1_click()

dim i as integer, j as integer, k as integer

dim s as integer

for i = 1 to 9

for j = 0 to 9

for k = 0 to 9

s = i * 100 + j * 10 + k

if i ^ 3 + j ^ 3 + k ^ 3 = s then

print s;

end if

next k

next j

next i

end sub

設計乙個計算第乙個二次方程 a*x*x+b*x+c=0 的根的表單。

問題 1：<>

問題 2：<>

問題 3：<>

問題 4：<>

問題 5：<>

8. 輸入乙個數字 x，如果 x>=0，則 y=1-2*x，否則，y=1+x9，迴圈，直到 i 大於 7，每個迴圈 i 增加 3，x 增加 510，rnd 函式返回 0-1 之間。

隨機數，所以四捨五入 x 是 4（僅。

對於整數部分，輸出必須良好

11.迴圈，每個迴圈x=（x+3）*（x+4），n為迴圈數，迴圈到x>=60，輸出n、x和and。

12.X是字元框中的數字，a是X除以10求餘數，B是X除以10再除以10，C是X除以100，因為它們都是整數，所以最終結果必須四捨五入（四捨五入）。

8.輸入乙個數字x，如果x>=0，則y=1-2*x，否則百度y=1+x

9. 迴圈直到 i 大於。

zhi7，I增加3，X增加5個週期

10. rnd 函式是返回乙個介於 0 和 1 之間的隨機數，所以四捨五入 x 為 4 後（只取整數部分），輸出結果一定很好

11.迴圈，每個迴圈x=（x+3）*（x+4），n為迴圈數，迴圈到x>=60，輸出n、x和and。

12.X是字元框中的數字，a是X除以10求餘數，B是X除以10再除以10，C是X除以100，因為它們都是整數，所以最終結果必須四捨五入（四捨五入）。

1.控制，只要輸入文字框陣列的功能（也可以再新增兩個文字框來輸入引數的上限和下限），指定顏色的相應標籤，乙個OK按鈕，以及乙個顯示曲線的**框。

2.“實現坐標系的自由設定”：a三維平面; b.笛卡爾坐標系、極坐標系; c.協調平移; d.坐標旋轉。 這些功能有點難以實現。 特別是“立體旋轉”。

3.如果考慮坐標系問題，可以新增兩組單選按鈕來選擇A和B。 只需拖動滑鼠平移並直接拉動即可。

還有什麼更好的想法可以再次交流。

我把這兩句話改成了注釋語句（因為 a，b 的值是後面給出的）。 我不知道你的老師想做什麼==），接下來兩個公式的減號是標準化的（因為它是錯誤的）。然後你得到的結果就像第二張圖片一樣。

編寫程式最忌諱的事情就是使用無意義的字母作為變數，這會使程式的可讀性較差。

使用迭代演算法時，要注意迭代是否收斂，可以列印出退出條件的值是否滿足迴圈體內部的期望。

我不明白。 t_t

房東你好。

我認為這一段並不難理解，請注意：for 迴圈執行 3 次，分別為 a（1）、a（2） 和 a（3） 賦值

和 b（3）、b（2）、b（1） 分別等於 a（1）、a（2）、a（3），所以它們是

for 迴圈的機制是，在到達下乙個迴圈變數後，逐步新增迴圈變數並與範圍進行比較。 在本節中，在迴圈變數 k=2 執行後，k + 步驟 1 給出 k=3，而這個 for 迴圈在 2 處結束，所以它跳出迴圈，k=3

程式的最終輸出是 b（3），即 1