自定义博客皮肤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编程:利用数组设置MSFlexGrid表头和列宽-34

运行效果: 程序源码: Private Sub Form_Load()     Dim i As Integer     Dim s, y     MSFlexGrid1.Rows = 10     MSFlexGrid1.Cols = 6     s = Arra...

2016-11-30 17:01:53 514 0

原创 VB编程:利用二位数组MSHFlexGrid表格添加数据-33

运行效果: 程序代码: Private Sub Form_Load()     Dim i, j As Integer     Me.MSHFlexGrid1.Cols = 8     Me.MSHFlexGrid1.Rows = 15     For j = 0 ...

2016-11-30 16:03:59 265 0

原创 VB编程:利用数组随机抽取幸运观众-32

运行效果: 程序代码: Private Sub Command1_Click()     Dim myarray() As String     Dim myrows     With Text1         myarray = Split(.Text, vbCrL...

2016-11-30 12:56:49 1267 0

原创 VB编程:利用数组统计文字段落数-31

运行效果:   运行代码: Private Sub Command1_Click()     Dim myrows                '定义段落数     Dim myarray() As String   '声明数组,保存文本     W...

2016-11-29 15:51:45 147 0

原创 VB编程:取整函数Int、CInt、Fix区别-30

运行效果: 1、正整数取整: 2、负整数取整: 学习心得:     1、从例子中可以看到:     Int()按照数轴向下取整;     CInt()四舍五入,取了最近的一个整数;     Fix()无论什么情况,只取整数部分。 程序代码: Private...

2016-11-29 10:59:11 11472 0

原创 VB编程:对数组进行二分查找-29

运行效果 程序代码 Option Explicit Dim myarray(100) As Integer           '定义数组,下标0-100,数组元素为101个 Private Sub Command1_Click()     Dim lo...

2016-11-29 09:54:03 1298 0

原创 VB编程:利用数组实现矩阵转换-28

运行效果: 运行代码: Dim myarray(1 To 5, 1 To 5) As Long Private Sub Command1_Click()     Print "                       转换前的矩阵"   ...

2016-11-28 14:50:50 567 0

原创 VB编程:数组中删除数组元素-27

运行效果: 程序代码: Dim a() Private Sub Form_Load()     ReDim Preserve a(1 To 5)     For i = 1 To 5         a(i) = i     Next i     For i = 1 ...

2016-11-26 11:34:18 3199 2

原创 VB编程:数组中插入新的数组元素-26

运行效果: 程序代码: Dim a() As Long Private Sub Form_Load()     ReDim Preserve a(1 To 4)   'Preserve:当改变原有数组最末维的大小时,使用此关键字可以保持数组中原来的数据。  ...

2016-11-25 14:09:59 1935 2

原创 VB编程:UBound获取数组上限;LBound获取数组下限-25

运行效果: 程序代码: Private Sub Command1_Click()     Dim a(5)     Text1.Text = UBound(a)     Text2.Text = LBound(a) End Sub

2016-11-25 13:02:25 1329 0

原创 VB编程:Timer控件中使用计数变量-24

运行效果: 程序代码: Private myint As Integer Private Sub Form_Load()     myint = 0 End Sub Private Sub Timer1_Timer()     myint = myint + 1 ...

2016-11-22 09:24:36 577 0

原创 VB编程:利用CallByName函数对对象进行操作-23

运行效果 备注:不是界面优化太差,commad2是通过单击事件改变了其位置 程序代码 Private Sub Command1_Click()     Text2.Text = CallByName(Text1, "text", VbGet) E...

2016-11-21 18:40:52 745 0

原创 VB编程:Me关键字的使用&VB常用颜色代码-22

运行效果: 程序代码: Private Sub Command1_Click()     Unload Me End Sub Private Sub Form_Click()     Me.Text1.Top = 0     Me.backcolor = vbCya...

2016-11-21 16:43:07 1152 0

原创 VB编程:利用Object变量传递参数-21

运行效果: 程序代码: Private Sub Command1_Click()     Dim i As Object     Set i = Text1     i.Text = "传递参数" End Sub

2016-11-21 15:14:39 606 0

原创 VB编程:Enum创建包含12个月的枚举类型-20

运行效果: 程序代码: Option Explicit Public Enum Month     jan = 1     feb = 2     mar = 3     apr = 4     may = 5     jun = 6     jul = 7     ...

2016-11-21 14:52:38 893 0

原创 VB编程:将文本控件添加到集合Collection中-19

运行效果 程序代码 Dim aaa As Collection Private Sub Command1_Click()     Dim item As Control     For Each item In aaa         item.Text = &quo...

2016-11-21 13:10:32 155 0

原创 VB编程:利用循环嵌套求1000以内的完数-18

运行效果: 编写总结     完数:它的因子之和恰好等于它的本身;     亏数:它的因子之和小于本身;     盈数:它的因子之和大于本身; 程序代码: Private Sub Form_Click()     Dim n, r, j, i As Intege...

2016-11-21 11:25:39 957 0

原创 VB编程:While...Wend语句实例漂亮的星星-17

运行效果: 程序代码: Private Sub Command1_Click()     Dim a As Long, b As Long     Form1.Cls               '清空窗体     While a <= 9   ...

2016-11-20 13:46:41 1041 0

原创 VB编程:DO...Loop循环语句比较最大最小值-16

一、运行效果 二、编写心得     程序中,最大值和最小值的比较类似,先用一个布尔型变量“c”和“if”条件语句来区分第一次提示还是后续提示,输出相应的“输入提示框”;再用“if”条件语句和“isnumeric()”函数判断输入是否为数值,不是则用“exit for”跳出...

2016-11-18 18:57:14 761 0

原创 VB编程:DoWhile...Loop当循环计算0~100累加和-15

一、运行效果 二、技巧总结     1、常用的循环有三种:     (1)for循环(For...Next);     (2)当循环(Do...While...Loop)或者(While...Wend);     (3)直到循环(Do...Until...Loop); ...

2016-11-17 18:42:55 1106 0

原创 VB编程:DoEvents将控制权交给系统,防止无限循环-14

一、运行效果: 1、没有DoEvents时运行(出现未响应): 2、有DoEvents时运行(没有未响应): 二、关键点     1、DoEvents函数,将控制权交给系统,防止无限循环。     2、将下面程序中的“if”语句删除试试两种效果有何不一样。 三、程...

2016-11-17 18:23:51 811 0

原创 VB编程:SelectCase多分支选择结构实例测试生肖运势-13

一、运行效果 二、程序代码 (窗体模块) Private Sub Command1_Click()     Dim iNum As Integer              '存储余数     Dim i As Integer              ...

2016-11-17 15:09:09 565 0

原创 VB编程:全局变量&控件数组实例简单计算器-12

运行效果: 程序代码: Dim current, prev, choice    '全局变量 '-------------这段代码是个额外加上的小测试可以忽略---------- '---------------用API来关闭正在运行运...

2016-11-16 17:38:01 657 0

原创 VB编程:SelectCase多分支选择结构判断成绩优良-11

运行效果: 程序代码: Private Sub Command1_Click()     If IsNumeric(Text1.Text) Then         Select Case CInt(Text1.Text)             Case Is ...

2016-11-16 15:27:46 1735 0

原创 VB编程:If-ElseIf判断输入的字符是数字还是字母-10

运行效果: 程序代码: Private Sub Command1_Click()     Dim bo, ba, st As String     st = Text1.Text     bo = st Like "[a-z]"     ba ...

2016-11-16 14:02:03 2352 0

原创 VB编程:IF语句嵌套实例猜数小游戏-9

运行效果: 程序代码: Public A As Long                                                           '定义全局变量,用于储存生成的随机数 Private Sub Command1_C...

2016-11-16 11:34:14 1058 0

原创 VB编程:IF语句判断成绩优良-8

运行效果: 源代码: Private Sub Command1_Click()     Dim i As Integer     i = Val(Text1)     If i = 100 Then         MsgBox "满分"    ...

2016-11-16 09:47:08 1308 0

原创 VB编程:无标题栏窗体移动和自定义鼠标样式-7

效果显示: 实现无边框效果: 窗体BorderStyle=0-None 图片框的BorderStyle=0-None 代码开始: '---------实现移动无标题栏窗体API调用声明-------------------- Const HTCAPTIO...

2016-11-15 18:56:02 211 0

原创 VB编程:Val字符串转数字,CStr数字转字符串-6

效果显示: Private Sub Text1_Change() Text2.Text = CStr(Text1.Text)     '转字符串 Text3.Text = Val(Text1.Text)       '转为数字 End Sub ...

2016-11-15 15:13:41 4007 0

原创 VB编程:FileLen函数获取文件的大小-5

显示效果: Private Sub Command1_Click()     CommonDialog1.ShowOpen                           '打开对话框     If CommonDialog1.FileName &am...

2016-11-15 14:06:14 1171 0

原创 VB编程:UCase转大写,LCase转小写-4

Private Sub Text1_Change() Text2.Text = LCase(Text1.Text)    '转换成小写字母 Text3.Text = UCase(Text1.Text)   '转换成大写字母 End Sub Privat...

2016-11-15 13:21:57 664 0

原创 VB编程:不能更改窗体大小又能最小化-3

目的:不能更改窗体大小又能最小化 解决方案: 1、把Form窗体属性borderstyle设为1           '固定窗体; 2、把Form窗体属性minbutton设为true        '最小化可用。 备注:如果需要最大化可用,就把F...

2016-11-15 10:36:34 1147 0

原创 VB编程:Const自定义常量计算圆面积-2

Private Sub Command1_Click() Const pi = 3.1415966     '定义常量pi s = pi * Val(Text1.Text) ^ 2 Debug.Print s                  'Debu...

2016-11-15 09:17:25 689 0

原创 VB编程:Static 静态变量实现计数功能实例-1

Option Explicit Private Sub Command1_Click()     Static j As Integer     j = j + 1                'j用于计数,每次单击Command命令按钮加1。     If ...

2016-11-15 08:34:38 232 0

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