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

第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


相关文章:
《Visual Basic程序设计》第04章在线测试
(x-x×y) 3、6.VB 中结构化程序设计的语句结构为 A、A.顺序结构 B、B.选择结构 C、C.GOTO 语句结构 D、D.循环结构 4、7.在 Visual Basic 中,具有 ...
实验报告-循环结构程序设计
(2)掌握循环结构与选择结构的综合使用 (3)进一步学习 VB 内部函数的使用 (4)学习字符串的处理技术 (5)掌握常用算法 二、实验内容:【实验 4-1】编写程序,显示...
VB单选题(第4章)
答案 C 286 VB 提供了结构化程序设计的 3 种基本结构,这 3 种基本结构是 A) 递归结构,选择结构,循环结构 B) 选择结构,过程结构,顺序结构 C) 过程结构,...
实验五 VB 循环结构程序设计(基础)
实验二、V B 常用控件的认... 实验三、VB 顺序...vb第5章循环结构程序设计 86页 免费喜欢此文档的还...因此,可以方便 地利用 FOR-NEXT 循环语句来实现算法...
VisualBasic常用算法汇总
第4章 算法基础及VisualBa... 93页 免费 VB相关...1、由于循环次数不确定,因此确定用 Do 循环结构并...(-6) then exit do 最后程序为: Private Sub ...
VB程序设计的常用算法
VB程序设计的常用算法_计算机软件及应用_IT/计算机_专业资料。Visual Basic 程序设计语言常用算法 Visual Basic 常用算法从逻辑结构上看,应用程序 = 算法 + 数据结构...
FOR循环结构
程序循环结构- 程序循环结构-For 循环语句 教材分析本课使用的教材为《算法程序设计》(浙江教育出版社),本节内容为第 四章VB 程序设计初步”中一个重要...
第四章 VB程序的控制结构
第四章 VB 程序的控制结构 4.1 算法概论 1. 算法的概念 .算法 :指用计算机...选择结构和循环结构 顺序结构、选择结构 循环结构 6. 算法示例 .(1) 欧几...
VB程序设计的常用算法
VB程序设计的常用算法_计算机软件及应用_IT/计算机_...通常使用自然语言、结构化流程 图、伪代码等来描述...都要使用循环,要注意根据问题确定循环变量的初值、...
更多相关标签:
vb常用算法大全 | vb常用算法大全.doc | 常用算法 | 循环首次适应算法 | 常用算法深入学习实录 | 五大常用算法 | java常用算法手册 | 常用负载均衡算法 |