Question

vb编程，题目:通过列表框设计列表项画点、画线、画圆，并通过单击设计的列表项在窗体上画出相应图形。

vb编程，题目:通过列表框设计列表项画点、画线、画圆，并通过单击设计的列表项在窗体上画出相应图形。学渣一枚，求完整代码而不是告诉我怎么操作

Answer 1

搞定了，这是代码窗体一代码PrivateSubMenu11_Click()DimiAsInteger,aAsIntegerFori=1To20Randomizea=Int(Rnd*90)+10List1.AddItema,i-1NextEndSubPrivateSubMenu12_Click()DimbAsString,iAsInteger,aAsIntegerList2.Cleara=0Fori=1To20b=Str(List1.List(i-1))IfVal(Right(b,1))=1ThenList2.AddItemb,aa=a+1EndIfNextLabel1.Caption="共有"&a&"个"EndSubPrivateSubMenu13_Click()EndEndSubPrivateSubMenu2_Click()Form2.ShowForm1.HideEndSub窗体二代码PrivateSubCommand1_Click()DimxAsSingle,yAsSingleForm2.Picture1.Scale(-5,5)-(5,-5)Form2.Picture1.Line(-5,0)-(5,0)Form2.Picture1.Line(0,5)-(0,-5)Forx=-4To4Step0.1Ifx=0ThenFory=0To0.1*x^3Step0.05Form2.Picture1.PSet(x,y),vbBlackNextyEndIfNextxEndSubPrivateSubCommand2_Click()Form1.ShowForm2.HideEndSub这里注意下，1.这只是代码部分，窗体啊，控件啊自己弄吧，不会再叫我2.关于你的那个图，你给的公式应该是“y=0.1*x^3”吧？不然画不出来那个效果，这里是我主观臆测，错了就指出下吧，抱歉3.犹豫是晚上做的，就没有注释了，如果需要注释，请告诉我，我会尽快补上大致上就这样了，还有什么需要或者不足可以找我，假期长时间在线，希望对你有帮助~~