VB6.0总出现“变量未定义”怎么回事

Private Sub Command1_Click()Dim s As SinglePicture1.Clss = RndPicture1.Print "今天"; Format(s, "ttttt")Picture1.Print IIf(Time >= s, "到现在已经过了" & VbGrLf & Format(Abs(s - Time), "hh小时mm分钟ss秒"), "距现在还有" & VbGrLf & Format(Abs(s - Time), "hh小时mm分钟ss秒"))End SubPrivate Sub Form_Load()RandomizeEnd SubPrivate Sub Timer1_Timer()Label2.Caption = TimeEnd Sub

2026年09月21日 14:39

有2个网友回答

网友（1）：

1，是VbCrlf，不是VbGrLf
2，Format(String,"0000")是数字，Format(String,"hh:mm:ss")是时间
3，Rnd一般写成Rnd()表示随即函数

网友（2）：

交个朋友，我也学编程。q824397211