大家帮忙做一个VB考试题!!!!!!!!!!!!
我们根本都没有学VB老师却出了一道这样的题我不想挂大家帮帮忙吧~我谢谢了用VB做在一个窗体上用一个圆饼型显示三种商品的销售额占总额的比例情况,每种商品用不同颜色表示没有具...
我们根本都没有学VB老师却出了一道这样的题 我不想挂 大家帮帮忙吧 ~我谢谢了
用VB做
在一个窗体上用一个圆饼型显示三种商品的销售额占总额的比例情况,每种商品用不同颜色表示 没有具体的数据
如果答得好 可以追加分数
格式可能是第一种商品所占比例 text1 文本框
第二种。。。。。。 text2 文本框
第三种。。。。。。 text3 文本框 展开
用VB做
在一个窗体上用一个圆饼型显示三种商品的销售额占总额的比例情况,每种商品用不同颜色表示 没有具体的数据
如果答得好 可以追加分数
格式可能是第一种商品所占比例 text1 文本框
第二种。。。。。。 text2 文本框
第三种。。。。。。 text3 文本框 展开
1个回答
展开全部
先在“部件”里选上“Microsoft Chart Control 6.0”,并添加一个MSChart1。
Private Sub Form_Load()
With MSChart1
.chartType = VtChChartType2dPie '表示饼图
.ColumnCount = 3 '这里是每个饼图的数据个数:你这里是三种商品,故设为3
.ColumnLabel = "你的数据名称"
.RandomFill = True '暂且用随机数填图,数据请自己输入
.RowCount = 1 '一个圆饼
.RowLabel = "销售额" '"你的数据标签"
.TitleText = 销售额占总额的比例情况'图表名称
End With
End Sub
注:部件
工程>>部件,或者直接按快捷键"CTRL+T"
Private Sub Form_Load()
With MSChart1
.chartType = VtChChartType2dPie '表示饼图
.ColumnCount = 3 '这里是每个饼图的数据个数:你这里是三种商品,故设为3
.ColumnLabel = "你的数据名称"
.RandomFill = True '暂且用随机数填图,数据请自己输入
.RowCount = 1 '一个圆饼
.RowLabel = "销售额" '"你的数据标签"
.TitleText = 销售额占总额的比例情况'图表名称
End With
End Sub
注:部件
工程>>部件,或者直接按快捷键"CTRL+T"
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询