Option Explicit Dim a(21, 21) As Long Dim b(21) As String Dim i As Byte Dim j As Byte Private Sub Form_Load() a(0, 0) = 1 For i = 1 To 20 For j = 1 To 20 a(i, j) = a(i - 1, j - 1) + a(i - 1, j) If a(i, j) <> 0 Then b(j) = b(j - 1) & " " & a(i, j) End If Next Print b(i) Next End Sub 请由以上代码作修改,再定义一个变量n为Long,并增加输入消息框插入在窗体Load事件的第一行,用于输入整数n,传递给For Next循环,并将数组的维数修改与整数n相适应: For i = 1 To n For j = 1 To n a(i, j) = a(i - 1, j - 1) + a(i - 1, j) If a(i, j) <> 0 Then b(j) = b(j - 1) & " " & a(i, j) End If Next Print b(i) Next 。
答：看看这段代码行不行？ Private Sub Form_Click() Dim n As Integer n = InputBox("", "") ReDim ...详情>>
答：线性链表分好几种,分为单链,双链等,它们的存储顺序也不一样. 线性表是顺序存储的,占顺序的存储空间详情>>
问：电脑安装了VB6.0，为什么打开方式里面没有VB程序选项，进安装好的VB里去关联...
答：打开方式最下面还有一个《选择程序》，点开后查VB的安装目录的EXE，找到后直接打开，下次就会在打开方式里查到了详情>>
