以下程序完成的功能是输入一个数n，并判断它是否为素数，是或不是都通过消息对话框(MsgBox)来给出提示。请将程序补充完整。Private Sub Cemmand1_Click() n = InputBox (“请输入一个整数”) k = Int(Sqr(n)) i = 2 Flag = 0 do while i＜= k And Flag = 0 if 【6】 = 0 then Flag = 1 Else i= i+ 1 End if Loop if 【7】 then MsgBox “这是一个素数!”，vbOKOnly，“提示” Else MsgBox “这不是一个素数!”，vbOKOnly，“提示” End ifEnd Sub

承包合同、转让合同和委托合同，是根据什么标准对行政合同进行的分类？（）

A.合同基于的行政关系的范围

B.合同的内容

C.合同是否涉及金钱给付

D.合同事项所涉及行政管理领域