皮皮网

1.VB代码翻译
2.VB代码翻译、
3.如何用VB编翻译程序
4.VB代码翻译
5.帮忙翻译VB代码
6.vb 代码翻译：

VB代码翻译

       Private Sub ComdQuery_Click() '查询 数据库表格 然后显示在 DataGrid1的翻译翻译 表格控件上

       Dim SqlStr As String

       Dim rsCheck As New Recordset

       Dim sRoomID As String

       Dim sMemberID As String

       Dim dOTime As String '变量声明

       sRoomID = Trim(Me.CombRoomID.Text)

       sMemberID = Trim(Me.CombMemberID.Text) '变量=窗体控件上的数据 （赋值）

       dOTime = Trim(Me.DTPicker1.Value)

        '这个数据库表格字段名 是英文写的，因此 查询显示时需要将其变为中文 这样才直观看。源码 这些臭长臭长 As 都是代码大全变换呢 后面的 Where 后面的句子 是条件语句 按照 房间号 啊 日期啊等等做条件来查的。

       SqlStr = "select CheckID as 帐单编号,翻译翻译java 五子棋 源码OpenDate as 开房日期" & ",MemberID as 会员编号,ClientName as 客户姓名" & ",RoomID as 房间编号,RoomType as 房间类型" & ",RoomPrice as 房间价格,OpenRoomTime as 开房时间" & ",EndTime as 结束时间,Prepay as 预付金额" & ",Agio as 折扣,PayMode as 付款方式,RoomMoney as 消费金额 " & "from CheckInfo where RoomID like " & "" & " '%" & sRoomID & "%'" & "and MemberID like " & "'%" & sMemberID & "%'" & "and OpenDate ='" & dOTime & "'"

       Set rsCheck = Conn.Execute(SqlStr) '让SQL 连接执行刚才的语句。

       Set DataGrid1.DataSource = rsCheck '让DataGrid1表格控件绑定检索返回 来显示到界面上。源码

       Set rsCheck = Nothing '注销刚才的代码大全3.1233模块源码连接

       End Sub

       Private Sub Form_Load()

       Me.Top = (Screen.Height - Me.Height) / 2 '垂直方向居中

       Me.Left = (Screen.Width - Me.Height) / 2 '水平方向居中

       With Conn

       Conn.CursorLocation = adUseClient

       Conn.CommandTimeout =

       Conn.ConnectionString = g_ConnStr '打开数据库连接

       Conn.Open

       End With

       Dim SqlStr As String

       Dim rsDestine As New Recordset '和上面的一样

       SqlStr = "select CheckID as 帐单编号,OpenDate as 开房日期" & ",MemberID as 会员编号,ClientName as 客户姓名" & ",RoomID as 房间编号,RoomType as 房间类型" & ",RoomPrice as 房间价格,OpenRoomTime as 开房时间" & ",EndTime as 结束时间,Agio as 折扣,Prepay as 预付金额" & ",PayMode as 付款方式,RoomMoney as 消费金额 from CheckInfo"

       Set rsDestine = Conn.Execute(SqlStr)

       Me.DataGrid1.ColumnHeaders = True

       Set DataGrid1.DataSource = rsDestine

       Set rsDestine = Nothing

       '从数据库中读取数据写入房间编号下拉列表框

       Dim adoRs As New ADODB.Recordset '不知道这代码谁写，一个连接就行了搞这么多

       Dim DBStr As String '上面的翻译翻译查询完毕 关闭再连接就是了 这样搞 还要重新

       DBStr = "select RoomID from RoomInfo " '声明变量 再连接， 吃饱了撑的源码。

       adoRs.Open DBStr,代码大全 Conn, adOpenStatic, adLockReadOnly

        '如果需要我给你重写一下 这么长 其实都是一样的

       If adoRs.RecordCount > 0 Then '只是查询的表不同吧了。

       adoRs.MoveFirst

       Do While Not adoRs.EOF '循环读取所有数据 然后添加到 名字叫 CombRoomID 的翻译翻译 ComboBox中

       CombRoomID.AddItem adoRs.Fields(0).Value

       adoRs.MoveNext '下一条 直道没有 就不Loop了

       Loop

       End If

       adoRs.Close

       Set adoRs = Nothing

       '从数据库中读取数据写入会员编号下拉列表框

       Dim adoMemIDRs As New ADODB.Recordset

       DBStr = "select MemberID from MemberInfo" '这和前面的一样 变量名变变吧了。

       adoMemIDRs.Open DBStr,源码 Conn, adOpenStatic, adLockReadOnly

       If adoMemIDRs.RecordCount > 0 Then

       adoMemIDRs.MoveFirst

       Do While Not adoMemIDRs.EOF

       CombMemberID.AddItem adoMemIDRs.Fields(0).Value

       adoMemIDRs.MoveNext

       Loop

       End If

       adoMemIDRs.Close

       Set adoMemIDRs = Nothing

       End Sub

