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

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.7循环总结
2.7循环总结_数学_自然科学_专业资料。字符串操作问题: 1. 统计出字符串中字符...2014年12月大学四级冲刺试题及答案 2014年12月大学英语四级经典参考范文68份文档...
FOR循环例题(带答案)
FOR循环例题(带答案)_政史地_高中教育_教育专区。【例1】 计算并显示 1 到 100 之间的自然数之和。 Private Sub Form_Click() Dim i As Integer, s As ...
java循环练习及答案
java循环练习及答案_从业资格考试_资格考试/认证_教育专区。java练习 循环练习 1、实现一个课程名称和课程代号的转换器:输入下表中的课程代号,输出课程的名称。用 ...
C语言循环结构练习题带答案
C语言循环结构练习题带答案_IT认证_资格考试/认证_教育专区。C++ 循环结构 第5章 循环结构程序设计 5.1 基本知识点 ? ? ? ? ? ? ? ? while 语句的使用...
循环系统复习题(带答案)
循环系统复习题(带答案)_医学_高等教育_教育专区。循环系统复习选择题单选题 1.典型慢性肺原性心脏病应具备哪一项 X 线表现?( A ) A、肺动脉高压、右室大 ...
高二物理2.7_闭合电路欧姆定律习题及答案
高二物理 2.7 闭合电路欧姆定律习题及答案课堂同步 1.下列说法正确的是 ( ) A.电源被短路时,放电电流无穷大 B.外电路断路时,路端电压最高 C.外电路电阻减小...
必修3同步练习题2.2.3循环结构(含答案)
必修3同步练习题2.2.3循环结构(含答案)_数学_高中教育_教育专区。必修3同步练习题(含答案) 2.2.3 循环结构 一、选择题 1.以下说法不正确的是( ) A.顺序...
第2章习题(带答案)
第2章习题(带答案)_财会/金融考试_资格考试/认证_教育专区。1.链表不具有的特点...读取元素花费时间最少的是( A、单链表 B、双链表 C、循环链表 free(s) )...
试题带答案
(错) 24、 机械送风系统的进风口下缘距离室外地坪不宜小于 2 化带内时不宜...答案:1)按热水供暖循环动力的不同,可分为自然循环系统和机械 循环系统。 2)...
更多相关标签:
绿色循环圈2.7 | 绿色循环圈外传2.7 | python 2.7 for循环 | 成语玩命猜2.7版答案 | 硬币自循环工作总结 | 循环系统试题及答案 | 循环系统考试题及答案 | 课堂过关循环练答案 |