| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1213 人关注过本帖
标题:用VB.NET编写的求成过100以内的素数程序
只看楼主 加入收藏
srxt06
Rank: 1
等 级:新手上路
帖 子:50
专家分:0
注 册:2007-10-7
收藏
 问题点数:0 回复次数:1 
用VB.NET编写的求成过100以内的素数程序

Public Class Form1

Inherits System.Windows.Forms.Form

#Region " Windows 窗体设计器生成的代码 "

Public Sub New()
MyBase.New()

'该调用是 Windows 窗体设计器所必需的。
InitializeComponent()

'在 InitializeComponent() 调用之后添加任何初始化

End Sub

'窗体重写 dispose 以清理组件列表。
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub

'Windows 窗体设计器所必需的
Private components As System.ComponentModel.IContainer

'注意: 以下过程是 Windows 窗体设计器所必需的
'可以使用 Windows 窗体设计器修改此过程。
'不要使用代码编辑器修改它。
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents RichTextBox1 As System.Windows.Forms.RichTextBox
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.Button1 = New System.Windows.Forms.Button
Me.RichTextBox1 = New System.Windows.Forms.RichTextBox
Me.SuspendLayout()
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(160, 264)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(104, 32)
Me.Button1.TabIndex = 0
Me.Button1.Text = "判 断"
'
'RichTextBox1
'
Me.RichTextBox1.Location = New System.Drawing.Point(80, 16)
Me.RichTextBox1.Name = "RichTextBox1"
Me.RichTextBox1.Size = New System.Drawing.Size(248, 224)
Me.RichTextBox1.TabIndex = 1
Me.RichTextBox1.Text = ""
'
'Form1
'
Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
Me.ClientSize = New System.Drawing.Size(440, 333)
Me.Controls.Add(Me.RichTextBox1)
Me.Controls.Add(Me.Button1)
Me.Name = "judgeForm"
Me.Text = "求素数"
Me.ResumeLayout(False)

End Sub

#End Region

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim N, I As Integer
For N = 3 To 100 '3~100循环

For I = 2 To N - 1 '2~N-1循环
If N Mod I = 0 Then Exit For
Next I
If I > N - 1 Then '判断素数
RichTextBox1.Text &= N & "是素数" & vbCrLf
End If
Next
End Sub
End Class

搜索更多相关主题的帖子: 素数 NET Sub New 
2007-10-14 09:39
simpson
Rank: 3Rank: 3
等 级:论坛游民
威 望:7
帖 子:863
专家分:17
注 册:2006-11-16
收藏
得分:0 
Public Function prime(ByVal inputval As Integer) As String '判断是否为素数
Dim i, j As Integer
For i = 2 To inputval - 1
If inputval Mod i = 0 Then
GoTo Comfinish
End If
If inputval Mod i = 2 Then
For j = 1 To 1000
System.Windows.Forms.Application.DoEvents()
Next
End If
Next
Return "素数"
GoTo finish
comfinish:
Return "合数"
finish:
End Function

全国最大的 Java专业电子书免费分享[url]http:///in.asp?id=xrmao[/url]
2007-10-15 00:45
快速回复:用VB.NET编写的求成过100以内的素数程序
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.018546 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved