看了千千静听设置里面的自动读取MP3的TAG信息。例如 %Author - %Title 是显示成 作者 - 标题其实这个方法很简单。只需要用Replace就可以了。Dim m_Title As StringDim NewTitle As Stringm_Title="%Author - %Title"NewTitle=Replace(m_Title, "%Author", "作者")NewTitle=Replace(m_Title, "%Title", "标题")....很简单，见笑。。。

千千细微的功能实在太多了，哪个都值得我们去研究一番

楼主;最近在学VB，有一个不会： * *** ***** *******用“FOR”搞出不

是要行成等腰形的

dim i,j,k,strj = 5 'j表示行数for i = 1 to j for k = 1 to j if (k < i) or (k > j-i+1) then str = str & "*" else str = str & "$" end if next str = str & vbcrlfnextmsgbox str