vb 锁定计算机代码,vb在怎么编写程序隐藏输入的密码

数字的输入只是一种方法，你可以用其他你认为方便的方法

Private Sub Command1_Click()

Dim x, y, z, a, jh, num() As Double

x = 1

Do While x 0

x = InStr(x + 1, Text1.Text, ,)

If x 0 Then

ReDim Preserve num(y + 1)

If y = 0 Then

num(y) = Val(Mid(Text1.Text, 1, x - 1))

Else

num(y) = Val(Mid(Text1.Text, z, x - 1))

End If

y = y + 1

z = x + 1

End If

Loop

For x = 0 To y

z = z + num(x)

For a = 0 To y

If num(x) num(a) Then

jh = num(x)

num(x) = num(a)

num(a) = jh

End If

Next a

Next x

Label2.Caption = 最大值为： & num(y) & 最小值为： & num(1) & 平均数为： & Format(z / y, #.00)

End Sub

Private Sub Form_Load()

Text1.Text =

Label1.Caption = 请在文本框中输入需要排序的数 用，分隔每个数字并以，结尾

Label1.AutoSize = True

Label2.Caption =

Label2.AutoSize = True

MsgBox 请在文本框中输入需要排序的数 用，分隔每个数字并以，结尾

End Sub

取消

评论