查看完整版本: 征集vb经典算法小程序

征集vb经典算法小程序

[size=4]本来不想搞编程[/size]
[size=4]长时间没接触c\c++了[/size]
[size=4]为了学数据库，只学vb，php[/size]
[size=4]今年又学计算方法和算法设计，都要编程[/size]
[size=4]计划都用vb来编，顺便锻炼vb，边得好不好无所谓[/size]
[size=4]现在征集vb的常用算法和经典小程序（如100个c语言经典程序）
提供如计算方法中解线性方程，函数，微积分 迭代法，回溯法，np问题的算法和程序
网上c\c++有很多，虽然全面，但都比较复杂
干脆用vb来编（也许代码更多），只希望能了解，不要求程序顾及全面，简单就行[/size]
[size=4][/size]

希望大家有一个发一个
有链接网址发共享
让初学者能更好的把算法转换成vb程序

这个建议不错，支持！

计算阶乘n!

计算阶乘n!(n为用户从文本框输入值)。
Private Sub cmdfactor_Click()
   dim int1 as integer
   dim intinput as integer
   dim lngamount as long   
   intinput=CInt(txtinput.text)
   if intinput<=0 or intinput>12 then
        txtresult.text="请输入小于13的正整数！"
        exit sub
   end if
   int1=1
   lngamount=1
   do until int1>intinput
           lngamount=lngamount*int1
           int1=int1+1
    loop
    txtresult.text=lngamount
end sub

我先抛砖引玉吧，马上写了一个简单的。

求一元二次方程a*x*x+b*x+c=0的根

求一元二次方程a*x*x+b*x+c=0的根（窗体上有五个文本框text1,text2,text3,text4,text5,前三个分别用来输入方程系数a,b和c的值，后两个输入方程式的两个根）
下面的程序段可以求给定a,b和c值的一元二次方程a*x*x+b*x+c=0的根。
private sub command1_click()
   dim a as single, b as single, c as single
   dim sng1 as single, sng2 as single
   a=csng(text1.text)
   b=csng(text2.text)
   c=csng(text3.text)
   if a=0 then
      if b=0 then
          text4="方程无解"
          text5="方程无解"
      else
           text4=-c/b
           text5="方程只有一个实根"
      end if
   else
       sng1=b*b-4*a*c
       sng2=sqr(abs(sng1))/abs(2*a)
    if sng1<0 then
        text4=cstr(-b/(2*a))&"+"&cstr(sng2)&"i"
        text5=cstr(-b/(2*a))&"-"&cstr(sng2)&"i"
    else
        text4=-b/(2*a)+abs(sng2)
        text5=-b/(2*a)-abs(sng2)
    end if
  end if
end sub

visual basic 常用数值算法集（下载）
[url=http://www.vbgood.com/viewthread.php?tid=44899&extra=page%3D1&page=1]http://www.vbgood.com/viewthread.php?tid=44899&extra=page%3D1&page=1[/url]

呵呵，有下载的不错。

4   5  楼的可是一个一个敲进去的啊  :_012