怎样用vb程序求100——1000的素数（How to use the VB program for 100 - 1000 prime numbers）.docVIP

怎样用vb程序求100——1000的素数（How to use the VB program for 100 - 1000 prime numbers） How to use the VB program for 100 - 1000 prime news forum group Blog document download reading Tag feeds search video game.NETJava personnel outsourcing training database programmer Bookstore Welcome: | | login help visitors exit Fanchon my posts I post my participation in my space The CSDNCSDN community VB foundation class will post the advance into the network I recommend to friends I want to ask the post plus top posts set to generate the essence of locking posts Move posts to post... Manage menus, page styles, switch styles, old styles, forums, and how to use the VB program for 100 - 1000 prime numbers Add to good friends Send private messages chat online Shangxinfa big family Grade: Posted on: 2007-06-19 20:17:21, LZ What about answering it? Question points: 20 response times: 13 show all replies, show star reply, show landlord reply, modify, delete, report, quote, reply Add to good friends Send private messages chat online Jacktown King of the valley Grade: Posted on: 2007-06-20 16:21:071 building, score: 0 Add a form, three textbox controls, two LABEL controls, and a CommandButton control, and then add the following code: Private, Sub, Command1_Click () If, Not, IsNumeric (Text2.Text), Or, Not IsNumeric (Text2.Text) Then MsgBox enter the correct start and end number.! Exit Sub If CInt (Text2.Text) = CInt (Text3.Text) Or Text2.Text 1, Or Text3.Text 1 Then MsgBox The number you entered does not meet the requirements. Please re-enter it : Exit Sub Dim, I, As, Integer, N, As, Integer, percent N = 0 Text1.Text = Text1.Text = Text2.Text to Text3.Text the prime numbers between them are: vbCrLf For x = Text2.Text, To, Text3.Text For I = 2, To, X - 1 If (x, Mod, I) = 0, Then, GoTo, g_next Next If n 4 Then Text1.Text = Text1.Text X Chr (9) N = n + 1 Else Text1.Text = Text1.Text X vbCrLf N = 0 End If Text1.SelStart = Len (Text1.Text) Text1.Refresh G_next: Next End Sub Modify, delete,