|
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中用鼠標(biāo)拖放文本框大小。 2、vb6的文本框讓文本自動換行的方法是設(shè)置它的MultiLine屬性為true. 3、vb6全稱全稱為VisualBasic 6.0，是微軟公司推出的可視化編程工具MSDN之一，是目前世界上使用最廣泛的程序開發(fā)工具。如果你是一個對編程一無所知，而又迫切希望掌握一種快捷實用的編程語言的初學(xué)者，那選擇VB 6.0沒錯的。即使考慮到VB程序本身編譯和運行效率較低的不足(嘻嘻速度現(xiàn)在不是問題吧)，單是它的快捷的開發(fā)速度，簡單易學(xué)的語法，體貼便利的開發(fā)環(huán)境，它仍不失一款優(yōu)秀的編程工具，是初學(xué)者的首選。 在屬性欄里把multiLine選為 ture，就可以實現(xiàn)自動換行； MultiLine 屬性（應(yīng)用于TextBox） 返回或設(shè)置一個值，該值指示 TextBox 控件是否能夠接受和顯示多行文本。在運行時是只讀的。 語法 object.MultiLine object 所在處代表一個對象表達式，其值是“應(yīng)用于”列表中的一個對象。 設(shè)置值 MultiLine 屬性設(shè)置值有： 設(shè)置值 描述 True 允許多行文本。 False （缺省值）忽略回車符并將數(shù)據(jù)限制在一行內(nèi)。 scrollBars 屬性設(shè)置值有： 設(shè)置值 描述 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 |
|
|
