VB趣味小程序(共3頁(yè))

1、精選優(yōu)質(zhì)文檔-傾情為你奉上VB趣味小程序1. 空心三角形Dim i%, j%Print Space(20); "*"For i = 2 To 9 Print Space(21 - i); "*" Space(2 * i - 3); "*"NextPrint Space(10);For i = 1 To 10 Print Space(1); "*"Next擴(kuò)展程序Const n = 15Dim a(1 To n) As IntegerDim i%, j%, t%RandomizeFor i = 1 To n a(i)

2、 = Int(100 * Rnd) '生成15個(gè)0100的隨機(jī)整數(shù)存入數(shù)組NextPrint "排序前："For i = 1 To n Print a(i);NextPrintFor i = 1 To n - 1 For j = i + 1 To n If a(j) < a(i) Then t = a(j): a(j) = a(i): a(i) = t NextNextPrint "排序后："For i = 1 To n Print a(i);Next2. 六角星Dim i%, j%, k%For i = 1 To 10 If i <

3、 4 Or i > 6 Then Print Space(20 - i); For j = 1 To i Print "" Next j Else Print Space(6 + i); For k = 14 - i To 1 Step -1 Print "" Next k End If PrintNext iFor i = 3 To 1 Step -1Print Space(20 - i);For j = 1 To iPrint ""Next jPrintNext i3. 球來(lái)回彈在窗體上添加一shape空間，shape為ci

4、rcle，計(jì)時(shí)器空間inteval=10通用Dim bzPrivate Sub Timer1_Timer() If Shape1.Left >= Form1.ScaleWidth - Shape1.Width Then bz = 1 If Shape1.Left <= 0 Then bz = 0 If bz = 0 Then Shape1.Left = Shape1.Left + 10 If bz = 1 Then Shape1.Left = Shape1.Left - 10End Sub注意：bz的使用（bz為一臨時(shí)標(biāo)志，用于判斷移動(dòng)方向）4. 從大到小再?gòu)男〉酱笞兓诖绑w添加一

5、標(biāo)簽label1，autosize=true，caption="",添加一計(jì)時(shí)器空間timer1，inteval=100通用：Dim bzPrivate Sub Timer1_Timer() If Label1.FontSize >= 72 Then bz = 1 If Label1.FontSize <= 8 Then bz = 0 If bz = 0 Then Label1.FontSize = Label1.FontSize + 2 If bz = 1 Then Label1.FontSize = Label1.FontSize - 2End Sub5.

6、在VB中用畫(huà)圓Dim x, y, i As SingleClsScale (-15, 15)-(15, -15) '定義笛卡兒坐標(biāo)系For i = 0 To 6.28 Step 0.05 y = 10 * Sin(i) x = 10 * Cos(i) CurrentX = x CurrentY = y Print "*"Next6. 四周循環(huán)移動(dòng)創(chuàng)建一個(gè)窗體，在上面添加“開(kāi)始”和“停止”兩個(gè)按鈕，添加一個(gè)計(jì)時(shí)器控件timer1在窗體上添加一個(gè)shape控件，設(shè)置背景不透明，紅色，調(diào)整大小程序代碼如下：Option ExplicitDim bz%Private Sub

7、 Command1_Click() '開(kāi)始按鈕 Timer1 = TrueEnd SubPrivate Sub Command2_Click() '停止按鈕 Timer1 = FalseEnd SubPrivate Sub Form_Load() Shape1.Left = 0 Shape1.Top = 0 Timer1 = False Timer1.Interval = 10End SubPrivate Sub Timer1_Timer() If Shape1.Left &gt;= Form1.ScaleWidth - Shape1.Width And Shape1.Top &lt;= 0 Then bz = 1 If Shape1.Top &gt;= Form1.ScaleHeight - Shape1.Height Then bz = 2 If Shape1.Left &lt;= 0 Then bz = 3 If Shape1.Top &lt;= 0 And Shape1.Left &lt;= 0 Then bz = 0 Select Case bz Case 0 Shape1.Left = Shape1.Left + 10 Case 1 Shap