谁帮忙写个VB程序？

答案:2 悬赏:30 手机版

解决时间 2021-08-23 08:10

提问者网友：两耳就是菩提
2021-08-22 14:05

要求：输入 0-9这10个数字中的9个数字。（可以重复）两两相加，一共是45种结果，判断这45种结果的尾数，（一共可能是0-9这10种尾数结果）显示在文本框中。例：如果尾数只有0.1.2.3.4.5则就只显示0.1.2.3.4.5

编好之后发送到我的邮箱：894200103@qq.com

然后回复你所给我发的邮箱。到时我会设置满意答案！

最佳答案

五星知识达人网友：北城痞子
2021-08-22 15:43

Private Sub Form_Click()
    Dim a(9) As Integer '存放输入的9个数
    Dim b(10) As Integer '存放各尾数的个数

    '输入
    For i = 1 To 9
    a(i) = Val(InputBox("请输入第" & i & "个数", , Int(Rnd * 10)))
    Next

    '计算
    For i = 1 To 9
    For j = i + 1 To 9
    t = Right(a(i) + a(j), 1)
    b(t) = b(t) + 1
    Next
    Next

    '输出
    For i = 0 To 9
    If b(i) <> 0 Then
    Text1.SelText = i & ","
    Else
    Beep
    End If
    Next
End Sub

全部回答

1楼网友：旧脸谱
2021-08-22 17:13

你要的是源码还是exe的？

我要举报

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

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