求教：哪位VB高手能告诉我下面的语句是什么意思

VB 哪位大侠告诉我下这条语句什么意思？~

第一个条件10050>11000不满足,而且&是连接字符串用的,你的意思应该是If sr.Fields(1) > (srrr.Fields(1) + 1000) And ... 你把符号给用错了.

Private Sub Form_KeyPress(KeyAscii As Integer) '捕捉按键
If KeyAscii 13 Then '如果是回车键 13 是回车键的ASCII码
If CurrentX >= ScaleWidth Then '判断当前鼠标坐标是不是在窗体范围内(在=true)
Print '不在的话什么也不输出
End If
Print Chr(KeyAscii); '在的话输出当前按键码
Else
Me.Cls '清屏
End If
End Sub

Dim cnn As ADODB.Connection ' 定义变量cnn用于存储ADOBD CONNECTION对象，及数据库连接对象
Set cnn = New ADODB.Connection ' 创建ADODB CONNECTION对象
cnn.Open "provider=sqloledb;server=10.10.8.219;user id=sa;password=teda;Initial Catalog=teda2204" ' 根据连接字符串 ConnectionString 打开数据库连接

Dim rst As New ADODB.Recordset ‘ 定义记录集 RecordSet 变量 rst， 并创建对象
Dim sql As String '定义字符串变量 sql 用于存放 SQL语句
sql = "select * from zj1013036" ' 给 sql 变量 赋值，该值是SQL语句，意思是从数据表 zj1013036 中查询所有的数据
rst.CursorLocation = adUseClient ' 设置或返回游标引擎的位置，使用由本地游标库提供的客户端游标。本地游标引擎通常允许使用的许多功能可能是驱动程序提供的游标无法使用的，因此使用该设置对于那些将要启用的功能是有好处的。
rst.Open sql, cnn, adOpenStatic, adLockReadOnly ' 以 静态类型游标（adOpenStatic）、只读（adLockReadOnly ），通过数据库连接 Connection 执行SQL语句指定的操作

rst.MoveFirst ' 将记录集指针指向第一条记录

Text1.Text = Trim(rst.Fields("id"))

' rst.Fields("id") ----- 从数据集查询结果取值，取第一条记录中的 “id”字段的内容
' Trim("xxxx") ----- 取出括号中传入字符串左右两边的多余空格
' Text1.Text = XXXX ----- 给文本框赋值

以此类推，其他不再复述...

Dim cnn As ADODB.Connection
Set cnn = New ADODB.Connection
连接数据库
cnn.Open "provider=sqloledb;server=10.10.8.219;user id=sa;password=teda;Initial
Catalog=teda2204"

Dim rst As New ADODB.Recordset
查询数据表
Dim sql As String
sql = "select * from zj1013036"
rst.CursorLocation = adUseClient
rst.Open sql, cnn, adOpenStatic, adLockReadOnly

rst.MoveFirst

从查询中读取数据到文本框
Text1.Text = Trim(rst.Fields("id"))
Text2.Text = Trim(rst.Fields("name"))
Text3.Text = Trim(rst.Fields("major"))
Text4.Text = Trim(rst.Fields("address"))
Text5.Text = Trim(rst.Fields("memo"))

---

三亚市15720956370： VB高手来解释下下面的语句 - ？
浦亨凯特： 前面2句是API函数的声明,不要问为什么,接口方法就是那样设置的,必须要那么多个参数. 第三第四句是常量声明,也不要问为什么,要配合API函数的. Form_Load方法就是用来获取窗体的句柄的,然后设置这个窗口的显示状态.2个API函数的具体功能你可以直接百度.

三亚市15720956370： 求VB高手帮我翻译下以下语句？
浦亨凯特： 看这几句代码的意思是,有一个用户名有一个密码框...然后去输到一个网站上去对吧? 定义变量a的类型为字符串 定义变量b的类型为字符串 令a的值为Text1框里的内容 令b的值为Text2框里的内容 这是用Shell函数调用IE打开exehttp://ABC.123.COM/test.asp?name=a的值+&pass=b的值,隐藏窗口 默认提交计时开始.

三亚市15720956370： 求助!谁能告诉我VB的一些语言?？
浦亨凯特： 据说vb 比较简单点. 慢慢学吧, 先理解下数值类型之间的区别. 然后就是逻辑运算符.(不懂没关系,可以跳过,用到的时候就会明了了) 然后就是 一些条件语句,循环语句.(多实验一下,实验结果要输出来看到, 可以用 Print 变量/字符串 输出到窗体上) 如果你要学VB的话,他的一些函数库在学习中会有所涉猎的. 需要学的还很多,学习过程中就会知道学什么了.上面说的都是一些基本的 不要急于求成,仔细体会这句话＂编程就是操作数据＂.多写一些代码.千万别眼高手低,停留于能看懂别人的代码,看是不能发现问题的,当你调试的时候才会发现其中的问题. 好运~!

三亚市15720956370： 请VB高手帮我解释下下面这段代码? - ？
浦亨凯特： 这段代码的功能是在文本框txtDate只允许输入数值和 - 号 还有可以退格删除字符, 这段代码的功能还不完善Private Sub txtDate_KeyPress(KeyAscii As Integer) If KeyAscii >= 48 And KeyAscii <= 57 Then '输入数值怎通过 ElseIf KeyAscii = 8 Then '退格键也通过 ElseIf KeyAscii = Asc(＂-＂) Then '可以输入- 号 Else KeyAscii = 0 '如果是别的键就取消 End If End Sub

三亚市15720956370： VB 哪位大侠告诉我下这条语句什么意思?？
浦亨凯特： 第一个条件10050>11000不满足,而且&是连接字符串用的,你的意思应该是If sr.Fields(1) > (srrr.Fields(1) + 1000) And ... 你把符号给用错了.

三亚市15720956370： VB 哪位高手能用循环结构自动处理下面的语句?？
浦亨凯特： For i = 29 To 32 If List1.Selected(i) Then Call DeleteLine(App.Path & ＂\data\userdefined.txt＂, (i - 28) * 2 - 1) Call DeleteLine(App.Path & ＂\data\userdefined.txt＂, (i - 28) * 2) End If Next

三亚市15720956370： 请VB高手帮我解决一下下面一个问题？
浦亨凯特： 你代码错了,adodc1.recordset.delete这句本来就删除指针所指的那列 你应该是自己用语句删除,然后再刷新当前记录

三亚市15720956370： 请问哪位vb编程师傅能够回答我的问题? - ？
浦亨凯特： Dim user As String, pass As StringDim n As BytePrivate Sub Command1_Click() If Text1 = user And Text2 = pass Then MsgBox ＂祝贺你,成功登录!＂ n...

三亚市15720956370： 那位高手帮我写几句VB的语句 - ？
浦亨凯特： 1 s = iif(mid(c,3,1)=＂C＂,＂yes＂,＂no＂) msgbox s2 select case x case is < 10 y = x ^ 2 -1 + Abs(x) case 10 to 20 y = Sqr(3 * x -2) case is > 20 y = x * 3 + 2 end select if x > 20 then y = x * 3 + 2 elseif x>=10 and x<= 20 then y = Sqr(3 * x -2) elseif x ...

三亚市15720956370： 有VB高手告诉我下面这一段程序大体是什么意思？
浦亨凯特： 向数据库定义了两个字段