...题目是输入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
