vb上機題目實驗5補充

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

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

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

4、的狀態(tài)（如“鼠標(biāo)按下”等）。說明：需要對窗體的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鍵時，文本框中對應(yīng)顯示E、F、G、H（按鍵的順序可以任意），按Backspace鍵時能夠刪除光標(biāo)前一個字符，按其他鍵時文本框中內(nèi)容不變。參考代碼如下：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