vb上机题目实验5补充

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