vb中如何计算1数组中有多少个不同的字符 vb中数组的计算是从里到外吗

vb中有没有计算有效数字的个数的函数啊，好像没有啊。请大侠帮忙解决一下，返回一个数字的有效数字个数。 Private Sub Command1_Click()Dim k As String，Ws As Integer，Sz As Stringk=InputBox(\"要计算那个数的有效数字？If k>；0 ThenYxsz k，Ws，SzPrint k&\"的有效数字包括为：\"&Sz&\"，共\"&Ws&\"位。End IfEnd SubPrivate Sub Yxsz(Ys As String，Yxszws As Integer，Yxszzf As String)Dim IntWs As Integer，I As Integer，J As IntegerIntWs=Len(Ys)For I=1 To IntWsIf Mid(Ys，I，1)<；>；\"0\"And Mid(Ys，I，1)<；>；\".\"ThenYxszws=IntWs-I+1Yxszzf=Mid(Ys，I)Exit ForEnd IfNext IJ=InStr(I，Ys，\".\")If J>；0 ThenYxszws=Yxszws-1Yxszzf=Mid(Ys，I，J+I-2)&Mid(Ys，I+J)End IfEnd Sub请教VB中一个数组计算的问题 没有了啊。vb中如何计算1数组中有多少个不同的字符 Private Sub Form_Load()sarr=Array(\"123\"，\"123\"，\"234\"，\"456\")MsgBox GetDiffCount(sarr)End SubPublic Function GetDiffCount(sarr)Dim spl()As Stringn=0ReDim spl(0)spl(0)=sarr(0)For i=1 To UBound(sarr)For j=0 To nIf spl(j)=sarr(i)Then Exit ForNext jIf j=n+1 Thenn=n+1ReDim Preserve spl(n)spl(n)=sarr(i)End IfNext iGetDiffCount=n+1End Functionvb中怎样让计算器上的数字从右边出来 vb中让计算器上的数字靠右边显示，只需要设置textbox的Alignment属性为1即可。如果代码中设置，如下：Private Sub Form_Load()Text1.Alignment=1End Sub二维数组元素个数怎么算啊！！！VB语言的，求！ 先说没有option base XX情况：例如a（3，4），第一维是3，第二维是4，数组就有（3+1）*（4+1）=20个元素，因为这时下界默认是0，等价于a（0 To 3，0 To 4）。若是有option base XX，例如option base 1，a（3，4）就等价于a（1 To 3，1 To 4），数组就有3*4=12个元素。同理，option base 2，a（3，4）就等价于a（2 To 3，2 To 4），数组就有（3-1）*（4-1）=6个元素。另外，option base 0 等同第一种情况，可以不写。

#数组#sub