VB代码：（2018年6月浙江）11.素数只能被1和它本身整除，不能被其他自然数整除。编写VB程序实现如下功能：单击“产生奇数并判断”按钮Command1，随机产生一个三位正奇数显示在文本框Text1中，并在文本框Text2中显示其是否为素数的判断结果。例如，当随机产生的三位正奇数为953时，程序运行界面如第11题图a所示。
(1)在设计程序界面时，应使用第11题图b所示“控件工具箱”中的 (填写相应编号)添加文本框Text1。 (2)实现上述功能的VB程序如下，请在划线处填写合适的代码。 Private Sub Command1_Click() Dim n As Integer, i As Integer Dim flag As Boolean ‘用于标记是否为素数 Randomize n = Int( ① )2+1 Text1.Text = Str(n) flag = True ‘标记为素数 i = 3 Do While i <= n – 1 And flag = True
If n Mod i = 0 Then
flag = False
End If
i = i + 2 Loop If ② Then
Text2.Text = Str(n) + “是素数” Else
Text2.Text = Str(n) + “不是素数” End If End Sub (3)以下选项中，与加框处表达式“n Mod i = 0”等价的是 (单选，填字母）。 A. n i = Int(n / i) B. n i = n/ i C. n Mod i = n i
参考答案：
（1）② 或 2 （2）①Rnd * 450+50 或其他等价表达式 ②flag 或 flag=True 或 i>n-1 或i=n 或 i>= n或其他等价表达式 （3）B
Python代码：
import random n=int((random.random()450+50)*2+1) print(‘随机产生的三位正奇数为：’,n) flag=True i=3 while i<=n-1 and flag==True:
if n%i==0:
flag=False
i=i+2 if flag:
print(str(n)+’是素数。’) else:
print(str(n)+’不是素数。’)
Python代码运行结果：
