Private Sub Command1_Click() Dim j, n As Integer n = Val(Text1.Text) For j = 2 To Int(Sqr(n)) leap = 1 If n Mod j = 0 Then leap = 0 Exit For End If Next If leap = 1 Then Label1.Caption = "素数" Else Label1.Caption = "合数" End IfEnd Sub===============================1个text1个command1个label

图