代码解析兼吐槽:
第一个循环,从1到16,每次都用Randomize初始化一次随机数种子(吐槽:真没这个必要……其实程序启动的时候,在Form_Load事件里Randomize一次就够了),然后产生一个30~100之间的随机整数(第1空填Rnd*71+30),并输出这个数(第2空填Picture1.Print a(i);),每输出4个数换行一次
第二个循环找最小值,这里同时用了两种记录最小值的方式:用Min记录值本身,用imin记录值的下标;其实这是不必要的,如果不需要记录下标,则imin可以去掉,反之如果需要记录下标,则Min可以去掉
循环之前,先假设第1个数是最小值(第3、4空分别填a(1)和1);然后进入循环,从2到16(第5空填2 To 16),如果第i个数比最小值要小(第6空填<Min或<a(imin),分别对应两种记录方式),则令Min=a(i)(第7空),imin=i(第8空)
循环之后,最小值就是Min或a(imin)(第9空的两种填法),最小值的下标就是imin(第10空)
第一个循环,从1到16,每次都用Randomize初始化一次随机数种子(吐槽:真没这个必要……其实程序启动的时候,在Form_Load事件里Randomize一次就够了),然后产生一个30~100之间的随机整数(第1空填Rnd*71+30),并输出这个数(第2空填Picture1.Print a(i);),每输出4个数换行一次
第二个循环找最小值,这里同时用了两种记录最小值的方式:用Min记录值本身,用imin记录值的下标;其实这是不必要的,如果不需要记录下标,则imin可以去掉,反之如果需要记录下标,则Min可以去掉
循环之前,先假设第1个数是最小值(第3、4空分别填a(1)和1);然后进入循环,从2到16(第5空填2 To 16),如果第i个数比最小值要小(第6空填<Min或<a(imin),分别对应两种记录方式),则令Min=a(i)(第7空),imin=i(第8空)
循环之后,最小值就是Min或a(imin)(第9空的两种填法),最小值的下标就是imin(第10空)