VB常见程序段(补充中).docVIP

Visual Basic基本程序段 为节省版面，省略部分程序段的事件和声明语句。 一．面向过程的程序段 窗体充满屏幕的3种方法 Form1.Left = 0 Form1.Top = 0 Form1.Width = Screen.Width Form1.Height = Screen.Height Form1.Move 0, 0, Screen.Width, Screen.Height Form1.WindowState = 2 在窗体显示符号金字塔的4种程序结构 按符号数设置行循环 按空格数设置行循环 按行号I计算 符号数为奇数I * 2 – 1 空格数递减(7 – I) 空格数递减：I = 6 - 0 符号数为奇数13 - I * 2 用循环显示各行的符号 For I = 1 To 7 Print Spc(7 - I); For J = 1 To I * 2 - 1 Print $; Next J Print Next I For I = 6 To 0 Step -1 Print Spc(I); For J = 1 To 13 - I * 2 Print $; Next J Print Next I 用String()函数显示各行的符号 For I = 1 To 7 Print Spc(7 - I); String(I * 2 - 1, $) Next I For I = 6 To 0 Step -1 Print Spc(I); String(13 - I * 2, $) Next I 符号图形 Dim I As Integer, nCs As Integer nCs = 7 层数 Print Tab(nCs); * 第一层 For I = 2 To nCs Print Tab(nCs + 1 - I); *; Tab(nCs); *; Tab(nCs - 1 + I); * Next I * *** ***** ******* ********* *********** ************* 三个数中寻找最大数的2种方法 If a b And a c Then Print 最大数是第1个:; a If b a And b c Then Print 最大数是第2个:; b If c b And c a Then Print 最大数是第3个:; c Max = a If b Max Then Max = b If c Max Then Max = c Print 最大数是; Max 数组中找最大数的2种方法 Max = 0 For I = 1 To 100 If X(I) Max Then Max = X(I) Next I Print 这100个数的最大数; Max Max = X(1) For I = 2 To 30 If X(I) Max Then Max = X(I) Next I Print 这30个数的最大数; Max 求阶乘和累加 Temp = 1 For I = 1 To n Temp = Temp * I Next I Temp = 0 For I = 1 To n Temp = Temp + I Next I 计算级数1- (1/2) + (1/4) - (1/8) + ... + (1/2^n) 的4种方法 S = 1 For I = 1 To n Step 2 S = S - 1 / 2 ^ I + 1 / 2 ^ (I + 1) Next I S = 1 For I = 1 To n S = S + (- 1 / 2) ^ I Next I S = 1 f = -1 For I = 1 To n S = S + f / 2 ^ I f = -f Next I S = 1 For I = 1 To n If I Mod 2 0 Then S = S - 1 / 2 ^ I Else S = S + 1 / 2 ^ I End If Next I 寻找级数项的递变规律 1+2+3+...+100 S = S + I 1/(1*2)+1/(2*3)+1/(3*4)+……+1/(20*21) S = S + 1 / I / ( I + 1 ) (1/(7*9))+(1/(9*11))+...+(1/(n*(n+2)) S = S + 1 /