在窗体上画一个命令按钮，然后写出如下事件过程：　　Private Sub Command1 _ Click( )　　　　S=1　　　　Do　　　　　　S=(S + 1) ^(S + 2)　　　　　　Number=Number+1　　　　Loop Until S＞=6　　　　Print Number，S　　End Sub　　程序运行后，输出的结果是()。

A． Function CT(ByVal a As Integer)　　　　If a Mod 2=0 Then　　　　　Return 0　　　　ElSe　　　　　Return 1　　　　End if　　End Function

B． Function CT(ByVal a As Integer)　　　If a Mod 2=0 Then　　　　CT=0　　　Else　　　　CT=1　　　End if　　End Function

C． Function CT(ByVal a As Integer)　　　If a Mod 2=0 Then　　　　　CT=1　　　Else　　　　　CT=0　　　End if　　End Function

D． Function CT(ByVal a As Integer)　　　If a Mod 2=0 Then　　　　　Return 1　　　Else　　　　　Return 0　　　End if　　End Function

“苏丹红”并非食品添加剂，而是一种化学染色剂．英国食品标准署就食用含有添加苏丹红色素的食品可能诱发癌症向消费者发出警告．我国也正在严查添加有苏丹红的食品．所谓“苏丹红一号”实际上一般称为“苏丹一号”，是一种黄溶剂染料，化学式为 C₁₆H₁₂N₂O，试计算：

（1）苏丹红一号的相对分子质量．

（2）苏丹红一号中各元素的质量比．

（3）苏丹红一号中氮元素的质量分数．