滿意答案

shaneya

2013.06.17

采納率：44%????等級：12

已幫助：15807人

對上面一個程序加下注解

Private Sub Command1_Click() 'Command1的單擊事件所以要在窗體上加command1按鈕一個

Dim a As Long, b As Long, c As Long, s As Long '定義變量a,b,c,s

a = Val(InputBox("請輸入一個正整數：")) '彈出對話框輸入每一個數，并用VAl函數轉化成數字類型

b = Val(InputBox("請輸入一個正整數：")) '彈出對話框輸入每二個數，并用VAl函數轉化成數字類型

c = Val(InputBox("請輸入一個正整數：")) '彈出對話框輸入每三個數，并用VAl函數轉化成數字類型

jiecheng a '引用過程jiecheng并帶入a

jiecheng b '引用過程jiecheng并帶入b

jiecheng c '引用過程jiecheng并帶入c

s = a + b + c '將a + b + c的值賦給s

msgbox s '彈出對話框，并把S值寫在上面

End Sub 'Command1的單擊事件完

Public Sub jiecheng(ByRef n As Long) '自定義過程jiecheng

Dim i As Long, lin As Long '定義變量i,lin

If n <> 0 Then '如果n不等于零

lin = 1 'lin＝1

Else '那么

n = 0 'n＝0

Exit Sub '退出判斷

End If 'if 語句完

For i = 1 To n '循環語句，表示i從1循環到n

lin = lin * i 'lin乘i

Next i '循環結束

n = lin 'n=lin

End Sub '自定義過程jiecheng完

03分享舉報

總結

以上是生活随笔為你收集整理的sub求阶乘c语言,用VB编写程序求S=A！+B！+C！，要求阶乘的计算使用Sub过程来实现，参数A、B、C的值从键盘输入的程序代码？...的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。