您所在位置：主题：请教高手：“我这程序老显示有问题：！！
xiaoma_mj
[专家分：0] 发布于 2010-04-19 15:53:00
此程序为一使用随机函数模拟掷骰子的程序，不知道为什么老显示有语法问题：
Private Sub Command1_Click()
Dim x As Integer
Randomize
x = Int(6 * Rnd + 1)
picfilename=App.Path&"\pic"&Format(x)&".jpg" 注：左边这句老显示有语法错误，无法执行。
Image1.Picture = LoadPicture(picfilename)
Label1.Caption = Format(x)
End Sub
Private Sub command2_click()
End
End Sub
Private Sub Command1_Click()
Dim x As Integer
Randomize
x = Int(6 * Rnd + 1)
picfilename=App.Path&"\pic"&Format(x)&".jpg" 注：左边这句老显示有语法错误，无法执行。
Image1.Picture = LoadPicture(picfilename)
Label1.Caption = Format(x)
End Sub
Private Sub command2_click()
End
End Sub
