-
股票采集数据源码
用VB编的股票采集数据源码、分享出来希望对大家有用。
- 2022-07-10 11:37:10下载
- 积分：1
-
VB求解数学问题，求两个数最大公约数
VB6.0演示一个求解数学问题，求两个数最大公约数，这是个简单的数学问题，数学基础好，用VB很轻松就编写出本程序了。在运行的窗口中，分别输入两个整数，单击按钮，程序将显示两个数的最大公约数是多少。求解的过程代码描述如下：
If (Val(Text1.Text) = 0 Or Val(Text2.Text) = 0) Or Val(Text1.Text) > 2147483647 Or Val(Text2.Text) > 2147483647 Then
MsgBox "输入的数0或溢出，请重新输入！"
MsgBox "输入的数0或溢出,请重新输入!", vbInformation + vbOKOnly, "数据错误"
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
Else
m = Val(Text1.Text)
n = Val(Text2.Text)
If m < n Then
temp = m: m = n: n = temp
End If
Do
r = m Mod n
m = n
n = r
Loop While r 0
Label3.Caption = "两个正整数m和n的最大公约数为: " & m
End If
- 2022-07-16 14:37:29下载
- 积分：1
-
VB6 制作简易谱曲键盘 键盘演奏音乐
VB6 制作简易谱曲键盘，用键盘演奏音乐，可发出7个基本音符声音，生成 1 到 7 之间的随机数值，每个键值代表一个音符，如窗体所示，每个数字就代表一个声音，这期间要用到定时器。
在如图所示的运行效果中，单击数字后，单击演奏，可听到演奏效果。
- 2022-08-04 05:21:26下载
- 积分：1
-
一个演示VB API高速搜索文件的程序
一个演示VB高速搜索文件程序，基于API来实现，用于快速查找文件，类似的例子在前几年的书籍实例中，有很多，这一个也是从VB的书中整理出来的，代码中有丰富的注释，主要是分享给VB新手参考学习的。
- 2022-10-25 13:25:04下载
- 积分：1
-
vb 交换两个变量的值
vb 不借助第3个变量实现两个变量互换,交换两个变量的值,在窗口上输入a和b的值，从运行效果截图你可看出这个功能：
If IsNumeric(Txt_a.Text) Then
a = Val(Txt_a.Text)
Else
MsgBox "请输入数字！"
Exit Sub
End If
If IsNumeric(Txt_b.Text) Then
b = Val(Txt_b.Text)
Else
MsgBox "请输入数字！"
Exit Sub
End If
a = a + b
b = a - b
a = a - b
Lbl_Info.Caption = "a的值是:" & a & " b的值是:" & b
- 2023-09-06 03:35:03下载
- 积分：1
-
VB演示操作存储过程的方法
VB演示操作带参数和不带参数的存储过程的方法，通过一个数据库查询来体现功能的差别。同时还包括了创建存储过程信息。
我们从打开数据链接开始，演示如何简单创建一个存储过程，下面是核心的几何代码：
con.Open
con.Execute ("Create Procedure book1 @price int As Select * From 书名 where 单价>=@price")
MsgBox "成功创建存储过程"
con.Close
SQL语句是一个查询书名对应价格的例子，仅供参考。
- 2022-01-25 20:38:51下载
- 积分：1
-
VB6.0 改变扩展名保护Access数据库
VB6.0 改变扩展名保护Access数据库，也就是让用户修改Access数据库的扩展名，之前可能禁止改变，但本代码介绍的方法允许修改扩展名，以下是本例子核心功能部分的完整源码，仅供参考：
Private Sub Form_Load()
Dim cnnstr As String
cnnstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "db_wjgl.bak;Persist Security Info=False"
cn.Open cnnstr
Adodc1.ConnectionString = cnnstr
Set Picture1.DataSource = Adodc1
Picture1.DataField = "文件"
End Sub
Private Sub Form_Unload(Cancel As Integer)
cn.Close
End Sub
- 2022-05-16 07:33:58下载
- 积分：1
-
VB 只允许输入特殊字符
VB 只允许输入特殊字符，这只是一个普通的用户查询窗口，字段名称、运算符、关 键 字，然后对其进行查询，因为要向cbofields中添加规范化数据，所在再输入时只能输入“>”、“
- 2022-03-19 10:07:52下载
- 积分：1
-
VB源码演示如何制作倒计时程序
VB编写的倒计时程序，测试时，请输入目标日期与时间，格式如演示截图中所示，然后按下“倒计时”按钮，即可开始倒计时了，会显示出具体剩余的天数和时、分、秒。程序主要基于CDate函数和DateDiff函数来实现，主要代码如下：
Private Sub Timer1_Timer()
On Error GoTo H
Timer1.Interval = 1000
Dim i As Date
i = CDate(Text1)
Label1.Caption = "距离" & Text1 & "还剩" & DateDiff("d", Now, i) & "天" & CLng(DateDiff("h", Now, i)) Mod 24 & "小时" & CLng(DateDiff("n", Now, i)) Mod 60 & "分" & CLng(DateDiff("s", Now, i)) Mod 60 & " 秒"
Exit Sub
H:
MsgBox "请输入正确的时间"
Timer1.Enabled = False
End Sub
- 2022-03-13 16:12:01下载
- 积分：1
-
vb IsDate判断字符串是否为日期或时间
vb 判断字符串是否为日期或时间，在输入框输入任意字符串类型，程序将会判断出该字符串是否是时间字符串，这个判断方法VB员自带有函数，使用IsDate即可实现，下面是使用IsDate的简单用法示例：
If IsDate(Text1) = True Then
Text2.Text = "是日期"
Else
Text2.Text = "不是日期"
End If
您也可以在本页下载完整的源码实例。
- 2022-08-18 06:21:54下载
- 积分：1
