当前位置:首页 >> 数学 >>

2.7循环总结(带答案)


字符串操作问题: 1. 统计出字符串中字符“a”出现的次数 Private Sub Form_Click() Dim s$, i%, n% s = InputBox("请输入一串字符串") n = 0 For i = 1 To Len(s) If Mid(s, i, 1) = "a" Then n = n + 1 End If Next i Print n End Sub 2. 统计出所有小写字母出现的次数 Private Sub Form_Click() Dim s$, i%, n% s = InputBox("请输入一串字符串") n = 0 For i = 1 To Len(s) If Mid(s, i, 1) >= "a" And Mid(s, i, 1) <= "z" Then n = n + 1 End If Next i Print n End Sub 3. 统计出所有大写字母出现的次数 Private Sub Form_Click() Dim s$, i%, n% s = InputBox("请输入一串字符串") n = 0 For i = 1 To Len(s) If Mid(s, i, 1) >= "A" And Mid(s, i, 1) <= "Z" Then n = n + 1 End If Next i Print n End Sub 4. 将字符串的字符顺序倒置 Private Sub Form_Click() Dim s$, i%, c$ s = InputBox("请输入一串字符串") c = "" For i = Len(s) To 1 Step -1

c = c & Mid(s, i, 1) Next i Print c End Sub 猴子摘桃问题: 1. 小猴摘了若干个桃,第一天吃掉一半多一个,第二天接着吃了剩余的一 半多一个,以后每天都吃尚存的桃的一半多一个,到第七天要吃时只剩下 1 个了。问小猴最初摘了多少桃。 Private Sub Form_Click() Dim X%, i% X = 1 For i = 6 To 1 Step -1 X = (X + 1) * 2 Next i Print X End Sub 2. 某人第一天卖出一半货物,以后每天卖出剩下的一半,直到第 7 天还剩 下 100 件,求原来共有多少货物。 Private Sub Form_Click() Dim X%, i% X = 100 For i = 6 To 1 Step -1 X = X * 2 Next i Print X End Sub DO 循环求和问题: 1. 编写程序计算 S 的值,直到最后一项小于 量类型定义成单精度型) S= + + +?

10-4 为止(要求将存放结果的变

Private Sub Form_Click() Dim s!, i%, t! s = 0 i = 1 Do t = 1 / (i * (i + 1)) s = s + t i = i + 2 Loop Until t < 0.0001

Print s End Sub 2. 编写程序计算 S 的近似值,直到最后一项的绝对值小于 用 PRINT 方法输出计算结果。其中 S=1+ + ? +(-1)K+1

10-5 次方为止,并

Private Sub Form_Click() Dim s!, i&, t! s = 0 i = 1 Do t = (-1) ^ (i + 1) / i s = s + t i = i + 1 Loop Until Abs(t) < 0.00001 Print s End Sub 3. 利用公式

可以求出自然对数的底 e 的近似值,要求累加到最后一项的值小于 0.000001 为止。 Private Sub Form_Click() Dim e!, i%, t! e = 1: i = 1: t = 1 Do t = t * i e = e + 1 / t i = i + 1 Loop Until 1 / t < 0.000001 Print e End Sub 4. 编写程序计算 S 的近似值,直到最后一项的绝对值小于 存放结果的变量类型定义成单精度型) S= + + +? 答案 1: Private Sub Form_Click() Dim s!, i%, t!