VB代码翻译、

       Dim d As Boolean '定义全局变量d，代表移动方向

       Private Sub Form_Load() '程序启动时载入运行

        Label1.Left = Me.Width - Label1.Width 'Label1移动到最靠窗体右边

        Timer1.Interval = '定时器设置为0.1秒

        d = True '初始化d，方向向左

       End Sub

       Private Sub Timer1_Timer()

        If d Then '如果d=true

        Label1.Left = Label1.Left - 'Label1向左移动堤

        Else

        Label1.Left = Label1.Left + '否则Label1向右移动堤

        End If

        If Label1.Left <= 0 Then '如果Label1超出窗体左边框

        d = False '方向改为向右

        End If

        If Label1.Left >= Me.Width - Label1.Width - Then '如果Label1超出窗体右边框-å ¤

        d = True '方向改为向左

        End If

       End Sub

如何用VB编翻译程序

       我建议使用text文件，汉字之间不用分隔符，代码大全不分行，翻译翻译lwip tcp 源码直接按照你的源码顺序放进去就好了（但注意，不能乱顺序，代码大全不能少字！尝试逃脱源码）

       然后使用下面的代码。

       Const 标题 = "代码翻译成汉字"

       Dim 汉字表 As String

       Private Sub Command1_Click()

       Dim 代码 As Integer

       '排除错误的输入

       If Not IsNumeric(Text1) Then 'text内容不是数字

       MsgBox "你输入的不是十进制代码！" & vbCrLf & "请重新输入。hangfire 源码分析", vbCritical, 标题

       Text1 = ""

       Exit Sub

       End If

       If Len(Text1) > 4 Then '代码太长

       MsgBox "你输入代码太长！" & vbCrLf & "请重新输入。", vbCritical, 标题

       Text1 = ""

       Exit Sub

       End If

       代码 = Int(Text1)

       If 代码 > Or 代码 < 0 Then '超出范围

       MsgBox "你输入代码没有对应的汉字！有效代码0~" & vbCrLf & "请重新输入。", vbCritical, 标题

       Text1 = ""

       Exit Sub

       End If

       '其他的输入错误我不知道还会有什么？你自己加在这里

       Text2 = Mid(汉字表, 代码 + 1, 1) '唉，有效代码就是这一行！其他都是陪衬

       End Sub

       Private Sub Form_Load()

       '界面安排

       Command1.Caption = "翻译"

       Text1 = ""

       Text2 = ""

       Text1.Move , , ,

       Text2.Move , , ,

       Command1.Move , , ,

       Height =

       Width =

       Caption = 标题

       '读入汉字表

       Open App.Path & "\汉字表.txt" For Input As #1

       Input #1, 汉字表

       Close #1

       End Sub

       Private Sub Text1_Change()

       Text2 = ""

       End Sub

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 打开文本文件，用二进制方式

       If LOF(1) > 0 Then 如果文件长度大于0

       j = LOF(1) J为文件的长度

       ReDim B(LOF(1) - 1) 重新定义字节数组B为文件长度

       Get #1, , B 将文件的内容赋值给数组B

       End If If 结束

       Close #1 关闭文本文件

       Dim P As Long 定义一个长整数

       PassWord = "OutsideFile" 赋值给字符串

       l = Len(PassWord) L等于PassWord的长度

       ReDim B1(l) 将字节数组定义为L个元素

       For I = 1 To l 循环从1到PassWord长度

       B1(I) = Asc(Mid(PassWord, I, 1)) 字节数组每个元素等于PassWord的每个字符的ASC值

       Next 循环结束

       For I = 0 To UBound(B) 循环为0到B字节数组上限

       B(I) = B(I) Xor B1(P) B字节数组每个元素等于其值与B1字节数组相应字节的异或值

       P = P + 1 P值增加

       If P > l Then P = 0 如果P值大于PassWord的长度则从零开始

       Next 循环结束

       Open "c:\password.txt" For Binary As #1 打开或建立二进制文件

       Put #1, , B 将字节数组B的元素写入

       Close #1 关闭文本文件

