我收到错误代码而我的朋友不是。 [英] I'm getting an error code while my friend is not.
问题描述
我正在编写一个编程类的项目。我们应该创建一对骰子1000次,并找到他们加起来的所有时间7.我的朋友和我有相同的确切代码和他的作品,我的不会。我们甚至有相同的错误代码但
我不会让我开始这个项目。它一直说我检查时没有调试文件夹中的project.exe,我做了。这是我们的代码。单击按钮时发生错误,我不明白为什么。
Public Class Form1
Public Sub Button1_Click(sender As Object,e As EventArgs,ByVal pair1 As Integer,ByVal pair2 As Integer)处理Button1 .Click
Label1.Text = pair1.ToString
Label2.Text = pair2.ToString
if pair1> pair2然后
MessageBox.Show(" Player 1 wins!")
ElseIf pair2> pair1然后
MessageBox.Show(" Player 2 wins!")
ElseIf pair1 = pair2然后
MessageBox.Show(" Player 1 and Player 2 tied!")
结束如果
结束次级
结束等级
公共类别HighRoller
Dim rnd As Random
Dim pair1 As Integer
Dim pair2 As Integer
Dim dice1 As New PairOfDice1(rnd)
Dim dice2 As New PairOfDice1(rnd)
Dim dice3 As New PairOfDice2 (rnd)
Dim dice4 As New PairOfDice2(rnd)
Dim roll1 As Integer = dice1.roll
Dim roll2 As Integer = dice2.roll
Dim roll3 As Integer = dice3.roll
Dim roll4 As Integer = dice4.roll
Public Sub New(ByVal roll1 As Integer,roll2 As Integer,roll3 As Integer,roll4 As Integer)
pair1 = roll1 + roll2
pair2 = roll3 + roll4
结束次级
结束等级
公共类PairOfDice1
Dim num1 As Integer
Private rnd1 As Random
Public Sub New(ByVal random As Random)
rnd1 = random
End Sub
公共函数roll()As Integer
Randomize()
num1 = Int(Rnd()* 6)+ 1
返回num1
结束函数
结束类
公共类PairOfDice2
Dim num2 As Integer
Private rnd1 As Random
Public Sub New(ByVal random As Random)
rnd1 = random
End Sub
公共函数roll()As Integer
Randomize()
num2 = Int(Rnd() * 6)+ 1
返回num2
结束函数
结束类
您好
尝试将Option Strict On置于代码顶部并重新编译 - 然后修复所有错误。
I'm coding for a project in a programming class. We are supposed to create a pair of dice 1000 times and find all the times they add up to 7. My friend and I have the same exact code and his works and mine will not. We even have the same error code yet mine is not letting me even start the project. It keeps saying that I don't have the project.exe in the debug folder while I checked and I did. Here's the code that we have. The error is occurring on the button click and I don't understand why.
Public Class Form1 Public Sub Button1_Click(sender As Object, e As EventArgs, ByVal pair1 As Integer, ByVal pair2 As Integer) Handles Button1.Click Label1.Text = pair1.ToString Label2.Text = pair2.ToString If pair1 > pair2 Then MessageBox.Show("Player 1 wins!") ElseIf pair2 > pair1 Then MessageBox.Show("Player 2 wins!") ElseIf pair1 = pair2 Then MessageBox.Show("Player 1 and Player 2 tied!") End If End Sub End Class Public Class HighRoller Dim rnd As Random Dim pair1 As Integer Dim pair2 As Integer Dim dice1 As New PairOfDice1(rnd) Dim dice2 As New PairOfDice1(rnd) Dim dice3 As New PairOfDice2(rnd) Dim dice4 As New PairOfDice2(rnd) Dim roll1 As Integer = dice1.roll Dim roll2 As Integer = dice2.roll Dim roll3 As Integer = dice3.roll Dim roll4 As Integer = dice4.roll Public Sub New(ByVal roll1 As Integer, roll2 As Integer, roll3 As Integer, roll4 As Integer) pair1 = roll1 + roll2 pair2 = roll3 + roll4 End Sub End Class Public Class PairOfDice1 Dim num1 As Integer Private rnd1 As Random Public Sub New(ByVal random As Random) rnd1 = random End Sub Public Function roll() As Integer Randomize() num1 = Int(Rnd() * 6) + 1 Return num1 End Function End Class Public Class PairOfDice2 Dim num2 As Integer Private rnd1 As Random Public Sub New(ByVal random As Random) rnd1 = random End Sub Public Function roll() As Integer Randomize() num2 = Int(Rnd() * 6) + 1 Return num2 End Function End Class
Hi
Try putting Option Strict On at the top of your code and recompile - then fix all the errors.
这篇关于我收到错误代码而我的朋友不是。的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!