文档介绍：VB程序设计的常用算法教案
m算法(Algorithm):计算机解题的基本思想方法和步骤。算法的描述:是对要解决一个问题或要完成一项任务所采
取的方法和步骤的描述,包括需要什么数据(输入什么数据、输出什么结果)、采用什么结构、使用什么语句以及如何
安排这些语句等。通常使用自然语言、结构化流程图、伪代码等来描述算法。
一、计数、求和、求阶乘等简单算法
此类问题都要使用循环,要注意根据问题确定循环变量的初值、终值或结束条件,更要注意用来表示计数、和、阶
乘的变量的初值。
例:用随机函数产生100个[0,99]范围内的随机整数,统计个位上的数字分别为1,2,3,4,5,6,7,8,9,0的
数的个数并打印出来。
本题使用数组来处理,用数组a存放产生的确100个随机整数,数组x来存放个位上的数字分
别为1,2,3,4,5,6,7,8,9,0的数的个数。即个位是1的个数存放在x中,个位是2的个数存放在x中,……
个位是0的个数存放在x。
将程序编写在一个GetTjput过程中,代码如下:
PublicSubGetTjput
DimaAsInteger
DimxAsInteger
DimiAsInteger,pAsInteger
'产生100个[0,99]范围内的随机整数,每行10个打印出来
Fori=1To100
a=Int
Ifa<10Then
;a;
Else
;a;
EndIf
Ifimod10=
Nexti
'统计个位上的数字分别为1,2,3,4,5,6,7,8,9,0的数的个数,并将统计结果保存在数组x,x,...,x中,将统计结果打印出来
Fori=1To100
p=a
mod
0
'求个位上的数字
Ifp=0Thenp=10
x=x+1
Nexti
"统计结果"
Fori=1To10
p=i
Ifi=10Thenp=0
"个位数为"+Str+"共"+Str)+&qu