2. Diseñe un programa VB simple para calcular el valor de la función. Diseñe un programa VB simple para calcular el siguiente valor de la función VB. Consejo: Para simplificar, puedes

Interfaz:

Código:

Privado?Sub?List1_Click()

Dim?i?As?Integer

i?=?List1.ListIndex

¿Si?(i?=?0)?Entonces

List2.List(i)?=?Int(-3.14159)

ElseIf?i?=?1?ThenList2.List(i)?List2.List(i)? =?Sqr(Sqr(64))

ElseIf?i?=? 2?Entonces List2.List(i)? =?CInt(15?/?4)

ElseIf?i?=?3?Then List2.List(i)? =?Str(-459.65)

ElseIf?i?=?4?/?2)

ElseIf?i?=?5?Then

List2.List(i)? ?Val("16?Año")

ElseIf?i?=?6?Then

List2.List(i)? =?Len("VB5.0")

ElseIf?i?=?7?Then

List2.List(i)? =?Mid("Window_VB",?3,?4)

¿Fin? Si

Fin?Sub

Zhang Zhi Chen