UC知道vb高手帮忙 vb小程序编写问题
来源：百度知道 编辑：UC知道 时间：2024/06/05 02:42:41
我想写用vb写一个数码雨，像黑客帝国中的那样的情景，我这里有一个bat的数码雨，但是用vb总是调试不对，下面是bat语句：
@echo off
color 0a
echo 打雷啦，下雨啦，回家收衣服啦！！！
setlocal ENABLEDELAYEDEXPANSION
for /l %%i in (0) do (
set "line="
for /l %%j in (1,1,80) do (
set /a Down%%j-=2
set "x=!Down%%j!"
if !x! LSS 0 (
set /a Arrow%%j=!random!%%3
set /a Down%%j=!random!%%15+10
)
set "x=!Arrow%%j!"
if "!x!" == "2" (
set "line=!line!!random:~-1! "
) else (set "line=!line! ")
)
set /p=!line!<nul
)
我的思路是把vb运行时最大化，窗体背景设为黑色，循环产生0~9的随机数，然后在窗体上print输出。
思路倒是简单，但是就是调试不对。希望大虾帮助或者指点一下。给一个参考更好。谢谢
@echo off
color 0a
echo 打雷啦，下雨啦，回家收衣服啦！！！
setlocal ENABLEDELAYEDEXPANSION
for /l %%i in (0) do (
set "line="
for /l %%j in (1,1,80) do (
set /a Down%%j-=2
set "x=!Down%%j!"
if !x! LSS 0 (
set /a Arrow%%j=!random!%%3
set /a Down%%j=!random!%%15+10
)
set "x=!Arrow%%j!"
if "!x!" == "2" (
set "line=!line!!random:~-1! "
) else (set "line=!line! ")
)
set /p=!line!<nul
)
我的思路是把vb运行时最大化，窗体背景设为黑色，循环产生0~9的随机数，然后在窗体上print输出。
思路倒是简单，但是就是调试不对。希望大虾帮助或者指点一下。给一个参考更好。谢谢
'创建一个窗体，将其BorderStyle设置为 0 - NONE
'添加一个Timer控件
'将下面的代码添加到代码中
'按ESC键退出程序 | 1-9 数字键控制密度 | - + 控制速度
Dim ScreenWordsLen As String
Dim ScreenWordsLen2 As String
Dim iNum As String
Dim iNum2 As String
Dim Num As Integer
Dim Num2 As Integer
Dim a As Integer
Dim b As Integer
Private Sub Form_Load()
'----------------------------控制变量 a控制密度(1-9)，b控制速度(>=1)
a = 6
b = 20
'----------------------------控制变量
Timer1.Interval = b
'----------------------------对窗体进行初始化设置
Me.Left = 0
Me.Top = 0
Me.Width = Screen.Width
Me.Height = Screen.Height
Me.BackColor = black
Me.ForeColor = &HFF00&
'----------------------------对窗体进行初始化设置
'----------------------------获取一屏幕宽度所能容纳的数字长度 = ScreenWordsLen
Do While Me.TextWidth(ScreenWordsLen) < Screen.Width
ScreenWordsLen = "1" & ScreenWordsLen
Loop