‘累乘法需要大家掌握，熟知其原理
Private Sub Command1_Click() ‘累乘，和累加原理相同，累加用的打印方式输出，这里赋给控件输出
Dim i%, a& ‘同样定义一个循环变量i，存储变量a（由于求阶乘的数会较大，所以建议a使用更高范围的长整型）
a = 1 ‘注意：累乘需要最先给存储量定义1，因为如果不定义默认0，则最后会输出0（0乘以任何数都是0）
For i = 1 To Val(Text1.Text) ‘设置循环i从1开始循环到文本的值，而文本值是用户进行输入的
‘意思就是求这个文本的阶乘，由于阶乘必须是数字，所以要加个val使其只能读取数字，这样才能保证严谨
‘如果不加val，则不能给全分，因为不够严谨，val能使文本只读取最开头的数字
a = a * i ‘进行累乘，a用来存储i以前的累乘值，i代表新增的累乘值
Next i ‘结束循环
Label1.Caption = a ‘将a的值赋给可视化的控件label1，使用户可以看见
End Sub
‘累加法需要大家理解，知道这是怎么一个逻辑
Private Sub Form_Load() ‘累加，计算从1+2+3+…+99+100
Show ‘对于“窗体加载事件”，无法正常打印（print），需要在事件开头加一个show
Dim i%, a% ‘定义循环变量i,变量a是存储累加的功能
For i = 1 To 100 ‘将i从1~100依次循环
a = a + i ‘这一行代码是关键，先别看"a=",就看"a+i",第一次循环a没有赋值（未赋值就是默认0）
‘第一次循环就是a=0,i=1,最后a被赋值0+1也就是变成了1，第二次循环a=1,i=2…
‘我们可以发现a就是存储了i以前的累加值总和，而i则代表新的累加值
Next i ‘结束for循环，对应循环变量i
Print a ‘打印，由于a已经定义了变量，所以不是字符串，无需双引号
End Sub

‘冒泡循环和选择循环，需要掌握
Dim i%, j%, t% ‘声明循环变量i,j，转换中介变量t
Dim a(0 To 5) As Integer ‘冒泡排序法用的数组，定义数组a索引0-5，并且是整型
Dim p%, b(0 To 6) As Integer ‘选择排序法声明的变量，真正意义只要6个数组就行了，多加1位是防越界
Private Sub Command1_Click() ‘冒泡循环
For i = 0 To 5
a(i) = Text1(i).Text
Next i ‘前面三行就是把text1的值赋给数组a,因为text1.text字太多了，后面代码要输入好多，图方便
For i = 1 To 5 ‘6个数依次求最大，只要知道第5个大的就ok了，因为剩下的就是第6大的
For j = 0 To 5 – i ‘从那么求一次最大值需要和后面每个数比较，那些已经是最值的就不用比
‘所以减去i（代表已经求出的最值个数）
If a(j) > a(j + 1) Then ‘和后面比较，如果大于后面
t = a(j): a(j) = a(j + 1): a(j + 1) = t ‘这个逻辑就是和后面的数交换，需要有个中介t，非常基础的编程思维
End If
Next j
Next i
For i = 0 To 5
Text1(i).Text = a(i) ‘这里和第一步一样，因为a是方便用来编写的工具数组，要把他换回可视化的text1
Next i
End Sub

Private Sub Command2_Click()
For i = 0 To 5
b(i) = Text1(i).Text
Next i ‘前面三行就是把text1的值赋给数组a,因为text1.text字太多了，后面代码要输入好多，图方便
For i = 0 To 4 ‘选择排序法就是依次选出最小的，所以是6个数循环5次，最后剩下的就可以少选一次了
p = i ‘将i值赋给p，方便后面比较
For j = i + 1 To 5 ‘由于是选出最小的，所以已经选出来的就不用再选了，故要+1，直到最后一个数组号码5
If b(p) > b(j) Then p = j ‘如果找出小的，则替换
Next j
If p <> i Then ‘判断他的索引是否相等，因为如果索引相等替换，则是徒劳
t = b(p): b(p) = b(i): b(i) = t ‘进行数组间值的替换，要用到中介t
End If
Next i
For i = 0 To 5
Text1(i).Text = b(i) ‘这里和第一步一样，因为a是方便用来编写的工具数组，要把他换回可视化的text1
Next i
End Sub

Private Sub Command3_Click()
For i = 0 To 5
Text1(i).Text = "" ‘循环清空，方便下次运行
Next i
End Sub

‘求素数与穷举，这个需要大家掌握，技能考70%会考，可能在第三题，第三题能拿下岂不是直接过
Dim i%, j%, a% ‘定义2个循环变量i/j，和一个变量a用来存储text1.text方便写代码
Dim flag As Boolean ‘这里定义标记变量flag,布尔类型只有true和false（默认false）,标记其是不是素数
Private Sub Command1_Click() ‘求文本1范围内的素数
‘首先了解素数概念：在正整数情况下，除了1和本身，其他数比其小的数作为被除数均无法整除
‘所以代码整体思路就是通过循环嵌套，外循环作为除数，内循环作为被除数，进行求余
‘再通过一个标记变量记录，最后通过这个标记变量判断是否是素数，进行穷举,听懂掌声
a = Val(Text1.Text) ‘赋值给a,val只读取数字增加代码严谨性
For i = 2 To a ‘这里外循环作为除数，也就是拟求的素数，因为素数不能为1，所以从2开始，直到范围
flag = True ‘首先假设这个数为素数
For j = 2 To i – 1 ‘设置内循环，也就是除数，因为1一定可以整除所以从2开始测试，直到该数的前一个数
If i Mod j = 0 Then flag = False ‘进行求余判断，如果能整除（余数为0），则不是素数，标记false
Next j ‘结束内循环
If flag = True Then ‘最后判断标记，如果还是true，则一定是素数了，可以安全穷举了
Text2.Text = Text2.Text & " " & i ‘这里就是穷举了，首先和累加差不多，但要记着文本连接符号是 &
End If
Next i
End Sub

‘求最值，要求大家掌握其算法
Private Sub Command1_Click()
‘首先做控件的时候就给text1定义了6个数组0号-5号
Dim i%, max%, min% ‘既然已经有数组了，那就可以用循环变量i来代替数组索引，定义max和min存最值
max = Val(Text1(0).Text) ‘求最值这里只能是数字，所以要加val表示严谨（不加没分）
min = max ‘这两行代码可以一起看，意思就是将第0个数组的值都赋给max&min,通过和后面比较求最值
For i = 1 To 5 ‘第0个数组不用和自己比较，所以从1开始比较，直到最后的5号数组
If Val(Text1(i).Text) > max Then max = Val(Text1(i).Text) ‘找到比原来大的就替换
If Val(Text1(i).Text) < min Then min = Val(Text1(i).Text) ‘找到比原来小的就替换
‘如果if整个代码在一行时，就不用end if
Next i
Text2.Text = max ‘最后把最值赋给可视化控件
Text3.Text = min
End Sub

Private Sub Command2_Click()
End ‘退出程序代码，记一下万一要考
End Sub