App下载
APP二维码

扫码下载编程狮APP

try_webpages_vb_005 在线工具

try_webpages_vb_005 在线工具

输入 运行代码 
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" href="/statics/demosource/showrazor.css" />
</head>
<body>
<span class="marked">
@Code 

Dim myChart as new Chart(600,400)

Dim xarr(4)

xarr(0)=&quot;Peter&quot;

xarr(1)=&quot;Andrew&quot;

xarr(2)=&quot;Julie&quot;

xarr(3)=&quot;Mary&quot;

xarr(4)=&quot;Dave&quot;

Dim yarr(4)

yarr(0)=&quot;2&quot;

yarr(1)=&quot;6&quot;

yarr(2)=&quot;4&quot;

yarr(3)=&quot;5&quot;

yarr(4)=&quot;3&quot;

myChart.AddTitle(&quot;Employees&quot;) 

myChart.AddSeries(&quot;Employees&quot;,&quot;column&quot;,,,,,xarr,,yarr,,) 

myChart.Write()

End Code

</span>
</body>
</html>
运行结果
PC端 手机端 平板端