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怎样获得鼠标处的超级连接呢？
在WebBrowser控件中有这样一个事件:StatusTextChange(index As Integer, ByVal Text As String)
它的Text参数正是鼠标处的超级连接,但问题是如果我的浏览器正� ......
我在类中有一个函数
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfig是我自定义类型的数据，为什么会提示“只有在公共对象模块中� ......
怎么把已知的数据保存成xml文件，现在已知的数据是
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xmlns:o=& ......
谁能帮我把下面这些代码改成VB形式的，多谢了，急用~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[],float g ......
挺繁琐，之前发的帖子，分值太低现在重发一个。欢迎各位大侠~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[] ......
