VB程式糾正錯誤，高中VB糾正錯誤

修改如下：

private sub form_click()dim a, b

a = array(85, 77, 92, 66, 44)b = array("黃玉梅", "朱明霞", "孫家寶", "趙天明", "楊萬")

max = a(0): student = b(0)for i = 0 to 4

if a(i) >max then

max = a(i): student = b(i)end if

next i

print "成績最好的學生是："; student; "測試結果為："; max; "點"

end sub

private sub form_click()dim a as variant, b as variant 'string

a = array(85, 77, 92, 66, 44)b = array("黃玉梅", "朱明霞", "孫家寶", "趙天明", "楊萬")

max = a(0): student = b(0)for i = 0 to 4 '1 to 5if a(i) >max then 'b(i) >max thenmax = a(i): student = b(i)end if

next i

print "成績最好的學生是："; student; "測試結果為："; max; "點"

end sub

第乙個錯誤是在 dim 後新增逗號並更改：dim 步長為整數

第二個錯誤是表示式錯誤，改為：n=3*n+1

第三個錯誤應為：end if

對於第四個錯誤，新增單詞迴圈

2.定義時是乙個錯誤，應該改為 dim s as double，h as double，a as in double，我不知道第二個錯誤是什麼，因為我看不到你的執行介面。

3.第乙個錯誤沒有變數名，應改為：dim i as long

第二個錯誤是邏輯錯誤，不應使用 OR，而應更改為 and

第三個錯誤應更改為下乙個 i

4.第乙個錯誤是賦值錯誤，因為它是連續加法，所以 s 的初始值應該是 0，應該改為：s=0

第二個錯誤應更改為：for i= 1 to 100，因為它以 1 開頭，而不是 0

第三個錯誤應更改為“誤折”，因為最後乙個要求是從 1 到 100 連續增加的值 s。

哦！ 這是一場艱苦的戰鬥！

1.print 5 * 5 5 5 5 語句的輸出為 25。

至 2.如果 EOF （檔案編號） 函式返回值 true，則檔案指標指向檔案的開頭。

False，指向檔案末尾。

3.可以在程式執行時設定控制項和窗體的 name 屬性。

錯。 name 屬性是唯讀的，無法修改。

4.由於 API 函式儲存在 Windows 動態連線庫中，因此無需在 VB 中宣告即可使用它們。

錯。 必須宣告用途。

5.控制項陣列由一組具有公用名稱且型別相同的控制項組成。

右。 至於這個通用名稱，應該理解為名稱相同，但索引不相同。 如果不這樣理解，那就錯了。

6.print int（>=cint（） 語句的輸出為 true。

錯了，結果是四捨五入，int 是直接去掉小數點。

7.儲存 Visual Basic 應用程式時，樣式檔案具有檔案副檔名。 frm。

至 8在操作期間，VB 無法動態增加控制陣列中的元素數。

這個似乎是對的。

9.引用陣列元素時，陣列元素的下標表示式的值可以超出指定的維度邊界。

錯。 10.以下語句的執行特點是“先判斷後執行，當條件為真時執行迴圈”。

做而條件。

block]exit do]。

環路對 11為了在按下 [esc] 鍵時執行按鈕的單擊事件，按鈕的 cancel 屬性應設定為 true。

至 12必須在設計時通過“屬性”視窗設定資料繫結控制項的 datafield 屬性。

這個不是很清楚。 不多。 我不知道它是否也可以在執行時設定。

13.MDI 窗體由“專案”選單中的“新增窗體”命令建立。

False，新增 MDI 表單。

14.用於將列表項新增到列表框的方法是 additem。

至 15show 方法用於顯示表單，它同時具有載入和顯示表單的功能。

這似乎是對的。

更正答案。

8.在操作期間，VB 無法動態增加控制陣列中的元素數。

是的，VB 可以在執行時動態增加小部件陣列的數量。

對不起，VB真的不明白，進來學習吧。 如果是VF，C，C++，沒關係。