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
就可以了。
只提供一个思路
相关问答：
vb中 现在我要把数据库里存储的一个附件的内容替换了，怎么做，只是替换我指定的位置，不是全部替换
请将问题说明白，存储字段格式，如果是Binary格式的比较麻烦，如果是字串，直接替换。最好不要进行指定位置替换� ......
数据库里有一个字段的内容是二进制，怎么才能把这个二进制读出来
使用字节流对象可以实现
例如现在数据库里有个字段的内容是0x504B03040A0000000800407F263C3B02465390000000820000000A0000006273CECACCE22E7478 ......
dim a as string,b as string，c as string
a="工程编号,单位工程名称,分部工程编号"
b="单位工程名称"
c="单位"
怎么才能判断出a字符串中存在b字符串，而不存在c字符串
看看i ......
form1中有text1-8， 和command1
text8中为程序代码（生成窗体为form2（已做好））
单击command1后将text2中的代码生成EXE到d:\ 并且text1-7分别对应
产品名 公司名 合法版权 合法商标 文件描述 注释 标题
......
我的要求是：通过抓取别的程序上的表格的句柄，然后读取这个表格的内容。
表格句柄（类名：MSFlexGridWndClass）我已抓到，接下来如何读取表格的内容就不会了？求助。
能把代码发来学习下不？
244326867@qq.com ......
