题目内容
（请给出正确答案）
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
简答题官方参考答案
（由简答题聘请的专业题库老师提供的解答）
更多“（35 ）下面程序运行时，若输入 “ Visual Basic Programming ” ，则在窗体上输出的是”相关的问题
下面程序运行时，若输入395，则输出结果是
Prirate sub commandl_Click()
Dim x％
x=InputBox(“请输入一个3位整数”)
Print x Mod 10，x＼100，(x Mod 100)＼10
End Sub
A．3 9 5
B．5 3 9
C．5 9 3
D．3 5 9
下面程序运行时，若输入395，则输出结果是（）。
Private Sub Command1_Click（）
Dim X％
x=InputBox("请输入一个3位整数")
Print x Mod 10，x\100，(x Mod 100)\10
End Sub
A.3 9 j
B.5 3 9
C.5 9 3
D.3 5 9
（30 ）下面程序运行时，若输入 395 ，则输出结果是
Private Sub Comand1_Click （）
Dim x%
x=InputBox (" 请输入一个 3 位整数 ")
Print x Mod 10,x\100, (x Mod 100 ) \10
End Sub
A ） 3 9 5
B ） 5 3 9
C ） 5 9 3
D ） 3 5 9
下面程序运行时，若输入“Visual Basic Programming”。则在窗体上输出的是
Prirate 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”)
If n＞=0 Then
count(n)=count(n)+1
End If
Next k
m=count(0)
For k=1 T0 25
IfIn＜count(k)Then
Ill=count(k)
End If
Next k
Print m
End sub
A．0
B．1
C．2
D．3
A.3 9 j
B.5 3 9
C.5 9 3
D.3 5 9
A.0
B.1
C.2
D.3
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)+1
End If
Next k
m=count(0)
For k=1 To 25
If m＜count(k)Then
m=count(k)
End If
Next k
Print m
End Sub
A.0
B.1
C.2
D.3
Prirate 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”)
If n＞=0 Then
count(n)=count(n)+1
End If
Next k
m=count(0)
For k=1 T0 25
IfIn
Ill=count(k)
End If
Next k
Print m
End sub
A．0
B．1
C．2
D．3
警告：系统检测到您的账号存在安全风险
为了保护您的账号安全，请在“简答题”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！
