vb代码翻译
endl = chr(13)+chr(10)
msg="床前明月光"& endl
msg=msg&"疑是地上霜"&endl
msg=msg&"举头望明月"&endl
msg=msg&"低头思故乡"
text1.text=msg
上面endl和chr是什么意思？？
还有msg&".."&endl每行都有而最后一行没有&endl?
chr()是一个函数，用户返回ASCII码对应的字符
chr(10)是换行，chr(13)是回车
msg每连接一个字符串就会加上一个换行和一个回车
然后输出到文本text1里
输出后是：
床前明月光
疑是地上霜
举头望明月
低头思故乡
vb代码翻译
语言代码翻译 私人子表格_激活()。M _停止=错误 Form1.Reload 结束 私人子表格_ MouseDown(按钮,转变为整数作为一个整体,x,y为单)。2如果按钮 MMControl1.Command =“关”最后 如果年底 结束 私人子表格_ QueryUnload UnloadMode整型,如(取消)为整数,MMControl1.Command =“停止”MMControl1.Command ...
vb 代码翻译:
Option Explicit'不能使用隐匿变量Private perW As Long, perH As LongPrivate Row As Long, Col As LongPrivate numS As Long, numE As LongPrivate lastEndNum As Long'申请的变量 Private Sub cboCol_Click() Update'调用过程\/函数End SubPrivate Sub cboRow_Click() Update'同上End Sub...
VB代码翻译、
Dim d As Boolean '定义全局变量d，代表移动方向 Private Sub Form_Load() '程序启动时载入运行 Label1.Left = Me.Width - Label1.Width 'Label1移动到最靠窗体右边 Timer1.Interval = 100 '定时器设置为0.1秒 d = True '初始化d，方向向左 End Sub Private Sub Timer1_Timer()If...
用通俗的话把下面VB的代码翻译下。就相当于注释。
Private Sub Command2_Click()'单击Command2的事件代码 '功能：对选中的通讯记录进行删除 If ListView1.ListItems.Count > 0 Then '如果当前ListView中的列表项个数大于0，即不为空则 If MsgBox("真的要删除吗？", vbQuestion + vbYesNo + vbDefaultButton2) = vbYes Then '显示对话框询问是否...
vb 代码翻译
Static i As Integer '声明变量i If KeyCode = 13 Then '如果按下回车 If (Text1.Text) = "abcd" Then '如果Text1中的内容是abcd Label2.Caption = "你已成功进入" 'Label2显示 ElseIf i < 3 Then '如果i小于3 i = i + 1 'i增加1 MsgBox "口令错！请重新输入" '对话框 Text1....
vb代码翻译
Dim t0 as string, t1 as string '声明2个字符串变量t1,t2 if keyascii<> 13 then '如果按下的不是回车键 else '否则（按下了回车键）text2="" '清空Text2 n=1 '并给n赋值1 t0="." '给t0赋值"."t1= mid(text1,n,1) '将text1中从第n个字符之后的1个字符取出放入t1 Do while ...
请高手翻译vb代码,谢谢
Private Sub Pic_Click() '单击picture Init '调用初始化函数 '下面的60000，为了测试我改为100 Timer3.Interval = 100 '设置计时器，60000=1分钟执行一次代码 Timer3.Enabled = True '计时器运行 End Sub Private Sub Init() '初始化函数 Dim i As Integer Pic.Cls '清画屏picture不为空 Pic....
vb 代码 逐句翻译一下 谢谢
Dim sql As String '定义存储sql语句的变量 If Check1.Value = vbChecked Then '如果复选框check1被选中，sql语句中读者编号等于text1的值 sql = "读者编号='" & Trim(Text1.Text & " ") & "'"End If If Check2.Value = vbChecked Then '同上 If Trim(sql) = "" Then ...
vb代码翻译
endl是一个变量 chr()是一个函数，用户返回ASCII码对应的字符 chr(10)是换行，chr(13)是回车 msg每连接一个字符串就会加上一个换行和一个回车 然后输出到文本text1里 输出后是：床前明月光 疑是地上霜 举头望明月 低头思故乡
VB代码翻译
Private Sub Command1_Click() 按钮1的单击事件 Dim B() As Byte 声明一个字节数组 Dim PassWord As String 声明一个字符串 Dim B1() As Byte 声明一个字节数组 Dim I As Long, l As Long, j As Long 声明三个长整数 Open "c:\\pass.txt" For Binary As #1 打开文本文件，用二进制方式...
