Error en expresión se esperaba ")".
Publicado por Andrés (27 intervenciones) el 24/08/2018 07:02:03
Buenas amigos, estaba haciendo este pequeño programa para calcular números aleatorios en un ciclo y que este se detenga cuando un numero en el ciclo se repita.
La cuestión es que, no se que es lo que falta o tengo mal. Y me aparece el error se esperaba ')'. En la parte que esta en negrita y cursiva donde esta el "txtresiduo.Text=("X{0} = {1}" k, x)"
Comparto código para que me puedan ayudar:
Agradecería mucho su ayuda!!!
La cuestión es que, no se que es lo que falta o tengo mal. Y me aparece el error se esperaba ')'. En la parte que esta en negrita y cursiva donde esta el "txtresiduo.Text=("X{0} = {1}" k, x)"
Comparto código para que me puedan ayudar:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Public Class Form1
Private Sub btncalcular_Click(sender As Object, e As EventArgs) Handles btncalcular.Click
Dim a, b, Xo, m, i, k As Integer
'Entrada de datos
a = Val(txtvalorA.Text)
b = Val(txtvalorB.Text)
Xo = Val(txtvalorX.Text)
m = Val(txtvalorM.Text)
k = 1 'Proceso X = (a*Xo+b)%m
'Salida de Información
Dim x As Integer = Xo For k = 1 To mx = (a * x + b) Mod m
txtresiduo.Text=("X{0} = {1}" k, x)
If (x = Xo) Then Exit For
Next
MessageBox.Show("La serie se repite luego de {0} iteraciones.", "Guardando registros...", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Sub
End Class
Agradecería mucho su ayuda!!!
Valora esta pregunta
0
