public symbol as string public name as string public currenprice as currency
public sub 显示股票信息() msgbox(symbol & vbcrlf & name & currency) end sub
打印图案 private sub print() dim x as string dim y as integer dim z as integer x="" for i=0 to 2 y=2-i z=1+i*2 for j=1 to y x=x & " " nex j for j=1 to z x=x & "#" next j x=x & vbcrlf next i msgbox(x) end sub