主题：请教高手：“我这程序老显示有问题：！！
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
回复列表 （共16个回复）
沙发
artless [专家分：1490] 发布于 2010-04-19 16:23:00
picfilename=App.Path & "\pic" & str(x) & ".jpg"
板凳
xiaoma_mj [专家分：0] 发布于 2010-04-21 11:05:00
非常谢谢你
将你改的那句替换后运行时还是有点问题,显示“文件未找到：pic1,pic2,pic3,pic4,pic5,pic6.jpg”,其中.jpg文件为骰子各个点数的图片，我已将它们和当前工程保存在同一文件夹中，
此外，下面这句还用黄线标出
Image1.Picture = LoadPicture(picfilename)
能否麻烦你再帮我看一下，再次感谢
3 楼
artless [专家分：1490] 发布于 2010-04-21 12:59:00
编译后运行怎样？
4 楼
xiaoma_mj [专家分：0] 发布于 2010-04-21 13:43:00
运行后显示如下：
“文件未找到：pic1,pic2,pic3,pic4,pic5,pic6.jpg”,其中.jpg文件为骰子各个点数的图片文件，我已将它们和当前工程保存在同一文件夹中；
此外，下面这句还用黄线标出
Image1.Picture = LoadPicture(picfilename)
5 楼
artless [专家分：1490] 发布于 2010-04-21 13:59:00
编译后生成exe运行
6 楼
xiaoma_mj [专家分：0] 发布于 2010-04-21 14:54:00
“编译后生成exe运行”怎么操作？我不太明白，谢谢
7 楼
artless [专家分：1490] 发布于 2010-04-21 16:04:00
菜单-文件-生成exe
运行所生成的exe,jpg文件和exe文件保存在同一文件夹中
8 楼
guoyong_cy [专家分：3050] 发布于 2010-04-21 19:44:00
你的文件到底是"pic1.jpg" 还是 "pic 1.jpg",怎么会用str() ,而不用cstr()?
9 楼
moz [专家分：37620] 发布于 2010-04-21 19:54:00
既然只有六个数，可以用chr$(48+ )
10 楼
xiaoma_mj [专家分：0] 发布于 2010-04-21 23:11:00
文件名是"pic1.jpg"，书中是这么教的，我按书中的做但没得出书中的效果
我来回复
您所在位置：