依辰

2020-5-29中华软件库 原创文章引擎已收录

改变颜色和字体的VB小程序  左侧输入文字，点击右侧，选择颜色和字体，即可使用 代码如下： Private Sub Check1_Click() Text1.Font.Italic = Not Text1.Font.Italic End Sub Private Sub Check2_Click() Text1.F...

2020-5-29中华软件库 原创文章引擎已收录

数字倒计时VB小程序     点击界面，即可实现数字倒计时   代码如下：   Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Sub Form_Load()...

2020-5-29中华软件库 原创文章引擎已收录

成绩是否合格VB小程序   输入人数，然后输入学生成绩，得出，合格与不合格人数，还有平均分和排序系统   代码如下：   Dim n() As Single, x As Integer Private Sub Command1_Click() Dim a As Integer, b As In...

2020-5-29中华软件库 原创文章引擎已收录

输入成绩，最后得分是这些数加起来的平均数 代码如下： Private Sub Command1_Click() Dim max As String, min As String, s As String max = 0 min = Val(Text1(0).Text) s = 0 For i = 0 To 5 If max < Te...

2019-11-29中华软件库 原创文章引擎已收录

软件库说明： 分享一个储存柜的VB小程序 点击存物，放入物品，记住密码。取物，点击红色方块，输入密码，即可取物 VB小程序源码如下：： Dim gzzt(1 To 16) As Integer Dim gznr(1 To 16) As String Dim gzmm(1 To 16) As Integer Private S...

2019-11-24中华软件库 原创文章引擎已收录

中华软件库介绍： 打字小游戏VB小程序 按F2开始，按F4设置时间，打对一个加1分，打错一个扣2分，漏打一个扣5分 中华软件库:点击下载

2019-11-19中华软件库 原创文章引擎已收录

分享一个LOLDLL脚本源码-E语言源码 中华软件库:点击下载

2019-11-15中华软件库 原创文章引擎已收录

随机幸运数VB小程序     随机幸运数VB小程序 在所写数字的范围随机生成一个数   VB小程序源码如下： Private Sub Command1_Click() If Command1.Caption = "开始" Then Timer1.Enabled =...

2019-11-15中华软件库 原创文章引擎已收录

文字变色VB小程序     文字变色VB小程序 按顺序变成红、蓝、绿3中颜色，俗称变色   VB小程序源码如下： Private Sub Command1_Click() If Command1.Caption = "开始" Then Timer1.Enabled...

2019-11-15中华软件库 原创文章引擎已收录

心想事成文字移动VB小程序     介绍： 心想事成文字移动VB小程序 移动和停止的VB小程序，可根据下列源码，改你想要改的样子   VB小程序源码如下： Private Sub Text1_Change() End Sub Private Sub...