vb基础 - VB / 基础类
Private Sub Command1_Click()
Dim a(1 To 7)
For i = 1 To 7
a(i) = i: Print a(i)
Next i
Print
For i = 1 To 7
t = a(7)
For ？？？？
a(j + 1) = a(j)
Next j
？？？？
For j = i To 7
Print a(j)
Next j
？？？？
Next i
End Sub
目的是打印出
1234567
7123456
6712345
5671234
4567123
3456712
2345671
1234567
帮楼主顶上去。。
Dim a(1 To 7)
For i = 1 To 7
a(i) = i: Print a(i)
Next i
这段代码就已经无法实现 1234567
你叫人怎么帮你填那些问号
For ？？？？
a(j + 1) = a(j)
Next j
？？？？
For j = i To 7
Print a(j)
Next j
？？？？
Next i
VB code:
Private Sub Form_Load()
AutoRedraw = True
Dim i&, j&
For i = 0 To 15
For j = 0 To 6
Print CStr((j + 7 - i Mod 7) Mod 7 + 1);
Next
Print
Next
End Sub
你只打印８行，
For i = 0 To 7
就可以了。
只提供一个思路
相关问答：
DIM ds as new DataSet
我这样声明 怎老是报 用户定义类型未定义？ 这个需要引用什么吗？？
前提是DataSet对象要存在,就是对象浏览器中有它.没有就要引用.
dataset是ADO.NET对象
如果你用的是vb.net，那么在� ......
我想把word另存为xml之后，用vb读取这个xml的内容，请问如何实现？
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' 打开刚创建的文件。
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' 读入所有字符到变量中 ......
我的要求是：通过抓取别的程序上的表格的句柄，然后读取这个表格的内容。
表格句柄（类名：MSFlexGridWndClass）我已抓到，接下来如何读取表格的内容就不会了？求助。
能把代码发来学习下不？
244326867@qq.com ......
