请好心人帮个忙

[来源:网民提供 | 浏览:8479975 | 收藏这网页]

生活小百科网:这里专家的回答会让您满意

Function Prt()Dim tmp As Stringtmp = Space(255)For i = 0 To 7 For j = 0 To 8 - i Print (" "); Next j For j = 0 To 2 * (i - 1) tmp = tmp & i Next j tmp = tmp + vbCrLf Print tmp tmp = ""Next iEnd Function答案补充第二题已经发了,下面第一题Function GetNumOfWords(ByVal str As String) As LongDim sum As Long, i As Long, c1 As String, c2 As StringOn Error Resume NextFor i = 0 To Len(str) - 1 If Mid(str, i, 1) < "a" And Mid(str, i + 1, 1) >= "a" Then sum = sum + 1 End IfNextGetNumOfWords = sumEnd Function

  • 如果您发现我们的文章侵犯了您的权利,请告诉我们.
  • 本站所选文章由网民提供,文章内容观点不代表本站立场.