【简答题】下面程序运行时,若输入"Visual Basic Programming",则在窗体上输出的是( )。Private Sub Command1_Click() Dim count(25)As Integer, ch As String ch=UCase(InputBox("请输入字母字符串")) For k=1 To Len(ch) n=Asc(Mid(ch,k,1))-Asc("A...
【单选题】下面程序运行时,若输入“Visual Basic Prograrmming”,则在窗体上输出的是( )。 Dim cout(25)As Integer,ch As String ch=Ucase(Int,utBox("请输入字母字符串")) For k=1 To i en(ch). n=ASC(Mid(ch,k,1))-Asc("A") If n>=0 Then count(n)=count(n)...
【单选题】( 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 ( ...
【单选题】下面程序运行时,若输入“Visual Basic Prograrmming”,则在窗体上输出的是( )。Private Sub Command1Click( ) Dim cout(25)As Integer,ch As String ch=Ucase(Int,utBox('请输入字母字符串')) For k=1 To i en(ch). n=ASC(Mid(ch,k,1))-Asc('A') If...
【单选题】下面程序运行时,若输入“Visual Basic Prograrmming”,则在窗体上输出的是( )。Private Sub Command1Click( ) Dim cout(25)As Integer,ch As String ch=Ucase(Int,utBox("请输入字母字符串")) For k=1 To i en(ch). n=ASC(Mid(ch,k,1))-Asc("A") If...