自定义博客皮肤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

我也要用

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

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

2016-12-25 17:15:30

阅读数 1305

评论数 2

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

运行效果：程序代码： Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As An...

2016-12-14 15:16:47

阅读数 125

评论数 0

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

运行效果：程序代码： Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As An...

2016-12-14 13:20:45

阅读数 223

评论数 0

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

1、运行效果 2、程序代码; Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As...

2016-12-13 18:39:47

阅读数 123

评论数 0

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

1、运行效果 2、程序代码 Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As A...

2016-12-13 17:54:44

阅读数 205

评论数 0

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

运行效果运行代码： Private Sub Command1_Click() Dim intx As Integer Dim frmnew(1 To 5) As New Form1 '使用new关键字，系统会创建新窗体 For ...

2016-12-08 15:16:09

阅读数 65

评论数 0

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

运行效果：运行程序： Private Sub Command1_Click() Dim num As Integer Text1.Text = ObjPtr(Text1) '获取对象地址 Text3.Text = StrP...

2016-12-08 11:39:50

阅读数 43

评论数 0

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

原文地址：关于字体的一些常识作者：花园我们每天设计都在与字体打交道。但是我们一直没有认真在意他们的存在。我们没有很好地使用过他们，甚至滥用他们。这一切是因为我们不了解他们。Information Architects 上大声喊道：95%的网页设计是排版设计(Web Des...

2016-12-08 10:55:01

阅读数 99

评论数 0

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

运行效果：程序代码： Private Sub Form_Load() For i = 0 To Label1.Count - 1 Label1(i).Caption = "移动鼠标" Next i End Sub ...

2016-12-02 11:54:34

阅读数 301

评论数 0

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

运行效果：程序代码： Private Const general = 5 Private Sub Command1_Click() Dim myarray(general - 1) As Integer For i = 0 To general -...

2016-12-02 10:17:44

阅读数 596

评论数 0

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

运行效果：程序代码： Private Type num '定义一个新类型的数据，包含两个元素 num1 As Integer num2 As Integer End Type Private Sub Command1_Clic...

2016-12-01 18:16:29

阅读数 137

评论数 0

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

运行效果：程序代码： Dim myarray(10) As String '定义全局变量，文字数组 Dim i As Integer Private Sub Form_KeyDown(KeyCode As Integer, Shift As I...

2016-12-01 13:28:34

阅读数 106

评论数 0

提示

确定要删除当前文章？

取消删除