Foxtable(狐表)用户栏目专家坐堂 → [求助]黑箱子算法


  共有2288人关注过本帖树形打印复制链接

主题:[求助]黑箱子算法

帅哥哟,离线,有人找我吗?
新航程小何
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:629 积分:4786 威望:0 精华:0 注册:2014/9/17 11:34:00
[求助]黑箱子算法  发帖心情 Post By: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的值。可是这个功能我思路不清晰

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By: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


 回到顶部
帅哥哟,离线,有人找我吗?
新航程小何
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:629 积分:4786 威望:0 精华:0 注册:2014/9/17 11:34:00
  发帖心情 Post By: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

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/6/24 17:34:00 [只看该作者]

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


 回到顶部