范斯晶大胸:跪求土力学之普遍条分法试算编程,VB版
来源:百度文库 编辑:高考问答 时间:2024/04/28 05:02:46
普遍条分法编程,VB 版,紧急。
可借助Picture控件和VscrollBar控件达到将所有的数字都显示出来,代码如下:
Option Explicit
Dim n As Integer
Dim a As Integer
Private Sub Form_Load()
For n = Int(Sqr(1000)) + 1 To 100 Step 1
a = n ^ 2
Picture2.Print a
Next n
End Sub
Private Sub VScroll1_Change()
Picture2.Top = -VScroll1 * 1
End Sub
工程文件上传.
附件:xianshi.rar