判断n是否为质数算法代码，操作平台：excel
在代码编辑界面的光标闪动处输入以下代码：
首先输入“n = Sheets(“Sheet1”).Range(“A1”).Value”，这一行的含义是指将Sheet1中A1单元格的值赋予变量n；
下一行继续输入“i = 2”；
下一行继续输入“Do”；
下一行继续输入“r = n Mod i”，即求n除以i的余数r；
下一行继续输入“i = i + 1”，即i的值增加1；
下一行继续输入“Loop Until i > n – 1 Or r = 0”，结束循环的条件；
下一行继续输入“If r = 0 Then”，判断条件；
下一行继续输入“Sheets(“Sheet1”).Range(“B1”).Value = “不是质数””，将结果写入Sheet1中B1单元格；
下一行继续输入“Else” ，就是框图中“否”的意思；
下一行继续输入“Sheets(“Sheet1”).Range(“B1”).Value = “是质数””，将结果写入Sheet1中B1单元格；
下一行继续输入“End If”，结束判断；
二分法求根算法代码，操作平台：excel
Private Sub CommandButton1_Click() ‘开始程序
a = Sheets(“Sheet1”).Range(“A1”).Value ‘将sheet1中A1单元格的值赋予变量a，作为零点所在区间的左端，需要程序运行之前先行在sheet1中的A1单元格输入；
b = Sheets(“Sheet1”).Range(“C1”).Value ‘将sheet1中C1单元格的值赋予变量b，作为零点所在区间的右端，需要程序运行之前先行在sheet1中的C1单元格输入；
d = Sheets(“Sheet1”).Range(“G1”).Value ‘将sheet1中G1单元格的值赋予变量d，作为精确度，需要程序运行之前先行在sheet1中的G1单元格输入；
i = 2
m = a
Do
If f * h < 0 Then
b = m
Else
a = m
End If
m = (a + b) / 2 ‘算出中点的横坐标；
f = a ^ 3 – 6 * a ^ 2 – 3 * a + 5 ‘计算f(a)；
Sheets(“Sheet1”).Range(“A” & i).Value = a
Sheets(“Sheet1”).Range(“B” & i).Value = f
g = b ^ 3 – 6 * b ^ 2 – 3 * b + 5 ‘计算f(b)；
Sheets(“Sheet1”).Range(“C” & i).Value = b
Sheets(“Sheet1”).Range(“D” & i).Value = g
h = m ^ 3 – 6 * m ^ 2 – 3 * m + 5 ‘计算f(m)；
Sheets(“Sheet1”).Range(“E” & i).Value = m
Sheets(“Sheet1”).Range(“F” & i).Value = h
Sheets(“Sheet1”).Range(“G” & i).Value = Abs(a – b)
i = i + 1
Loop Until Abs(a – b) < d Or f = 0 ‘判断何时跳出循环；
End Sub ‘结束程序。
计算三角形面积公式算法代码，操作平台：excel
在代码编辑界面的光标闪动处输入以下代码：
首先输入“a = Sheets(“Sheet1”).Range(“A1”).Value”，将Sheet1中A1单元格的值赋予变量a，需要程序运行之前先行在sheet1中的A1单元格输入数值；
下一行继续输入“b = Sheets(“Sheet1”).Range(“B1”).Value”，将Sheet1中B1单元格的值赋予变量b，需要程序运行之前先行在sheet1中的B1单元格输入数值；
下一行继续输入“c = Sheets(“Sheet1”).Range(“C1”).Value”，将Sheet1中C1单元格的值赋予变量c，需要程序运行之前先行在sheet1中的C1单元格输入数值；
下一行继续输入“p=(a+b+c)/2”；
下一行继续输入“s=sqr(p*(p-a)*(p-b)*(p-c))”，“sqr”指调用数学公式求平方根；
下一行继续输入“Sheets(“Sheet1”).Range(“D1”).Value=s”，将求得的面积写入Sheet1中的D1单元格；
代码输入结束之后，回到excel窗口，在“A1单元格，B1单元格，C1单元格”中分别输入一个数值，点图1中的第一个按钮“运行”，就可以自动在“D1单元格”中得到结果。
