Question

vb程序题

Answer 1

程序不是很难，不过这题很容易搞错！
分析：
1、由于s先被赋值16个的字符串，那么ten（s）=16，所以for循环16次。但是题目只问第一行和第三行，那么只要分析第一次和第三次就可以了。
2、mid函数是截取函数，例如：mid（”1234“，1，2）就是从第1个字符开始，共截取2个字符，得到的结果是：“12”。注意n()是一个数组，程序定义n(9)表示数组有9个成员：分别是从n(0)到n(8)。
3、循环分析：
第一次循环：i=1，那么s1=mid（s，1，1）=”1“，由于1大于0，小于9，通过IF语句，所以j=1，n（1）=1。
第二次循环：i=2，那么s1=mid（s，2，1）=”2“，由于2大于0，小于9，通过IF语句，所以j=2，n（2）=1。
第二次循环：i=3，那么s1=mid（s，3，1）=”3“，由于3大于0，小于9，通过IF语句，所以j=3，n（3）=1。
解释：虽然n(j)在自加1，但是数组中的成员互不干扰，且数组成员的初始值默认为0。
4、输出结果：
注意j循环要输出的结果是：j的值及数组成员从n(0)到n(8)的值（n(9)无效），而且j的值在循环中被重新赋值，这样j的值就与上面的i循环无关了，j的值按照循环依次是0-9.
j循环第一次输出的是：j：n（0）即0：0，解释：n（0）默认初始值的是0.
j循环第二次输出的是：j：n（1）即1：1
j循环第三次输出的是：j：n（1）即2：1

追问

和答案不一样

运行结果写到右边了

追答

本人经过认真调试终于知道问题所在了
之前分析的基本没错，错就错在忽略了i循环16次，而这16次里面有些数是出现多次的。出现多少次那么n（几）=出现次数，因为它能自加1。其实也就是统计出现次数。
例如：
0这个数出现次数是1次，那么n（0）=1
1这个数出现次数是2次，那么n（1）=2
2这个数出现次数是3次，那么n（2）=3
3这个数出现次数是4次，那么n（3）=4
4这个数出现次数是1次，那么n（4）=1
所以经过j循环时，输出应该是：
j循环第一次输出的是：j：n（0）即0：1
j循环第二次输出的是：j：n（1）即1：2
j循环第三次输出的是：j：n（2）即2：3
j循环第四次输出的是：j：n（3）即3：4
j循环第五次输出的是：j：n（4）即4：1
以此类推...