如何用VB编写一个自然数阶乘的程序

用vb编写自然数阶乘程序，在程序中输入任何一个自然数便可轻松得出其相应的阶乘答案。

操作方法

• 01

  首先启动VB程序，在“新建工程”界面选择【标准 EXE】，点击【打开】按钮，进入工程页面后再将最右端下方属性窗口中Form1的“Caption”的内容改为“自然数的阶乘”，如图所示

  
• 02

  单击最左端工具栏中的【TextBox】,在窗体上拖动变成十字线的鼠标指针画出合适的文本框大小，或者是双击【TextBox】，会在窗体中自动出现文本框，自己拖动文本框调节大小和位置即可，重复操作建立两个文本框，如图所示。

  
• 03

  单击最左端工具栏中的【Label】,在窗体上拖动变成十字线的鼠标指针画出合适的标签大小，或者是双击【Label】，会在窗体中自动出现标签，自己拖动标签调节大小和位置即可，重复操作建立两个标签，如图所示。

  
• 04

  单击最左端工具栏中的【CommandButton】,在窗体上拖动变成十字线的鼠标指针画出合适的控制按钮大小，或者是双击【CommandButton】，会在窗体中自动出现控制按钮，自己拖动控制按钮调节大小和位置即可。

  
• 05

  单击“Text1”，在最右端下方的属性窗口中将“Text"的内容“Text1”删除并置空，还可单击“Font”的内容“宋体”后面的“...”按钮，调节文本框中内容的字体、字形和大小，重复操作Text2文本框。

  
• 06

  单击“Label1”，在最右端下方的属性窗口中将“Caption"的内容“Label1”改为“请输入自然数N”，还可单击“Font”的内容“宋体”后面的“...”按钮，调节标签中内容的字体、字形和大小；Label2标签“Caption”的内容“Label2”改为“阶乘结果为”，其余操作相同。

  
• 07

  单击“Command1”,在最右端下方的属性窗口中将“Caption"的内容“Command1”改为“计算”，还可单击“Font”的内容“宋体”后面的“...”按钮，调节控制按钮中内容的字体、字形和大小，如图所示。

  
• 08

  双击“计算”按钮，进入编辑程序：Private Sub Command1_Click() Dim a As Integer Dim b As Integer Dim c As Double a = Val(Text1.Text) c = 1 For b = 1 To a c = c * b Next b Text2.Text = cEnd Sub

  
• 09

  点击上方工具栏中的“运行”，再点击“启动”，在运行过程中譬如输入自然数5，点击“计算”按钮得出阶乘结果120，如图所示。

  
• 10

  最后再点击“文件”，选择“保存工程”或者“生成工程1.exe(k)”，保存即可。