¿Cómo utilizar scripts pequeños?
Un pequeño problema en el programa script 20
Etiquetas: script, programa
Acabo de encontrar algunos programas script interesantes en Internet y creo que son bastante divertido, quise programar una calculadora logarítmica yo mismo. Después de leer algunos programas pequeños, escribí lo siguiente para verificar que la función se puede realizar, pero siento que falta un poco.
Cuando el programa llega a este paso, a=msgbox(("Con a como base, el logaritmo de b es: "&c) & chr(13) & chr(13) & "¿Quieres continuar con el cálculo?" ?", 36, "Resultado")
Espero reemplazar a y b en la ventana con los valores que acabo de ingresar. Espero que todos los héroes que pasan puedan ayudarme a modificarlo (si Si crees que hay algo malo en el programa, por favor dame algún consejo), no uses un lenguaje demasiado profesional para describirlo, no puedo entenderlo. Simplemente pegue aquí su programa modificado
dim a,b,c
msgbox"Bienvenido a la calculadora logarítmica"&chr(13)&"hecha por ぷ黑马Monkey ぷ"&chr(13 )&chr(13)&"Haga clic en Aceptar para continuar",,"Calculadora de logaritmos"
hacer
hacer
hacer
a =inputbox("Encuentre el logaritmo de b con a como base" & chr(13) & chr(13) & "¡Tenga en cuenta que a no puede ser 0 y 1!" & chr(13) & chr( 13) & "Por favor ingrese el valor de la base a:", "valor de a")
if a="" Entonces
msgbox "Por favor ingrese el valor de a, a no puede ser 0 y 1 !"
else
salir do
finalizar si
bucle
if (a= 0) o (a<2 y a>0) Luego
msgbox "El maestro dijo: ¡a no puede ser 0 y 1!"
else
salir do
end if
loop
do
b=inputbox("Ingrese el valor de b:", "El valor de b" )
if b=""entonces
msgbox "¡Ingrese el valor de b!"
de lo contrario
salir de hacerlo
finalizar el bucle if
c=log(b)/log(a)
a=msgbox(("Con a como base, El logaritmo de b es: "&c) & chr(13) & chr(13) & "¿Quieres continuar con el cálculo?",36,"Resultado")
si a=7 luego sal del do
bucle
msgbox"¡Gracias por usar!"&chr(13)&chr(13)&"O(∩_∩)O~",,"Adiós"
Pregunta complementaria:
¿Por qué nadie respondió~~? 2009-05-03 01:04