以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]黑箱子算法  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=70530)
--  作者：新航程小何
--  发布时间：2015/6/23 22:22:00
--  [求助]黑箱子算法
各位老师，我现在碰到一个问题。有个值等于60，这个60是由：a*11+b*9+c*7+d*5+e*3+f=60这个等式构成的。同时给出了a/b/c/d/e/的取值范围.让推算a-f分别是多少？
a=( 0,1,2,3),b=(1、2、3、10 、11 、12 、13 、20 、21)，c,d,e,f的取值范围是一样的。
我现在的思路是，做6个文本框，然后在每个框中设置对应的变量，让计算机进行逐个的测试计算，得出a-f的值。可是这个功能我思路不清晰
--  作者：大红袍
--  发布时间：2015/6/23 22:29:00
--  

\'a*11+b*9+c*7+d*5+e*3+f=60

Dim aas As String = "0,1,2,3"
Dim bbs As String = "1,2,3,10,11,12,13,20,21"
For Each a As String In aas.Split(",")
    For Each b As String In bbs.Split(",")
        Dim left As Double = 60 - a*11 - b*9
        Dim c As Double = left / (7+5+3+1)
        If CInt(c) = c Then
            output.show(a & "," & b & "," & c)
        End If
    Next
Next
--  作者：新航程小何
--  发布时间：2015/6/24 17:19:00
--  
各位老师，我写了如下代码，生成了二维码，但是发现二维码的内容都是居中的，我想让现实内容居左，怎么写？
If e.Book.TempLate = "二维码" Then
    If e.region = "表A" Then
        If e.DataRow Is Nothing OrElse e.DataRow.IsNull("第四列") Then \'如果是空行或者Lot列为空
            Dim img As New System.Drawing.Bitmap(1,1) \'生成一个空白图片
            img.Save(ProjectPath & "Images\\BarCode.gif")
        Else \'否则生成条形码图片
            Dim Bar As New BarCodeBuilder
            Bar.Symbology = Barpro.Symbology.QRCode
            Bar.Code =e.DataRow("第四列") 
            Bar.BarRatio = 0.3
            Bar.BarHeight = 8
            bar.SaveImage(ProjectPath & "Images\\BarCode.gif",300)
        End If
    End If
End If
--  作者：大红袍
--  发布时间：2015/6/24 17:34:00
--  

 单元格居左？你可以直接去设置模板啊。