UC知道下来谁能帮我逐个注解下来啊——谢谢了啊——明天就要拉————明天就要————
来源：百度知道 编辑：UC知道 时间：2024/05/22 06:06:45
Private Sub Form_Load()
Form1.Width = 5000
Form1.Height = 5000
Timer1.Interval = 500
End Sub
Private Sub Timer1_Timer()
a$ = Chr$(Fix(Rnd * 95) + 33)
Cls
For z = 3 To 9 Step 3
For y = 1 To z
Print Tab(30 - y * 2);
For x = 1 To y * 2 - 1
Print a$ + " ";
Next x
Print
Next y
Next z
For y = 1 To 5
Print Tab(30 - 2); a$
Next y
End Sub
我的程序代码注解````````不是自己随便找个离开注解``````````````
Form1.Width = 5000
Form1.Height = 5000
Timer1.Interval = 500
End Sub
Private Sub Timer1_Timer()
a$ = Chr$(Fix(Rnd * 95) + 33)
Cls
For z = 3 To 9 Step 3
For y = 1 To z
Print Tab(30 - y * 2);
For x = 1 To y * 2 - 1
Print a$ + " ";
Next x
Next y
Next z
For y = 1 To 5
Print Tab(30 - 2); a$
Next y
End Sub
我的程序代码注解````````不是自己随便找个离开注解``````````````
rivate Sub Form_Load()
Option Explicit
Public Sub Setback()
'拉伸背景图片以填满整个窗口
'me.paintpicture picture1.picture, 0, 0, frmbackground.width, _
'frmbackground.height
'平铺背景图片以填满整个窗口
Dim i As Integer
Dim j As Integer
For j = 0 To frmOas.ScaleHeight Step Picture1.ScaleHeight
For i = 0 To frmOas.ScaleWidth Step Picture1.ScaleWidth
Me.PaintPicture
Picture1.Picture , i, j
Next
Next
frmOas.Picture = Me.Image
End Sub
Private Sub form_activate()
6 Me.ZOrder 1