你们害怕了

兄弟要考试了有三个小问题问我.我没学过VB所以来论坛请各位高手帮个忙遍三个程序

1输入一些字母,统计每个字母出现的次数


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


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


三天之内过期,谢谢大家

似乎标题不适当吧？请修改之！！

他也是急于求助嘛。哈哈可惜我帮不上忙

第一题

Private Sub Command1_Click()
Cls
total (Text1.text)

End Sub


Sub total(text)
    FirstChr = Left(text, 1)  '截取左边第一个字母
    times = 0
    For i = 1 To Len(text)
        If Mid(text, i, 1) = FirstChr Then   '统计第一个字母出现的次数
            times = times + 1
        End If
    Next
    newstr = Replace(text, FirstChr, "")   '清除字符串中的第一个字母
    Print FirstChr & "出现次数为" & times
   
    If newstr <> "" Then
        total (newstr)    '如果字符串不为空，继续调用，直到字符串为空
    End If

End Sub

第三题

Private Sub Command1_Click()
'以下是产生-50到50之间10个不重复的数字
Cls
s = ""
    Randomize
    Dim i As Integer, j As Integer
    Dim a(10) As Integer
    For i = 0 To 9
start:
        a(i) = Int((50 + 50 + 1) * Rnd + -50)
        For j = 0 To i - 1
            If a(j) = a(i) Then
                GoTo start
            End If
        Next
    Next
    For i = 0 To 9
        s = s & CStr(a(i)) & ";  "
    Next
    Print "-50到50之间产生的10数字为： "
    Print s
'以下是冒泡发排序
    For i = 0 To 9
        For j = i + 1 To 9
            If a(i) > a(j) Then
                t = a(i)
                a(i) = a(j)
                a(j) = t
            End If
        Next j
    Next i
    For i = 0 To 9
        Print a(i)
    Next i
End Sub

第二题实在感觉没意思，不做了。

谢谢

大哥这是我兄弟用来救命的您帮个忙啊

哎，

他不入地狱谁入地狱呢.
求救都要叫别人,自己不会上来求么.

VB最小化托盘

vb生成的exe运行后想最小化到托盘，可以用调用API函数，不过比较麻烦。。
也可以使用控件，不过在VB6.0企业版中找不到相关的控件。。
请问一下你们有实现这个功能的控件吗？
有的话上传上来，谢谢了！