20200420使用VB6.0求33选6的全组合数(解决变长字符串超过1MB之后写入的问题)

本文主要是介绍20200420使用VB6.0求33选6的全组合数(解决变长字符串超过1MB之后写入的问题),希望对大家解决编程问题提供一定的参考价值,需要的开发者们随着小编来一起学习吧!

20200420使用VB6.0求33选6的全组合数(解决变长字符串超过1MB之后写入的问题)

 

最近需要求组合数(买双色球生成号码用^_)
以前在大学专门学习过VB6.0,今后会迁移到VC6.0。
预计会在2020.5.1强化一下MFC,就可以了!

 

我也不知道边长字符串到底写入多少回崩溃。(现阶段人也不年轻了,也没有这么多时间去研究了!有兴趣的同学跟帖告诉我一下,在此谢过了!)

 

 

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   12825
   ClientLeft      =   450
   ClientTop       =   615
   ClientWidth     =   14535
   LinkTopic       =   "Form1"
   ScaleHeight     =   12825
   ScaleWidth      =   14535
   Begin VB.TextBox Text2 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   12255
      Left            =   600
      MultiLine       =   -1  'True
      ScrollBars      =   3  'Both
      TabIndex        =   1
      Top             =   360
      Width           =   6135
   End
   Begin VB.CommandButton Command2 
      Caption         =   "求33选6的全组合数"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   26.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   975
      Left            =   8040
      TabIndex        =   0
      Top             =   5520
      Width           =   4935
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Command1_Click()

End Sub

Private Sub Command2_Click()
    Dim h1%, h2%, h3%, h4%, h5%, h6%
    Dim h6sum%
    
    Dim i%
    Dim j%
    Dim temp%
    Dim count%
    Dim guangyayuan(35) As Integer
    Dim wutongshan(35) As Integer
    
    Dim guangyayuan6(35) As Integer
    Dim hong1%, hong2%, hong3%, hong4%, hong5%, hong6%
    
    Dim strWj As String
    
    
    
    
'    For hong1 = 1 To 10
'        'For hong2 = hong1 To 11
'        For hong2 = hong1 + 1 To 11
'            For hong3 = hong2 + 1 To 12
'                For hong4 = hong3 + 1 To 13
'                    For hong5 = hong4 + 1 To 14
'                        For hong6 = hong5 + 1 To 15
    For hong1 = 1 To 28
        For hong2 = hong1 + 1 To 29
            For hong3 = hong2 + 1 To 30
                For hong4 = hong3 + 1 To 31
                    For hong5 = hong4 + 1 To 32
                        For hong6 = hong5 + 1 To 33
                            'Text2 = Text2 & hong1 & "," & hong2 & "," & hong3 & "," & hong4 & "," & hong5 & "," & hong6 & vbCrLf
                            strWj = strWj & hong1 & "," & hong2 & "," & hong3 & "," & hong4 & "," & hong5 & "," & hong6 & vbCrLf
                        Next hong6
                    Next hong5
                Next hong4
            Next hong3
        Next hong2
    Next hong1
    
    
    
    
    'Close #2
    
    'Open "d:\ScoreW2.txt" For Output As #1
    'Open "d:\求12选3的全组合数.txt" For Output As #1
    Open "d:\求33选6的全组合数.txt" For Output As #1
    'Write #1, Text2
    Write #1, strWj
    Close #1
End Sub
 

 

 

我这里采用了一个最简单粗暴的做法,将每一组的六个号码立即写入磁盘。(具体交给操作系统了)

求33选6的全组合数.txt 大概23MB。

大致内容:

 

"1,2,3,4,5,6
"
"1,2,3,4,5,7
"
"1,2,3,4,5,8
"
"1,2,3,4,5,9
"
"1,2,3,4,5,10
"
"1,2,3,4,5,11
"
"1,2,3,4,5,12
"
"1,2,3,4,5,13
"
"1,2,3,4,5,14
"
"1,2,3,4,5,15
"
"1,2,3,4,5,16
"
"1,2,3,4,5,17
"
"1,2,3,4,5,18
"
"1,2,3,4,5,19
"
"1,2,3,4,5,20
"
"1,2,3,4,5,21
"
"1,2,3,4,5,22
"
"1,2,3,4,5,23
"
"1,2,3,4,5,24
"
"1,2,3,4,5,25
"
"1,2,3,4,5,26

 

……

 

