Question

求几道简单VB题目的具体某一两步的解释

一、题目：输出下列数字图形
12345
23451
34512
45123
54321

程序如下：
option base 1
private sub form-load()
dim a%(5,5),i%,,j%,n%
for i= 1 to 5
a(1,i)=i
next i
for i=2 to 5
n=a(i-1,1)
for j=2 to 5
a(i,j-1)=a(i-1,j)
next j
a(i,j-1)=n
next i
for i=1 to 5

for j=1 to 5
print a(i,j);
next j
print
next i
end sub

我的问题是：N从哪来？N是做什么用的？

二、
放在所有程序开头的option explicit是什么意思？是做什么用的？
三、
题目：对10个100以内的整数用选择法按递增顺序排序
这道题目中的
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

next j
next i

我的问题：对这一段程序做出每一句的解释

Answer 1

1、
n 来自于前面的声明
dim a%(5,5),i%,,j%,n%
作用是在交换数组元素位置的过程中充当一个临时变量，就像你想把变量A和B的值对调，不能直接用B=A，那样2个变量就都就了原来A的值，B的值就丢失了。正确的办法是引入一个新的变量C，然后C=A，A=B，B=C。这里C的作用就和题中的n是相同的。
顺便说一句，VB中变量名是不区分大小写的。N和n是一样的。
2、
option explicit
的意思是“强制变量声明”，就是说任何变量在使用前必须事先用Dim之类的语句声明，编译程序时如果发现代码中有未声明过就使用的变量，会报错。这种机制有助于防止代码书写时错误。
3、
for i=1 to 9 '对于数组中的前9个元素
for j=i+1 to 10
if a (i)>a(j) then t=a(i):a(i)=a(j):a(j)=t
'以上2行的意思是：每个元素都与其后的所有元素进行比较，如果此元素的值大于大于后面的某一元素的值则对调位置（Then后面的语句与我对第一题的解释完全一样）。下面2行不用说了吧？
next j
next i

Answer 2

一：

Option Base 1
Private Sub form_click()
Dim a%(5, 5), i%, j%, n%
For i = 1 To 5
a(1, i) = i
Next i
For i = 2 To 5
n = a(i - 1, 1) 'N从这里来，用作临时变量，作用是存放一行的第一个元素值
For j = 2 To 5
a(i, j - 1) = a(i - 1, j)
Next j
a(i, j - 1) = n '这里，把上行的第一个元素值赋给下一行的最后一个元素。因为j循环结束时值为6，所以，这里j要减1
Next i
For i = 1 To 5

For j = 1 To 5
Print a(i, j);
Next j
Print
Next i
End Sub
二：强制变量申明。有了这句，程序里使用的变量都必须申明才行。不然就会报错。
三：
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'把第一轮取出的一个数依次与第二轮取出的每个数进行比较，若第一轮取出的数大，就与第二轮取出的数交换位置。

next j
next i

Answer 3

病情分析：
湿疹是过敏引起的，跟天气和体质有关。
指导意见：
要注意保持宝宝皮肤干燥，药物可以用扑尔敏内服配合局部涂抹宝宝湿疹膏。

可以用点炉甘石洗剂,湿疹锌软膏擦患处试试.
寻找发病原因并去除,注意调整饮食,大人小孩都要注意忌食辛辣刺激,避免进食易致敏的物品,如酒类,海鲜贝类食物应禁用,以清淡饮食为好;尽量减少外界不良刺激,如手抓,外用肥皂,热水烫洗等;衣着应较宽松,轻软,避穿毛制品或尼龙织品.

发热的原因多是感染引起,感染包括细菌感染和病毒感染以及以及支原体，衣原体，真菌感染等，也可以是体温中枢异常，皮肤散热异常，无菌坏死物质的吸收等.如有不适随时复查，必要时住院治疗

病情分析：
湿疹是儿科常见皮肤病，此病有自愈性，多可自愈。
指导意见：
严严重的湿疹可引起皮肤糜烂，需要及时诊治。不严重的湿疹可以使用派瑞松或者鱼肝油软膏。

Answer 4

1. 有一句赋值语句：n = a(i - 1, 1)，n就是这么来的，作用是取上一行第一列的值，分别是1、2、3、4
   

2. Option Explicit，用于强制显式声明代码中的所有变量，有了这句，就不能不Dim直接用变量，这可以显著减少代码中的错误。

3. 每一句的解释如下：

For i = 1 To 9 ' i 从1~9循环
  For j = i + 1 To 10  ' j 从 (i+1) ~ 9循环
    '如果 a(i)大于a(j)，那么a(i)和a(j)的值互换
    If a(i) > a(j) Then t = a(i): a(i) = a(j): a(j) = t
  Next j  '结束j循环
Next i  '结束i循环