Red de conocimiento informático - Problemas con los teléfonos móviles - Problema de VB, en el programa, haga clic en el botón (y reproduzca el archivo de sonido especificado), organice los números en el texto 11 en orden ascendente y muestre el nombre y el número correspondiente en la etiqueta 1.

Problema de VB, en el programa, haga clic en el botón (y reproduzca el archivo de sonido especificado), organice los números en el texto 11 en orden ascendente y muestre el nombre y el número correspondiente en la etiqueta 1.

Hay un Texto1 en el formulario, el Índice está establecido en 0

Una Etiqueta, el Título está vacío

Un Comando

El archivo de Sonido es Wav, colóquelo en el directorio de guardado del programa, colóquelo en otro lugar y modifique el código

Función de declaración privada sndPlaySound Lib "winmm.dll" Alias ​​​​"sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) Mientras

Private Sub Command1_Click()

Dim tmp(0 a 10)

Dim i, j como entero

Para i = 0 a 10

tmp(i) = Val(Text1(i).Text)

Siguiente i

Para i = 0 a 9

Para j = i + 1 a 10

Si tmp(i) < tmp(j) Entonces

t = tmp(i)：tmp(i) = tmp(j): tmp(j ) = t

Finalizar si

Siguiente j

Siguiente i

Para i = 0 A 10

Label1.Caption = Label1.Caption & "Primero " & i & ": " & tmp(i) & Chr(13)

Siguiente i

sndPlaySound App.Path + "\ chimes.wav", 0

End Sub

Sub privado Form_Load()

Atenuar i como entero

Para i = 1 a 10

Cargar Texto1(i)

Texto1( i).Visible = Verdadero

Texto1(i).Top = Texto1(i - 1).Top + 300

Siguiente i

Fin Sub

上篇: ¿Qué debo hacer si el cliente móvil de la estación P falla indefinidamente? 下篇: ¿Qué hace el servicio de atención al cliente por voz de yy?

Artículos populares