《【小程序】VB趣味小程序.docx》由会员分享，可在线阅读，更多相关《【小程序】VB趣味小程序.docx（13页珍藏版）》请在三一文库上搜索。
1、VB 趣味小程序1. 空心三角形Dim i%, j%Print Space(20); *For i = 2 To 9Print Space(21 - i); *; Space(2 * i - 3); *NextPrint Space(10);For i = 1 To 10Print Space(1); *;Next扩展程序C onst n = 15D im a(1 To n) As IntegerDim i%, j%, t%RandomizeFor i = 1 To na(i) = Int(100 * Rnd) 生成 15 个 0100 的随机整数存入 数组NextPrint 排序前：For
2、i = 1 To nPrint a(i);NextPrintFor i = 1 To n - 1For j = i + 1 To nIf a(j) a(i) Then t = a(j): a(j) = a(i): a(i) = t NextNextPrint 排序后：For i = 1 To nPrint a(i);Next2. 六角星Dim i%, j%, k%For i = 1 To 10If i 6 ThenPrint Space(20 - i);For j = 1 To iPrint Next jElsePrint Space(6 + i);For k = 14 - i To 1 St
3、ep -1 Print Next kEnd IfPrintNext iFor i = 3 To 1 Step -1Print Space(20 - i);For j = 1 To iPrint ;Next jPrintNext i3. 球来回弹在窗体上添加一 shape 空间，shape 为 circle，计时器空间 inteval=10 通用Dim bzPrivate Sub Timer1_Timer()If Shape1.Left = Form1.ScaleWidth - Shape1.Width Then bz = 1 If Shape1.Left = 72 Then bz = 1If
4、Label1.FontSize = 8 Then bz = 0If bz = 0 Then Label1.FontSize = Label1.FontSize + 2If bz = 1 Then Label1.FontSize = Label1.FontSize - 2 End Sub5. 在 VB 中用画圆Dim x, y, i As SingleClsScale (-15, 15)-(15, -15) 定义笛卡儿坐标系For i = 0 To 6.28 Step 0.05y = 10 * Sin(i)x = 10 * Cos(i)CurrentX = xCurrentY = yPrint
5、*Next6. 四周循环移动创建一个窗体，在上面添加“开始”和“停止”两个按钮，添加一个 计时器控件 timer1在窗体上添加一个 shape 控件，设置背景不透明，红色，调整大小 程序代码如下：Option ExplicitDim bz%Private Sub Command1_Click() 开始按钮 Timer1 = TrueEnd SubPrivate Sub Command2_Click() 停止按钮 Timer1 = FalseEnd SubPrivate Sub Form_Load()Shape1.Left = 0S hape1.Top = 0T imer1 = FalseTim
6、er1.Interval = 10End SubPrivate Sub Timer1_Timer()If Shape1.Left >= Form1.ScaleWidth - Shape1.Width AndShape1.Top <= 0 Then bz = 1If Shape1.Top >= Form1.ScaleHeight - Shape1.Height Thenbz = 2If Shape1.Left <= 0 Then bz = 3If Shape1.Top <= 0 And Shape1.Left <= 0 Then bz = 0 Select Case bzCase 0Shape1.Left = Shape1.Left + 10Case 1Shape1.Top = Shape1.Top + 10Case 2Shape1.Left = Shape1.Left - 10Case 3Shape1.Top = Shape1.Top - 10 End SelectEnd Sub