【正确答案】正确答案：【操作步骤】 步骤1：打开本题对应工程文件sjt5．vbp。 步骤2：双击窗体Forml上的“计算”按钮，打开代码编辑窗口，在其Click事件过程中输入如下代码： 参考代码： Private Sub C1 C1ick() a％=15000 Do a％=a％+1 Loop Until isprime(a％) Text1．Text=a％ End Sub 步骤3：双击窗体Forml上的“存盘”按钮，在代码编辑窗口其Click事件过程中输入如下代码： 参考代码： Private Sub C2 C1ick() Open App．Path&“＼out5．txt”For Output AS#1 Print#1，Text1．Text C10se#1 End Sub 步骤4：按要求将文件保存至考生文件夹中。