VB输出2~3进制秩序排列组合程序.pdf

Private Sub Command1_Click()Dim i,j,k As IntegerFor i=1 To 62For j=1 To 62Text2.Text=Text2.Text&vbCrLf&Mid(Textl.Text,i,1)&Mid(Textl.Text,j,1)NextNextEnd SubPrivate Sub Command3 _Click()Dim i,j,k As IntegerFor i=1 To 62For j=1 To 62For k=1 To 62Text2.Text=Text2.Text&vbCrLf&Mid(Textl.Text,Mid(Textl.Text,j,1)&Mid(Textl.Text,k,1)&Nexti,1)&NextNextEnd SubPrivate Sub Command4_Click()Dim i,j,k,1 As IntegerFor i=1 To 62For j=1 To 62For k=1 To 62For 1=1 To 62Text2.Text=Text2.Text&vbCrLf&Mid(Textl.Text,i,1)&Mid(Textl.Text,j,1)&Mid(Textl.Text,k,1)&Mid(Textl.Text,1,1)NextNextNextNextEnd SubPrivate Sub Command5_Click()Dim i,j,k,1,m As IntegerFor i=1 To 62For j=1 To 62For k=1 To 62For 1=1 To 62For m=1 To 62Text2.Text=Text2.Text&vbCrLf&Mid(Textl.Text,j,1)&Mid(Textl.Text,kMid(Textl.Text,m,1)NextNextNextNextNextEnd SubPrivate Sub Command6_Click()Dim i,j,k,1,m,n As IntegerFori=1To62ForJ=1To62Fork=1To62For1=1To62Form=1To62Forn=1To62Text2.Text=Text2.Text&vbCrLf&Mid(Textl.Text,j,1)&Mid(Textl.Text,k Mid(Textl.Text,m,1)&Mid(Textl.Text,n Next Next Next Next Next Next End SubPrivate Sub Command2_Click()End End SubPrivate Sub Textl_Change()Dim a As String a=Textl.TextMid(Textl.Text,i,1)&,1)&Mid(Textl.Text,1,1)&Mid(Textl.Text,i,1)&1)&Mid(Textl.Text,1,1)&1)End Sub正确例题Private Sub Command1_Click()Dim i,j As IntegerDim a(2)As Stringa(0)=0a(l)=TFor i=0 To 1For j=0 To 1Print a(i);a(j)NextNextEnd Sub正确例题Private Sub Command2_Click()Dim i,j As IntegerDim a(2)As String a(0)=a(l)=bFor i=0 To 1For j=0 To 1 Print a(i);a(j)Next Next End Sub正确例题Private Sub Command3 _Click()Dim i,j As IntegerDim a()a=Array(阴，阳)For i=0 To 1For j=0 To 1Print a(i);a(j)Next jNext iEnd SubPrivate Sub Command4_Click()EndEnd SubOption Explicit正确秩序例题Private Sub Command1_Click()Dim i,j As IntegerDim a()a=Array(阴，阳)For i=0 To 1For j=0 To 1Text2.Text=Text2.Text&vbCrLf&a(i)&a(j)Next jNext iEnd Sub正确随机例题Private Sub Command2_Click()Dim i,j As IntegerDim a()a=Array(阴，阳)For i=0 To 1For j=0 To 1Text2.Text=Text2.Text&vbCrLf&a(Rnd*1)&a(Rnd*1)NextNextEnd SubPrivate Sub Command3 _Click()EndEnd SubPrivate Sub Command5_Click()Text2.Text=End Sub1、vb6中用鼠标拖放文本框大小。2、vb6的文本框让文本自动换行的方法是设置它的MultiLine属性为true.3、vb6全称全称为VisualBasic 6.0,是微软公司推出的可视化编程工具MSDN之 一，是目前世界上使用最广泛的程序开发工具。如果你是一个对编程一无所知，而又迫切希望掌握一种快捷实用的编程语言的初学者，那选择VB 6.0没错的。即 使考虑到VB程序本身编译和运行效率较低的不足（嘻嘻速度现在不是问题吧），单 是它的快捷的开发速度，简单易学的语法，体贴便利的开发环境，它仍不失一款 优秀的编程工具，是初学者的首选。在属性栏里把multiLine选为ture,就可以实现自动换行；MultiLine 属性（应用于 TextBox）返回或设置一个值，该值指示TextBox控件是否能够接受和显示多行文本。在运 行时是只读的。语法object.MultiLineobject所在处代表一个对象表达式，其值是“应用于”列表中的一个对象。设置值MultiLine属性设置值有:设置值描述True允许多行文本。False（缺省值）忽略回车符并将数据限制在一行内。scrollBars属性设置值有：设置值描述1-Horizontal左右可以拖动2-Vertical上下可以拖动3-both上下左右可以拖动正确秩序例题Private Sub Command1_Click()Dim i,j As IntegerDim a()a=Array(0,1,2,1 q C,d,e,f,g,q,r,s,t,u,E,F,G,H,I,3,4,5,6,1 .h,i,j,k,V,W,x,y,T T7 T fJ,K,L,M,7”,T,z,N,8”,m,A,0”,9,a,b,n,o,p,B,C,D”,P,Q,R,For i=0 To 61For j=0 To 61Text2.Text=Text2.Text&vbCrLf&a(i)&a(j)NextNextEnd Sub正确随机例题Private Sub Command2_Click()Dim i,j As IntegerDim a()a=Array CO,T,2，3，4,1 .1 C,d,e,f,g,h,1,q,r,s,t,u,v,w,E,F,G,H,I,J,K,L 5,6,小 9,ai b7，8U T f 口 卬 v 7 7o,1,u,V,W,A,Y,L)Text2.Text=Text2.Text&vbCrLf&a(Rnd*62)&a(Rnd*62)End Sub正确秩序例题Private Sub Commandl_Click()Dim i,j,k As IntegerDim a()a=Array rO,1，2,q C,d,e,f,g,q,r,s,t,u,E，F，G，H，I,1h,i,j,k,1,V,w,x,y,z,J,K，L，M,N,8,9,a,b,，/ft，/ft，ft，m,n,o,p,A,B,C,D,0，P,Q,R,S，t.U,X，Y,Z)For i=0 To 61For j=0 To 61For k=0 To 61Text2.Text=Text2.Text&vbCrLf&aNextNextNext&a(j)&a(k)End Sub