StrLanTmp = Trim(rs("招生分类")) & ""
a = InStr(StrLanTmp, Trim(CmbTrain(1).Text)) 'CmbTrain(1)为科目
a = a + Len(Trim(CmbTrain(1).Text))
b = InStr(a, StrLanTmp, "|")
Mid(StrLanTmp, a + 1, b - a - 1) = Val(Mid(StrLanTmp, a + 1, b - a - 1)) + 1
这个代码是统计招生人在各科目的招生情况的
招生分类的值是这样的:语文=1|数学=2|英语=1|
但是那些函数和计算 我实在看不懂。。谢谢各位了。帮帮我 主要是这句b = InStr(a, StrLanTmp, "|"),还有里面的加减运算。
呃。。。
这段VB什么意思谁知道
这段VB代码表示从数据库中的股票信息变化表中检索数据。检索条件是:日期等于SearchDate、当日股票交易量与交易价格之比大于AverageSel(i)且小于AverageSel(i + 1),同时当日股票交易量与交易价格之比大于30。其中,SearchDate、AverageSel(i)、AverageSel(i + 1)是由用户输入的参数。具体解析如下:从...
这段VB代码是什么意思?帮忙解答下
这段代码意思为当用户从窗体上的“控件”菜单中选择“关闭”指令,也即从点击窗体上的“X”标志关闭窗体时,打开frm2窗体上的timer1和timer3计时数。
VB 这段代码啥意思?
这是定长字符串变量的声明方式,声明后这个名为sClassName的变量的长度就固定为100个字节了,中途不能再改变长度。
这段VB代码是什么意思
InStr()函数原型 a=Instr([StartPos],Str1,Str2,CompareMode)StartPos 指定开始位置,省略则从1开始 Instr 函数在Str1里查找Str2,如果找到,返回Str2在Str1的开始位置,否则返回0 Mid()函数原型 strResult=Mid(Str1,Pos,[nLength])Mid函数截取字符串的一部分。Pos指定开始截取的位置。nLength指定截...
VB中这段代码什么意思
其实就是一段延时等待程序
这段VB代码什么意思?
当uRdEoFZwZcKojvFaFHnHn这个结构体变量中的name 等于“wscript.exe”时执行then到else或者then到end之间的语句。Mid("ziffwov568b",5,1)这个是从字符串ziffwov568b中的第5个开始取出1个字符,chrw是获得Unicode编码的字符,所有的加在一起就是字符串 “wscript.exe”,希望对你有帮助。
这段vb代码是什么意思?
上面的代码既可以在VB中运行也可以在属于VB环境下运行如:VBS(WEB, ASP),VBA(WORD EXCEL POWERPOINT WPS)主要介绍 CreateObject函数功能 1.此功能为微软在VB库中用来创建一个无图形界面(No UserInterferce)的ActiveX控件 如创建一个播放器可以这样写 Set Player= CreateObject("WMPlayer.OCX.7")Player....
这段VB代码是什么意思啊?帮我解释 下相关知识点吧! Private Sub Command...
SAPI.SpVoice 就是系统中注册了的一个 ActiveX 对象 (好象有Windows XP或更高版本才有,可以在控制面板的“语音”中找到它)CreateObject("SAPI.SpVoice").Speak 就是创建一个 SAPI.SpVoice 对象,并用这个对象调用它的 .Speak( ) 方法(函数)。如果你在控制面板把“语音”的属性设置为 Microsoft...
还有这段vb是什么意思
具体来说,此查询从股票信息变化表、股票信息表和股票类型信息表中选取。这些表包含了股票的各类详细信息。然后,where子句定义了查询的条件,确保结果仅包含满足特定标准的数据。总的来说,这段VB代码的核心功能是查询数据库,获取特定属性的股票信息,并根据特定条件过滤数据,以便进一步分析或展示。
这段VB代码什么意思啊
OK = False 为OK赋值 Me.Hide 本窗体隐藏 End Sub Private Sub cmdOK_Click()定义变量 Dim txtSQL As String Dim MsgText As String Dim mrc As New ADODB.Recordset On Error GoTo myErr If Trim(txtUserName & " ") <> "" Then 判断ID为txtUserName的文本框的值是否为空格 txtSQ...