用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 = c End Sub
-
09
点击上方工具栏中的“运行”,再点击“启动”,在运行过程中譬如输入自然数5,点击“计算”按钮得出阶乘结果120,如图所示。
-
10
最后再点击“文件”,选择“保存工程”或者“生成工程1.exe(k)”,保存即可。