vb字符串排列代码

Private Sub Command1_Click()
Dim i, j, k As Integer
For i = 1 To 62
For j = 1 To 62
Text2.Text = Text2.Text & vbCrLf & Mid(Text1.Text, i, 1) & Mid(Text1.Text, j, 1)
Next
Next
End Sub

Private Sub Command3_Click()
Dim i, j, k As Integer
For i = 1 To 62
For j = 1 To 62
For k = 1 To 62
Text2.Text = Text2.Text & vbCrLf & Mid(Text1.Text, i, 1) & Mid(Text1.Text, j, 1) & Mid(Text1.Text, k, 1) & “.”
Next
Next
Next
End Sub

Private Sub Command4_Click()
Dim i, j, k, l As Integer
For i = 1 To 62
For j = 1 To 62
For k = 1 To 62
For l = 1 To 62
Text2.Text = Text2.Text & vbCrLf & Mid(Text1.Text, i, 1) & Mid(Text1.Text, j, 1) & Mid(Text1.Text, k, 1) & Mid(Text1.Text, l, 1)
Next
Next
Next
Next
End Sub

Private Sub Command5_Click()
Dim i, j, k, l, m As Integer
For i = 1 To 62
For j = 1 To 62
For k = 1 To 62
For l = 1 To 62
For m = 1 To 62
Text2.Text = Text2.Text & vbCrLf & Mid(Text1.Text, i, 1) & Mid(Text1.Text, j, 1) & Mid(Text1.Text, k, 1) & Mid(Text1.Text, l, 1) & Mid(Text1.Text, m, 1)
Next
Next
Next
Next
Next
End Sub

Private Sub Command6_Click()
Dim i, j, k, l, m, n As Integer
For i = 1 To 62
For j = 1 To 62
For k = 1 To 62
For l = 1 To 62
For m = 1 To 62
For n = 1 To 62
Text2.Text = Text2.Text & vbCrLf & Mid(Text1.Text, i, 1) & Mid(Text1.Text, j, 1) & Mid(Text1.Text, k, 1) & Mid(Text1.Text, l, 1) & Mid(Text1.Text, m, 1) & Mid(Text1.Text, n, 1)
Next
Next
Next
Next
Next
Next
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Text1_Change()
Dim a As String
a = Text1.Text
End Sub

正确例题
Private Sub Command1_Click()
Dim i, j As Integer
Dim a(2) As String
a(0) = “0”
a(1) = “1”
For i = 0 To 1
For j = 0 To 1
Print a(i); a(j)
Next
Next
End Sub

正确例题
Private Sub Command2_Click()
Dim i, j As Integer
Dim a(2) As String
a(0) = “a”
a(1) = “b”
For i = 0 To 1
For j = 0 To 1
Print a(i); a(j)
Next
Next
End Sub

正确例题
Private Sub Command3_Click()
Dim i, j As Integer
Dim a()
a = Array(“阴”, “阳”)
For i = 0 To 1
For j = 0 To 1
Print a(i); a(j)
Next j
Next i
End Sub

Private Sub Command4_Click()
End
End Sub

Option Explicit

正确秩序例题
Private Sub Command1_Click()
Dim i, j As Integer
Dim a()
a = Array(“阴”, “阳”)

 For i = 0 To 1
    For j = 0 To 1
        Text2.Text = Text2.Text & vbCrLf & a(i) & a(j)
    Next j
Next i

End Sub

正确随机例题
Private Sub Command2_Click()
Dim i, j As Integer
Dim a()
a = Array(“阴”, “阳”)

 For i = 0 To 1
    For j = 0 To 1
        Text2.Text = Text2.Text & vbCrLf & a(Rnd * 1) & a(Rnd * 1)
        
        
   
        
        
    Next
Next

End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Command5_Click()
Text2.Text = “”
End Sub

1、vb6中用鼠标拖放文本框大小。

2、vb6的文本框让文本自动换行的方法是设置它的MultiLine属性为true.

