Question

Vb编程题(求3,4,5,6题过程)

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。
6．在考生目录下将Form1窗体保存为vbks1.frm、Form 2窗体为vbks2.frm, 工程保存为vbks.vbp。我来帮他解答 输入内容已经达到长度限制还能输入 9999 字插入图片删除图片插入地图删除地图插入视频视频地图回答即可得2分经验值，回答被选为满意回答可同步增加经验值和财富值
参考资料：匿名回答提交回答取消

Answer 1

'Form1代码
Option Explicit
Private Sub Menu11_Click()
Dim i As Integer
Dim j As Integer
Me.List1.Clear
Me.List2.Clear
Me.Label1.Caption = ""
For i = 1 To 20
Randomize
j = 10 + Int(90 * Rnd())
Me.List1.AddItem j
Next i
End Sub

Private Sub Menu12_Click()
Dim i As Integer
Dim j As Integer
Me.List2.Clear
Me.Label1.Caption = ""
For i = 1 To 20
j = Val(Me.List1.List(i - 1))
If j Mod 10 = 1 Then
k = k + 1
Me.List2.AddItem j
End If
Next i
Me.Label1.Caption = k
End Sub

Private Sub Menu13_Click()
End
End Sub

Private Sub Menu2_Click()
Me.Hide
Form2.Show
End Sub
'Form2代码
Option Explicit
Private Sub Command1_Click()
Dim x As Double
Dim y As Double
Static x1 As Double
Static y1 As Double
Me.Picture1.Scale (-5, 5)-(5, -5)
Me.Picture1.Line (-5, 0)-(5, 0)
Me.Picture1.Line (0, -5)-(0, 5)
For x = -4 To 4 Step 0.01
y = 0.1 * x ^ 3
If x <> -4 Then
Me.Picture1.Line (x, y)-(x1, y1)
End If
x1 = x
y1 = y
Next x
End Sub

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

Private Sub Form_Load()

End Sub

Private Sub Form_Unload(Cancel As Integer)
Call Command2_Click
End Sub
'其它保存的代码没法写，只有你自己做了，希望对你学习有帮助。如果要想学好，这种问题最好自己认真学一下，不然对你没任何帮助。