应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

CyRhmU.jpeg
小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » VB » 选择某一范围内强度最大的数赋值，怎么用VB编程啊，谢谢
51/1返回列表
查看: 1491  |  回复: 10
只看楼主@他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

VChang

木虫 (正式写手)

[求助] 选择某一范围内强度最大的数赋值，怎么用VB编程啊，谢谢

我想用VB编一个程序，就是某一范围内有几个数满足要求，我想选强度最大的数赋值。比如在13N偏差0.5的范围内有以下几组数据：

12.6         20
12.7         50
12.9         70
13.4                60
13.2                80


25.8               95
25.9               75
26               86
26.2              100
26.4              60
我想让80和100分别赋给13N（N=1和2时），请问怎么用VB编程使之适用于其余的13N的情况啊？本人不懂编程，烦请相助，若编好了可以追加金币至50个，谢谢！
回复此楼

» 猜你喜欢
1楼2012-09-13 21:06:01
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

anntoy

木虫 (著名写手)
引用回帖:
7楼: Originally posted by anntoy at 2012-09-15 17:54:16
Sub calc()
For N = 1 To 1000
    Max = 0
    For j = 1 To 2000
        If Sheets("sheet1".Cells(j, 1) > 13 * N - 0.5 And Sheets("sheet1".Cells(j, 1) < 13 * N + 0.5 The ...

CODE:
Sub calc()
For N = 1 To 1000
    Max = 0
    For j = 1 To 2000
        If Sheets("sheet1").Cells(j, 1) > 13 * N - 0.5 And Sheets("sheet1").Cells(j, 1) < 13 * N + 0.5 Then
            If Sheets("sheet1").Cells(j, 2) > Max Then
                Max = Sheets("sheet1").Cells(j, 2)
            End If
        End If
    Next
    Sheets("sheet1").Cells(N, 3) = N
    Sheets("sheet1").Cells(N, 4) = Max
Next
End Sub
赞一下 回复此楼
8楼2012-09-15 17:56:08
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 11 个回答

anntoy

木虫 (著名写手)

【答案】应助回帖

感谢参与，应助指数 +1
要求不太清楚，是不是只要左边是13N偏差0.5右边的就写成80或者100？
赞一下 回复此楼

» 本帖已获得的红花（最新10朵）

VChang
2楼2012-09-14 08:30:44
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

VChang

木虫 (正式写手)
送鲜花一朵
引用回帖:
2楼: Originally posted by anntoy at 2012-09-14 08:30:44
要求不太清楚，是不是只要左边是13N偏差0.5右边的就写成80或者100？

不是的，比如在12.5~13.5,25.5~26.5,38.5~39.5等等的各个范围内都有几个数满足要求，如12.6,12.7,12.9,13.4,13.2等，这几个数分别对应一个纵坐标强度。然后我想选择这几个数对应的纵坐标强度最高的那个数赋值给13N。不是说只要左边是13N偏差0.5右边的就写成80或者100，而是根据一系列的13，26,39,52~~中最大值，不一定是80或者100，也许39中对应的最大值是90的，就是数太多了，不想一个个的找某一范围内对应的最大值。
谢谢你的关注，烦请相助。
赞一下 回复此楼
3楼2012-09-14 11:30:45
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

anntoy

木虫 (著名写手)

【答案】应助回帖

vb我这儿也没有编译环境，而且还要考虑输入输出，你可以用excel处理一下
未命名.PNG(104.03KB)
http://kuai.xunlei.com/d/GBKKHLEEQURE?p=130497
新建 Microsoft Excel 工作表.xlsx(11.8KB)
http://kuai.xunlei.com/d/GGUEPUMHWJFN?p=130497
赞一下 回复此楼
4楼2012-09-15 09:26:18
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 11 个回答
普通表情 龙 兔 虎 猫
信息提示
关闭
请填处理意见
关闭