loading
【请将你的代码粘贴到下面】 Private Sub Form_Click() Dim a As Integer Dim b As Integer For a = 1 To 9 For b = 1 To a
Print CStr(b) & \ Next b Print Next a End Sub 【请将你的典型结果的截图粘贴到下面】
3-10】任意输入一个或者多个英文句子，统计这些句子中的单词数量。13
10分）
【实验（
根据实际问题，找出解决方案，结合循环和分支结构语句，解决问题。 提示：有很多种方法可以解决这个问题，注意特殊情况。
实验结果：
【请将你的代码粘贴到下面】 Private Sub Command1_Click()
Dim BufStr As String, LS As Long, LE As Long, V() As String BufStr = Text1.Text
BufStr = Replace(BufStr, \ BufStr = Replace(BufStr, vbCrLf, \ BufStr = Replace(BufStr, vbCr, \ BufStr = Replace(BufStr, vbLf, \ BufStr = Trim(BufStr) Do
LS = Len(BufStr)
BufStr = Replace(BufStr, \ \ LE = Len(BufStr) Loop Until LS = LE V = Split(BufStr, \
Text2.Text = Trim(UBound(V) - LBound(V) + 1) End Sub
【请将你的典型结果的截图粘贴到下面】
14
【加分1】百钱买百鸡问题，一百个钱买了一百只鸡，其中公鸡一只5钱、母鸡一只3钱,小鸡一钱3只，问一百只鸡中公鸡、母鸡、小鸡各多少) （加分10分，最高100分）
实验结果：
【请将你的代码粘贴到下面】 Private Sub Command1_Click() For i = 0 To 100 For j = 0 To 100 For k = 0 To 100
If i * 5 + j * 3 + k / 3 = 100 And i + j + k = 100 Then Print i, j, k End If Next k Next j Next i End Sub
15
【请将你的典型结果的截图粘贴到下面】
【加分2】完成超级玛丽的子弹消灭怪兽、跳跃、碰撞、吃蘑菇功能 （加分20分，最高100分）
实验结果：
【请将你的代码粘贴到下面】
【请将你的典型结果的截图粘贴到下面】
实验小结
1. 遇到的问题：
2. 对课程的建议：
16