为什么VB没有结果?
Dim a(1 To 10) As Integer
Dim i As Integer, j As Integer, t As Integer
For i = 1 To 10
a(i) = InputBox("输入第" & i & " 个数：", "数据输入", 0)
Next i
For i = 1 To 9
For j = i + 1 To 10
If a(i) < a(j) Then
t = a(i)
a(i) = a(j)
a(j) = t
End If
Next j
Next i
For i = 1 To 10
Form1.Print a(i), Tab(9)
Next i
为什么VB没有任何信息?
用Msgbox吧，它是windows里的提示工具 先在最上面加上一 dim strMsg as string strmsg="" 把 Form1。
Print a(i), Tab(9) 改为 strmsg=strmsg & a(i) & tab(9) 然后在最后一行加上 msgbox strMsg 全程序如下: dim strMsg as string strMsg="" Dim a(1 To 10) As Integer Dim i As Integer, j As Integer, t As Integer For i = 1 To 10 a(i) = InputBox("输入第" & i & " 个数：", "数据输入", 0) Next i For i = 1 To 9 For j = i + 1 To 10 If a(i) < a(j) Then t = a(i) a(i) = a(j) a(j) = t End If Next j Next i For i = 1 To 10 strMsg=strMsg & a(i) & tab(9) Next i msgbox strMsg 可以了吗 。
Form1.Print a(i), Tab(9) 应该能打印东东出来，在Form1的最左边，有没有东西挡住了？但这样要好点： Form1.Print a(i); 当然上面各位建议的Msgbox和debug.print都行，但最好不用Tab()，而a(i) &Tab(9)是错的，因为Tab()是个函数......
只要把form1.print a(i),Tab(9) 改成form1.print a(i) &Tab(9)这样就可以
Form1.Print a(i), Tab(9) 换为 debug.print a(i),tab(9) 运行后在立即窗体中看吧.
“For i = 1 To 10 Form1.Print a(i), Tab(9) Next i” 这一段中将“Form1.”去掉
答：缺省 [As类型]为可变类型。 示例 Dim a as Integer Dim b as String dim c as double dim d as sin...详情>>
答：线性链表分好几种,分为单链,双链等,它们的存储顺序也不一样. 线性表是顺序存储的,占顺序的存储空间详情>>
问：电脑安装了VB6.0，为什么打开方式里面没有VB程序选项，进安装好的VB里去关联...
答：打开方式最下面还有一个《选择程序》，点开后查VB的安装目录的EXE，找到后直接打开，下次就会在打开方式里查到了详情>>
