自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+

彭世瑜的博客

记录我的code历程 个人主页:www.pengshiyu.com

  • 博客(23)
  • 资源 (5)
  • 论坛 (3)
  • 收藏
  • 关注

原创 VB编程:for循环输出杨辉三角-45

运行效果:程序代码:Private Sub Command1_Click()    Dim a()    n = 10         'Val(Text1.Text)    Me.Cls    ReDim a(n + 1, n +1)    For i = 1 To n       For j = 0 To i           a(1...

2016-12-25 17:15:30 2933 2

原创 VB编程:for循环输出杨辉三角-45_彭世瑜_新浪博客

运行效果:程序代码:Private Sub Command1_Click() Dim a() n = 10 'Val(Text1.Text) Me.Cls ReDim a(n + 1, n +1) For i = 1 To n For j = 0 To i a(1, i) =1...

2016-12-25 17:15:30 16

原创 VB编程:利用指针实现数组拆分-44

运行效果:程序代码:Private Declare Sub CopyMemory Lib "kernel32" Alias"RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length AsLong)Private Sub Form_Load()    Dim arr()    arr...

2016-12-14 15:16:47 296

原创 VB编程:利用指针实现数组拆分-44_彭世瑜_新浪博客

运行效果:程序代码:Private Declare Sub CopyMemory Lib "kernel32" Alias"RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length AsLong)Private Sub Form_Load() Dim arr() arr = Array...

2016-12-14 15:16:47 22

原创 VB编程:利用指针实现数组的插入-43

运行效果:程序代码:Private Declare Sub CopyMemory Lib "kernel32" Alias"RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length AsLong)Private Sub Form_Load()On Error GoTo 1    D...

2016-12-14 13:20:45 429

原创 VB编程:利用指针实现数组的插入-43_彭世瑜_新浪博客

运行效果:程序代码:Private Declare Sub CopyMemory Lib "kernel32" Alias"RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length AsLong)Private Sub Form_Load()On Error GoTo 1 Dim arr()...

2016-12-14 13:20:45 23

原创 VB编程:利用地址偏移访问内存-42

1、运行效果2、程序代码;Private Declare Sub CopyMemory Lib "kernel32" Alias"RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length AsLong)Private Sub Form_Load()    Dim i As Long...

2016-12-13 18:39:47 368

原创 VB编程:利用地址偏移访问内存-42_彭世瑜_新浪博客

1、运行效果2、程序代码;Private Declare Sub CopyMemory Lib "kernel32" Alias"RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length AsLong)Private Sub Form_Load() Dim i As Long Dim ...

2016-12-13 18:39:47 22

原创 VB编程:传递指针变量-41

1、运行效果2、程序代码Private Declare Sub CopyMemory Lib "kernel32" Alias"RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length AsLong)Dim q As StringDim p As StringPrivate Sub ...

2016-12-13 17:54:44 354

原创 VB编程:传递指针变量-41_彭世瑜_新浪博客

1、运行效果2、程序代码Private Declare Sub CopyMemory Lib "kernel32" Alias"RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length AsLong)Dim q As StringDim p As StringPrivate Sub Command1...

2016-12-13 17:54:44 10

原创 VB编程:申明窗体数组-40

运行效果运行代码:Private Sub Command1_Click()    Dim intx AsInteger    Dim frmnew(1 To 5) AsNew Form1  '使用new关键字,系统会创建新窗体    For intx = 1 To 5       frmnew(intx).Show       frmnew(i...

2016-12-08 15:16:09 172

原创 VB编程:申明窗体数组-40_彭世瑜_新浪博客

运行效果运行代码:Private Sub Command1_Click() Dim intx AsInteger Dim frmnew(1 To 5) AsNew Form1 '使用new关键字,系统会创建新窗体 For intx = 1 To 5 frmnew(intx).Show frmnew(intx).Win...

2016-12-08 15:16:09 19

原创 VB编程:获取对象私有域的地址-39

运行效果:运行程序:Private Sub Command1_Click()    Dim num As Integer    Text1.Text = ObjPtr(Text1)     '获取对象地址    Text3.Text =StrPtr(Text2.Text) '获取字符串首位地址    Text4.Text = VarPtr(num) ...

2016-12-08 11:39:50 117

原创 VB编程:获取对象私有域的地址-39_彭世瑜_新浪博客

运行效果:运行程序:Private Sub Command1_Click() Dim num As Integer Text1.Text = ObjPtr(Text1) '获取对象地址 Text3.Text =StrPtr(Text2.Text) '获取字符串首位地址 Text4.Text = VarPtr(num) '获...

2016-12-08 11:39:50 19

原创 [转载]关于字体的一些常识

