Question

VB柱状图编程

现在有一个测试程序，先是做测试，测试的内容是加减乘除，然后要做个柱状统计图，对每个运算符号的正确率做个统计以柱状图的形式表示出来。（一共是10道题）
即横坐标是加、减、乘、除
纵坐标是正确率
我们周二（6月23日）要交的。。。。。麻烦大家帮忙吧~~~

Answer 1

先加入一个mschart控件
插入如下显示代码
Private Sub GraphShowBasic()
With MSChart1.Plot.Backdrop

' 除非将样式属性正确地设置为VtFillStyleBrush
' 否则不会有颜色显示。
.Fill.Style = VtFillStyleBrush
.Fill.Brush.FillColor.Set 100, 255, 200
' 添加边框。
.Frame.Style = VtFrameStyleThickInner
' 将样式设置为显示阴影。
.Shadow.Style = VtShadowStyleDrop
End With
With MSChart1.Plot
' 将样式设置为实心。
.Wall.Brush.Style = VtBrushStyleSolid
' 将颜色设置为。
.Wall.Brush.FillColor.Set 255, 255, 0
End With
With MSChart1.Plot '将绘图底色设置为蓝色。
.PlotBase.BaseHeight = 200
.PlotBase.Brush.Style = VtBrushStyleSolid
.PlotBase.Brush.FillColor.Set 0, 0, 255
End With
With MSChart1.Title.VtFont
.Name = "趋势图"
.Style = VtFontStyleBold
.Effect = VtFontEffectUnderline
.Size = 14
.VtColor.Set 255, 0, 255
End With
End Sub
然后在Private Sub Form_Activate()中加入如下代码
Call GraphShowBasic
Dim show_arr(3, 2)
show_arr(0, 1) = "加"
show_arr(0, 2) = comp1

show_arr(1, 1) = "减"
show_arr(1, 2) = comp2

show_arr(2, 1) = "乘"
show_arr(2, 2) = comp3

show_arr(3, 1) = "除"
show_arr(3, 2) = comp4
'其中comp1—comp4为四种运算的正确率
With MSChart1
.RowCount = 4
.ChartData = show_arr
.Column = 1
.Refresh
End With

试试吧，测试是可以用的

Answer 2

给你一个方案...你自己去编写代码:

dim a,b,c,d '分别代表加减乘除

在窗口里面放入四个pictrueBOX,将背景设置为不同的颜色..再把它变成一个像柱形的样子.底端对齐..分开排列;

如果加计算对一次..将其a+1,再去除以总的计算次数..再去乘以一个数.如1000,将其值设置为pictrueBOX1的高..

如此..四个柱状图就出来了..

Answer 3

你这题没有把要求写清楚啊,估计不会有人回答。
1、“测试的内容是加减乘除”，如何运算，如何测试？
2、“以柱状图的形式表示出来”，如何表示？用VB自带的控件，还是用pictrueBOX自己画图形？
周二交，今天来问。。祝你好运吧