【正确答案】正确答案：【操作步骤】 步骤1：打开本题对应工程文件sjt5．vbp。 步骤2：双击窗体Form1上的“计算”按钮，打开代码编辑窗口，在其Click事件过程中输入如下代码。参考代码： Private Sub Command2_Click() a％＝CInt(Text1．Text) Do a％＝a％＋1 Loop Unti1 isprime(a％) Text2．Text＝a％ End Sub 步骤3：编写判断素数的函数过程isprime，参考代码为： Function isprime(a As Integer) Dim flag As Boolean k％＝2 flag＝True While k％＜＝Int(a／2)And flag If a／k％＝Int(a／k％)Then flag＝False End If k％＝=k％＋1 Wend isprime＝flag End Function 步骤4：按＜F5＞键运行程序，先单击“读数”按钮，接着单击“计算”按钮，最后单击“存盘”按钮。 步骤5：按要求将文件保存至考生文件夹中。