1、在数值模拟算法中,经常用到产生符合正态随机分布的数值序列的问题,网上查找资料,并编写VB程序,以产生均值为100,方差为20的正态数值序列。
2、运用二维数组,编写消元法解多元一次方程组(编程时用五元一次)的通用程序。
3、编程解古代数学名著《九章算术》卷七“盈不足”之一十二题,并上机验算结果:
今有垣厚五尺,两鼠对穿。大鼠日一尺,小鼠亦日一尺。大鼠日自倍,小鼠日自半。问几何日相逢?各穿几何?
荅曰:二日、十七分日之二。大鼠穿三尺四寸、十七分寸之十二,小鼠穿一尺五寸、十七分寸之五。
4、哥德巴赫(Goldbach)猜想: (a) 任何一个≥6之偶数,都可以表示成两个奇质数之和。(b) 任何一个≥9之奇数,都可以表示成三个奇质数之和。这道著名的数学难题引起了世界上成千上万数学家的注意。200年过去了,没有人证明它。哥德巴赫猜想由此成为数学皇冠上一颗可望不可及的“明珠”。目前最佳的结果是中国数学家陈景润於1966年证明的,称为陈氏定理(Chen's Theorem).“任何充份大的偶数都是一个质数与一个自然数之和,而後者仅仅是两个质数的乘积”,通常都简称这个结果为大偶数可表示为 “1+2”的形式。试编程验证陈氏定理,即输入(>=6)任意大的偶数,用试凑法验证其能够分解成一个质数与两个质数乘积的和,如无解,提示陈氏定理不在在,程序结束。呵呵,看看有没有高手哦:)
2、运用二维数组,编写消元法解多元一次方程组(编程时用五元一次)的通用程序。
3、编程解古代数学名著《九章算术》卷七“盈不足”之一十二题,并上机验算结果:
今有垣厚五尺,两鼠对穿。大鼠日一尺,小鼠亦日一尺。大鼠日自倍,小鼠日自半。问几何日相逢?各穿几何?
荅曰:二日、十七分日之二。大鼠穿三尺四寸、十七分寸之十二,小鼠穿一尺五寸、十七分寸之五。
4、哥德巴赫(Goldbach)猜想: (a) 任何一个≥6之偶数,都可以表示成两个奇质数之和。(b) 任何一个≥9之奇数,都可以表示成三个奇质数之和。这道著名的数学难题引起了世界上成千上万数学家的注意。200年过去了,没有人证明它。哥德巴赫猜想由此成为数学皇冠上一颗可望不可及的“明珠”。目前最佳的结果是中国数学家陈景润於1966年证明的,称为陈氏定理(Chen's Theorem).“任何充份大的偶数都是一个质数与一个自然数之和,而後者仅仅是两个质数的乘积”,通常都简称这个结果为大偶数可表示为 “1+2”的形式。试编程验证陈氏定理,即输入(>=6)任意大的偶数,用试凑法验证其能够分解成一个质数与两个质数乘积的和,如无解,提示陈氏定理不在在,程序结束。呵呵,看看有没有高手哦:)
解决方案 »
- vb 打开局域网中服务器的Word 文件 问题
- 如何将一个VB3.0的应用程序升级到VB6.0?
- 怎么把数据类型为image的字段的图片数据从一个表导到另一个表中,用程序实现!!!
- 求一段ftp的脚本
- 寻找高手求救!
- 求教:采用DTS从SQL2000中导出Excel格式数据
- winsock连接的问题
- *****************求助高手,急***************************
- 如何用VB创建ACSESS2000数据库表,使其拥有一个缺省的主键(primary key)字段
- 一个比较棘手的问题,高手们请回答
- winsock非本机测试,无法接收文件?
- 哪位达人帮偶分析一下关于鼠标消息SendMessage和PostMessage的怪问题!
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 SubFunction 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