Question

一道VB编程题，窗体自己设计。

1.新建一个工程，有两个窗体。
在Form1（窗体1）上放置两个列表框和一个标签框，并建立如下菜单：
菜单项
菜单名
备注
应用
Menu1
一级菜单
产生
Menu11
二级菜单
筛选
Menu12
二级菜单
结束
Menu13
二级菜单
绘图
Menu2
一级菜单
在Form2（窗体2）上放置1个图片框，"绘图"和"返回"两个命令按钮。
2．单击窗体1上"产生"菜单项，在列表框List1中随机生成20个2位正整数。
3．单击窗体1上"筛选"菜单项，在列表框List2中显示List1各数据项个位数等于1的数值，同时将查找到的正整数的个数显示在标签Label1上。
4．单击窗体1上"绘图"菜单项时，显示窗体2，并隐藏窗体1；单击"结束"菜单项时，结束程序的运行。
5．在窗体2上单击"绘图"命令按钮，定义图片框坐标系(-5, 5)-(5, -5)，绘制坐标轴线；按公式y =0.1x3 绘制直线（- 4≤ x ≤4）。单击"返回"命令按钮则关闭窗体2，显示窗体1。

Answer 1

搞定了，这是代码

窗体一代码

Private Sub Menu11_Click()
Dim i As Integer, a As Integer
For i = 1 To 20
Randomize
a = Int(Rnd * 90) + 10
List1.AddItem a, i - 1
Next
End Sub
Private Sub Menu12_Click()
Dim b As String, i As Integer, a As Integer
List2.Clear
a = 0
For i = 1 To 20
b = Str(List1.List(i - 1))
If Val(Right(b, 1)) = 1 Then
List2.AddItem b, a
a = a + 1
End If
Next
Label1.Caption = "共有" & a & "个"
End Sub
Private Sub Menu13_Click()
End
End Sub
Private Sub Menu2_Click()
Form2.Show
Form1.Hide
End Sub

窗体二代码

Private Sub Command1_Click()
Dim x As Single, y As Single
Form2.Picture1.Scale (-5, 5)-(5, -5)
Form2.Picture1.Line (-5, 0)-(5, 0)
Form2.Picture1.Line (0, 5)-(0, -5)
For x = -4 To 4 Step 0.1
If x < 0 Then
For y = 0.1 * x ^ 3 To 0 Step 0.05
Form2.Picture1.PSet (x, y), vbBlack
Next y
ElseIf x >= 0 Then
For y = 0 To 0.1 * x ^ 3 Step 0.05
Form2.Picture1.PSet (x, y), vbBlack
Next y
End If
Next x

End Sub
Private Sub Command2_Click()
Form1.Show
Form2.Hide
End Sub

这里注意下，
1.这只是代码部分，窗体啊，控件啊自己弄吧，不会再叫我
2.关于你的那个图，你给的公式应该是“y=0.1*x^3”吧？不然画不出来那个效果，这里是我主观臆测，错了就指出下吧，抱歉
3.犹豫是晚上做的，就没有注释了，如果需要注释，请告诉我，我会尽快补上

大致上就这样了，还有什么需要或者不足可以找我，假期长时间在线，希望对你有帮助~~

Answer 2

要的话可以给你做
但是我要是做了半天 白做了就太内个了
要不你先选为最佳？？？

Answer 3

说明都很详细了，按照这个步骤就能做出来了。