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

相关文章

Java学习手册之Filter和Listener使用方法

《Java学习手册之Filter和Listener使用方法》:本文主要介绍Java学习手册之Filter和Listener使用方法的相关资料,Filter是一种拦截器,可以在请求到达Servl... 目录一、Filter(过滤器)1. Filter 的工作原理2. Filter 的配置与使用二、Listen

Pandas使用AdaBoost进行分类的实现

《Pandas使用AdaBoost进行分类的实现》Pandas和AdaBoost分类算法,可以高效地进行数据预处理和分类任务,本文主要介绍了Pandas使用AdaBoost进行分类的实现,具有一定的参... 目录什么是 AdaBoost?使用 AdaBoost 的步骤安装必要的库步骤一:数据准备步骤二:模型

Spring Boot中JSON数值溢出问题从报错到优雅解决办法

《SpringBoot中JSON数值溢出问题从报错到优雅解决办法》:本文主要介绍SpringBoot中JSON数值溢出问题从报错到优雅的解决办法,通过修改字段类型为Long、添加全局异常处理和... 目录一、问题背景:为什么我的接口突然报错了?二、为什么会发生这个错误?1. Java 数据类型的“容量”限制

使用Pandas进行均值填充的实现

《使用Pandas进行均值填充的实现》缺失数据(NaN值)是一个常见的问题,我们可以通过多种方法来处理缺失数据,其中一种常用的方法是均值填充,本文主要介绍了使用Pandas进行均值填充的实现,感兴趣的... 目录什么是均值填充?为什么选择均值填充?均值填充的步骤实际代码示例总结在数据分析和处理过程中,缺失数

如何使用 Python 读取 Excel 数据

《如何使用Python读取Excel数据》:本文主要介绍使用Python读取Excel数据的详细教程,通过pandas和openpyxl,你可以轻松读取Excel文件,并进行各种数据处理操... 目录使用 python 读取 Excel 数据的详细教程1. 安装必要的依赖2. 读取 Excel 文件3. 读

关于MongoDB图片URL存储异常问题以及解决

《关于MongoDB图片URL存储异常问题以及解决》:本文主要介绍关于MongoDB图片URL存储异常问题以及解决方案,具有很好的参考价值,希望对大家有所帮助,如有错误或未考虑完全的地方,望不吝赐... 目录MongoDB图片URL存储异常问题项目场景问题描述原因分析解决方案预防措施js总结MongoDB图

SpringBoot项目中报错The field screenShot exceeds its maximum permitted size of 1048576 bytes.的问题及解决

《SpringBoot项目中报错ThefieldscreenShotexceedsitsmaximumpermittedsizeof1048576bytes.的问题及解决》这篇文章... 目录项目场景问题描述原因分析解决方案总结项目场景javascript提示:项目相关背景:项目场景:基于Spring

解决Maven项目idea找不到本地仓库jar包问题以及使用mvn install:install-file

《解决Maven项目idea找不到本地仓库jar包问题以及使用mvninstall:install-file》:本文主要介绍解决Maven项目idea找不到本地仓库jar包问题以及使用mvnin... 目录Maven项目idea找不到本地仓库jar包以及使用mvn install:install-file基

Java中字符串转时间与时间转字符串的操作详解

《Java中字符串转时间与时间转字符串的操作详解》Java的java.time包提供了强大的日期和时间处理功能,通过DateTimeFormatter可以轻松地在日期时间对象和字符串之间进行转换,下面... 目录一、字符串转时间(一)使用预定义格式(二)自定义格式二、时间转字符串(一)使用预定义格式(二)自

最详细安装 PostgreSQL方法及常见问题解决

《最详细安装PostgreSQL方法及常见问题解决》:本文主要介绍最详细安装PostgreSQL方法及常见问题解决,介绍了在Windows系统上安装PostgreSQL及Linux系统上安装Po... 目录一、在 Windows 系统上安装 PostgreSQL1. 下载 PostgreSQL 安装包2.