当前位置:首页 >> 其它课程 >>

第04章 VB循环结构常用算法 程序




整数分离、穷举法

? 1、将一四位整数逆序输出。(例如输入2457,输出 7542)
? 2、求所有满足 ABC+CBA=1333 条件的三位数。

? 3、求所有水仙花数 ABC=A^3+B^3+C^3

Code

? 4、求出200~300之间所有满足三个数

字之积为42, 三个数字之和为12的整数;程序要求使用多重循环 结构实现。 ? 8、搬砖问题:36块砖36个人搬,男搬4,女搬3, 两个小孩抬一砖,男、女、小孩各若干,刚好一次 搬完砖? Code



输出各种图形
? 3、输出如下图形

? 1、输出下面的图形

? 2、输出下面的图形

? 4、输出九九乘法表 ? 5、输出杨辉三角形

Code


?

多项之和、多项之积

? 1、求1+2+3+4+......+n (n从键盘输入)
1 1 1 求 ? 2、 4 ? 1 ? 3 ? 5 ? 7 ? ...... ?

? 3、求1+(1+2)+(1+2+3) +……+(1+2+……+n) (n从键盘输入) ? 4、1!+2!+3!+……+n!



多项之和、多项之积

级数的计算问题 ? 5、 1+2+……+(n-1)<10000 1+2+……+n>=10000 Code 求n ? 6、求自然对数e的近似值。要求误差小于 0.0001。计算公式为 :
Code



多项之和、多项之积
Code

递推算法 ? 7、 1 ? 2 ? 3 ? 5 ? 8 ? ......(前20项之和 )
2 3 5 8 13

? 8、小猴吃桃问题:小猴有桃若干,第一天 吃掉一半多一个;第二天吃剩下桃子的一 半多一个;以后每天都吃尚存桃子的一半 多一个,到第7天只剩一个,问小猴原有桃 多少? Code



求满足特定条件的数

Code ? 1、判断一个数是否为素数 ? 2、求两正整数的最大公约数以及最小公倍 Code 数 ? 3、编程序实现功能:一个正整数与3的和 是5的倍数,与3的差是6的倍数,求出符合 此条件的最小正整数。

水仙花数 ABC=A^3+B^3+C^3
Dim a%, b%, c% For a = 1 To 9 For b = 0 To 9 For c = 0 To 9 If a * 100 + b * 10 + c = a ^ 3 + b ^ 3 + c ^ 3 Then Print a * 100 + b * 10 + c End If Next c Next b Next a Dim a%, b%, c%, x% For x = 100 To 999 a = x \ 100 b = (x \ 10) Mod 10 c = x Mod 10 If x = a ^ 3 + b ^ 3 + c ^ 3 Then Print x End If Next x

搬砖问题
Dim a%, b% For a = 0 To 9 '男 For b = 0 To 12 '女 If a * 4 + b * 3 + (36 - a - b) * 0.5 = 36 Then Print "男:"; a, "女:"; b, "小孩:"; 36 - a - b End If Next b, a

打印用*显示的图形
' I行数, J空格, K星号 For I = 1 To 4 '打印前四行 For J = 1 To 4 - I Print " "; '打印空格 Next For K = 1 To 2 * I - 1 Print "*"; '打印星号 Next Print '换行 Next For I = 1 To 3 '打后三行 For J = 1 To I Print " "; '打印空格 Next For K = 1 To 7 - 2 * I Print "*"; '打印星号 Next Print '换行 Next

1+2+……+n>=10000
Dim n%,s% n = 1:s = 0 Do Until s >= 10000 s=s+n n=n+1 Loop Print "当n="; n - 1; "的时候,s刚超过10 000"

自然对数e的近似值
Dim e!, i%, t! e=2 i=1 t=1 Do i=i+1 t=t/i e=e+t Loop While t > 0.0001 Print e
Dim e!, i%, j%, t! e=2 i=1 Do i=i+1 t=1 For j = 1 To i t=t*j Next j t=1/t e=e+t Loop While t > 0.0001 Print e

