...题目是输入20个英文单词,统计期中以D字母(大小写均可)的单词有多少...

发布网友

我来回答

3个回答

热心网友

以字母d开头?

Private Sub Command1_Click()
Dim Arr(19) As String
Dim sum As Integer
sum = 0
For i = 0 To 19
Do While Arr(i) = ""
Arr(i) = InputBox("请输入一个单词")
Loop
If Mid(Arr(i), 1, 1) = "D" Or Mid(Arr(i), 1, 1) = "d" Then
sum = sum + 1
End If
Next

Print "以字母d开头的单词有" & sum & "个。"

End Sub

热心网友

将20个单词存入数组,循环数组然后对比然后计数。

热心网友

把20个单词定义成一个组,然后用
right(组(i),1)="D"确定是否满足条件。满足条件
个数+1

声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com