VB编程的几个数学问题

bluestar_l

1、在数值模拟算法中，经常用到产生符合正态随机分布的数值序列的问题，网上查找资料，并编写VB程序，以产生均值为100，方差为20的正态数值序列。
2、运用二维数组，编写消元法解多元一次方程组(编程时用五元一次)的通用程序。
3、编程解古代数学名著《九章算术》卷七“盈不足”之一十二题，并上机验算结果：
今有垣厚五尺，两鼠对穿。大鼠日一尺，小鼠亦日一尺。大鼠日自倍，小鼠日自半。问几何日相逢？各穿几何？
荅曰：二日、十七分日之二。大鼠穿三尺四寸、十七分寸之十二，小鼠穿一尺五寸、十七分寸之五。
4、哥德巴赫(Goldbach)猜想: (a) 任何一个≥6之偶数，都可以表示成两个奇质数之和。(b) 任何一个≥9之奇数，都可以表示成三个奇质数之和。这道著名的数学难题引起了世界上成千上万数学家的注意。200年过去了，没有人证明它。哥德巴赫猜想由此成为数学皇冠上一颗可望不可及的“明珠”。目前最佳的结果是中国数学家陈景润於1966年证明的，称为陈氏定理(Chen's Theorem).“任何充份大的偶数都是一个质数与一个自然数之和，而後者仅仅是两个质数的乘积”,通常都简称这个结果为大偶数可表示为 “1+2”的形式。试编程验证陈氏定理，即输入(>=6)任意大的偶数，用试凑法验证其能够分解成一个质数与两个质数乘积的和，如无解，提示陈氏定理不在在，程序结束。

呵呵，看看有没有高手哦：）

bluestar_l

具体实现语言可以是标准C或者VB~其实语言是相通的，就看具体实现的算法啦：）

jolin1981330

同意楼上

rockyoung

//试编程验证陈氏定理，即输入(>=6)任意大的偶数，用试凑法验证其能够分解成一个质数与两个质数乘积的和，如无解，提示陈氏定理不在在，程序结束。
Private Sub Command1_Click()
Dim n, n1, n2, i, j
n = Val(Text1)
For i = 2 To n
    If zs(i) Then
        For j = 2 To (n - i) / 2
            If (n - i) Mod j = 0 Then
                If zs(j) And zs((n - i) / j) Then
                    MsgBox n & "=" & i & "+" & j & "*" & (n - i) / j
                    Exit Sub
                End If
            End If
        Next
    End If
Next
MsgBox "不存在"
End Sub

Function zs(s) As Boolean
Dim i
For i = 2 To Sqr(s)
    If s Mod i = 0 Then zs = False: Exit Function
Next
zs = True
End Function