| 网站首页 | 业界新闻 | 小组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
Reworld,下班在家制作游戏,1500万奖金等你拿以码会友 以友辅仁
共有 433 人关注过本帖
标题:请问老师VB中怎么自动找到1-100中缺少的数字?
只看楼主 加入收藏
pxinfo
Rank: 1
等 级:新手上路
帖 子:28
专家分:5
注 册:2019-6-30
结帖率:62.5%
  问题点数:0  回复次数:3   
请问老师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: 3Rank: 3
等 级:论坛游侠
威 望:8
帖 子:82
专家分:102
注 册: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: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:101
帖 子:886
专家分:4675
注 册: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
快速回复:请问老师VB中怎么自动找到1-100中缺少的数字?
数据加载中...
 
   



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

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