兄弟要考试了有三个小问题问我.我没学过VB所以来论坛请各位高手帮个忙遍三个程序
1输入一些字母,统计每个字母出现的次数

2根据下面的 式子求出  派  的值
 派方/6=1/2方+1/3方+........+1/n方(1/N方<0.0000001)

3随机产生10个整数.每个数范围是[-50,50]然后用冒泡算法按照从小到大的顺序排列


三天之内过期,谢谢大家

普通的C語言教程中就又這類算法的例子吧

3.
Private Sub Command1_Click()
    Me.Cls
    Dim n%(10), i%, j%, t%
    Randomize
    For i = 1 To 10
        n(i) = Int(Rnd * 101) - 50
    Next
    For i = 1 To 9
        For j = i + 1 To 10
            If n(i) > n(j) Then t = n(i): n(i) = n(j): n(j) = t
        Next j
    Next i
    For i = 1 To 10
        Print n(i)
    Next
End Sub

都这时候了 VB才学到这，真慢啊

1.
Private Sub Command1_Click()
    Dim s$, a%(26), n%, i%, j%
    s = Text1
    For i = 1 To Len(s)
        n = Asc(UCase(Mid(s, i, 1))) - 64
        If n >= 1 And n <= 26 Then a(n) = a(n) + 1
    Next i
    j = 0
    For i = 1 To 26
        If a(i) <> 0 Then
            s = Chr(i + 64) + "=" + Str(a(i))
            Picture1.Print s; Spc(3);
            j = j + 1
            If j Mod 5 = 0 Then Picture1.Print
        End If
    Next i
End Sub