为什么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,找到后直接打开,下次就会在打开方式里查到了详情>>