锐客网

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

用vb.net计算阶乘 用vb求阶乘

IT技术阶乘

程序高手来1~10的阶乘 。用VB.NETPublic Class Form1
Inherits System.Windows.Forms.Form#Region " Windows 窗体设计器生成用vb.net计算阶乘的代码 "Public Sub New()
MyBase.New()'该调用是 Windows 窗体设计器所必需用vb.net计算阶乘的 。
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程序 。求组合数，其中m,n用inputbox函数输入 。要求用用户自定义过程计算阶乘，组Public Class Form1
Private Function jc1(ByVal q)
Dim i%, p%
p = 1
For i = 1 To q Step 1
p = p * i
Next
Return p
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim m!, n!, info1$, info2, C!, title$
title = "组合数计算小能手"
info1 = "请输入m用vb.net计算阶乘的值"
info2 = "请输入n用vb.net计算阶乘的值"
m = Val(InputBox(info1, title))
【用vb.net计算阶乘 用vb求阶乘】n = Val(InputBox(info2, title))
C = jc1(m) / jc1(n) / jc1(m - n)
Label1.Text = "结果是"" "C
End Sub
用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 = na(i)
Next i
Print n
End Sub
VB.NET 怎样编写使用Do While 循环输出1-10的阶乘，我是新手请加上文字说明，呵呵，谢谢各位了！首先在窗体上画两个控件：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
关于用vb.net计算阶乘和用vb求阶乘的介绍到此就结束了 ， 不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站 。

    推荐阅读


    上一篇：mysql查询语句中设置时间格式，mysql 查询时间

    下一篇：如何在联想服务器上更改手机地址？ 联想服务器怎么改地址手机