想制作能随机生成的试卷。请高手指点！！

ljpmqb888

hhjjpp 发表于 2015-4-26 21:01
df列数字找缺的奥秘解释：
对于上述101所在行，dc7的1111减去101，得1010，即表示所缺的数字为千位的2，十 ...

谢谢！！老师终于又拿下一个山头！！偶尔减号行相邻的问题和估计会很快突破！！我基础差！再学习学习老师的思路！！

ljpmqb888

偶尔有减号出现不够减和不够5个减号（一般是出现3个了，缺2笔减号）的问题。和减号相邻的问题能一起解决就完美解决减号的问题了。

hhjjpp

ljpmqb888 发表于 2015-4-27 07:47
偶尔有减号出现不够减和不够5个减号（一般是出现3个了，缺2笔减号）的问题。和减号相邻的问题能一起解决就完 ...

你只要求保证前三够减；偶尔不理想，按提示按F9呀

hhjjpp

ljpmqb888 发表于 2015-4-27 07:38
谢谢！！老师终于又拿下一个山头！！偶尔减号行相邻的问题和估计会很快突破！！我基础差！再学习学习老师 ...

你没要求减不邻，你的约束条件太多，相互冲突、顾此失彼，只能去强大的vba转转了！

ljpmqb888

hhjjpp 发表于 2015-4-27 11:21
你没要求减不邻，你的约束条件太多，相互冲突、顾此失彼，只能去强大的vba转转了！

vba我就更茫然。似乎只能这样解决。

ljpmqb888

虽然目前不是全面解决，但能解决加法混合数位就很不容易，请老师帮我把前10题都处理好，所有的题都不考虑减号。就是第4、5和9.10题也编辑成加法。符合加法的条件即可。不行我可以手工添加减号。这几日辛苦老师了！！再次深表谢意！！老师辛苦您了！！谢谢！！

ljpmqb888

vba我手里有一个宏，能够生成随机的5题，前三个是加，后2个是加减混合。你看看能不能有借鉴。
Sub test2()
   
    Dim a, b As Integer
    Dim width As Integer
    Dim length As Integer
    Dim sum1, sum2, sum3, sum4, sum5 As Long
    Dim cou, cou2 As Integer
    Dim neg As Integer
   
   
    sum = 0
    cou2 = 0
   
    Range("a2:e16") = ""
    Range("a18:e18") = ""
    length = Range("i3").Value
    neg = Int(length * 0.4 - 0.01) + 1
    width = Range("g3").Value
    Range("a2").Value = ""
   
    Range("a2").Select
    For i = 1 To length
        b = Int(Rnd() * 9 * 10 ^ (width - 1)) + 1 * 10 ^ (width - 1)
        Selection.Value = b
        sum = sum + b
        Selection.Offset(1, 0).Select
    Next
    sum1 = sum
    Range("g101").Value = sum1
   
    sum = 0
    Range("b2").Select
    For i = 1 To length
        b = Int(Rnd() * 9 * 10 ^ (width - 1)) + 1 * 10 ^ (width - 1)
        Selection.Value = b
        sum = sum + b
        Selection.Offset(1, 0).Select
    Next
    sum2 = sum
    Range("g102").Value = sum2
   
    sum = 0
    Range("c2").Select
    For i = 1 To length
        b = Int(Rnd() * 9 * 10 ^ (width - 1)) + 1 * 10 ^ (width - 1)
        Selection.Value = b
        sum = sum + b
        Selection.Offset(1, 0).Select
    Next
    sum3 = sum
    Range("g103").Value = sum3
   
    sum = 0
    Range("d2").Select
    cou2 = 0
    For i = 1 To length
        b = Int(Rnd() * 9 * 10 ^ (width - 1)) + 1 * 10 ^ (width - 1)
        If (sum - b > 0) And (cou2 < neg) Then
            cou = 0
            For k = 1 To 1000
                ran = Rnd()
                If ran < 0.4 Then cou = cou + 1
            Next k
            If cou < 400 Then
                b = -b
                cou2 = cou2 + 1
            End If
        End If
        Selection.Value = b
        sum = sum + b
        Selection.Offset(1, 0).Select
    Next
    If cou2 < (neg) Then
        For m = 1 To length - 1
            Selection.Offset(-1, 0).Select
            err = Selection.Value
            If (err > 0) And (cou2 < (neg)) And ((sum - 2 * err) > 0) Then
                Selection.Value = -err
                sum = sum - 2 * err
                cou2 = cou2 + 1
            End If
        Next m
    End If
    sum4 = sum
    Range("g104").Value = sum4
   
    sum = 0
    Range("e2").Select
    cou2 = 0
    For i = 1 To length
        b = Int(Rnd() * 9 * 10 ^ (width - 1)) + 1 * 10 ^ (width - 1)
        If (sum - b > 0) And (cou2 < neg) Then
            cou = 0
            For k = 1 To 1000
                ran = Rnd()
                If ran < 0.4 Then cou = cou + 1
            Next k
            If cou < 400 Then
                b = -b
                cou2 = cou2 + 1
            End If
        End If
        Selection.Value = b
        sum = sum + b
        Selection.Offset(1, 0).Select
    Next
    If cou2 < (neg) Then
        For m = 1 To length - 1
            Selection.Offset(-1, 0).Select
            err = Selection.Value
            If (err > 0) And (cou2 < (neg)) And ((sum - 2 * err) > 0) Then
                Selection.Value = -err
                sum = sum - 2 * err
                cou2 = cou2 + 1
            End If
        Next m
    End If
    sum5 = sum
    Range("g105").Value = sum5
End Sub

hhjjpp

ljpmqb888 发表于 2015-4-27 12:56
虽然目前不是全面解决，但能解决加法混合数位就很不容易，请老师帮我把前10题都处理好，所有的题都不考虑减 ...

tym1956

什么样式是试卷，好像没搞明白

ljpmqb888

tym1956 发表于 2015-4-29 08:34
什么样式是试卷，好像没搞明白

一楼附件的就是