UC知道vb里如何将数据做直方图，饼图和曲线图？
来源：百度知道 编辑：UC知道 时间：2024/06/07 09:11:58
数据是用随机数产生的，个数和范围由用户决定，并且要将数据保存
用MSChart控件做
添加一个MSChart和Timer控件，设置MSChart1的列数为1，行数为10；Timer1的Interval=1000，贴上以下代码：
Private Sub Form_Load()
MSChart1.ColumnCount = 1
MSChart1.RowCount = 10
End Sub
Private Sub Timer1_Timer()
Dim I As Integer
Dim V As Integer
For I = 1 To 10
MSChart1.Row = I
'产生随机数
Randomize
V = Int(Rnd * 100)
'在图表中显示
MSChart1.Data = V
'写随机数到文件
Open "D:\Test.txt" For Append As #1
Write #1, V
Close #1
Next I
End Sub