VB趣味小程序

VB兴趣小程序1 .中空三角形Dim i%，j%Print Space(20) * For i=2 To 9打印空间(21-I ) *； 空格(2* I-3 ) * 下一步打印空间(10 )For i=1 To 10Print Space(1) * ；下一步扩展程序Const n=15Dim a(1 To n) As IntegerDim i%，j%，t%RandomizeFor i=1 To na(i)=Int(100 * Rnd )生成0到100个随机整数存储阵列下一步Print排序前：For i=1 To nPrint a(i )下一步PrintFor i=1 To n - 1For j=i 1 To nifsa (j ) a (I ) then=a (j ) : a (j )=a (I ) : a (I )=t下一步下一步Print排序后：For i=1 To nPrint a(i )下一步2 .六角星Dim i%，j%，k%For i=1 To 10ifi 4或者I 6打印空间(20-I )For j=1 To iPrint ；Next jElse打印空间(6I )for k=14-I to 1步骤- 1Print ；下一代kEnd IfPrint下一步for I=3to 1步骤- 1打印空间(20-I )For j=1 To iPrint ；Next jPrint下一步3 .球反弹将shape空间、circle和计时器空间inteval=10添加到窗体中通用Dim bz私有子时间r1_ timer ()if shape1. left=form1. scale width-shape1. width then=1If Shape1.Left=0 Then bz=0ifbz=0then shape1. left=shape1. left 10ifbz=1then shape1. left=shape1. left-10日本职业足球联赛注意：使用BZ (BZ是用于判断移动方向的临时标记)从大到小，从小到大将标签label1、autosize=true和caption= 添加到窗体中，并添加计时器空间timer1和inteval=100通用：Dim bz私有子时间r1_ timer ()If Label1.FontSize=72 Then bz=1If Label1.FontSize=8 Then bz=0ifbz=0then label1. fot size=label1. fot size 2ifbz=1then label1. fot size=label1. fot size-2日本职业足球联赛用VB画圆Dim x，y，I as单曲Cls公司定义scale (-15，15 )-(15，-15 )笛卡尔坐标系for I=0to 6.28步骤0.05y=10 * Sin(i )x=10 * Cos(i )CurrentX=xCurrentY=y是Print * 下一步6 .周围循环移动创建窗体，添加“开始”和“停止”按钮，添加计时器控件timer1将shape控件添加到窗体中，并设置背景的不透明度、红色和调整大小程序代码如下所示Option ExplicitDim bz%私有子命令1 _ click ()开始按钮Timer1=True日本职业足球联赛私有子命令2 _ click ()停止按钮Timer1=False日本职业足球联赛私有子表单加载()Shape1.Left=0Shape1.Top=0Timer1=FalseTimer1.Interval=10日本职业足球联赛私有子时间r1_ timer ()if shape1. left=form1. scale width-shape1. widthandshape1. top=0the nbz=1if shape1. top=form1. scale height-shape1. heightthebz=2If Shape1.Left=0 Then bz=3if shape1. top=0和shape1. left=0the nbz=0Select Case bzCase 0Shape1.Left=Shape1.Left 10Case 1战斗机Shape1.T