(35 )下面程序运行时,若输入 “ Visual Basic Programming ” ,则在窗体上输出的是

Private Sub Comand1_Click () Dim count (25 ) As Integer, ch As String ch=U c ase (InputBox (" 请输入字母字符串 " ) ) For k=1 To Len (ch ) n=Asc (Mid (ch,k,1 ) ) -Asc (" A " ) If n>=0 Then Count (n ) =Count (n ) + 1 End If Next k m=count (0 ) For k=1 To 25 If m m=count (k ) End If Next k Print m End Sub A ) 0 B ) 1 C ) 2 D ) 3

时间:2023-09-09 17:07:17

相似题目