高分,两道十分简单的作业题,本人不是学习计算机的,请大家帮帮忙了,最好在下午之前做出来晚一些也可以,谢谢.马上加分.把源码写在下面.

Question

楼上的兄弟,你不帮我的忙可以,但是不要打击我好不好么,我当然是有难言之隐了,要不还辛苦的来CSDN来做什么呢,.大家帮忙

Answer 1

我也在学习，写的程序可以运行，你试试看。下面的是扬辉三角形：Private Sub Form_Click()
Cls
Dim a(1 To 10, 1 To 10)
Dim i As Integer, j As Integer
For i = 1 To 10
    a(i, 1) = 1
    For j = 1 To i
        If i = j Then a(i, j) = 1
    Next j
Next i
For i = 2 To 10
    For j = 2 To i
        a(i, j) = a(i - 1, j - 1) + a(i - 1, j)
    Next j
Next i
For i = 1 To 10
    For j = 1 To i
        Print a(i, j);
    Next j
    Print
Next i
End Sub

Answer 2

最大数和小数的问题很简单的：
Option Explicit
Sub sort(n, a(), max, min)
Dim i
For i = 1 To n
    a(i) = Val(InputBox("请输入第" & i & "个数："))
    max = a(1)
    min = a(1)
    Print a(i); ", ";
Next i
For i = 2 To n
    If a(i) > max Then max = a(i)
    If a(i) < min Then min = a(i)
Next i
End SubPrivate Sub Form_Click()
Dim x, a(), max, min
x = InputBox("请输入个数：")
ReDim a(1 To x)
Call sort(x, a(), max, min)
Print
Print "最大的数为:"; max; "最小的数为："; minEnd Sub

Answer 3

计算π的程序如下：
Option Explicit
Function pi(n)
Dim i, s
For i = 1 To n
    s = (-1) ^ (i - 1) / (2 * i - 1)
    pi = pi + s
Next i
pi = 4 * pi
End FunctionPrivate Sub Form_Click()
Dim n
n = InputBox("请输入n值：")
Print "n为"; n; "时π值为："; pi(n)
End Sub