原文地址:关于字体的一些常识作者:花园我们每天设计都在与字体打交道。但是我们一直没有认真在意他们的存在。我们没有很好地使用过他们,甚至滥用他们。这一切是因为我们不了解他们。InformationArchitects 上大声喊道:95%的网页设计是排版设计(Web Design is 95% Typography)。是的,字体是排版的重要元素之一;字体设计也是设计里最深...

2016-12-08 10:55:01 217

原创 VB编程:利用控件数组设置控件状态-38

运行效果:程序代码:Private Sub Form_Load()    For i = 0 ToLabel1.Count - 1       Label1(i).Caption ="移动鼠标"    Next iEnd SubPrivate Sub Label1_MouseMove(Index As Integer, Button AsInt...

2016-12-02 11:54:34 507

原创 VB编程:利用控件数组设置控件状态-38_彭世瑜_新浪博客

运行效果:程序代码:Private Sub Form_Load() For i = 0 ToLabel1.Count - 1 Label1(i).Caption ="移动鼠标" Next iEnd SubPrivate Sub Label1_MouseMove(Index As Integer, Button AsInteger, Sh...

2016-12-02 11:54:34 18

原创 VB编程:巧用常量定义数组-37

运行效果:程序代码:Private Const general = 5Private Sub Command1_Click()    Dim myarray(general - 1)As Integer    For i = 0 To general -1       myarray(i) = Int(Rnd * 90) + 5       P...

2016-12-02 10:17:44 1180

原创 VB编程:巧用常量定义数组-37_彭世瑜_新浪博客

运行效果:程序代码:Private Const general = 5Private Sub Command1_Click() Dim myarray(general - 1)As Integer For i = 0 To general -1 myarray(i) = Int(Rnd * 90) + 5 Print mya...

2016-12-02 10:17:44 23

原创 VB编程:VB运用数据结构-36

运行效果:程序代码:Private Type num      '定义一个新类型的数据,包含两个元素    num1 As Integer    num2 As IntegerEnd TypePrivate Sub Command1_Click()    Dim number As num   '定义num类型的变量    number.num1...

2016-12-01 18:16:29 303

原创 VB编程:VB运用数据结构-36_彭世瑜_新浪博客

运行效果:程序代码:Private Type num '定义一个新类型的数据,包含两个元素 num1 As Integer num2 As IntegerEnd TypePrivate Sub Command1_Click() Dim number As num '定义num类型的变量 number.num1 = 1 ...

2016-12-01 18:16:29 12

原创 VB编程:Timer控件实例幼儿识字卡片-35

运行效果:程序代码:Dim myarray(10) As String    '定义全局变量,文字数组Dim i As IntegerPrivate Sub Form_KeyDown(KeyCode As Integer, Shift AsInteger)    If KeyCode = 37 Then        '键盘按键左边←     ...

2016-12-01 13:28:34 308

原创 VB编程:Timer控件实例幼儿识字卡片-35_彭世瑜_新浪博客

运行效果:程序代码:Dim myarray(10) As String '定义全局变量,文字数组Dim i As IntegerPrivate Sub Form_KeyDown(KeyCode As Integer, Shift AsInteger) If KeyCode = 37 Then '键盘按键左边← Call ...

2016-12-01 13:28:34 19

泰坦尼克数据集3个csv文件

泰坦尼克数据集3个csv文件: 1. train.csv, 2. test.csv, 3. gender_submission.csv

2018-06-03

CSS Tools: Reset CSS

The goal of a reset stylesheet is to reduce browser inconsistencies in things like default line heights, margins and font sizes of headings, and so on. The general reasoning behind this was discussed in a May 2007 post, if you're interested. Reset styles quite often appear in CSS frameworks, and the original "meyerweb reset" found its way into Blueprint, among others.

2020-07-23

mybatis-generator-demo.zip

mybatis-generator-demo 自动生成代码示例,最好配合教程使用 https://pengshiyu.blog.csdn.net/article/details/107594627

2020-07-26

浏览器Header和cookie字符串形式转Json

浏览器Header和cookie字符串形式转Json,没发放图片,下载试试看吧,飞的需要50个字吗,我先说下这个软件的功能,再说下这个软件是用java写的,需要安装java环境 具体介绍看这里: https://pengshiyu.blog.csdn.net/article/details/105398552

2020-04-08

Python高手之路 试读版 PDF电子书下载 带书签目录

Python高手之路 试读版 PDF电子书下载 带书签目录,注意,是试读版本

2018-05-23

彭世瑜的留言板

发表于 2020-01-02 最后回复 2020-03-20

博客管理后台搜索文章的时候应该忽略英文大小写

发表于 2020-02-16 最后回复 2020-02-16

后台管理文字太细,不支持回车搜索

发表于 2020-02-15 最后回复 2020-02-15

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人 TA的粉丝

提示
确定要删除当前文章?
取消 删除