要转换的JS代码:
function countstyle(tjstylestr)
{
    var tjstyle = tjstylestr.split(",");
    var inputstr = document.form.inputtxt.value;
    if(inputstr.length >0 )
    {
        var tmpinputarr = inputstr.split(",");
        var inputarr = new Array();
        //判断连续的中文,并分隔
        for(var i =0;i< tmpinputarr.length;i++)
        {
            var shuxing = "n_"+tmpinputarr[i];
            if(shuxing in document.form)
            {
                inputarr.push(tmpinputarr[i]);
            }
            else
            {
                //连续中文字
                for(var j = 2;j< shuxing.length;j++)
                {
                    var tmpstr = shuxing.charAt(j);
                    if(lianstr.indexOf(tmpstr) != -1)
                    {
                        inputarr.push(tmpstr);
                    }                    
                }
            }
        }
        //初始化次数
        var sxnum = new Array(tjstyle.length);
        for(var i=0;i < tjstyle.length;i++)
        {
            sxnum[i] = 0;
        }
        //
        for(var j=0;j< inputarr.length;j++)
        {
            if(tjstylestr.indexOf(inputarr[j]) != -1)
            {
                for(var i=0;i < tjstyle.length;i++)
                {
                    var sxn = tjstyle[i];
                    var inputvalue = inputarr[j];
                    if(inputvalue.length == 1 && "你我他".indexOf(inputvalue) != -1)
                    {
                        inputvalue += "好";
                    }
                    if(sxn == inputvalue )
                    {
                        sxnum[i] += 1;//累加统计
                        break;
                    }
                }
            }
        }
        //次数列表
        var cinumarr = new Array();
        for(var i=0;i < tjstyle.length;i++)
        {
            cinumarr.push(sxnum[i]);
        }
     
        //转化为输出字符串
        var tjstr = "统计结果:\n";
        for(var i=0;i< cinumarr.length;i++)
        {
            var ci = cinumarr[i];
            var cistr = "〖"+ci+"次〗:";
            var geshu = 0;
            for(var j =0;j< tjstyle.length ; j++)
            {
                if(sxnum[j] == ci)
                {
                    geshu += 1;
                    cistr += tjstyle[j]+",";
                }                
            }
            cistr += '(共'+ geshu +'个)\n' ;
            tjstr += cistr ;            
        }
        tjstr += "\n";
        document.form.resultstxt.value = tjstr;
        //return tjstr;        
    }
}转换后的效果,像这样:,独立写成一个Function可直接调用...Function tongji(tjstylestr)
dim tjstyle:tjstyle=split(tjstylestr,",")
......知识有限,写不出来,,望各位大哥大姐帮助一下..不胜感谢
tongji=tjstr
End function