Private Function fact(n As Integer) As Integer fact = 1 Do While n > 0 fact = fact * n n = n - 1 LoopEnd FunctionPrivate Sub Form_Click() Dim sum As Integer,i As Integer For i = 4 To 1 Step -1 sum = sum + fact(i) Next Print "Sum="; sumEnd Subsum=24,

6.分析下列程序,单击窗口时,程序运行结果.Private Function Fac() As StringFac = “,”End FunctionPrivate Sub Form_Click()Dim I as IntegerFor I=1 to 5Command1_ClickPrint Fac();Command2_ClickNext IEnd SubPrivate Sub Command1_Click()Prin vb求n阶乘表达式Private Sub Command1_Click()Dim n As Integern = InputBox(请输入一个正整数： )Print Fac(n)End SubPrivate Function Fac(m) As Long '' '请不要删除该行,只在下一行中填空' For k = 2 to Fac = Fac 英语翻译Private Declare Function GetWindowsDirectory Lib kernel32 Alias GetWindowsDirectoryA (ByVal lpBuffer As String,ByVal nSize As Long) As Long Private Declare Function SystemParametersInfo Lib user32 Alias SystemParametersInfoA (ByVa private Private function 英语翻译这段代码的意思是什么呀?Option Explicit'浏览文件夹Private Declare Function SHBrowseForFolder Lib shell32 _(lpbi As BrowseInfo) As Long'获得文件夹路径Private Declare Function SHGetPathFromIDList Lib shell32.dll Al pascal求10000以内n的阶乘?Program jiecheng ;var s,n:longint;function fac(n:integer):integer;vark,t:integer;begint:=1;for k:=2 to n dot:=t*k;fac:=t;end;beginwriteln('Input n:');read(n);s:=fac(n);write('s=',s);end.由于是新手,刚接触pascal, 英语翻译A set menu will be established at the Hotel restaurants.During a private function,set menus willnot beavailable at Hotel restaurants 好心人帮我弄弄这个,看看这个程序哪里错了,怎么改吧~~~谢谢呀Private Declare Function GetCursorPos Lib user32 (lpPoint As POINTAPI) As LongPrivate Declare Function WindowFromPoint Lib user32 (ByVal xPoint As Long, ByVal yPoi 英语翻译Private Function iDYTS(yue1 As Integer) As IntegerIf yue1 12 TheniDYTS = CDate(1999/ & yue1 + 1 & /1) - CDate(1999/ & yue1 & /1)ElseiDYTS = 31End IfEnd Function主要是 CDate(1999/ & yue1 + 1 & /1) - CDate(1999/ & yue1 & / Private Sub Command1_Click() s = p(1) + p(2) + p(3) + p(4) Print s;Private Sub Command1_Click()s = p(1) + p(2) + p(3) + p(4)Print s;End SubPublic Function p(n As Integer)Static sumFor I = 1 To nsum = sum + INext Ip = sum End Function private equity private a. Private Label private affair inspected private c语言中fac是什么意思