yure354
幼苗
共回答了8个问题采纳率:87.5% 举报
以字母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 Su
1年前
9