Question

vb编程题：1. 编写程序实现如下功能：如图一 2. 编写程序实现如下功能：

2. 编写程序实现如下功能：程序运行时在中间的列表框中生成10个数，点击按钮，将其中的奇数复制到左边列表框中，将其中的偶数复制到右边列表框中，显示奇偶数个数并求和。（如图2）
直接回答代码给我 谢谢~





Answer 1

Option Explicit

Private Sub Command1_Click()
    List1.Clear
    List3.Clear
    Dim i As Integer, n As Integer, nj As Integer, sj As Integer, so As Integer
    sj = 0: so = 0: nj = 0
        
    For n = 0 To 9
        i = Val(List2.List(n))
        If i Mod 2 <> 0 Then
            List1.AddItem i
            sj = sj + i
            nj = nj + 1
        Else
            List3.AddItem i
            so = so + i
        End If
    Next n
    Label4.Caption = nj & "个奇数和=" & sj
    Label5.Caption = 10 - nj & "个奇数和=" & so
    
        
End Sub

Private Sub Form_Load()
    Dim i As Integer
    Randomize
    For i = 0 To 9
        List2.AddItem Int(Rnd * 100)
    Next i
    
End Sub

Answer 2

这个写了怎么给你？。。。。。。。。。。。。。。。。

追问

您写好了直接把代码发给我就好 谢谢