给定"A","B","C","D",编程打印A(4,4)=24和A(4,2)=12所有的排列方式

最新推荐文章于 2023-03-14 19:02:39 发布

ijwsoft

最新推荐文章于 2023-03-14 19:02:39 发布

阅读量1.8k

点赞数

分类专栏： VB6 文章标签：编程 integer c command function string

本文链接：https://blog.csdn.net/keenweiwei/article/details/3532615

版权

VB6 专栏收录该内容

18 篇文章 3 订阅

订阅专栏

Option Explicit
Dim ss As String        '最终生成的字符串
Dim tt As Integer       '生成结果的个数
Private Sub Command1_Click()
Dim i As Integer, j As Integer, m As Integer, n As Integer
Cls             '清屏
tt = 0
Print "-----------------------------------"
For i = 1 To 4
    For j = 1 To 4
      For m = 1 To 4
        For n = 1 To 4
            If i + j + m + n = 10 And i <> j And i <> m And i <> n And j <> m And j <> n And m <> n Then
                ss = sort(i) & sort(j) & sort(m) & sort(n)
                tt = tt + 1
                Print ss
           End If
        Next
      Next
    Next
Next
Print "----------------------------------"
Print "对于A(4,4),一共有"; tt; "种方法"
Print "----------------------------------"
End Sub

Public Function sort(x As Integer) As String
Dim i As Integer
Dim s As String
For i = 1 To x
s = Chr(64 + x) '获取这个字母 ,字母A的ASCII码为65
Next
sort = s '返回这个字母,以A开始的字母
End Function

Private Sub Command2_Click()
Form2.Show
End Sub
'要把FORM1的AutoRecorddraw设为真