Question

vb程序 解释一下代码 谢谢

Sub ZBRAC(X1, X2, SUCCES)
FACTOR = 1.6 ！请问这个factor是干什么用的？
NTRY = 50
If X1 = X2 Then Print "you have to guess an initial range"
F1 = FUN(X1)
F2 = FUN(X2)
SUCCES = True
For J = 1 To NTRY
If F1 * F2 < 0 Then Exit Sub
If Abs(F1) < Abs(F2) Then
X1 = X1 + FACTOR * (X1 - X2) !为什么不是 个数* (X1 - X2) /NTRY
F1 = FUN(X1)
Else
X2 = X2 + FACTOR * (X2 - X1) !为什么不是 个数* (X2- X1) /NTRY
F2 = FUN(X2)
End If
Next J ！这个是干什么的
SUCCES = False 这个是干什么的
End Sub ...

Answer 1

factor是一个变量
为什么不是 个数* (X1 - X2) /NTRY 不明白。相等就可以。比如说1+2=2+1，写法不同。
next j跟next一样，就是在for循环太多时便于区分而已。
succes还是变量。

Answer 2

形参 用于传递数据的,方便调用

Answer 3

Dim a As String'定义变量，字符串型
Dim b As Integer'定义变量，数值型
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)’声明API，延时语句
Private Sub look() '自定义函数look
Do 'DO循环
For b = 4 To 84 Step 4 'For循环
Sleep 1'call API 延时
Cls'清屏
ForeColor = RGB(0, 180 + b, 0)'设置字体前景颜色
Font.Size = b'设置字号大小
CurrentX = (ScaleWidth - TextWidth(a)) \ 2'文本框设置
CurrentY = (ScaleHeight - TextHeight(a)) \ 2
Print a'显示（打印）效果
DoEvents'延时处理
Next'For循环体结束标志
For b = 84 To 4 Step -4'For循环
Sleep 1'延时
Cls'清屏
ForeColor = RGB(155 + b, 150, 180)'字体前景色
Font.Size = b
CurrentX = (ScaleWidth - TextWidth(a)) \ 2
CurrentY = (ScaleHeight - TextHeight(a)) \ 2
Print a
DoEvents
Next
DoEvents
Loop'Do循环体结尾标志
End Sub

Private Sub Form_Activate()'窗体被激活时
Call look'调用自定义函数
End Sub

Private Sub Form_Load()'窗体载入时
BackColor = vbBlack'窗体背景色为黑色
WindowState = vbNormal’窗口正常模式
AutoRedraw = True'窗体可以被拖动
Font.Name = "arial"'字体模式 为arial
a = " "
End Sub

========================================
您的问题==我的课题 奉献知识==辉煌生命
黑龙江省 张志晨

========================================