本程序的功能是:找出所有满足各位数字之和正好是其所有质因子之和的三位数。例如378,其各位数字之和为18,而其质因子2,3,3,3,7之和也是18,所以378是满足条件的数。

Option Explicit

Private Sub CmdFind_Click()

Dim i As Integer,p As String,st As String,st1 As String

For i=100 To 999

（）

If csum(i)=zyz(i,st) Then

p=CStr(i)

st1=Left(p,1) & "+" & Mid(p,2,1) & "+" & Right(p,1)

List1.AddItem i & ": " & st1 & "=" & Left(st,Len(st)-1)

End If

Next i

If List1.ListCount=0 Then

List1.AddItem "无满足要求的数!"

End If

End Sub

Private Function csum(m As Integer)As Integer ’求各位数字之和

Dim i As Integer,p As String

p=CStr(m)

For i=1 To Len(p)

（）

Next i

End Function

Private Function zyz(ByVal m As Integer,st As String)As Integer ’求所有质因子之和

Dim i As Integer

i=2

Do

If m Mod i=0 Then

zyz=zyz+i

st=st & i & "+"

m=m\i

EIse

（）

End If

Loop Until （）

End Function

黑火药是中国四大发明之一，其爆炸的化学反应方程式是：

2KNO₃ + 3C + S→+ N₂↑ + 3CO₂↑ 

（1）方程式中第二周期元素中非金属性由强到弱的顺序依次为            。

（2）上述元素中，元素原子最外层有2个未成对电子的是            。

（3）在生成物中：A物质的晶体类型为        ；构成晶体A的微粒半径大小关系为       （用微粒符号表示）；含极性共价键的非极性分子为           。

（4）已知CN^—与N₂结构相似，写出HCN分子的结构式                       。