枚举算法。
班级姓名。函数定义和调用：
从text1获得文本，将其中的大写字母显示在label1中。
private sub command1_click()dim s as string,i as integerdim c as string
s=for i=1 to len(s)
c=mid(s,i,1)
ifthen
end if
next i
end sub
isupper功能：判断一定字母是否是大写字母。
function isupper(c as string)asif c>=”a” and c<=”z” thenisupper=true
elseend if
end function
默写完整的块if
默写完整的块for…next
默写完整的块do while…loop
理解单重循环。
数学形式。理解双重循环。
for i=1 to 2
for j=i to 3
str(i*j)
next j
next i
例1】．求1-1000中，能被3整除的数。
private sub command1_click()dim i as integer
for i=1 to
ifthen
end if
next i
end sub
做：新时代领航例1例2
例2】．某单据1xx47,缺千位数和百位数，但知道这个5位数是57或67的倍数，请设计一个算法，输出所有满足条件的5位数，并统计这样的数的个数。
方法一：private sub form_click()dim i as integer,k as integerdim n as integer
for ito
kifthen
str(k)
end if
next i
满足条件的个数：” str(n)
end sub
方法二：private sub form_click()dim i as integer,n as integerfor itostep
ifthen
str(k)
end if
next i
满足条件的个数：” str(n)
end sub
例3】．某单据1x4x7,缺千位数和十位数，但知道这个5位数是57或67的倍数，请设计一个算法，输出所有满足条件的5位数，并统计这样的数的个数。
private sub form_click()dim i as integer,j as integer,n as integer
for ito
for kto
n=10407+i*1000+k*10
ifthen
jend if
next k
next i
满足条件的个数。
end sub
例4】．鸡兔同笼问题。
今有鸡兔同笼，上有三十五头，下有九十四足，问鸡兔各几何？
private sub form_click()dim a as integer,b as integerfor ato
bifthen
“鸡=” str(a) &兔=” str(b)end if
next a
end sub
做：新时代领航例3
课后作业：作业本枚举第四章1a
必修一第一课同步解析
同步解析 必修1第1课夏 商 西周的政治制度。河南省镇平县第一高级中学魏娟。一 学法指导。1 夏商周时期是我国政治制度形成的重要时期，此时所形成的 世袭制 分封制 以及 宗法制 对我国几千年来的政治制度都有着深远影响。本课重点讲我国早期的政治制度，而且重中之重讲述西周的分封制和宗法制。2 夏商政治制...
第一课文化与社会 第一单元疑难解析
第一课文化与社会。重点分析。1 文化概念的内涵和外延。1 文化的内涵 文化是相对于经济 政治而言的人类全部精神活动及其产品。2 文化概念的外延 文化具有丰富多样的形式，我们可以从不同方面对文化进行分类。可以从性质方面把文化分为先进 健康有益文化和落后 腐朽文化 从地域方面把世界文化分为东方文化和西方...
第一课解析几何初步
第七章解析几何。几何图形代数化与代数结果几何化 是解析几何的基本思想 第一课解析几何初步。一 复习回顾 点的表示 数轴上点的坐标表示 对称点的坐标表示 两点间距离公式 平面内两点间距离公式 数轴上两点的距离公式 定比分点公式 定比分点坐标公式 线段中点的坐标公式。与向量有关的几何关系 平移公式 数量...