"
"25,28,30,31,32,33
"
"25,29,30,31,32,33
"
"26,27,28,29,30,31
"
"26,27,28,29,30,32
"
"26,27,28,29,30,33
"
"26,27,28,29,31,32
"
"26,27,28,29,31,33
"
"26,27,28,29,32,33
"
"26,27,28,30,31,32
"
"26,27,28,30,31,33
"
"26,27,28,30,32,33
"
"26,27,28,31,32,33
"
"26,27,29,30,31,32
"
"26,27,29,30,31,33
"
"26,27,29,30,32,33
"
"26,27,29,31,32,33
"
"26,27,30,31,32,33
"
"26,28,29,30,31,32
"
"26,28,29,30,31,33
"
"26,28,29,30,32,33
"
"26,28,29,31,32,33
"
"26,28,30,31,32,33
"
"26,29,30,31,32,33
"
"27,28,29,30,31,32
"
"27,28,29,30,31,33
"
"27,28,29,30,32,33
"
"27,28,29,31,32,33
"
"27,28,30,31,32,33
"
"27,29,30,31,32,33
"
"28,29,30,31,32,33
"
 

 

 

读者可能很容易看到会多一个英文的引号,这个怎么解决呢?

 

https://zhidao.baidu.com/question/7939187.html
用vb读写文件时,写成的文本文件每行都有双引号,怎么才能把双引号去掉啊?
怎样写的文件,才能没有双引号啊?

wangtk1982  
2006-05-30
使用print语句 不用用write
 本回答由提问者推荐
 3     评论(1) 分享 举报 

monkywin  
2006-05-30
用print写入文件。
用input读取文本。

 

 

 

修正之后:

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   12825
   ClientLeft      =   450
   ClientTop       =   615
   ClientWidth     =   14535
   LinkTopic       =   "Form1"
   ScaleHeight     =   12825
   ScaleWidth      =   14535
   Begin VB.TextBox Text2 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   12255
      Left            =   600
      MultiLine       =   -1  'True
      ScrollBars      =   3  'Both
      TabIndex        =   1
      Top             =   360
      Width           =   6135
   End
   Begin VB.CommandButton Command2 
      Caption         =   "求33选6的全组合数"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   26.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   975
      Left            =   8040
      TabIndex        =   0
      Top             =   5520
      Width           =   4935
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Command1_Click()

End Sub

Private Sub Command2_Click()
    Dim h1%, h2%, h3%, h4%, h5%, h6%
    Dim h6sum%
    
    Dim i%
    Dim j%
    Dim temp%
    Dim count%
    Dim guangyayuan(35) As Integer
    Dim wutongshan(35) As Integer
    
    Dim guangyayuan6(35) As Integer
    Dim hong1%, hong2%, hong3%, hong4%, hong5%, hong6%
    
    Dim strWj As String
    strWj = ""
    
    Open "d:\求33选6的全组合数.txt" For Output As #1
    
    
    

    For hong1 = 1 To 28
        For hong2 = hong1 + 1 To 29
            For hong3 = hong2 + 1 To 30
                For hong4 = hong3 + 1 To 31
                    For hong5 = hong4 + 1 To 32
                        For hong6 = hong5 + 1 To 33
                            'Text2 = Text2 & hong1 & "," & hong2 & "," & hong3 & "," & hong4 & "," & hong5 & "," & hong6 & vbCrLf
                            'strWj = strWj & hong1 & "," & hong2 & "," & hong3 & "," & hong4 & "," & hong5 & "," & hong6 & vbCrLf
                            strWj = strWj & hong1 & "," & hong2 & "," & hong3 & "," & hong4 & "," & hong5 & "," & hong6
                            
                            'Write #1, strWj
                            Print #1, strWj
                            strWj = ""
                        Next hong6
                    Next hong5
                Next hong4
            Next hong3
        Next hong2
    Next hong1
    
    
    
    
    'Close #2
    
    'Open "d:\ScoreW2.txt" For Output As #1
    'Open "d:\求12选3的全组合数.txt" For Output As #1
    'Open "d:\求33选6的全组合数.txt" For Output As #1
    'Write #1, Text2
    
    'Write #1, strWj
    Close #1
End Sub
 

 

 

 

1,2,3,4,5,6
1,2,3,4,5,7
1,2,3,4,5,8
1,2,3,4,5,9
1,2,3,4,5,10
1,2,3,4,5,11
1,2,3,4,5,12
1,2,3,4,5,13
1,2,3,4,5,14
1,2,3,4,5,15
1,2,3,4,5,16
1,2,3,4,5,17
1,2,3,4,5,18
1,2,3,4,5,19
1,2,3,4,5,20
1,2,3,4,5,21
1,2,3,4,5,22
1,2,3,4,5,23
1,2,3,4,5,24
1,2,3,4,5,25
1,2,3,4,5,26
1,2,3,4,5,27
1,2,3,4,5,28
1,2,3,4,5,29

……