帮忙翻译VB代码

       Private Sub mnufuzhi_Click()

       Clipboard.Clear

       Clipboard.SetText Text1.SelText '设置包含当前所选择文本的字符串

       End Sub

       Private Sub mnujianqie_Click()

       Clipboard.Clear '剪贴板清空

       Clipboard.SetText Text1.SelText

       Text1.SelText = ""

       End Sub

       Private Sub mnuqianjing_Click()

       CommonDialog1.ShowColor '调用对话框控件 打开调色板

       Text1.ForeColor = CommonDialog1.Color 'text1前景色为选择的颜色

       End Sub

       Private Sub mnuqingchu_Click()

       Text1.Text = ""

       End Sub

       Private Sub mnuquanxuan_Click()

       Text1.SetFocus 'text1 获得焦点

       Text1.SelStart = 0 '光标起始位置为0

       Text1.SelLength = Len(Text1.Text) '设置所选择的字符数

       End Sub

       Private Sub mnutui_Click()

       Unload Me '卸载自身

       End Sub

       Private Sub mnutuichu_Click()

       mnutui_Click '调用mnutui_Click过程

       End Sub

       Private Sub mnuzhantie_Click()

       Text1.SelText = Clipboard.GetText '剪贴板文本赋值替换选定的文本

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 Private Sub Form_Load() Dim i As Long'申请变量 txtFrom.Text = "1"'文本内容这1 txtTo.Text = ""'文本框tetto为 numS = 1'变量值为1 For i = 1 To '1 to 的for cboRow.AddItem CStr(i * )'添加数据,应该是 combobox 下同 [,....] cboCol.AddItem CStr(i * ) Next i cboRow.ListIndex = 0'显示第一个数据,下同 cboCol.ListIndex = 0End Sub

vb 代码翻译

       Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)

       'Text1的键盘按下事件

       Static i As Integer '声明变量i

       If KeyCode = Then '如果按下回车

        If (Text1.Text) = "abcd" Then '如果Text1中的内容是abcd

        Label2.Caption = "你已成功进入" 'Label2显示

        ElseIf i < 3 Then '如果i小于3

        i = i + 1 'i增加1

        MsgBox "口令错！请重新输入" '对话框

        Text1.SetFocus 'Text1得到焦点

        Else

        MsgBox "你无权进入系统" '对话框

        End If

       End If

       End Sub

       '这个程序虽然执行起来是没有问题的，但是3次输入的限制是起不到作用的，可以改成下面这样

       Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)

       Static i As Integer

       If KeyCode = Then

        If i < 3 Then

        If (Text1.Text) = "abcd" Then

        Label2.Caption = "你已成功进入"

        Else

        MsgBox "口令错！请重新输入"

        Text1.SetFocus

        End If

        Else

        MsgBox "你无权进入系统"

        End If

        i = i + 1

       End If

       End Sub