10-6 为止(要求将

s = 0: i = 2: t = 1 Do t = t * (i - 1) * i s = s + 1 / t i = i + 2 Loop Until 1 / t < 0.000001 Print s End Sub 答案 2: Private Sub Form_Click() Dim s!, i%, t! s = 0: i = 2 Do t = 1 For x = 1 To i t = t * x Next x s = s + 1 / t i = i + 2 Loop Until 1 / t < 0.000001 Print s End Sub

FOR 循环求和。 1. 从键盘上给出 n,求 S=1+(1+2)+(1+2+3)+?+(1+2+3+?+n)的值。 答案 1: Private Sub Form_Click() Dim i%, j%, n%, s% n = Val(InputBox("请输入 n 的值")) s = 0 For i = 1 To n For j = 1 To i s = s + j Next j Next i Print s End Sub 答案 2: Private Sub Form_Click() Dim i%, t%, n%, s% n = Val(InputBox("请输入 n 的值"))

s = 0 t = 0 For i = 1 To n t = t + i s = s + t Next i Print s End Sub 2. 从键盘上给出 n 和 a 的值,求 SN=a+aa+aaa+aaaa+?最后一项为 n 个 a 的值。 Private Sub Form_Click() Dim i%, n%, a%, s%, t% n = Val(InputBox("请输入 n 的值")) a = Val(InputBox("请输入 a 的值")) s = 0 t = 0 For i = 1 To n t = t * 10 + a s = s + t Next i Print s End Sub

图形输出问题: 图 1:

图 2:

图 3:

图 1: Private Sub Form_Click() Dim i%, j% For i = 1 To 5 Print Tab(5); Print Spc(6 - i); For j = 1 To 2 * i Print "*"; Next j Next i

1

For i = 4 To 1 Step -1 Print Tab(5); Print Spc(6 - i); For j = 1 To 2 * i - 1 Print "*"; Next j Next i End Sub 图 2: Private Sub Form_Click() Dim i%, j% For i = 1 To 5 Print Tab(5); Print Spc(6 - i); For j = 1 To i Print Chr(64 + j); Next j For j = i - 1 To 1 Step -1 Print Chr(64 + j); Next j Next i End Sub 图 3: Private Sub Form_Click() Dim i%, j% For i = 1 To 5 Print Tab(5); Print Spc(6 - i); For j = 1 To i Print Format(j, "0"); Next j For j = i - 1 To 1 Step -1 Print Format(j, "0"); Next j Next i End Sub

百元买百鸡问题: 1. 编写程序求解百元买百鸡问题。假定小鸡每只 5 角,公鸡每只 2 元,母 鸡每只 3 元。现在有 100 元,要求买 100 只鸡,编写程序列出所有可能的购 鸡方案。

Private Sub Form_Click() Dim i%, j%, k% Print Tab(1); "母鸡"; Tab(15); "公鸡"; Tab(29); "小鸡" For i = 0 To 33 For j = 0 To 50 k = 100 - i - j If 0.5 * k + 3 * i + 2 * j = 100 Then Print i, j, k End If Next j Next i End Sub 2. 用一元纸币兑换一分, 二分和五分的硬币, 要求兑换硬币的总数为 50 枚, 编程列出所有可能的兑换方案。 Private Sub Form_Click() Dim i%, j%, k% Print Tab(1); "五分"; Tab(15); "两分"; Tab(29); "一分" For i = 0 To 20 For j = 0 To 50 k = 50 - i - j If 5 * i + 2 * j + 1 * k = 100 Then Print i, j, k End If Next j Next i End Sub 逐个试: 1. 找出 100-999 之间的水仙花数 Private Sub Form_Click() Dim i%, A%, B%, C% For i = 100 To 999 A = i \ 100 B = (i - A * 100) \ 10 C = i - A * 100 - B * 10 If A ^ 3 + B ^ 3 + C ^ 3 = i Then Print i End If Next i End Sub 2. 有一长楼梯,其阶梯数量在 20-90 之间,如果每步跨 2 阶最后剩 1 阶, 如果每步跨 3 阶最后剩 2 阶,如果每步跨 4 阶最后剩 3 阶,如果每步跨 5 阶 恰好走完,求该楼梯的阶数。 Private Sub Form_Click() Dim i%, A%, B%, C%

For i = 20 To 90 If i Mod 2 = 1 And i Mod 3 = 2 And i Mod 4 = 3 And i Mod 5 = 0 Then Print i End If Next i End Sub 3. 编写程序,输出 1000 之内的所有完数。 “完数”是指一个数恰好等于它 的因子之和,如 6 的因子是 1,2,3,而 6=1+2+3,因而 6 是完数。 Private Sub Form_Click() Dim i%, j%, s% For i = 1 To 1000 s = 0 For j = 1 To i - 1 If i Mod j = 0 Then s = s + j End If Next j If i = s Then Print i End If Next i End Sub 4. 编写程序,求出所有小于或等于 100 的自然数对。 “自然数对”是指两个 自然数的和与差都是平方数,如 8 和 17 的和为 25 与其差 9 都是平方数,就 称为自然数对。 Private Sub Form_Click() Dim i%, j% For i = 1 To 100 For j = 1 To i - 1 X = i + j Y = i - j If Sqr(X) = Int(Sqr(X)) And Sqr(Y) = Int(Sqr(Y)) Then Print i, j End If Next j Next i End Sub 读下面两个程序,填空 1. '该整数满足逆向排列得到的另一个 4 位数是它自身的倍数(2 倍以上)。 Public Sub calculate() Dim n%, m%

Dim a%, b%, c%, d% For n = 1000 To 9999 a = n \ 1000 '求千位数 b = n \ 100 Mod 10 '求百位数 '*****question***** '求十位数 c = ______ mod 10 d = n Mod 10 '求个位数 m = d * 1000 + c * 100 + b * 10 + a '*****question***** '满足题目要求则打印输出 If m Mod n = 0 And ______Then Menu1.Print n, m & "=" & n & "*" & m \ n End If Next n End Sub 2. '该模块的功能是:随机产生一个四位正整数,计算并输出一个四位整数各位数 字之和. Public Sub Calculate() Dim i As Integer '*****question***** '随机产生一个四位正整数 i = Int(______) + 1000 i1 = i Mod 10 '得到该四位数的个位数 temp = Int(i / 10) '*****question***** '得到该四位数的十位数 i2 = temp ______ temp = Int(temp / 10) i3 = temp Mod 10 '得到该四位数的百位数 i4 = temp \ 10 '得到该四位数的千位数 s = i1 + i2 + i3 + i4 '把四个数字相加 Menu1.Print i; "各位数字之和为:"; s End Sub


相关文章:
试题六 答案
2.714 4. 1996 37 2.705 男 S 梯形=(a+b)h/2 5. 5X 23ac 6. 7. 11 8a 3 + 5 )·( X) 略 8. ( 9. 3 0.23(2 3 循环) 2.98 中位...
统计学试题及答案
2.7764, t 0.025 (24) ? 2.0639 4 统计学考试题一参考答案及评分细则一...循环变动 4. 下列属于正相关关系的是 A.适量的施肥量与亩产量 B.身高与体重...
《循环数》导学案
循环小数是在学生学习了小数除法的计算及商的近似数...2.7467467…≈( 保留两位小数 2.7467467…≈( 保留...(10 分 5.7÷9 钟) 2.师生共同总结问题答案。...
python核心编程第二版第2章习题答案
total = total + l[i] i=i+1 print 'Total is',total 2-9.循环和操作...答案: Python 2.7.11 (v2.7.11:6d1b6a68f775, Dec 5 2015, 20:32:19)...
编程作业答案-循环结构(2次)
循环结构程序设计作业答案 1、题目:求 1!+2!+3!+ …… +n!的。 、题目...e=2.718254。 直到 1/n!<0.000001 时 e=2.718254。 main() { float fun...
学习十九大精神答题-答案
学习十九大精神答题-答案_学习总结_总结/汇报_实用...节约低碳循环发展 41. ___C_是两岸关系的政治基础...适应世界新军事革命发展趋势和国家安全需求, 提高建设...
28÷___==2.1:2.7=___:63=___(填循环小数)_答案_百度高考
实用文档 求职/职场 总结/汇报 党团工作 资格考试..._==2.1:2.7=___:63=___(填循环小数) 正确答案及相关解析 正确答案 36 49 0. 解析 解...
热力学陈钟秀第三版习题答案
热力学陈钟秀第三版习题答案_工学_高等教育_教育...2.7 3 M 6 Pa ? ? 0.3 5 1 371 4 ? 0....和制造带来难以克服的困难, 因此迄今蒸汽动力循环未...
数据结构第2章习题参考答案
数据结构第2章习题参考答案_总结/汇报_应用文书。2.7 习题 2.7.1 知识点:线性...q 和 r 依次指向某循环链表中三个相邻的结点,交换结点*q 和结点*r 在 表...
血液透析试题及答案参考2
血液透析试题及答案参考2_从业资格考试_资格考试/...循环血量/血管容量比例 4、急性肾小球肾炎最常见的...晨尿较浓缩、饮食 2.7、203.尿路、上呼吸道、患者...
更多相关标签: