跪求大家帮我做2个简单的题目!!!!!

Question

第一道题:
一个按钮点击弹出输入框输入行数
然后按菱形输出这个行数
如下..比如是9行
......1......
.....222.....
....33333....
..44444444...
.5555555555..
..66666666...
....77777....
.....888.....
......9......
差不多这样的格式...上面的"."为空格第二道题是阶乘算法1-1/2!+1/3!-1/4!+...+(-1)^(n-1)*1/n!
输出计算结果
结果是:0.6321208如果和这对的上那和要求是一样的...感谢大家了..我由于是学C#的...朋友找我帮忙说很重要的作业...大家帮帮忙谢谢

Answer 1

这两个题看起来挺容易，但做起来也不容易
第二道题：（n需要赋初值吧）单击窗体，首先输入n的值，然后就可以输出计算结果了
private sub form_click()
dim n%,s&,k%,j%,p&
n=inputbox("请输入n的值:")
s=0
for k=1 to n
 p=1
 for j=1 to k
  p=p*j
  next j
 s=s+(-1)^(n-1)/p
next k
print"结果是:";s 第一个就请高手来做吧！

Answer 2

------1------  1C
-----222-----  3C
----33333----  5C
---4444444---  7C
--555555555--  9C
---6666666---  7C
----77777----  5C
-----888-----  3C
------9------  1C请问楼主, 题目应该是这样吧(我改用-表空白对齐性较看得清)

Answer 3

如果是像LS的那样的话，你看这个行不行，虽然不是很好，行数是奇数的，而且没有输入框的Private Sub Form_Load()
 Dim i As Integer
 Dim j As Integer
 Dim r As Integer
 Dim k As Integer
 j = 9                '行数
 r = 9 / 2 + 1
 Show
  For i = 1 To j
     n = i
   If i > 5 Then
    n = j - i + 1
   End If
   Print Spc(r - n);
     For k = n To 2 * n - 1
        Print i;
     Next k
   Print Spc(r - n);
   Print
  Next iEnd Sub

Answer 4

你的意思是不是这样    Dim I, J, K, L As Integer
    Dim C As Integer '字元数
    Dim S As Integer '空白数
    L = 9 '行数
    K = 2 '行首固定加入多少空白数
    
    For I = 1 To L * 2 Step 2
        J = J + 1
        C = IIf(J <= L / 2 + 1, I, (L - J) * 2 + 1)
        S = (L - C) / 2
        Print Spc(S + K); String(C, Right(Str(J), 1))
    Next I你参考看看....