问题:[问答题]
[操作步骤]
第1步:打开工程文件sjt5.vbp。
第2步:编写程序。参考程序如下:
Fork=1To100
flag=True’假定a(k)是素数,用flag为真来表示
Fori=2ToSqr(a(k))
Ifa(k)Modi=0Then
flag=False’假定不成立,修改flag的值为False
ExitFor’得出结论后,无须继续检查
EndIf
Nexti
Ifflag=TrueThen’a(k)是素数,计数并将a(k)存入数组b中
num=num+1
b(num)=a(k)
EndIf
Nextk
第3步:调试、运行并保存程序。
● 参考解析
程序在Command1_Click事件过程中将100个整数读入到数组a中。在Command2_Click事件过程中,首先检查文本框中是否有内容,在有内容的情况下再判断该数是否为素数。判断一个数是否为素数算法为:对于数n,用n除以2到[*]之间的全部整数,若都除不尽,则n是素数,否则n不是素数。要表达“都除不尽”这一条件是困难的,可采用以下方法解决:先假定数n是素数,再用2到[*]之间的整数去与n相除,如果其中有一个数能整除n则说明假定不成立,n不是素数。