1看看图上是什么时候都有谁她们在哪儿在干什么想想她们在说什么再写下来 星期天妈妈带着小红到公园里玩这里的菊花五颜六色十分好看小红看见一朵金黄色的菊花刚想伸手去摘妈妈连忙摆手说不能摘我们要当文明游客这样
2023-03-08 16:33:28 2.55MB 小学教育 小学课件
1
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 = "宋体"
2023-03-02 11:14:09 166KB 杂质
1
图灵原版数学统计学系列33 矩阵计算(英文版)Matrix Computations, 4th Edition, Gene H.Golub, Johns Hopkins 2013.pdf
2023-02-22 13:48:24 13.54MB mat
1
Spi驱动包括三部分:dm644x上的spi功能模块驱动(spi主机驱动) (davinci_spi.c);w25x80的芯片驱动(m25p80.c),以及spi总线驱动(spi.c)。
2023-02-12 16:46:28 72KB linux spi flash dm6446
1
由于上传限制 只有分部上传 现在上传24-33的D3DX9 DLL文件
2023-02-10 18:29:19 13.04MB D3DX9 24 - 33
1
freexyn编程实例视频教程系列33 Matlab 导入导出 1.主要内容 运用Matlab对外部文件数据进行导入导出; 数据类型包括数值型、文本型以及混合数据等; 文件格式涉及dat、txt、csv、xls等; 编程案例若干。 2.目录 33.0 概述 33.1 数值型数据写出到文件dlmwrite 33.2 混合数据写出到文件writetable 33.3 格式化数据写出到文件fprintf 33.4 读取数值型数据dlmread 33.5 读取混合数据readtable 33.6 Excel数据的导入和导出 33.7 载入数据importdata 33.8 读取格式化数据textscan 33.9 读取格式化的数据fscanf 33.10 实例 分类提取文本数据 33.11 逐行读取数据fgetl 33.12 读取二进制数据fread 33.13 移动文件指针fseek 33.14 二进制数据写出到文件fwrite 33.15 格式化混合数据写出到文件fprintf 33.16 导入工具 33.17 实例 非常规文本或大型文件 33.18 实例 同时处理多个文件 33.19 实
1
软件测试项目实战33.ppt
2023-02-05 20:42:40 456KB 软件测试项目实战33
1
frp_0.33.0_windows_amd64.zip
2023-01-11 10:20:57 8.47MB
1
Burp Suite 是用于攻击web 应用程序的集成平台,包含了许多工具。Burp Suite为这些工具设计了许多接口,以加快攻击应用程序的过程。所有工具都共享一个请求,并能处理对应的HTTP 消息、持久性、认证、代理、日志、警报。如果出现点击run不能运行的话,记得把jdk版本升级到最新的版本,jdk的版本不能低于1.8.0_102。
2023-01-05 10:58:28 26.03MB Burpsuite v1.7.33 拦截工具 破解版
1
在Arduino Nano 33 BLE Sense上训练和部署Tensorflow Lite RNN模型的更简单方法-用于微语音识别。
2023-01-04 18:15:28 373KB artificial intelligence machine learning
1