VB实验2

【请将你的代码粘贴到下面】 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