Visual Basic

[Vlad444]

Здравствуйте! Помогите пожалуйста доделать программу. Вот она)
Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
a = (6 * Rnd) + 1
If a = 1 Then Image1.Picture = LoadPicture("C:\Users\User\Desktop\ êîñòè\êîñòü 1.bmp")
If a = 2 Then Image1.Picture = LoadPicture("C:\Users\User\Desktop\ êîñòè\êîñòü 2.bmp")
If a = 3 Then Image1.Picture = LoadPicture("C:\Users\User\Desktop\ êîñòè\êîñòü 3.bmp")
If a = 4 Then Image1.Picture = LoadPicture("C:\Users\User\Desktop\ êîñòè\êîñòü 4.bmp")
If a = 5 Then Image1.Picture = LoadPicture("C:\Users\User\Desktop\ êîñòè\êîñòü 5.bmp")
If a = 6 Then Image1.Picture = LoadPicture("C:\Users\User\Desktop\ êîñòè\êîñòü 6.bmp")
b = (6 * Rnd) + 1
If b = 1 Then Image2.Picture = LoadPicture("C:\Users\User\Desktop\ êîñòè\êîñòü 1.bmp")
If b = 2 Then Image2.Picture = LoadPicture("C:\Users\User\Desktop\ êîñòè\êîñòü 2.bmp")
If b = 3 Then Image2.Picture = LoadPicture("C:\Users\User\Desktop\ êîñòè\êîñòü 3.bmp")
If b = 4 Then Image2.Picture = LoadPicture("C:\Users\User\Desktop\ êîñòè\êîñòü 4.bmp")
If b = 5 Then Image2.Picture = LoadPicture("C:\Users\User\Desktop\ êîñòè\êîñòü 5.bmp")
If b = 6 Then Image2.Picture = LoadPicture("C:\Users\User\Desktop\ êîñòè\êîñòü 6.bmp")
t = a + b

Command1.Visible = False

End Sub

Private Sub Command2_Click()
Dim c As Integer
Dim d As Integer
Dim e As Integer
c = (6 * Rnd) + 1
If c = 1 Then Image3.Picture = LoadPicture("C:\Users\User\Desktop\ êîñòè\êîñòü 1.bmp")
If c = 2 Then Image3.Picture = LoadPicture("C:\Users\User\Desktop\ êîñòè\êîñòü 2.bmp")
If c = 3 Then Image3.Picture = LoadPicture("C:\Users\User\Desktop\ êîñòè\êîñòü 3.bmp")
If c = 4 Then Image3.Picture = LoadPicture("C:\Users\User\Desktop\ êîñòè\êîñòü 4.bmp")
If c = 5 Then Image3.Picture = LoadPicture("C:\Users\User\Desktop\ êîñòè\êîñòü 5.bmp")
If c = 6 Then Image3.Picture = LoadPicture("C:\Users\User\Desktop\ êîñòè\êîñòü 6.bmp")
d = (6 * Rnd) + 1
If d = 1 Then Image4.Picture = LoadPicture("C:\Users\User\Desktop\ êîñòè\êîñòü 1.bmp")
If d = 2 Then Image4.Picture = LoadPicture("C:\Users\User\Desktop\ êîñòè\êîñòü 2.bmp")
If d = 3 Then Image4.Picture = LoadPicture("C:\Users\User\Desktop\ êîñòè\êîñòü 3.bmp")
If d = 4 Then Image4.Picture = LoadPicture("C:\Users\User\Desktop\ êîñòè\êîñòü 4.bmp")
If d = 5 Then Image4.Picture = LoadPicture("C:\Users\User\Desktop\ êîñòè\êîñòü 5.bmp")
If d = 6 Then Image4.Picture = LoadPicture("C:\Users\User\Desktop\ êîñòè\êîñòü 6.bmp")
e = c + d
Text2.Text = e
If t > v Then Print "âûèãðûâàåò 1é èãðîê" Else Print "âûèãðàûâåò 2é èãðîê"
Command2.Visible = False


End Sub

Private Sub Command3_Click()
Comand1.Visible = True
Comand2.Visible = True

End Sub

Нужно сделать так чтобы программа выявляла победителя и также, когда бросаешь 10 раз по очереди она суммировала и выявляла победителя. Заранее спасибо!

[gaw4]

If t > v что такое v

[gaw4]

когда копируешь код , - установи RU

так короче (можно еще короче)

Dim a%, b%, t%, e%
Const fn = "C:\Users\User\Desktop\ einoe\einou "

Private Sub Command1_Click()

 Randomize (Timer)
 
 a = (6 * Rnd) + 1: Image1.Picture = LoadPicture(fn & a & ".bmp")
 b = (6 * Rnd) + 1: Image1.Picture = LoadPicture(fn & a & ".bmp")
 t = a + b
 Command1.Visible = False
 End Sub

Private Sub Command2_Click()
  Randomize (Timer)
 
 a = (6 * Rnd) + 1: Image1.Picture = LoadPicture(fn & a & ".bmp")
 b = (6 * Rnd) + 1: Image1.Picture = LoadPicture(fn & b & ".bmp")
 
 e = a + b
 Text2.Text = e
 If t > e Then Print "auea?uaaao 1e ea?ie" Else Print "auea?auaao 2e ea?ie"
 Command2.Visible = False

 End Sub