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