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

最新推荐文章于 2023-09-12 10:48:07 发布
最新推荐文章于 2023-09-12 10:48:07 发布
阅读量566 收藏 1
点赞数
分类专栏： 杂质
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/wb4916/article/details/105645028
版权

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
 

 

 

 

 

 

 

 

 

 

 

南棱笑笑生
关注
  • 0
    点赞
  • 踩
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
33选6与36选7全组合速度试验
07-21
组合M选N,全组合36选7,全组合33选6,RtlMoveMemory,显示结果
VB 用过程求组合数.rar
07-10
VB 用过程求组合数，输入m和n，按等号键可得组合数，来看如下的简单代码： 　　Private Sub f(m As Integer, p As Long) '自定义通用过程，用于求阶乘 　　Dim i As Integer '声明局部变量 　　p = 1 '赋初值 　　 For i = 1 To m '求m 的阶乘 　　 p = p * i '结果返给参数p 　　 Next i 　　End Sub 　　 　　Private Sub Command1_Click() '求组合数 　　Dim m As Integer, n As Integer 　　Dim c As Long, f1 As Long 　　m = Val(Text2) '取文本框的值 　　n = Val(Text1) 　　Call f(m, f1) '调用子过程，求m的阶乘 　　c = f1 '阶乘的结果存到变量c里 　　Call f(n, f1) '调用子过程，求n的阶乘 　　c = c / f1 '阶乘的结果参与运算然后再存回变量c里 　　Call f(m - n, f1) '调用子过程，求同m-n的阶乘 　　c = c / f1 '阶乘的结果参与运算然后再存回变量c里 　　Text3 = c '最后求得的组合数在文本框中输出 　　End Sub
VB 用过程求组合数
06-07
VB 用过程求组合数 VB 用过程求组合数 VB 用过程求组合数
排列组合验证（33选6）V1.04-20200420-2137.7z
04-20
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 = "宋体"
33选6算法:M个数N个为一组,无重复的排列组合
热门推荐
yuanya的专栏
05-05 1万+
private void button1_Click(object sender, EventArgs e) { int nCnt = 0; List nNumList = new List(); for (int i = 0; i < cblNumList.Items.Count; i++)
VB6.0从一串字符中只提取数字
07-24
在VB6.0（Visual Basic 6.0）中，我们经常遇到需要从一串混合的字符中提取出数字的情况。这可能涉及到处理用户输入、数据解析或是从文本文件中提取有用信息等任务。本教程将详细介绍如何在VB6.0中实现这个功能。 ...
vb6.0 字节数组和字符串的相互转换.rar
07-10
在VB6.0编程环境中，字节数组和字符串之间的转换是常见的操作，尤其是在处理二进制数据和文本数据之间转换的场景。本教程将详细解释如何在VB6.0中进行这两种数据类型的转换，并通过实际示例进行演示。 1. 字符串转...
VB6.0-OCR.rar_VB6.0-OCR_VB编写OCR_character_vb6.0 OCR_数字识别
07-14
用Visual Basic 6.0编写的OCR识别程序,对数字的识别率高
AutoCode-for-VB6.0.rar_AutoCode for VB6_AutoCode_VB6.0_autocode
07-13
AutoCode for VB6.0是一款专为Visual Basic 6.0（VB6）设计的代码自动补全工具，旨在提高开发效率，减少程序员在编写VB6代码时的重复劳动。这款工具的独特之处在于它提供了与传统AutoCode不同的关键字自动完成功能，...
VB vb6.0 visual basic打开窗体或者运行闪退解决.reg
01-11
解决运行VB6闪退，解决打开带有标签label，文本框textbox等控件的窗体闪退。 使用方法1：双击，然后按照提示来。 使用方法2：右键，合并，然后按照提示来。 亦可适用于运行时提示“Visual Basic 已停止工作”
Attribute属性
08-22
设置标题的文字属性
20200420使用VB6.0求12选3的全组合数
南岭笑笑生之家
04-20 1086
最近需要求组合数（买双色球生成号码用^_） 以前在大学专门学习过VB6.0，今后会迁移到VC6.0。 预计会在2020.5.1强化一下MFC，就可以了！ Option Explicit Private Sub Command1_Click() End Sub Private Sub Command2_Click() Dim h1%, h2%, h3%, h4%...
vb中字母排列组合输出函数
dea23098的博客
02-08 557
Option Explicit Private Sub Command1_Click() Dim Num, I, J, Temp, Len1 As Long Dim FileNO As Long Dim Count As Long Dim str, strTemp, strArr() As String, Arr() As String ...
vb字符串排列组合代码
qq_32257509的博客
02-26 259
Private Sub Command1_Click() Dim i, j, k As Integer For i = 1 To 62 For j = 1 To 62 Text2.Text = Text2.Text & vbCrLf & Mid(Text1.Text, i, 1) & Mid(Text1.Text, j, 1) Next Next End Sub Private Sub Command3_Click() Dim i, j, k As Integer For i = 1
打开VB工程时提示——发现名称冲突
王萌萌
08-07 2561
昨天在快要
mac平台VBA使用字典
最新发布
FHLKJJLDMW的博客
09-12 398
将其保存为名为 KeyValuePair.cls 的纯文本文件并导入 Excel。将其保存为名为 Dictionary.cls 的纯文本文件并导入 excel。
vb手动输入字符串(SQL语句)太长时 怎么换行输入
ZHENG
08-28 6808
Dim str As String = "abc" &amp; "def" &amp; "ghi"  
VB6将UTF8格式字符串写入ini
04-25
文件，如何处理呢？ 在VB6中写入UTF8格式的字符串到ini文件可以使用以下方法： 1.引用“Microsoft Scripting Runtime”和“Microsoft ActiveX Data Objects 2.x Library”两个库。 2.使用FileSystemObject读取ini文件。 3.使用ADO Stream将UTF8格式的字符串转换为Unicode格式，并写入ini文件。 具体步骤如下： 1.添加以下代码到模块的顶部以引用所需库： ``` '引用Microsoft Scripting Runtime库，用于读取ini文件 '引用Microsoft ActiveX Data Objects 2.x Library库，用于转换编码并写入文件 Dim fso As FileSystemObject Dim ado As ADODB.Stream Dim iniFilePath As String ``` 2.在需要写入UTF8格式字符串的地方使用以下代码： ``` '定义变量 Dim utf8Text As String Dim unicodeText As String Dim iniFile As TextStream '读取ini文件 Set fso = New FileSystemObject iniFilePath = "C:\Test.ini" 'ini文件路径 Set iniFile = fso.OpenTextFile(iniFilePath, ForWriting) '要写入的UTF8格式字符串 utf8Text = "这是一段UTF8格式的字符串" '转换为Unicode格式 Set ado = New ADODB.Stream ado.Charset = "UTF-8" ado.Open ado.WriteText utf8Text, adWriteLine ado.Flush ado.Position = 0 ado.Charset = "Unicode" unicodeText = ado.ReadText(-1) ado.Close '将Unicode格式字符串写入ini文件 iniFile.Write unicodeText '关闭文件 iniFile.Close ``` 以上就是在VB6中将UTF8格式字符串写入ini文件的方法。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值