25,28,29,31,32,33
25,28,30,31,32,33
25,29,30,31,32,33
26,27,28,29,30,31
26,27,28,29,30,32
26,27,28,29,30,33
26,27,28,29,31,32
26,27,28,29,31,33
26,27,28,29,32,33
26,27,28,30,31,32
26,27,28,30,31,33
26,27,28,30,32,33
26,27,28,31,32,33
26,27,29,30,31,32
26,27,29,30,31,33
26,27,29,30,32,33
26,27,29,31,32,33
26,27,30,31,32,33
26,28,29,30,31,32
26,28,29,30,31,33
26,28,29,30,32,33
26,28,29,31,32,33
26,28,30,31,32,33
26,29,30,31,32,33
27,28,29,30,31,32
27,28,29,30,31,33
27,28,29,30,32,33
27,28,29,31,32,33
27,28,30,31,32,33
27,29,30,31,32,33
28,29,30,31,32,33
 

 

 

 

 

 

 

 

 

 

 

这篇关于20200420使用VB6.0求33选6的全组合数(解决变长字符串超过1MB之后写入的问题)的文章就介绍到这儿,希望我们推荐的文章对编程师们有所帮助!



http://www.chinasem.cn/article/622254

相关文章

vue使用docxtemplater导出word

《vue使用docxtemplater导出word》docxtemplater是一种邮件合并工具,以编程方式使用并处理条件、循环,并且可以扩展以插入任何内容,下面我们来看看如何使用docxtempl... 目录docxtemplatervue使用docxtemplater导出word安装常用语法 封装导出方

Linux换行符的使用方法详解

《Linux换行符的使用方法详解》本文介绍了Linux中常用的换行符LF及其在文件中的表示,展示了如何使用sed命令替换换行符,并列举了与换行符处理相关的Linux命令,通过代码讲解的非常详细,需要的... 目录简介检测文件中的换行符使用 cat -A 查看换行符使用 od -c 检查字符换行符格式转换将

使用Jackson进行JSON生成与解析的新手指南

《使用Jackson进行JSON生成与解析的新手指南》这篇文章主要为大家详细介绍了如何使用Jackson进行JSON生成与解析处理,文中的示例代码讲解详细,感兴趣的小伙伴可以跟随小编一起学习一下... 目录1. 核心依赖2. 基础用法2.1 对象转 jsON(序列化)2.2 JSON 转对象(反序列化)3.

springboot循环依赖问题案例代码及解决办法

《springboot循环依赖问题案例代码及解决办法》在SpringBoot中,如果两个或多个Bean之间存在循环依赖(即BeanA依赖BeanB,而BeanB又依赖BeanA),会导致Spring的... 目录1. 什么是循环依赖?2. 循环依赖的场景案例3. 解决循环依赖的常见方法方法 1:使用 @La

使用Python实现快速搭建本地HTTP服务器

《使用Python实现快速搭建本地HTTP服务器》:本文主要介绍如何使用Python快速搭建本地HTTP服务器,轻松实现一键HTTP文件共享,同时结合二维码技术,让访问更简单,感兴趣的小伙伴可以了... 目录1. 概述2. 快速搭建 HTTP 文件共享服务2.1 核心思路2.2 代码实现2.3 代码解读3.

Elasticsearch 在 Java 中的使用教程

《Elasticsearch在Java中的使用教程》Elasticsearch是一个分布式搜索和分析引擎,基于ApacheLucene构建,能够实现实时数据的存储、搜索、和分析,它广泛应用于全文... 目录1. Elasticsearch 简介2. 环境准备2.1 安装 Elasticsearch2.2 J

使用C#代码在PDF文档中添加、删除和替换图片

《使用C#代码在PDF文档中添加、删除和替换图片》在当今数字化文档处理场景中,动态操作PDF文档中的图像已成为企业级应用开发的核心需求之一,本文将介绍如何在.NET平台使用C#代码在PDF文档中添加、... 目录引言用C#添加图片到PDF文档用C#删除PDF文档中的图片用C#替换PDF文档中的图片引言在当

Java中List的contains()方法的使用小结

《Java中List的contains()方法的使用小结》List的contains()方法用于检查列表中是否包含指定的元素,借助equals()方法进行判断,下面就来介绍Java中List的c... 目录详细展开1. 方法签名2. 工作原理3. 使用示例4. 注意事项总结结论:List 的 contain

C#使用SQLite进行大数据量高效处理的代码示例

《C#使用SQLite进行大数据量高效处理的代码示例》在软件开发中,高效处理大数据量是一个常见且具有挑战性的任务,SQLite因其零配置、嵌入式、跨平台的特性,成为许多开发者的首选数据库,本文将深入探... 目录前言准备工作数据实体核心技术批量插入:从乌龟到猎豹的蜕变分页查询:加载百万数据异步处理:拒绝界面

Android中Dialog的使用详解

《Android中Dialog的使用详解》Dialog(对话框)是Android中常用的UI组件,用于临时显示重要信息或获取用户输入,本文给大家介绍Android中Dialog的使用,感兴趣的朋友一起... 目录android中Dialog的使用详解1. 基本Dialog类型1.1 AlertDialog(