3、vb6全称全称为VisualBasic 6.0，是微软公司推出的可视化编程工具MSDN之一，是目前世界上使用最广泛的程序开发工具。如果你是一个对编程一无所知，而又迫切希望掌握一种快捷实用的编程语言的初学者，那选择VB 6.0没错的。即使考虑到VB程序本身编译和运行效率较低的不足(嘻嘻速度现在不是问题吧)，单是它的快捷的开发速度，简单易学的语法，体贴便利的开发环境，它仍不失一款优秀的编程工具，是初学者的首选。

在属性栏里把multiLine选为 ture，就可以实现自动换行；
MultiLine 属性（应用于TextBox）
返回或设置一个值，该值指示 TextBox 控件是否能够接受和显示多行文本。在运行时是只读的。

语法
object.MultiLine
object 所在处代表一个对象表达式，其值是“应用于”列表中的一个对象。

设置值

MultiLine 属性设置值有：

设置值 描述

True 允许多行文本。
False （缺省值）忽略回车符并将数据限制在一行内。

scrollBars 属性设置值有：

设置值 描述

1-Horizontal 左右可以拖动

2-Vertical 上下可以拖动

3-both 上下左右可以拖动

 

正确秩序例题

Private Sub Command1_Click()
Dim i, j As Integer
Dim a()
a = Array(“0”, “1”, “2”, “3”, “4”, “5”, “6”, “7”, “8”, “9”, “a”, “b”, “c”, “d”, “e”, “f”, “g”, “h”, “i”, “j”, “k”, “l”, “m”, “n”, “o”, “p”, “q”, “r”, “s”, “t”, “u”, “v”, “w”, “x”, “y”, “z”, “A”, “B”, “C”, “D”, “E”, “F”, “G”, “H”, “I”, “J”, “K”, “L”, “M”, “N”, “O”, “P”, “Q”, “R”, “S”, “T”, “U”, “V”, “W”, “X”, “Y”, “Z”)

 For i = 0 To 61
    For j = 0 To 61
        Text2.Text = Text2.Text & vbCrLf & a(i) & a(j)
    Next 
Next 

End Sub

正确随机例题
Private Sub Command2_Click()
Dim i, j As Integer
Dim a()
a = Array(“0”, “1”, “2”, “3”, “4”, “5”, “6”, “7”, “8”, “9”, “a”, “b”, “c”, “d”, “e”, “f”, “g”, “h”, “i”, “j”, “k”, “l”, “m”, “n”, “o”, “p”, “q”, “r”, “s”, “t”, “u”, “v”, “w”, “x”, “y”, “z”, “A”, “B”, “C”, “D”, “E”, “F”, “G”, “H”, “I”, “J”, “K”, “L”, “M”, “N”, “O”, “P”, “Q”, “R”, “S”, “T”, “U”, “V”, “W”, “X”, “Y”, “Z”)

        Text2.Text = Text2.Text & vbCrLf & a(Rnd * 62) & a(Rnd * 62)

End Sub

正确秩序例题

Private Sub Command1_Click()
Dim i, j,k As Integer
Dim a()
a = Array(“0”, “1”, “2”, “3”, “4”, “5”, “6”, “7”, “8”, “9”, “a”, “b”, “c”, “d”, “e”, “f”, “g”, “h”, “i”, “j”, “k”, “l”, “m”, “n”, “o”, “p”, “q”, “r”, “s”, “t”, “u”, “v”, “w”, “x”, “y”, “z”, “A”, “B”, “C”, “D”, “E”, “F”, “G”, “H”, “I”, “J”, “K”, “L”, “M”, “N”, “O”, “P”, “Q”, “R”, “S”, “T”, “U”, “V”, “W”, “X”, “Y”, “Z”)

 For i = 0 To 61
    For j = 0 To 61
        For k = 0 To 61      
        Text2.Text = Text2.Text & vbCrLf & a(i) & a(j)& a(k)
    Next 
Next 

Next

End Sub