读者交流专帖《Visual Basic 6.0 完全自学手册》

Re:读者交流专帖《Visual Basic 6.0 完全自学手册》

木瓜哥哥，For...Next语句中的Next语句后的的循环变量有什么用呢?

mugua 回复vbreader：Next语句后的的循环变量可以省略。

Re:读者交流专帖《Visual Basic 6.0 完全自学手册》

木瓜哥哥,For...Next语句中,Next后的循环变量有什么用处?

Re:读者交流专帖《Visual Basic 6.0 完全自学手册》

呀,原来跑下一页去了,我以为没发上,所以................Sorry.....................

Re:读者交流专帖《Visual Basic 6.0 完全自学手册》

木瓜哥哥,我还是不明白.
那个循环变量可以省略,那原来有什么用呢?
有时候我读其他不省略那个循环变量就看不明白.
比如说
dim i as integer
dim sum as integer
sum = 0
for i = 1 to 10
sum = sum + i
next i
print sum
那个i没有特殊的作用,就是相当于占位对吗?还有一个问题,Do Events命令怎么用?

======

mugua回复：Next后面的变量没有实际意义，仅仅是便于阅读。
DoEvents语句是转让控制权，以便让操作系统处理其它的事件，此语句宜少应用。

Re:读者交流专帖《Visual Basic 6.0 完全自学手册》

书买了支持下木瓜！

Re:Re:读者交流专帖《Visual Basic 6.0 完全自学手册》

引用：
原文由 kkle 发表于 2007-4-30 18:41:26 :
书买了支持下木瓜！

同意!

Re:读者交流专帖《Visual Basic 6.0 完全自学手册》

木瓜哥哥:

您书中P.107的5.2.3中3.事件过程调用通用过程中的第2行“调用SaveLog”过程是否应改为“调用PrintChar”？

========

mugua回复：谢谢提醒，你是对的。

Re:读者交流专帖《Visual Basic 6.0 完全自学手册》

木瓜哥哥,我有个问题

我把你书中的MDI记事本扩展了，加了一个“日积月累”的窗体：

可是试运行的时候，我把“在启动时显示提示”复选框的对勾去掉了，但是再次运行的时候，怎么也调不出这个窗体了，我就在菜单里加了一个菜单项，可是不会编写代码，你能帮帮我吗？

附：我尝试编写下列代码，可是出现错误：

还有，“日积月累”窗体我用的是默认代码。

Re:读者交流专帖《Visual Basic 6.0 完全自学手册》

P65 表3.1 各对象属性的主要设置---> 对象TextBox的name属性为frmPwd,而源代码中为txtPwd

P45 图2.20 求余数运算在不同情况下的结果--->在立即窗口中 57 MOD 3.5=6 此结果不对，查看程序源代码错误

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

mugua回复：谢谢你的提醒，已经记录到前面。奖励1000金币。

Re:读者交流专帖《Visual Basic 6.0 完全自学手册》

瓜哥：

用VB如何实现下面结果：

a*b=690421883

求a和b?

===========

mugua回复：    Dim i As Integer
    Dim j As Integer
    For i = 1 To 690421883
        For j = 1 To 690421883
            If i * j = 690421883 Then Debug.Print i, j
        Next
    Next

Re:读者交流专帖《Visual Basic 6.0 完全自学手册》

P110 If dblNumber >= 0 then NumtoStr="正数" --->0应该不为正数吧！

P114 Private Sub Command1_Click() --->属性名Command1与光碟中不匹配，光碟中为cmdPrint.

另外谢谢瓜哥上贴的回复！但不解 i*j=50?

Re:Re:读者交流专帖《Visual Basic 6.0 完全自学手册》

  下面代码不能运行：

    Dim i As Integer
    Dim j As Integer
    For i = 1 To 690421883
        For j = 1 To 690421883
            If i * j = 690421883 Then Debug.Print i, j
        Next
    Next
求朋友协助，重编如下：

Dim i As Long
    Dim j As Long
    Const C = 690421883

    For i = 2 To C
        j = C / i
        If i * j = C Then
            Print i & "*" & j & "=" & C
            Exit Sub
        End If
    Next

Re:读者交流专帖《Visual Basic 6.0 完全自学手册》

先回复楼上：

Integer是整型变量，690421883这个数太大，所以会溢出，木瓜哥哥可能忽略这一点了，应该用Long长整型就对了

还有发现错误：P.56倒数第4行“将整型数568”应改为“238”

mugua回复：谢谢你，我记录下来。

Re:读者交流专帖《Visual Basic 6.0 完全自学手册》

木瓜哥哥，您书中P.195第一行，既然前面说是65535ms，后面怎么会是65毫秒？应该是65秒吧？

mugua回复：页码有没有记错？这个页上没有找到如上语句。

VBreader：的确错了，SORRY，是P.175

mugua回复：谢谢你，的确是65秒。

Re:读者交流专帖《Visual Basic 6.0 完全自学手册》

Private Sub Command1_Click()
If Text1.Text = "" Then
     MsgBox "密码不能为空！", , "提示"
     Text1.SetFocus
     Exit Sub
End If
With Data1
.Recordset.MoveFirst
Do Until .Recordset.EOF
If .Recordset("zybh") = Label2.Caption Then
.Recordset.Edit
.Recordset("mm") = Trim(Text1.Text)
.Recordset.Update
.Refresh
Exit Do

End If
.Recordset.MoveNext
Loop

End With
czrygl.Data1.Refresh
Unload Me
End Sub

这段代码能把注释都加上吗？我看不懂，解释一下也行，谢谢各位！

mugua回复：你认真学习第20章Data控件。