选择题   在窗体中有命令按钮Command1和两个文本框Text0、Text1,命令按钮对应的代码过程如下:
    Private Sub Command1_Click()
        Dim m,k As Integer
        Dim flag As Boolean
        m=Val(Me!Text0)'输入—个整数
        Do While 1
          k=2
          flag=True
          Do While k<=m/2 And flag
          If m Mod k=0 Then
            flag=False
          Else
            k=k+1
          End If
        Loop
          If flag Then
            Me!Text1=m'输出计算结果
            Exit Do
            Else
            m=m+1
          End If
        Loop
    End Sub
    运行程序,在Text0中输入15,单击命令按钮,程序的输出结果是______。
 
【正确答案】 A
【答案解析】第一次外层循环时,m=15,k=2,flag=True。进入内层循环时,m不能整除k,执行k=k+1,此时k=3,继续内层循环,m Mod k=0,flag=False,退出内层循环,执行m=m+1,此时m=16;继续进行外层循环,k=2,flag=True,进入内层循环时,m Mod k=0,flag=False,退出内层循环,执行m=m+1,此时m=17。继续外层循环,k=2,flag=True,因为17是质数,不能整除,内层循环一直执行k=k+1,直到k=9时,k<=m/2不成立,退出内层循环,flag=True。执行Me!Text1=m,退出外层循环,输出17。