Question

用vb语言输入一个正整数n(3～6),然后随机生成一个n位的正整数,统计此数

用vb语言输入一个正整数n(3～6),然后随机生成一个n位的正整数,统计此数中有多少个不

Answer 1

Private Sub Form_Click()

n = CLng(InputBox("输入一个正整数n(3～6):"))

Print "N="; n

Dim a(9) As Integer

While n > 0

t = n Mod 10

a(t) = 1

n = n \ 10

Wend

s = 0

For i = 0 To 9

s = s + a(i)

Next i

Print "其中有"; s; "个不同的数字"  

End Sub