彭世瑜的博客

记录我的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

阅读数:49

评论数: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

阅读数:35

评论数: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

阅读数:127

评论数:0

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

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

2016-11-29 15:51:45

阅读数:10

评论数:0

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

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

2016-11-29 10:59:11

阅读数:823

评论数:0

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

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

2016-11-29 09:54:03

阅读数:64

评论数:0

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

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

2016-11-28 14:50:50

阅读数:39

评论数: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

阅读数:376

评论数:0

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

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

2016-11-25 14:09:59

阅读数:223

评论数: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

阅读数:75

评论数: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

阅读数:118

评论数:0

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

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

2016-11-21 18:40:52

阅读数:66

评论数: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

阅读数:107

评论数: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

阅读数:82

评论数: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

阅读数:88

评论数:0

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

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

2016-11-21 13:10:32

阅读数:24

评论数:0

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

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

2016-11-21 11:25:39

阅读数:89

评论数: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

阅读数:73

评论数:0

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

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

2016-11-18 18:57:14

阅读数:76

评论数: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

阅读数:95

评论数:0

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