2011年3月21日国家安全监管总局国家煤矿安监局下发了安监总煤装【2011】33号《关于印发＜煤矿井下安全避险“六大系统建设完善基本规范（试行)的通知》（)

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

A、A和B可以同时是气体或同时是液体
B、A和B可以是一种气体和一种液体
C、A与B不可能是同一种物质
D、A和B可以是一种流体和一种固体