Question

VB语言高手两个数组输出如何解

VB语言高手两个数组输出如何解

...............................看不懂解释一下这段..............

Private Sub C(ByVal t As Integer)
Dim i As Integer
For i = a(t - 1) + 1 To n
a(t) = i
If t = k Then
Myprint
Else
Call C(t + 1)
End If
Next i
End Sub

.....................................

读入两个数n,k,n>=k。输出所有的从1到n中选出k个数的组合。
输出每一种组合的情况，例如输入3 2，则输出1 2，1 3，2 3，

Option Explicit
Private n As Integer
Private k As Integer
Private a(10001) As Integer

Private Sub Command1_Click()
List1.Clear
n = Val(Text1.Text)
k = Val(Text2.Text)
Call C(1)
End Sub

Private Sub C(ByVal t As Integer)
Dim i As Integer
For i = a(t - 1) + 1 To n
a(t) = i
If t = k Then
Myprint
Else
Call C(t + 1)
End If
Next i
End Sub

Private Sub Myprint()
Dim i As Integer
Dim LinStr As String
LinStr = ""
For i = 1 To k - 1
LinStr = LinStr & a(i) & " "
Next i
LinStr = LinStr & a(k)
List1.AddItem LinStr

End Sub

Answer 1

病情分析：
根据你的描述和临床表现，可以使用酮康唑栓治疗，效果较好，建议选用，不严重，不用过于担心
指导意见：
注意保持外阴部的清洁，勤洗澡，健康饮食，充足睡眠，保持良好的心态，选用棉质的内裤，注意保持私处清洁，正确清洗外阴

病情分析：
你好，这种情况考虑是外阴感染，外阴炎的表现。
指导意见：
建议你查一下白带常规，平时应注意卫生，可以外用洁尔阴洗液进行护理。如果还在做月子，建议不要阴道内冲洗，只冲洗外阴就可以了。

病情分析：
你好，从这种情况上看的话是要考虑是否是有妇科炎症刺激导致的现象，像外阴炎或者是宫颈炎的情况。或者是由于菌群失调导致的。
指导意见：
最好是到医院做一下分泌物B超和阴道镜方面的检查确诊一下病因情况，必要的话是需要药物和物理模式相结合治疗的，规律作息，注意好规律作息，少吃辛辣刺激的食物，不要进行性生活，注意好卫生情况。

病情分析：
您好，你的情况考虑是外阴炎导致的
指导意见：
建议你去医院检查，检查阴道内分泌物常规，局部妇炎洁冲洗即可。局部涂抹达克宁禁止性生活一个月

病情分析：
你好，一般产后外阴瘙痒考虑是属于典型的阴道炎的表现，建议你可以考虑做一下白带常规往往就是可以确诊的，可以考虑使用点抗炎止痒的药物进行治疗
指导意见：
你的情况可以考虑使用点抗炎止痒的洁阴洗剂或是除湿止痒洗剂进行外用治疗一下就是可以的，当然也是可以考虑加上点甲硝唑片及妇炎康复胶囊进行口服治疗一下就是可以的

病情分析：
您好，很高兴为您解答，您应该是由于在产后不注意阴部的卫生，没有及时的清洗，性生活过早等造成的细菌感染，才会造成瘙痒
指导意见：
建议您在以后的生活中坚持每天用淡盐水好好地清洗阴部，每天坚持清洗一下内裤，不要吃辛辣的食物，停止性生活，祝您健康

Answer 2

Option Explicit
Private n As Integer
Private k As Integer
Private a(10001) As Integer

Private Sub Command1_Click()
List1.Clear
n = Val(Text1.Text)
k = Val(Text2.Text)
Call C(1) '从第一个元素选 起
End Sub

Private Sub Myprint()
Dim i As Integer
Dim LinStr As String
LinStr = ""
For i = 1 To k - 1
LinStr = LinStr & a(i) & " "
Next i
LinStr = LinStr & a(k)
List1.AddItem LinStr
End Sub

Private Sub C(ByVal t As Integer) ‘选第t个元素’
Dim i As Integer
For i = a(t - 1) + 1 To n ‘从比上一个元素大的数选起
a(t) = i ‘每次循环选一个
If t = k Then ‘如已选够了k个就打印
Myprint
Else
Call C(t + 1) ‘否则就选下一个
End If
Next i
End Sub