vb 谁帮我翻译一下这段代码

c = App.Path & "/1.jpg"
d = App.Path & "/2.jpg"
e = App.Path & "/3.jpg" ‘根目录下（就是程序所在的目录下）的3张照片的地址分别赋值给c、d、e
a=int((3*rnd)+1) ‘rnd是随即生成0-1的小数 （0至1的小数）*3再用 int截取小数部分 所以这三个随即数是0，1，2三个数的任意一个数 后边跟+1 所以是1，2，3三个数的任意一个数 几率几乎相等
Picture1(1).Picture = LoadPicture(App.Path & "\" & a & ".jpg")
’picture1（1） 这个控件装载图片 根目录下（1或2或3）.jpg
Picture1(0).Picture = LoadPicture(c)
也就是 picture1（0）这个图片框控件加载图片c 也就是加载 App.Path & "/1.jpg"（app代表本程序所在的目录）
If c = App.Path & "/1.jpg" And a = 2 Then
Label4.Caption = "赢了"
End If
If c = App.Path & "/1.jpg" And a = 3 Then
Label4.Caption = "输了"
End If
If c = App.Path & "/1.jpg" And a = 1 Then
Label4.Caption = "打平"
End
'他这个编写的不当
应该是这样
if a=2 then label4.caption="赢了"
if a=3 then label4.caption="输了"
if a=1 then label4.caption="打平"
'因为 And 前面c = App.Path & "/1.jpg"已经赋值 程序运行他的值不可能不为true 所以加上它完全是多此一举
原作者要表达的意思是 如果a=2 标签4的标题变成赢了，如果a=3……
也可以写成这样（ 比较简单易懂）
select case a
case 2
label4.caption="赢了"
case 3
label4.caption="输了"
case 1
label4.caption="打平"
end select
选择语句
希望对您能有所帮助，非常简单的代码

石头剪子布！

类似于 石头剪子布
计算机有3张图片 1.JPG 2.JPG 3.JPG
随机选一张，同时总是选 1.JPG
然后比较判断输赢

你拿不定注意的时候让机器替你顶，比扔硬币多一个平局选项