1.vb缺少行号或标签或语句或语句结束怎么办
2.求VB源代码！！！php 权限管理源码
vb缺少行号或标签或语句或语句结束怎么办
原因：一般来说，这种错误是delphi记账软件源码语法错误，不是framework的源码路径对象没申明就是语法有错误。
修改
代码中
(s1+s2)=0这句有时有问题，不清楚要表达的意思是什么，如果要表达最终s1+s2是不是等于0的话，那需要用if s1+s2=0 then
'do somthing
end if
求VB源代码！！！
用记事本把下面的萌豆助手源码代码保存到Form1.Frm文件中。然后用VB打开，试试吧。SEO管理平台源码
＝＝＝＝＝＝＝＝＝＝＝
VERSION
5.
Begin
VB.Form
Form1
BorderStyle
=
1
'Fixed
Single
Caption
=
"打地鼠"
ClientHeight
=
ClientLeft
=
ClientTop
=
ClientWidth
=
LinkTopic
=
"Form1"
MaxButton
=
0
'False
MinButton
=
0
'False
ScaleHeight
=
ScaleWidth
=
StartUpPosition
=
3
'窗口缺省
Begin
VB.CommandButton
Command1
Caption
=
"开始"
Height
=
Left
=
0
TabIndex
=
9
Top
=
Width
=
End
Begin
VB.Timer
Timer1
Interval
=
Left
=
Top
=
End
Begin
VB.PictureBox
Picture1
Height
=
Index
=
8
Left
=
ScaleHeight
=
ScaleWidth
=
TabIndex
=
8
Top
=
Width
=
End
Begin
VB.PictureBox
Picture1
Height
=
Index
=
7
Left
=
ScaleHeight
=
ScaleWidth
=
TabIndex
=
7
Top
=
Width
=
End
Begin
VB.PictureBox
Picture1
Height
=
Index
=
6
Left
=
0
ScaleHeight
=
ScaleWidth
=
TabIndex
=
6
Top
=
Width
=
End
Begin
VB.PictureBox
Picture1
Height
=
Index
=
5
Left
=
ScaleHeight
=
ScaleWidth
=
TabIndex
=
5
Top
=
Width
=
End
Begin
VB.PictureBox
Picture1
Height
=
Index
=
4
Left
=
ScaleHeight
=
ScaleWidth
=
TabIndex
=
4
Top
=
Width
=
End
Begin
VB.PictureBox
Picture1
Height
=
Index
=
3
Left
=
0
ScaleHeight
=
ScaleWidth
=
TabIndex
=
3
Top
=
Width
=
End
Begin
VB.PictureBox
Picture1
Height
=
Index
=
2
Left
=
ScaleHeight
=
ScaleWidth
=
TabIndex
=
2
Top
=
0
Width
=
End
Begin
VB.PictureBox
Picture1
Height
=
Index
=
1
Left
=
ScaleHeight
=
ScaleWidth
=
TabIndex
=
1
Top
=
0
Width
=
End
Begin
VB.PictureBox
Picture1
Height
=
Index
=
0
Left
=
0
ScaleHeight
=
ScaleWidth
=
TabIndex
=
0
Top
=
0
Width
=
End
Begin
VB.Label
Label1
AutoSize
=
-1
'True
Height
=
Left
=
TabIndex
=
Top
=
Width
=
End
End
Attribute
VB_Name
=
"Form1"
Attribute
VB_GlobalNameSpace
=
False
Attribute
VB_Creatable
=
False
Attribute
VB_PredeclaredId
=
True
Attribute
VB_Exposed
=
False
Dim
i
As
Integer,
t
As
Integer
Private
Sub
Command1_Click()
On
Error
GoTo
hErr
t
=
2
*
InputBox("请设置游戏时间，单位为秒：",
,
)
Caption
=
0
Timer1.Enabled
=
True
Command1.Enabled
=
False
hErr:
End
Sub
Private
Sub
Form_Load()
Timer1.Enabled
=
False
Randomize
For
Each
p
In
Picture1
p.FontName
=
"arial"
p.FontSize
=
Next
End
Sub
Private
Sub
Picture1_Click(Index
As
Integer)
If
Index
=
i
Then
Caption
=
Caption
+
1:
t
=
t
+
1:
Timer1_Timer
End
Sub
Private
Sub
Timer1_Timer()
For
Each
p
In
Picture1
p.Cls
Next
i
=
Int(Rnd
*
9)
Picture1(i).Print
i
+
1
t
=
t
-
1
Label1.Caption
=
"倒计时："
&
Int(t
/
2)
If
t
=
0
Then
Timer1.Enabled
=
False:
MsgBox
"游戏结束，您共打到"
&
Caption
&
"次地鼠":
i
=
-1:
Command1.Enabled
=
True
End
Sub
2024-11-26 19:312821人浏览
2024-11-26 18:262780人浏览
2024-11-26 18:152339人浏览
2024-11-26 17:562107人浏览
2024-11-26 17:402127人浏览
2024-11-26 16:572255人浏览
1.有哪些开源的源码网站?2.亲测新版分享赚钱云盘系统,城通网盘VIP下载系统源码3.好用的免费网站源码网站有哪些?4.java简单代码小游戏？5.Xcode 15.3 (15E204a) - App
1.çè è£èç¨ä»ä¹è¯è¨å¼åç2.王者荣耀英雄皮肤兑换码是什么_英雄皮肤激活码大全3.如何调整王者荣耀至120帧率教你简单操作）çè è£èç
1.快速搭建属于自己的秒赞网快速搭建属于自己的秒赞网 秒赞是提升自己人气的好帮手，但是很多人都不知道怎么来搭建，现在来教你快速搭建稳定而且访问速度快的秒赞网，成本很低，可能也就是一包烟不到的花费。
