VB程序设计教程答案

VB编程：斐波纳契(Fibonacci)数列的第一项是1，第二项是1，以后各项都是前两项的和，试用递归算法和非递归算法各编写一个程序，求斐波纳契列前N项和第N项的值。

[1]非递归算法。 Sub Fibonacci(n As Integer)     f1 = 1 &n...

阅读全文

VB编程：编写求解一元二次方程 ax2+bx+c=0  的过程，要求a、b、c及解X1、X2都以参数传送的方式与主程序交换数据，输入a,b,c和输出X1，X2的操作入放在主程序中。

解：一元二次方程 ax2+bx+c=0  的解通常有以下几种可能。 （1）当a=0...

阅读全文

设a为一整数，如果能使a2=xxa成立，则称a为“守形数”。例如52＝25，252＝625，则5和25都是守形数。试编写一个Function过程Automorphic，其形参为一正整数，判断其是否为守形数，然后用该过程查找1－1000内的所有守形数。 解：根据守形数的定义，如...

阅读全文

编写一个过程，以整型数作为形参，当该参数为奇数时输出False，而当该参数为偶数时输出True。

以下是此题的【VB源代码】 '先编写过程 Function NumOE(ByVal n As Integer) As Boolean     If n Mod 2 Then   &nb...

阅读全文

VB编程：编写程序，求S=A!+B!+C! 阶乘的计算分别用Sub过程和Function过程两种方法来实现。 解： 1，首先在窗体上画两个命令按钮：Command1 和  Command2 2，然后编写阶乘的Function和Sub过程 'Function过程 Function factF(ByVal n As Inte...

阅读全文

编写求3个数中最大值的过程Max和最小值的过程Min，然后用这两个过程分别求3个数和5个数、7个数中的最大值和最小值。

在窗体模块或标准模块中编写如下两个通用过程。 '求3个数中最大值的过程 Function max(ByVal a As Integer, ByVal b As ...

阅读全文