在窗体中有命令按钮 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
运行程序， 输入 15， 单击按钮， 程序的输出结果是
本题利用二重循环结构找出大于给定数值最小的素数， 内部 Do While 循环的功能是判断一个数是否为素数， 本题输入值为 15， 即找出大于 15 最小的素数， 经运算输出结果为 17， 故 A 选项正确。