作业帮 > 综合 > 作业

编程由1、2、3、4这四个数字可以组成的所有四位数及其个数.(各位数字可以重复) 用vb

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/07/14 17:41:52
编程由1、2、3、4这四个数字可以组成的所有四位数及其个数.(各位数字可以重复) 用vb
没财富了.呜呜呜
代码如下:Private Sub Command1_Click()
    Dim a As Integer, b As Integer, c As Integer, d As Integer
    Dim n As Integer
    n = 0    For a = 1 To 4
        For b = 1 To 4
            For c = 1 To 4
                For d = 1 To 4
                    Print a * 1000 + b * 100 + c * 10 + d;
                    n = n + 1
                Next
            Next
            Print
        Next
    Next
    Print "共:", n
End Sub 结果: