UC知道VB程序设计解题分析，仅仅是照着最初的解题分析写一下。
来源：百度知道 编辑：UC知道 时间：2024/07/07 22:07:39
1+2+3+4+……+100
解题分析：
1、变量说明：
i：加数，i=1
s：和，s=0
2、循环变量：
i从1变化到100，每次i＋1
3、循环体：
s＝s＋i
4、结果：
s
1. 输入一段英文句子，要求统计出其中单词的个数。
2. 输入一段英文句子，要求统计出其中单词“the”的个数。
3. 现有猴子吃桃的问题：一只猴子第一天摘下若干桃子，当即吃了一半，还不过瘾，又多吃了一个，第二天早上又将剩下的桃子吃掉了一半，又多吃了一个，以后每天早上都吃了前一天剩下的一半多一个，到第十天早上想再吃时，发现只剩下最后一个桃子了。请问猴子第一天总共摘了多少个桃子。
4. 打印出右图图案。
*
* * *
* * * * *
* * * * * * *
* * * * *
* * *
*
我急需。。。。注意从1开始才是题目最初的只是例子，照着例子把解题分析做出来就是了！！！仅仅是照着例子写解题分析。不一定需要完整程序。现在主要是最后一个题。。。。
解题分析：
1、变量说明：
i：加数，i=1
s：和，s=0
2、循环变量：
i从1变化到100，每次i＋1
3、循环体：
s＝s＋i
4、结果：
s
1. 输入一段英文句子，要求统计出其中单词的个数。
2. 输入一段英文句子，要求统计出其中单词“the”的个数。
3. 现有猴子吃桃的问题：一只猴子第一天摘下若干桃子，当即吃了一半，还不过瘾，又多吃了一个，第二天早上又将剩下的桃子吃掉了一半，又多吃了一个，以后每天早上都吃了前一天剩下的一半多一个，到第十天早上想再吃时，发现只剩下最后一个桃子了。请问猴子第一天总共摘了多少个桃子。
4. 打印出右图图案。
*
* * *
* * * * *
* * * * * * *
* * * * *
* * *
*
我急需。。。。注意从1开始才是题目最初的只是例子，照着例子把解题分析做出来就是了！！！仅仅是照着例子写解题分析。不一定需要完整程序。现在主要是最后一个题。。。。
1+2+3+4+……+100:
dim i as integer,s as long
for i = 1 to 100
s=s+i
next
msgbox s
1.
Private Sub Form_Load()
Dim s As String, l As String, oldl As Long, wordc As Long
s = InputBox("输入句子", "输入")
s = Replace(s, ", ", ",")
s = Replace(s, ". ", ".")
s = Replace(s, ": ", ":") '统一格式 避免重复统计
oldl = Len(s) '记录句子长度
l = Replace(s, " ", "") '把空格删除
wordc = wordc + oldl - Len(l) '计算减少长度
l = Replace(s, ",", "") '把逗号删除
wordc = wordc + oldl - Len(l) '计算减少长度
l = Replace(s, ".", "") '把点删除
wordc = wordc + oldl - Len(l) '计算减少长度
l = Replace(s, ":", "") '把冒号删除
wordc = wordc + oldl - Len(l) '计算减少长度
MsgBox "单词数: " & CStr(wordc)
End Sub
2.
Privat