数据填充问题

renyucai1963

Sub YXCS()
Dim d As Object, i&, j&
DoCmd.SetWarnings False

Randomize
Set d = CreateObject("scripting.dictionary")
For j = 1 To 6
    For i = 1 To 6
line1:
    x = Int(Rnd * 33) + 1
    If Not d.exists(x) Then d.Add x, "" Else GoTo line1
    Next i
     DoCmd.RunSQL "Insert into 表1( 壹,贰,叁,肆,伍,陆) VALUES(" & x & "," & x & "," & x & "," & x & "," & x & "," & x & ")"
  
    d.RemoveAll
Next j
End Sub

我想要的是一行一组陆个不重复的随机数，不知是哪里出了问题，请高手们帮助看看，给解决为盼。
谢谢。

roych

1. Sub YXCS()
   
2. Dim rst As New ADODB.Recordset
   
3. Dim x(1 To 6) As Long, i As Long, j As Long
   
4. '初始化并产生一个1×6的数组。
   
5. Randomize
   
6. For j = 1 To 6
   
7. x(j) = Int(Rnd * 33) + 1
   
8. Next j
   
9. '打开记录集，新增记录
   
10. rst.Open "表1", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    
11. For j = 1 To 1 '把终止值改成需要运行的次数
    
12.     rst.AddNew
    
13.     rst(1) = j
    
14.     For i = 1 To 6
    
15.         rst(i + 1) = x(i)
    
16.     Next
    
17.     rst.Update
    
18.     rst.MoveNext
    
19. Next j
    
20. MsgBox "Done"
    
21. End Sub

复制代码

renyucai1963

roych 发表于 2012-3-9 17:17

谢谢版主，费心了。
和我想要的结果有差距？

renyucai1963

Private Sub Command1_Click()
Dim i As Integer, A As Integer, B As Integer, C As String
A = InputBox("请输入年份", "某年每个月的第一天是星期几", 2012)

Form1.Cls
For i = 1 To 12
C = A & "-" & Format(i, "00") & "-1"
B = Weekday(C)
Select Case B
Case vbSunday
Print A & "年" & Format(i, "00") & "月1日是 星期日"
Case vbMonday
Print A & "年" & Format(i, "00") & "月1日是 星期一"
Case vbTuesday
Print A & "年" & Format(i, "00") & "月1日是 星期二"
Case vbWednesday
Print A & "年" & Format(i, "00") & "月1日是 星期三"
Case vbThursday
Print A & "年" & Format(i, "00") & "月1日是 星期四"
Case vbFriday
Print A & "年" & Format(i, "00") & "月1日是 星期五"
Case vbSaturday
Print A & "年" & Format(i, "00") & "月1日是 星期六"
End Select
Next i
End Sub

zhangz9

学习了