置开始的指定数目字符。
i = i + 1
m(i) = InStr(m(i - 1) + 1, b, ",") '从上一个找到的逗号位置起，查找下一个逗号的位置
Loop
If m(i) = 0 And i > 1 Then tr(i) = Right(b, Len(b) - m(i - 1)) '处理一行中最后一个逗号后的字符串
'以下部分是将存储在数组变量 m(i)中的字符分类存放到方向、边长、已知坐标、网型信息等数组中
k = k + 1
For j = 1 To 5
jd(k, j) = Val(tr(j))
Next j
zjd = k
Loop
ts.Close
MsgBox "转角数据已成功读入", 0 + 64 + 0, "数据输入"
End If
End Sub
Private Sub cd2_Click(Index As Integer)
Dim tr() As String, m(10) As Integer '定义过程级变量
Dim i As Integer, j As Integer, k As Integer, h As Integer
CommonDialog1.ShowOpen
fname = CommonDialog1.FileName '将用户在"打开"对话框中选择的文件名对变量fname赋值
If fname <> "" Then '若无此判断当对话框中选择取消时、下面赋值语句将出错
Set ts = fso.OpenTextFile(fname) '将fname作为文本文件打开,并设置句柄
j = 0: k = 0: p = 0: h = 0
'j是测站数累计变量,k是已知点累计变量,l（j）、ns（j）分别是方向值、边长累积计数
Do While ts.AtEndOfLine <> True '前测型循环，进入循环的条件是没有读到文件结束尾
2022-05-13 14:24:05
108KB
1
一款基于VB Access的Vod点播系统，KTV客房系统，程序主要分以下几个模块：房间客户端、程序后台、前台、服务器端。程序使用有三方控件，已附在压缩包内。关于程序的一些相关说明：
1 设置自动进入程序时 800*600 退出回复原来分辨率!(已加入此功能，但存在问题，程序现在没有退出功能了：改为隐藏和呼出，则恢复分辨率的条件是什么)
2.程序自动隐藏 按一个键自动隐藏或回复窗口 (已加入隐藏、呼出程序功能)
3.后台应该有更改密码的地方( 前 后 台数据库 三个密码),我们不能让管理员去该数据库!(程序打包时加入数据库密码)
4.就是我添加影片后在列表中我点击一个影片则好像每行都被扫描一次似的,要等1、2秒该行才被选中!(已更新刷新方式，不会再出现延迟)
5.前台主界面下方:一、使用房间数 二、收款总额 已加入
收银系统 (1)、应该独立搞一个后台设置功能 提供酒店的管理部门使用(2)、结帐的时候应该根据客户选择的服务自动结算帐目吧 虽然可以写实收太应该表示出应收的数目帐目也应该是这样的吧 (此条关于第二点：估计你没有测试结帐功能。
2022-05-07 14:56:24
4.38MB
1
VB语言画动态程序 ，VB画曲线，设置坐标系，设置time控键，改变输入函数就可以画出不同的曲线，比如正弦曲线，正切曲线等
2022-04-27 12:20:56
2KB
1
VB 解方程组 很有意思的程序
VB解方程组，可以解二元一次方程组，三元一次方程组。
2022-03-25 19:47:39
14KB
1