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个回答

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语法

Csdn user default icon
上传中...
上传图片
插入图片
抄袭、复制答案,以达到刷声望分或其他目的的行为,在CSDN问答是严格禁止的,一经发现立刻封号。是时候展现真正的技术了!
立即提问

相似问题

1
vb6.0怎么判断文本框里的输入是否被用户自行修改过的,否则就高亮显示?
0
vb6.0编程平台的文本框控件高亮反白显示的功能是利用什么代码方式实现的?
0
使用vb6.0开发平台系统怎么实现对文本输入的内容反白高亮的设置方式的代码是什么?
0
vb6.0编程开发怎么实现文本输入的控制中对于不合的输入进行反白显示高亮显示的标记?
0
在vb6.0中文版编程开发平台上怎么使用文本框控件对不合数据的反白高亮的提示功能?
0
请问怎么在vb6.0编程开发工具上实现对于输入的文字中的不合内容进行反白高亮显示?
0
怎么利用vb6.0编程开发实现文本输入的分段判断显示的功能,每个部分进行一个输入?
1
vb6.0中文开发平台上利用语句技术怎么实现一个输入的文本框的输入的分段比较的功能?
1
如何实现运用vb6.0中文开发在窗体上对一个输入控件实现分段数据的匹配和反白高亮?
1
请问如何运用vb6.0中文开发平台实现对于文本输入分段显示反白的控制调用?
0
请教怎么在vb6.0编程中文版平台上实现对于输入界面匹配的部分进行反白高亮的技术实现?
1
如何运用vb6.0编程语言实现在输入界面的上面分别匹配多个格式并且反白高亮?
1
请问在vb6.0编程语言如何运用输入的控件实现输入的分布匹配和反白功能?
0
vb6.0运用控件的编辑怎么实现分情况选择输入的控件的值的分匹配?
1
VB6.0 在开发串口时遇到下位机重启或者上电,就接不到数据了
1
vb6.0中关于循环的问题
1
VB6.0计算机基础。。。。。
1
vb6.0 如何获取excel的文档属性
2
求高手指导vb6.0如何获取打印机任务队列里的打印任务的打印份数。
4
VB6.0 + Excel,判断数据的位置?