猩红热的确诊依据是（）

A.口周苍白圈

B.全身皮肤出现弥漫性鲜红色高出皮肤的粟粒疹

C.舌 * * 红，呈杨梅状

D.发热、咽痛、扁桃体红肿且可有脓性渗出物

E.咽拭子培养出A组β-溶血性链球菌

下列程序是判断一个整数(>=3)是否为素数，请补充完整。　　Dim n As Integer　　n=InputBox("请输入一个整数(>=3)")　　k=Int(Sqr(n))　　i=2　　swit=0　　While i<=k And swit=0　　　　If n Mod i=0 Then　　　　【】 　　　　Else　　　　【】 　　　　End If　　Wend　　If swit=0 Then　　　　Print n；"是一个素数。"　　Else　　　　Print n；"不是一个素数。"　　End If