admin 管理员组文章数量: 1086019
2024年3月27日发(作者：学生信息管理系统数据库)
字符串操作问题：
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
版权声明：本文标题：2.7循环总结(带答案) 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://roclinux.cn/b/1711518784a598023.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论