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

答案:2 悬赏:20 手机版

解决时间 2021-12-03 06:59

提问者网友：嗝是迷路的屁
2021-12-02 21:54

最佳答案

五星知识达人网友：妄饮晩冬酒
2021-12-02 22:55

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

全部回答

1楼网友：从此江山别
2021-12-02 23:12

这个写了怎么给你？。。。。。。。。。。。。。。。。追问您写好了直接把代码发给我就好谢谢

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息