Programación VB.net

Función?ULCase(ByVal?value?As?String)?As?String

Dim?s?As?String?=?""

Para?Cada?i?As? Char?In?value

s?&=?IIf(Char.IsLower(i),?Char.ToUpper(i),?Char.ToLower(i))

Siguiente

¿Regresar? Similar al anterior, use el método incorporado para determinar el caso

2.

Métodos comunes para obtener datos ¿InputBox?, TextBox Uso de inputBox

Función pública InputBox(ByVal Prompt como cadena, título ByVal opcional como cadena = "", respuesta predeterminada ByVal opcional como cadena = "", ByVal XPos opcional como entero = -1, ByVal YPos opcional como entero = - 1) Como cadena

Función: muestra un mensaje en el cuadro de diálogo, espera a que el usuario ingrese texto o haga clic en un botón y luego devuelve una cadena que contiene el contenido del cuadro de texto.

Parámetros:

Consejos: Se mostrará una expresión de cadena requerida como información en el cuadro de diálogo. La longitud máxima del mensaje es de aproximadamente 1024 caracteres, dependiendo del ancho de los caracteres utilizados. Si el mensaje contiene varias líneas, puede utilizar un retorno de carro (Chr(13)), un avance de línea (Chr(10)) o una combinación de retorno de carro/avance de línea (Chr(13) y Chr(10)) para separe cada línea.

Título: Opcional. Una expresión de cadena para mostrar en la barra de título del cuadro de diálogo. Si se omite Título, el nombre de la aplicación se muestra en la barra de título.

Respuesta predeterminada: expresión de cadena opcional. Si no se proporciona ninguna otra entrada, se mostrará en el cuadro de texto como respuesta predeterminada. Si se omite DefaultResponse, el cuadro de texto mostrado está vacío.

XPos: Opcional. Una expresión numérica que especifica la distancia, en unidades de salida, entre el borde izquierdo de la pantalla y el borde izquierdo del cuadro de diálogo. Si se omite XPos, el cuadro de diálogo se centrará horizontalmente.

YPos: Opcional. Una expresión numérica que especifica la distancia, en T, entre la parte superior de la pantalla y el borde superior del cuadro de diálogo. Si se omite YPos, el cuadro de diálogo se coloca verticalmente aproximadamente a un tercio de la parte inferior de la pantalla.

Valor de retorno:

Muestra un mensaje en el cuadro de diálogo, espera a que el usuario ingrese texto o haga clic en un botón y luego devuelve una cadena que contiene el contenido del cuadro de texto.

Código: Dim?KC()?As?String?=?{"Idioma", "Matemáticas", "Inglés", "Física", "Química"}

Dim ?MyTable?As?New?Hashtable

Para?Cada?i?As?String?In?KC

MyTable.Add(i,?Val(InputBox("Por favor, ingrese" ?"?Puntuación:",?"" Enter",? "i"" 0")))

Siguiente

Dim?sum?As?Single

Para?Cada?i?As?DictionaryEntry?In?MiTabla

suma?+=?i.Value

Siguiente

Dim?Pf?As ?String?=?IIf(suma?>?450?OrElse?_

(MiTabla(KC(0))?>?95?AndAlso?MyTable(KC(1))?AndAlso?MyTable( ¿KC(2))?>?95?AndAlso?MyTable(KC(3))?>?80?AndAlso?MyTable(KC(4))?>?80)?OrElse?_

( ¿MiTabla(KC(0))? >?85?¿YTambién?MiTabla(KC(1))? >?85?¿YTambién?MiTabla(KC(2))? >?85?Y también?MiTabla(KC(4))?>?85),?