(2)设置窗体和控件的属性如图4-16右图所示。 其中标签Labe2的 Caption属性开始设置 为“输出判断结果:”在工程运行后应输出具 体的判断结果。 判断素数程序 Label1 请输入一个大于等于3的自然数H aText1 Command1 判断 Label2 输出判断结果 Command2 退出 图4-16判断素数工程设计界面和属性设置 2021/2/22 16
2021/2/22 16 （2）设置窗体和控件的属性如图4-16右图所示。 其中标签Label2的Caption属性开始设置 为“输出判断结果：”在工程运行后应输出具 体的判断结果。 图4-16判断素数工程设计界面和属性设置
在文本框中输入一个自然数n j=u, i=2 当i<=N 图4-17 求n/i的余数r 判断自然数n 是否为素数的 Y 余数r=0 程序流程 N 退出循环i=i+1 Y 输出n为素数输出n为非素数 2021/2/22
2021/2/22 17 在文本框中输入一个自然数n j = , i = 2 n 当 i <= n 求 n / i 的余数r 余数r = 0 退出循环 i > j Y N 输出n为素数 输出n为非素数 i = i+1 图4-17 判断自然数n 是否为素数的 程序流程 Y N
(3)编写代码 编写单击 Command1命令按钮“判断”所 执行的代码 Private Sub Command1 click DimiAs Long,jAs Long, n As Long n=Ⅴa(Tex1.Text) j=CIng sqr(n)) Debug. Print 2021/2/22 18
2021/2/22 18 （3）编写代码 编写单击Command1命令按钮“判断”所 执行的代码 Private Sub Command1_Click() Dim i As Long, j As Long, n As Long n = Val(Text1.Text) j = Clng(Sqr(n)) Debug.Print j
For i=2 To j If n mod i=o then exit for Next i Debug. Print i Ifi>jThen Label2 Caption= TextIText&"为素数 Else Labe2 Caption=Text1Text&"为非素数 End if End sub 2021/2/22
2021/2/22 19 For i = 2 To j If n Mod i = 0 Then Exit For Next i Debug.Print i If i > j Then Label2.Caption = Text1.Text & "为素数" Else Label2.Caption = Text1.Text & "为非素数" End If End Sub
编写单击 Command2命令按钮“退出”所 执行的代码 Private Sub Command2 Click Unload me End sub 编写 Form activate0事件发生时所执行的 代码 Private Sub Form Activated Texti setFocus End sub 2021/2/22 20
2021/2/22 20 编写单击Command2命令按钮“退出”所 执行的代码 Private Sub Command2_Click() Unload Me End Sub 编写Form_Activate()事件发生时所执行的 代码 Private Sub Form_Activate() Text1.SetFocus End Sub