| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2632 人关注过本帖
标题:请问老师VB中怎么自动找到1-100中缺少的数字?
只看楼主 加入收藏
pxinfo
Rank: 1
等 级:新手上路
帖 子:53
专家分:5
注 册:2019-6-30
结帖率:56.25%
收藏
 问题点数:0 回复次数:4 
请问老师VB中怎么自动找到1-100中缺少的数字?
请问老师VB中怎么自动找到1-100中缺少的数字?
access中的一个列,1-100的数字组成,怎么自动生成缺失的数字呢?比如没有33,那自动生成33这个数字
搜索更多相关主题的帖子: 自动 VB 缺少 老师 数字 
2019-08-30 23:19
okshunliang
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2019-9-8
收藏
得分:0 
读取一列保存为数组。for一个1-100的循环,每次循环都在数组里遍历一遍,就能找到数组中缺失的数字
2019-09-08 20:51
沉默的痞子
Rank: 4
等 级:贵宾
威 望:12
帖 子:96
专家分:127
注 册:2015-10-7
收藏
得分:0 
先生成一个1-100的数组,然后for access 哪个有就把数组里的值变成0,剩下的就是没有的,这样数据快
dim sz(1 to 100) as long
for i=1 to 100
    sz(i)=1
next
for access循环
    sz(access值)=0
next
for i=1 to 100
    if sz(i)=1 then
    '打印缺少的码
    print i
next
2019-09-16 17:04
ZHRXJR
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:125
帖 子:1034
专家分:5519
注 册:2016-5-10
收藏
得分:0 
由于与数据库记录比较,不是仅仅数组能够解决的,必须需要数据库,将数据库记录读取到数组才能检测到是哪个数字缺少了。
图片附件: 游客没有浏览图片的权限,请 登录注册

程序代码:
Private Sub Form_Load()
Call BBB(cnn)
For I = 1 To 50
RS.Open "Select * From 数字表 Where 数字=" & I & " Order BY ID", cnn, 3, 2
    If Not RS.EOF Then
        AA(I) = RS!数字
    Else
        AA(I) = 0
        SST = I
    End If
If Not RS.EOF Then RS.MoveNext
RS.Close
Next I
Dim STT As Integer
RS.Open "Select * From 数字表", cnn, 3, 2
STT = RS.RecordCount
    For I = 1 To STT
    BB(I) = RS!数字
     If Not RS.EOF Then RS.MoveNext
    Next I
    RS.Close
cnn.Close
Text1.Text = ""
Text2.Text = ""
Label1.Visible = False
For I = 1 To 50
    If I < 10 And BB(I) > 0 Then
        Text1.Text = Text1.Text & "0" & BB(I) & Space(5)
    ElseIf I >= 10 And BB(I) > 0 Then
        Text1.Text = Text1.Text & BB(I) & Space(5)
    End If
Next I
Text2.Text = "缺少的数字是:" & SST
If SST < 1 Then
Command1.Enabled = False
Label1.Visible = True
End If
End Sub

仅仅做了“找到1-50中缺少的数字”,没有50以上的,不过应该差不多。

[此贴子已经被作者于2019-9-18 19:29编辑过]


请不要选我!!!
2019-09-18 19:25
nvdkzyp
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2021-1-14
收藏
得分:0 
我觉得如果数字是顺序排列,那直接取中间位(比如第50个),看值是否等于应有的中间为(比如50)。如果等于,则往后找,如果不等于,则在前段找。

数字不是顺序排列就给他排个序


或者确定范围、确定增长步长的直接循环对比

for  循环=开头to结尾
    if 数X <> 循环 then msgbox " 数X异常 " : exit for
next  循环

菜鸟发言,望大神指正

[此贴子已经被作者于2021-1-14 09:03编辑过]

2021-01-14 08:59
快速回复:请问老师VB中怎么自动找到1-100中缺少的数字?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.019781 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved