锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net中阶乘怎么做 vb计算阶乘和的程序

IT技术计算

VB.NET 怎样编写使用Do While 循环输出1-10的阶乘，我是新手请加上文字说明 ， 呵呵，谢谢各位了！【vb.net中阶乘怎么做 vb计算阶乘和的程序】首先在窗体上画两个控件：TextBox1和Button1
TextBox1用来输入需要计算那个数的阶乘
双击Button1进入输入代码 ， 代码如下
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Dim Factorial As Integer = 1 '定义一个变量用来记录阶乘的结果
Dim count As Integer '定义一个变量用来记录需要计算那个数的阶乘
Dim i As Integer = 1 '定义一个数用来循环
count = Int(Val(Me.TextBox1.Text)) '把TextBox1的值赋值给count
Do While i = count '下面开始计算阶乘
Factorial = Factorial * i '计算阶乘
i += 1 '自增1
Loop
MessageBox.Show(Int(Val(Me.TextBox1.Text))"的阶乘是："Factorial, "完成", MessageBoxButtons.OK) '弹出计算结果
Catch ex As Exception '出错提示
MessageBox.Show(Err.Description, "出错了", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
程序高手来1~10的阶乘 。用VB.NETPublic 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 窗体设计器修改此过程 。
'不要使用代码编辑器修改它 。
System.Diagnostics.DebuggerStepThrough() Private Sub InitializeComponent()
'
'Form1
'
Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
Me.ClientSize = New System.Drawing.Size(292, 266)
Me.Name = "Form1"
Me.Text = "Form1"End Sub#End RegionPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim s As String
Dim i As Integer, f As Long
For i = 0 To 10
f = Factor(i)
s = si"!="fvbNewLine
Next i
MsgBox(s)
End Sub
Function Factor(ByVal n As Integer) As Long
End Function
End Class
用VB.NET编写一个程序 ：编一求阶乘的函数f(n),主调程序求组合数的程序，分别调用f(n),用来计算组合数的值Private Sub Command1_Click()
Dim A, B, C
A = 10
B = 3
C = f(A) / (f(B) * f(A - B))
Print C
End Sub
Private Function f(n)
Dim I As Integer
f = 1
For I = 1 To n
f = f * I
Next I
End Function
用VB.Net自定义过程，求阶乘！Private Function a%(b)
s = 1
For i = 1 To b
s = s * i
Next i
a = s
End Function
Private Sub Form_activate()
For i = 1 To 10
n = n + a(i)
Next i
Print n
End Sub
关于vb.net中阶乘怎么做和vb计算阶乘和的程序的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息 ， 记得收藏关注本站 。

    推荐阅读


    上一篇：华为手机android开机死循环，华为手机开机显示android是什么意思

    下一篇：鸿蒙桌面日程安排怎么设置，鸿蒙系统桌面日期怎么设置