窗体中有文本框Text1和标签Label1。运行程序时单击按钮Command1,输入整数m(m>0),判断m是否为素数,如果是素数,则在Label1中显示"m 是素数",否则显示"m 是合数"。
事件代码如下:
Private Sub Command1_Click()
Dim result As String
m = Val(Me!Text1)
result = m & " 是素数"
k = 2
Do While k <= m / 2
If m Mod k = 0 Then
result = m & " 是合数"
Exit Do
End If
k = k + 1
Loop
【 】= result
End Sub
程序【 】处应填写的语句是