這次的程式有加上註解 讓不會的人比較容易懂 程式還有有些地方有小bug 請見諒
Partial Class _Default
Inherits System.Web.UI.Page
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
這次的程式有加上註解 讓不會的人比較容易懂 程式還有有些地方有小bug 請見諒
Partial Class _Default
Inherits System.Web.UI.Page
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
clear
p0=0.78;
p1=0.7;
Tol=10^(-10);
clear
p0=5.5;
Tol=10^(-10);
N0=10;
temp1=cos(p0)-p0;
temp2=-sin(p0)-1;
p=p0-temp1/temp2;
Dim Randoms(9) As Short
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
For i As Integer = 0 To 9
Randoms(i) = Rnd() * 200