这里有会SQL或者编程的DX吗？送NB呀！

webgenius

要求是建立一个10*10的ARRAY，然后填1-100
CODE在这里
ARRAY是建立好了，但是不知道怎么申明一个1-100的数，是用随机吗？
此外，怎么往填数并打印ARRAY呢？
Sub FillArrayMulti()
Dim MyArray(10, 10) As Integer
Dim intI As Integer, intJ As Integer, num(1 To 100) As Integer
MsgBox "asdada"
    For intI = 1 To 10
        For intJ = 1 To 10
            MyArray(intI, intJ) = intI * intJ
         MyArray(intI, intJ) = 0
            Debug.Print MyArray(intI, intJ)
        Next intJ
    Next intI
End Sub

webgenius

还有一个问题：
Display all the names of the controls within the form in Question 5 using looping method and message box. Submit code
就是显示第五题中所有的控制名字，要用LOOP来作，以及MSGBOX

这是第五题的CODE，当时要求是用2种方法作
Private Sub Check_Click()
Dim cd, Day As Long
cd = Date

Day = DateDiff("d", cd, datebox.Value)
MsgBox Day
'If Day > 7 Or Day < -7 Then
'MsgBox "Not in 7 days"
'End If
'If Day <= 7 And Day >= -7 Then
'MsgBox "in the 7 days"
'End If

Select Case Day
Case -7 To 7
MsgBox "in 7 days"
Case Else
  MsgBox "Not in the 7 days"
End Select
End Sub

vanZolo

这是Vb吧？
第一道题不太明白你说的是什么意思，如果要是就是建立一个数组并将1-100填进去的话，稍微改一下就可以：
Sub FillArrayMulti()
Dim MyArray(10, 10) As Integer
Dim intI As Integer, intJ As Integer, num(1 To 100) As Integer
MsgBox "asdada"
    For intI = 1 To 10
        For intJ = 1 To 10
            MyArray(intI, intJ) = (intI-1) * 10 + intJ
            Debug.Print MyArray(intI, intJ)
        Next intJ
    Next intI
End Sub

没有运行环境，随手改的，不知道对不对，HOHO

第二道题更是不知所云了，什么是Control啊，把题目说明白一点

xiegh

这关SQL啥事呀

bighedgehog1981

这是vb..