以下程序用来产生20个(0，99)之间的随机整数，并将其中的偶数打印出来。请填空。
Private Sub Command1_Clcik()
　Randomize
　For I=1 To 20
　　X=Int(Rnd* (12) )
　If X/2= (13) Then Print x
Next I
End Sub

对该医生的正确伦理评价是

A．没有什么问题，不想接诊的病人就可以让他转诊
B．没有什么问题，风险太大时首先要保护好自己
C．没有什么问题，当时情况可以转诊
D．错误，违反首诊负责制要求，给病人造成严重伤害
E．错误，没有把这件事报告给院长，擅自决定转诊