ttsc3000 2017-03-19 13:35 采纳率: 100%
浏览 974
已采纳

vb6.0 在窗体载入时for语句没有被执行

程序预期的运行效果是在窗体被打开后,(rec-2)个label控件会按照计算好的位置依次排列,每个label控件会显示程序外接文档里一行的内容。
外接文档第一行和第二行都是整数数字。
但是在这个窗体打开后,lblname(n)并没有被创建。
而rec的值大于3,row 与list的值均不为0,控件text1内每行的内容确实为r(rec)的内容。
也就是说,for内的语句没有被执行。
代码如下:

Dim r(100) As String
Dim rec As Integer

Private Sub Form_Load()
    Open ("result.txt") For Input As #3
    rec = 0
    Do Until EOF(3)
        Line Input #3, r(rec)
        Text1.Text = Text1.Text & vbCrLf & r(rec)
        rec = rec + 1
    Loop
    row = Val(r(0))
    list = Val(r(1))
    lblrow.Caption = row
    lbllist.Caption = list
    lblcount.Caption = rec - 2
    lbln = Label1.Width / list
    lblt = (Label7.Top - Label2.Top - Label2.Height) / row
    lblh = lblstand.Height
    lblw = lblstand.Width
    For i = 2 To n = rec - 1
        n = i - 1
        Load lblread(n)
        X = Int(n / row) + 1
        y = n Mod row
        If n Mod row = 0 Then
            X = X - 1
            y = row
        End If
        If X Mod 2 = 0 Then y = row - y + 1
        lblread(n).Height = lblh
        lblread(n).Width = lblw
        lblread(n).Caption = r(i)
        lblread(n).Top = Label1.Top + y * lblt
        lblread(n).Left = Label1.Left + Label1.Width - (X - 1) * lbln - lblstand.Width
        lblread(n).Visible = True
    Next i
End Sub 
  • 写回答

1条回答 默认 最新

  • threenewbee 2017-03-21 04:17
    关注

    For i = 2 To n = rec - 1
    相当于
    For i = 2 To (n = rec - 1)
    相当于
    For i = 2 To False
    相当于
    For i = 2 To 0
    你的循环当然不运行

    先找本书学习下VB语法

    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论

报告相同问题?

悬赏问题

  • ¥15 人大金仓下载,有人知道怎么解决吗
  • ¥15 一个小问题,本人刚入门,哪位可以help
  • ¥15 python安卓开发
  • ¥15 使用R语言GD包一直不出结果
  • ¥15 计算机微处理器与接口技术相关问题,求解答图片的这个问题,有多少个端口,端口地址和解答问题的方法和思路,不要AI作答
  • ¥15 如何根据一个截图编写对应的HTML代码
  • ¥15 stm32标准库的PID角度环
  • ¥15 ADS已经下载好了,但是DAS下载不了,一直显示这两种情况,有什么办法吗,非常急!
  • ¥100 Excel 点击发送自动跳转outlook邮件
  • ¥15 gis中用栅格计算器或加权总和后图层不显示,值也明显不对