VB程序设计

1、d、Caption

2、a、a, b都是整型

3、b、窗体布局

5、c、当用 Show方法显示窗体时，必定会发生Load事件

6、c、FondBold

7、c、38

8、 c、Dir1_Change事件

9、d、n!

Private Sub Form_Load()

Dim s As String, t() As String

Open AppPath & "\1txt" For Input As #1

Do Until EOF(1)

    Line Input #1, s

    t = Split(s, "=", 2)

    If UBound(t) = 1 Then

        If IsNumeric(t(0)) Then Text1(Val(t(0)))Text = Replace(t(1), "::", vbCrLf)

    End If

Loop

Close #1

End Sub

Private Sub Form_Unload(Cancel As Integer)

Dim t As TextBox

Open AppPath & "\1txt" For Output As #1

For Each t In Text1

    Print #1, tIndex & "=" & Replace(tText, vbCrLf, "::")

Next

Close #1

End Sub

以上就是关于VB程序设计全部的内容，包括:VB程序设计、vb 课程设计、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！