编程的基本结构.doc

初学者在编程时，往往不知道如何下手，这是因为在他们的大脑中对整个程序缺乏一个清晰的轮廓。在学习和工作中，我们每个人在做一件事情之前，总要对所做得处理过程进行一个构思。例如：你要做得的事情具备什么条件？采用什么手段？达到什么目的？编程也是一样。每个程序都要包括三个过程：即输入、处理和输出。所以，对于输入的过程，在编程之前，你要了解VB中有哪些输入的手段和方法。我把常用的输入方法总结为：1）变量常数：即在编程的时候，讲变量常数直接赋值给变量。例如：Pi=3.14159Print Sin(Pi*3/2)2)直接使用各种控件默认的属性值。例如： If Option1.Value = True Then Print Option1.Value End If3)采用人机对话的形式，通过控件间接给程序中的变量赋值。例如：4)采用数据文件的形式，用Open方法打开一个数据文件，对于顺序文件可以用Input#和Line Input#语句将数据文件的数据输入给程序中的变量。例如： FileNumber = FreeFile Open c:Test.dat For Input As #FileNumber Input #FileNumber, Chr Close FileNumber 5)用Load事件过程来实现对公共变量和控件进行初始化。例如： Private Sub Form_Load() For i = 1 To 10 List1.AddItem i nixt i End Sub6)用内部函数和对象的属性值，获取原始数据。例如： Private Sub Form_Load() Call Move(Screen.Width - Width) / 2, (Screen.Height - Height) / 2) End Sub“结构化程序设计方法”规定算法有三种基本结构：即顺序结构、选择结构和循环结构。荷兰学者E.W.dijkcta提出了结构化程序设计(structured programming)的理论，成为70年代中期至90年代初的程序设计主流。结构化程序设计方法提出了一些大家都要遵循的原则，这些原则归纳为32个字：“自顶向下，逐步细化。基本结构，组合而成。清晰第一，效率第二。书写规范，缩进格式。”1.级数题型x=0.5:k=1预设初值Doa = pt(x, k) 调用子函数，获取子项aIf Abs(a) m Then n=kNext i如果产生n=19的数，k=1，m=9。6.截取数据：DoI=N Mod 10Print iN = N 10Loop While N0在窗体上打印出来的i值就是N的各位数。截取1位用10，截取2位用100，截取3位用1000，如此类推。在截取的同时，也可以用一个一维数组将其存起来，然后再用于判断N是否为升序数还是降序数。例如：Dim a() As Integerk=0Doi=N Mod 10k=k+1ReDim Preserve a(k)N = N 10Loop While N0用For i=1 To Ubound(a) Next 结构对数组进行操作。也可以用于计算数的各位数字之和。不用数组计算数的各位数字之和的程序如下：Private Function sum(ByVal n As Integer) As Integer Do sum = sum + (n Mod 10) n = n 10 Loop While n 0End FunctionPrivate Function sum(n As Integer) As Integer Dim i As Integer For i = 1 To Len(CStr(n) sum = sum + Val(Mid(CStr(n), i, 1) Next iEnd Function*.分解英文句子中的单词(单词间以空格分隔)的子程序：Private Sub str1(ByVal St As String, S() As String) Dim P As Integer, k As Integer, s1 As String Do P = InStr(1, St, ) If P 0 Then s1 = Mid(St, 1, P - 1) St = Mid(St, P + 1, Len(St) - P) Else s1 = St最后一个单词 End If k = k + 1 ReDim Preserve S(k) S(k) = s1 Loop Until P = 0*.将字符串的顺序颠倒过来的子程序：Private Function str1(St As String) As String Dim i As Integer For i = 1 To Len(St) str1 = Mid(St, i, 1) & str1 Next iEnd Function参照此做法，可以将数值数颠倒过来的子程序：Private Function num1(n As Long) As Long Dim i As Integer, str1 As String, str2 As String str1 = CStr(n) For i = 1 To Len(str1) str2 = Mid(str1, i, 1) & str2 Next i num1 = Val(str2)End Function将数值数颠倒过来的另一个子程序：Private Function num1(ByVal n As Long) As Long Do num1 = num1 * 10 + (n Mod 10) n = n 10 Loop While n 0End Function7.多项式的计算：例如：计算a1x3+a2x2+a3x1+a4 ，x=10Dim i As Integer, n As Integer, a(4) As Integer, x As Integer a(1) = 1: a(2) = 2: a(3) = 3: a(4) = 4: x = 10 For i = 1 To UBound(a) n = n * x + a(i) Next i Print n可以用于二进制数转换成十进制数。数组a的值为1或0，x为2。8. 随机生成10个互不相同的二位数Private Sub Command1_Click() Dim I As Integer, J As Integer Dim T As Integer, a(10) As Integer Randomize Do T = Int(Rnd * 90) + 10 For J = 1 To 10 If T = a(J) Then Exit For Next J If J 10 Then Text1 = Text1 & Str(T) I = I + 1 End If Loop While I 10End Sub*.获取（打印出）列表框所有内容的程序： For I = 0 To List1.ListCount - 1 s= List1.List(I) Print s Next I列表框的序号是从0开始的，List1.ListCount的属性值是记录列表框内值的个数。*用随机数产生一维数组和二维数组的程序：一维：For i=1 To Na(i)=Int(Rnd*90)+10Next iFor i=1 To NFor j=1 To Na(i,j)=Int(Rnd*90)+10Next jNext i*计算数组各列之和的程序：For i=1 To NSum=0For j=1 To NSum=Sum + a(j,i)Next jPrint SumNext i*计算数组各行之和的程序：For i=1 To NSum=0For j=1 To NSum=Sum + a(i,j)Next jPrint SumNext i基本功能语句：1.整除的判断：If x Mod n =0 Then 或 If x/n = Int(x/n) Then用途：素数、因子数、约分2.开尽根号的判断：If Sqr(x) = Int(Sqr(x) Then3.非整数的判断：If x Int(x) Then4.表达式“XYZ”的处理：If XY And YZ Then3.回文数的判断：For i = 1 To Len(st) / 2If Mid(st, i, 1) = Mid(st, Len(st) - i + 1, 1) ThenNext i*.大写字符的判断：If st = A And st = a And st = 0 And st = 94.级数的正负号处理：k=-1For i=1 To nk=(-1)*kNext i5.奇数的表示：For i=1 To n Step 2i是奇数Next iFor i=1 To nk=2*i-1k是奇数,i是自然数Next i6.偶数的表示：For i=2 To n Step 2i是偶数Next iFor i=1 To nk=2*ik是偶数,i是自然数Next i6.产生随机数：x= Int(Rnd *(上限-下限+1) +下限产生N位数的随机数上限x1=10N-1下限x2=10(N-1)x= Int(Rnd *(x1-x2+1) +x27.字符与代码:Chr(64+1)为A、Chr(64+2)为B、Chr(64+3)为CChr(64+