1、實驗5補充題目編一程序驗證著名的哥德巴赫猜想：每一個大偶數都可以寫成兩個素數之和。要求對任意輸入的一個大于4的偶數分解成兩個素數之和，分別用子過程和函數過程來編寫。解題思路：輸入一個大于4的偶數賦予變量Z；設一個標志位Flag。是素數Flag = True ，否則為Flag = False。令Z=X+Y；X從3 Z/2隔2依次取值，每取一個值便轉去判斷是否為素數？若X不是素數，則取下一個值；如是素數責則Y= Z-X轉去判斷Y是否為素數？Y若為素數，則即為所求，否則重新取X的值，重復上述步驟。判斷是否為素數的程序可編寫為子過程或函數過程。程序運行窗口如下圖所示。編一函數Maxlength(s)，

2、在已知的字符串s中，找出最長的單詞。假定字符串內只含有字母和空格，空格分隔不同的單詞。程序運行窗口如下圖所示。提示：（1）在程序中需設置當前字符c，當前單詞word、長單詞maxword、前單詞長度lenword、最長單詞長度lenmaxword等變量。（2）首先求出輸入字符串的長度，然后逐個對每個字符進行判斷，若不為空格，將每個字符連接到當前單詞的字符串變量中，當前單詞長度計數器加1；若為空格，表示一個單詞結束，將當前單詞長度與最長單詞長度比較，若長，則用當前單詞替代最長單詞，并將當前單詞置空，同時將但前單詞長度計數器清0。編一函數，實現將佰億元以內的金額，由阿拉伯數字轉換成大寫的形式。程序

3、運行窗口如下。猴子吃桃問題。猴子第一天摘下若干桃子，當即吃了一半，還不過癮，又吃下一個，以后各天，天天如此，到第N天想再吃時，見只剩下一個桃子了。編寫函數，要求輸入天數能計算輸出猴子共摘了多少桃子。利用對象參數傳遞編寫過程，實現數據交換。要求在兩個文本框中分別輸入數據，點擊“交換”按鈕，能夠調用該過程完成兩個文本框的數據交換。利用可變參數編寫過程，求1到6個數的最大值和最小值，并輸出結果。7、用迭代法編寫函數求x= 。求平方根的公式為。要求精確到小數點后7位，即。Xn的初始值為1。8、設計一個程序，窗體上沒有任何控件，但是當鼠標在窗體上移動時能在窗體上隨機動態地顯示鼠標當前的坐標以及鼠標各按鈕

4、的狀態（如“鼠標按下”等）。說明：需要對窗體的MouseDown和MouseMove編寫事件過程代碼。參考代碼：Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Cls CurrentX = X CurrentY = Y If Button = 1 Then Print 左鍵按下 Else Print 右鍵按下 End IfEnd SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X

5、 As Single, Y As Single) Text1.Text = X Text2.Text = YEnd Sub9、在窗體上添加一個文本框，然后編寫一個程序，程序運行后，用戶若按下A、B、C、D鍵時，文本框中對應顯示E、F、G、H（按鍵的順序可以任意），按Backspace鍵時能夠刪除光標前一個字符，按其他鍵時文本框中內容不變。參考代碼如下：Dim x As StringPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)If Text1.Text = Then x = Else: x = Text1End IfEnd SubPrivate Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)If KeyCode 8 ThenSelect Case KeyCode Case Asc(A) Text1 = x & E Case Asc(B) Text1 = x & F Case Asc(C) Text1 = x & G Case As