例题1设计一个窗体,在窗体上输出一个九九乘法表.pptVIP

* 例题1 设计一个窗体，在窗体上输出一个九九 乘法表。 Private Sub Form_Load() Form1.Caption = Form1.Visible = True Form1.FontSize = 24 Print Tab(11); 九九乘法表 Form1.FontSize = 18 Print Print Tab(4); *; For i = 1 To 9 Print Tab(3 + 4 * i); i; Next i Print For i = 1 To 9 Print Tab(3); i; For j = 1 To i Print Tab(3 + 4 * j); i * j; Next j Print Next i End Sub 设置表头 例题2 设计一个窗体，计算输入整数的各位数之和。 分析：要取得输入整数的各位数，即对输入的整数除10取余数，然后余数相加。 程序如下： Private Sub Command1_Click() n = 0 a = Val(Text1.Text) While a 0 n = n + a Mod 10 a = a / 10 Wend Text2 = n End Sub 例题3 设计一个窗体，采用模糊搜索的方法找出输入单位的类型。 分析： 1、 用 Like 进行字符串比较。 2、If Then ElseIf End If 例题4 设计一个程序用于图片的定时变更。 在程序中设计一个数组PIC（1 TO 9），将图片文件的文件名赋值给一个数组，窗体装入时先显示最后一张图片，定时时间到之后从前到后依次循环显示图片。 程序清单： Dim PIC(1 To 7) As String Dim I As Integer Private Sub Form_Load() PIC(1) = 027.JPG PIC(2) = CARD16.JPG PIC(3) = CARD161.JPG PIC(4) = CARD30.JPG PIC(5) = CARD4.JPG PIC(6) = CARD7.JPG PIC(7) = CARD8.JPG Image1.Picture = LoadPicture(C:\Documents and Settings\Administrator\My Documents\My Pictures + \ + PIC(7)) End Sub Private Sub Timer1_Timer() I = I + 1 If I = 7 Then Image1.Picture = LoadPicture(C:\Documents and Settings\Administrator\My Documents\My Pictures + \ + PIC(I)) I = 0 Else Image1.Picture = LoadPicture(C:\Documents and Settings\Administrator\My Documents\My Pictures + \ + PIC(I)) End If 例题5 闪动标签 使用QBcolor(颜色值) 函数可以设置标签框的前景（文字）颜色和背景颜色。例如： Label1.ForeColor= QBcolor(15) Label1.ForeColor= QBcolor(1) 则会产生前景（文字）颜色为亮白色，背景颜色为蓝色的显示效果。 设计分析： 程序使用定时器产生每秒一次的定时事件，调用Chang_Color.bas 模块中的Chang_Color函数。Chang_Color函数首先进行标签当前颜色的判断，如果标签的当前颜色时所设颜色变量中的一种颜色时， Chang_Color函数将当前颜色改为新的颜色，如此循环往复。 注意： 在Chang_Color.bas 模块中使用的变量Cont其类型Control， Co