【正确答案】[操作步骤]
步骤1:打开本题工程文件。
步骤2:打开代码编辑窗口,在代码编辑窗口指定位置编写以下代码。
For i=1 To Val(Text1.Text) 'i从1开始,第一个找到的肯定就是满足条件的最小素数
If IsPrime(i) And IsPrime(Val(Text1.Text)-i)Then '判定两个数是否都满足素数条件
Label1=i
Label2=Val(Text1.Text) - i
Exit For
End If
Next i
步骤3:调试并运行程序,关闭程序后按题目要求存盘。
【答案解析】[考点] 本题考点有:Sqr()函数、文件操作、App.Path相对路径、Val()函数、For循环语句、If判断选择语句以及Mod运算符。
[解析] Function IsPrime()函数用来判断一个数是否为素数,在处理循环变量的上限时,为了节约循环的次数,设置为Sqr(x)为x的平方根,如果x能被循环变量的值整除,IsPrime()函数的返回值为:False,x就不是素数。在Command1_Click事件过程中,通过调用函数判断是否为素数,只要出现一组数据满足条件,就停止For循环,这样可以保证是最小的素数。
在进行数字运算前,一定要将参加运算的数字字符串转换为数值,因为计算机认为字符串是不能进行数学运算的。