PAGE\*MERGEFORMAT4VBA。。。1.。。求自然数n的阶乘(1)使用模块插入过程子程序fact实现，私有类型(2)使用for……next结构，k为double类型用来存放结果；i为计数器,整型；n为输入数,整型.(3)模块保存为M45PrivateSubfact()DimkAsDouble,iAsInteger,nAsIntegern=Val(InputBox("请输入n的值："))k=1Fori=1Tonk=k*iNextiMsgBoxn&"的阶乘值为："&kEndSub2.。。编程实现输入一个正数M（M≥1），能输出1～M间3的倍数，以及倍数和。注意：(1)通过模块过程实现，过程子程序名为trad，私有类型(2)定义M，N，S整型变量，M为用户输入的数，N为循环计数器，S存放倍数和定义K为字符串变量，用于存放显示1～M间3的倍数(3)循环主体采用DoWhile……loop结构(4)其中每个能被3整除的数之间用","隔开如图所示。(5)模块保存名字为M-23M=Val(InputBox("请输入M的值："))DoWhileN<=MIfNMod3=0ThenK=K&N&","S=S+NEndIfN=N+1LoopMsgBox"1到M间3的倍数为："&K&"它们的和为"&S3.。。编写程序，当用户在窗体的文本框中输入一个0～100的数字时，标签上立即能够显示对应等级：不及格、及格、中、良、优。(2)使用Selectcase……EndSelect分支结构(3)整形变量Score存放分数，StrX字符串用于显示等级(4)窗体保存名为：M21PrivateSubCommand4_Click()DimScoreAsInteger,StrXAsStringScore=Text0.ValueSelectCaseScoreCase0To59StrX="不及格"Case60To69StrX="及格"Case70To79StrX="中"Case80To89StrX="良"Case90To100StrX="优"EndSelectLabel3.Caption="你的等级是："&StrXEndSub4.。。本题使用模块中过程实现(1)过程名子程序为FC，私有类(2)选择结构采用If……Else……Endif结构(3)x用于接受用户输入值，y用来存放输出值(4)保存模块名称为：M-22x=Val(InputBox("请输入x的值："))Ifx<=0Theny=x^2+x+1Elsey=x^2+4*x-2EndIfMsgBox"y的值是："&y5.。。设计程序，对用户输入的任意两个整数，按升序输出。将任意两个数按指定顺序排列是必须掌握的基本算法，基本要领就是借助第三个变量将x变量和y变量进行交换。代码为：temp=x:x=y:y=temp操作提示：代码写在command4的单击事件过程中，执行效果如图所示。x=Text0.Valuey=Text2.ValueIfx>yThentemp=x:x=y:y=tempEndIfLabel5.Caption="x="&xLabel6.Caption="y="&y6.。。用Do……Loop判断条件，求100以内自然数和，主要使用Until为判断条件(1)模块名为M44，添加过程子程序summary实现，私有类型(2)定义整型变量s,n其中s用了存放和，n用来做计数器。PrivateSubsummary()DimsAsInteger,nAsIntegers=0n=1DoUntiln>100s=s+nn=n+1LoopMsgBox"100以内自然数的和是："&sEndSub7。。编写程序，对用户输入的10个数分别统计有几个奇数，有几个偶数。注意：(1)过程子程序名为count，(2)整型变量i,j分别存放偶数和奇数的个数，(3)变量x存放输入框接收的用户输入数字，(4)循环结构采用for……nextn结构(5)vbCRLf为消息框中的换行命令(6)模块名保存为M-23PrivateSubcount()DimiAsInteger,jAsInteger,nAsIntegeri=0j=0Forn=1To10x=Val(InputBox("请输入一个数："))IfxMod2=0Theni=i+1Elsej=j+1EndIfNextnMsgBox"偶数有个数是："&i&vbCrLf&"奇数个数是："&jEndSub