（2011）93．一个具有10个元素的一维数组，下标从1到10，每个数组元素的值是随机函数产生的1～100之间的随机整数。要求：用Visual Basic语言写一个程序，把它们按照从小到大的次序排列起来输出。

（2012）93．一个具有10个元素的一维数组，下标从1到10，每个元素的值是由随机函数产生的[200，500]之间的随机整数。要求：用Visual Basic语言写一个程序，求出该数组中的最小值及其下标，并输出结果。

（2013）93．一个具有10个元素的一维数组，下标从1到10，每个元素的值是由随机函数产生的[100，400]之间的随机整数，统计出该数组中的偶数个数，并输出结果。要求：用Visual Basic语言编程实现。

（2014）93．设a是一个具有10个元素的一维整型数组，下标从1到10，每个元素的值由用户输入，要求把数组a中的非0数据按照原来的次序存入数组b中，并输出数组b各元素的值。请用Visual Basic 6.0语言编程实现。

(2015) 93． 若一个三位整数等于它的各位数字的立方和， 则称该三位整数是 “水仙花数” ，

例如，407=4^ 3  +0^ 3  +7^ 3 ，所以 407 是水仙花数。请编程找出所有的“水仙花数” 。

 (2016) 93.设 n是一任意自然数。若将 n的个位数字反向排列所得的自然数  n1与  n相等，则称 n 为一回文数。例如，若 n=12321，则称 n  为一回文数。编写程序：若用户输入一个整型数，判断这个数是否是回文数。

附参考答案：

2011：

Dim a(1 To 10) As Integer
Dim I, J As Integer
Dim T As Integer
Print "随机产生的10个数："
For I = 1 To 10
  a(I) = Int(Rnd * 100) + 1
  Print a(I);
Next I
Print
Print "排序后的10个数："
For I = 1 To 9
   For J = I + 1 To 10
     If a(I) > a(J) Then
         T = a(I)
         a(I) = a(J)
         a(J) = T
     End If
   Next J
Next I

For I = 1 To 10
  Print a(I);
Next I

2012：

dim a(1 to 10) as integer
dim i as integer
dim k as integer
for i=1 to 10
a(i)=int(301*rnd()+1)
print a(i)
next i
min=a(1):k=1
for i=2 to 10
if min > a(i) then
min=a(i):k=i
end if
next i
print “最小值为：”; min, "最小值的下标为："; k

2013：

Dim A(1 To 10) As Integer
Dim I As Integer, S As Integer

S = 0
For I = 1 To 10
   A(I) = Int(Rnd * 301) + 100
   Print A(I);
   If A(I) Mod 2 = 0 Then S = S + 1
  
Next I
Print "偶数的个数为："; S

2014：

Dim a(1 To 10) As Integer
Dim b() As Integer
Dim i As Integer, j As Integer
Dim k As Integer
k = 0
For i = 1 To 10
  a(i) = InputBox("请输入一个整数", "数据输入")
  Print a(i);
  If a(i) <> 0 Then k = k + 1
Next i
Print
Print "数组B中的元素值为："
ReDim b(k)
j = 0
For i = 1 To 10
   If a(i) <> 0 Then
      j = j + 1
      b(j) = a(i)
      Print b(j);
   End If
Next i

2015：

Dim I As Integer  'I提供一个三位数,范围100~999
Dim S As Integer  'S 记下个位,十位,百位的立方和
Dim R As Integer  'R 就是某个三位的个位数字,十位数字,百位数字
Dim B As Integer  'B 临时存放某个三位数,通过循环变成两位数,一位数,最后变成0

For I = 100 To 999
   B = I         'B临时存放某个三位数
   S = 0         '每提供一个位数,这个三位数各位立方和初值均为0
   While B <> 0
      R = B Mod 10  '第一次循环求出个位数字,第二次求出十位数字,第三次求出百位数字
      S = S + R ^ 3 '第一次循环将个位数字的立方和加入S，第二次将十位、第三次将百位数字的立方和加入S

      B = B \ 10    '第一次循环时将三位数变成两位数,第二次将两位数变成一位数,第三次将一位数变成0
  Wend
  If S = I Then Print I '当S等I时,这个I就是水仙花数
Next I

2016：

Dim N As Long, M As Long  'N为键盘输入的自然数，M 暂时保存这个自然数
Dim N1 As Long            'N1为反向求出的自然数
Dim R As Integer          'R为N的个位、十位、百位....数字

N1 = 0                    'N1的初值为0
N = CLng(InputBox("请输入一个正整数", "数据输入"))   '从键盘上输入一个自然数,然后将其转换成整数赋给N
M = N                         '将N的值保存到M中,下面对M进行操作
While M <> 0                  '循环变量M的值不断除以10,直到M为0时(即已经取出所有M的位数)退出循环
   R = M Mod 10               '求出M的个位数字
   N1 = N1 * 10               'N1整体扩大10倍(即原N1整体向左移1位)
   N1 = N1 + R                '将求出个数字R加入到N1中
   M = M \ 10                 'M减少10倍的整数部分
Wend
If N = N1 Then Print N, "是回文数" Else Print N, "不是回文数"