这段vb代码是什么意思啊？
ss = ""
For i = 0 To List1.ListCount - 1
ss = ss & vbCrLf & List1.List(i)
Next
Open CommonDialog1.FileName For Output As #1
Print #1, ss
Close #1
希望能够每句都解释一下
特别是这句
For i = 0 To List1.ListCount - 1
ss = ss & vbCrLf & List1.List(i)
For i = 0 To List1.ListCount - 1 '从列表框第一行到最后一行循环
ss = ss & vbCrLf & List1.List(i) 'ss=列表框里面所有内容的组合，每行加回车
Next
Open CommonDialog1.FileName For Output As #1 '打开刚才选择的文件
Print #1, ss '将ss内容写入文本文件中
Close #1 '关闭文件
List1.ListCount 是List1控件中包含项目的总条数。
vbCrLf 是常量，表示换行（即回车符）
这段VB什么意思谁知道
这段VB代码表示从数据库中的股票信息变化表中检索数据。检索条件是：日期等于SearchDate、当日股票交易量与交易价格之比大于AverageSel(i)且小于AverageSel(i + 1)，同时当日股票交易量与交易价格之比大于30。其中，SearchDate、AverageSel(i)、AverageSel(i + 1)是由用户输入的参数。具体解析如下：从...
这段VB代码是什么意思?帮忙解答下
这段代码意思为当用户从窗体上的“控件”菜单中选择“关闭”指令，也即从点击窗体上的“X”标志关闭窗体时，打开frm2窗体上的timer1和timer3计时数。
这段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中运行也可以在属于VB环境下运行如:VBS(WEB, ASP),VBA(WORD EXCEL POWERPOINT WPS)主要介绍 CreateObject函数功能 1.此功能为微软在VB库中用来创建一个无图形界面(No UserInterferce)的ActiveX控件 如创建一个播放器可以这样写 Set Player= CreateObject("WMPlayer.OCX.7")Player.U...
这段VB代码是什么意思啊?帮我解释 下相关知识点吧! Private Sub Command...
SAPI.SpVoice 就是系统中注册了的一个 ActiveX 对象 （好象有Windows XP或更高版本才有，可以在控制面板的“语音”中找到它）CreateObject("SAPI.SpVoice").Speak 就是创建一个 SAPI.SpVoice 对象，并用这个对象调用它的 .Speak( ) 方法（函数）。如果你在控制面板把“语音”的属性设置为 Microsoft...
VB中这段代码什么意思
其实就是一段延时等待程序
这段VB代码是什么意思?
Private Sub Text1_KeyPress(K As Integer)Dim n As Integer 'if k>=asc("0") and k<=asc("9") then k=0 '定义n为整型变量，定义在这里是过程量，每次n都初始化为0，根本没用 If K = 13 Then '如果按下回车键(keyascii=13)List1.AddItem Text1.Text, n '添加文本框内容到...
这段vb代码到底是什么意思啊?
cn是个变量，存放的应该就是课程号，这样写的目的，就是为了把实际的课程号传递给数据库来检索。
求高手帮我看看这段VB代码是什么意思,答得好加分。
。补充的意思：Dim i As Long ‘’定义变量i 为长整形 For i = 0 To MaxN ''开始For循环，BigN(i) = 0 ‘’把数组bigN里的值都赋值0 Next i BigN(0) = 1: BigN(1) = 1 ‘’数组的第一个值赋值1，第二个值赋值1 ...
这段VB代码什么意思啊
定义变量： Public OK As Boolean Private Sub cmdCancel_Click()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 & " ") <...