1/2+2/3+3/5+5/8+......(前20项)
Dim s As Single Dim i, fenzi, fenmu, x As Integer s=0 fenzi = 1 fenmu = 2 For i = 1 To 20 s = s + fenzi / fenmu x = fenzi fenzi = fenmu fenmu = fenmu + x Next i Print s

小猴吃桃
Dim n%, i% x=1 ' 第7天的桃子 Print "第 7 天的桃子为: 1 只" For i = 6 To 1 Step -1 x = (x + 1) * 2 Print "第"; i; "天的桃子为:"; x; "只" Next i

判断一个数是否为素数
Dim n%, i%, k% n = Val(inputbox(“请输入一个整数”)) k = Int(Sqr(n)) For i = 2 To k If n Mod i = 0 Then Exit For Next i If i > k Then MsgBox n & "是素数", , "判断素数" Else MsgBox n & "不是素数" End If

最大公约数以及最小公倍数
Dim m%, n%, t%, r% m = Val(Text1.Text) n = Val(Text2.Text) If m < n Then ' 要保证m>=n t = m: m = n: n = t ' 否则,两数交换 End If r = m Mod n Do While r <> 0 m = n : n = r : r = m Mod n Loop Text3.Text = n Text4.Text = Val(Text1.Text) * Val(Text2.Text) / n


相关文章:
VB程序设计的常用算法
VB程序设计的常用算法_计算机软件及应用_IT/计算机_...通常使用自然语言、结构化流程 图、伪代码等来描述...都要使用循环,要注意根据问题确定循环变量的初值、...
VB第5章 循环结构程序设计
VB第5章 循环结构程序设计_计算机软件及应用_IT/计算机_专业资料。VB第5章 循环...循环语句 3)掌握多重循环 4) 掌握各种实例算法 重点 与 难点 1)各种循环语句...
VB程序设计的常用算法
VB程序设计的常用算法_院校资料_高等教育_教育专区。...通常使用自然语言、结构化流 程图、伪代码等来描述...的算法如下: (1)x=a(mid),则已找到退出循环,...
VB程序设计的常用算法
VB 常用算法VB 程序设计》上机考点与常用算法 程序设计》算法:计算机解题的...、 【操作提示】因为不知循环的次数,所以可用 Do…Loop 结构或 While…Wend ...
VB程序设计的常用算法
VB程序设计的常用算法_理学_高等教育_教育专区。VB程序设计的常用算法一、计数、求和、求阶乘等简单算法二、求两个整数的最大公约数、最小公倍数、验证哥德巴赫...
VB程序设计的常用算法1
VB程序设计的常用算法1_工学_高等教育_教育专区。...通常使用自然语言、结构化流程图、伪代码 等来描述...解析法求解的问题往往能奏效,通常 采用循环来处理...
vb程序设计教案
实教第编编 课 4 vb 程序设计教案周次 第 4-5...顺序结构 4.2选择结构 4.3 循环结构 4.4其他辅助控制...4.5常用算法 理论课(√) ;实验课( ) ;实践课( ...
VB常用算法源代码
VB常用算法源代码_计算机软件及应用_IT/计算机_专业资料 暂无评价|0人阅读|0次下载|举报文档VB常用算法源代码_计算机软件及应用_IT/计算机_专业资料。1.高斯函数 ...
VB程序设计的常用算法
VB程序设计的常用算法_电脑基础知识_IT/计算机_专业...通常使用自然语言、结构化流程 图、伪代码等来描述...算法此类问题都要使用循环,要注意根据问题确定循环...
上海海事大学VB程序设计的常用算法
VB 程序设计的常用算法算法(Algorithm) :计算机解题...通常使用自然语言、结构化流程 图、伪代码等来描述...都要使用循环,要注意根据问题确定循环变量的初值、...
更多相关标签:
vb常用算法大全 | vb常用算法 | 常用算法 | 常用算法深入学习实录 | 循环首次适应算法 | c c 常用算法手册 | 常用算法和数据结构 | 常用负载均衡算法 |