Mensajes

Buenas tardes.
Estoy intentando crear un programa que calcule un aleatorio y te de varias oportunidades para acertarlo, el problema es que no puedo encontrar la manera de que el numero sea aleatorio al iniciar el programa pero se mantenga constante a lo largo de la ejecucion del mismo,  y ademas de eso quiero que una vez dicho un numero me de la opcion de decir otro, pero e puesto un bucle que no me funciona como querria
muchas gracias de antemano

Código (vbnet) [Seleccionar] Expandir


Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim k
        k = ALEAT()
        Const a =
        TextBox1.Text() = "Pon el numero aqui "
    End Sub

    Public Function ALEAT() As Integer
        Dim Aleatorio, max
        max = 1000
        Randomize()
        a = Int((max - 1) * Rnd() + 1)
    End Function
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim numero, num, max, cont, bol, al
        al = a
        num = 0
        cont = 1
        bol = True
        num = TextBox1.Text
        Do While num <> al And cont < 10
            'msgbox("intento numero " & cont)
            If num > al Then
                MsgBox("Intento numero " & cont & ". Es menor. Prueba otra vez")
                num = TextBox1.Text
            Else
                MsgBox("Intento numero " & cont & ". Es mayor. Prueba otra vez")
                num = TextBox1.Text
            End If
            cont = cont + 1
        Loop
        If num = al Then
            bol = False
        End If
        If bol = True Then
            MsgBox("Has fallado, era el " & al)
        Else
            MsgBox("Acertastes, era el " & al & " Numero de intentos " & cont)
        End If
    End Sub


Alguien me puede hechar una mano con este programita   gracias

Código (vb) [Seleccionar] Expandir

Option Explicit
dim num, Aleatorio, max
num=0
max=25
Randomize
Aleatorio = CInt((max - 1) * Rnd () + 1)
MsgBox (Aleatorio)
num=inputbox("Adivina el numero que pienso del 0 al " & max)

do until num = Aleatorio
if num >Aleatorio then
msgbox ("Es menor")
else
msgbox ("Es mayor")
end if
num=inputbox("Prueba otra vez")
loop
msgbox("Acertastes, era el " & Aleatorio)

Buenos dias.
He probado con la solucion de las comillas y no lo soluciona.
Con respecto a lo de algun campo que no sea numerico no hay ninguno, salvo huecos vacios, pero estos huecos ya estaban antes cuando funcionaba la consulta.
Si alguien me puede dar luz a este asunto.
Muchas gracias

Hace unos meses realice una consulta de actualizacion el la base de datos de access, en su momento funcionaba correctamente, pero ayer al introducir nuevos datos, me da un error que dice No coinciden los tipos de datos, la consulta es la siguiente:
UPDATE [tabla] SET [tabla].Definición = "texto"
WHERE [tabla].[Tipo]="NUMERICO"
AND val(([tabla].Tamaño))>38;
el campo Tamaño es de tipo texto
Gracias por la ayuda