VB代码翻译（只要告诉我每行代码的含义就行）

这应该是vba的代码，word的vba的吧。

逐行翻译没必要，有些是定义语句，有些是规定的结构性开始结构性结束语句。

主要是2个循环，循环遍历图形和，如果超宽了，就设置宽高到那个大小。

判断条件，一个是大于一个是等于。

Shape 对象代表文档中的图形对象，InlineShape 代表文档中的嵌入式图形对象。

Shape 与 InlineShape 对象在文档中分别属于 Shapes 集合与 InlineShapes 集合。

两个方法的不同在于插入的位置的不同：

InlineShapes 只能指定 Range 进行插入。这与文档中的文字插入是相同的。

Shapes 插入的可以任意定位。

Private Sub Command1_Click()'Command1这个按钮的事件

Dim sql As String'定义一个字符串，SQL语句

Dim rs_find As New ADODBRecordset'数据库的一个记录集

If Option1Value = True Then'如果Option1选项按钮被选中

sql = "select from 书籍信息 where 是否被借出='是'" '定义SQL语句，选中所有被借出的书

End If '此IF结束

If Option2Value = True Then'如果Option2选项按钮被选中，建议前面IF改成 elseif

sql = "select from 书籍信息 where 是否被借出='否'" '定义SQL语句，选中所有没被借出的书

End If '此IF结束

If Option3Value = True Then'如果Option3选项按钮被选中，

sql = "select from 借阅信息 where 读者姓名='" & Text1Text & "'"'SQL语句根据读者姓名搜索

End If '此IF结束

rs_findCursorLocation = adUseClient'设置游标有客户端

rs_findOpen sql, conn, adOpenKeyset, adLockPessimistic'打开数据库

DataGrid1AllowAddNew = False'让数据控件DataGrid1不允许添加新行

DataGrid1AllowDelete = False‘不允许删除

DataGrid1AllowUpdate = False’不允许更新

Set DataGrid1DataSource = rs_find‘将从数据库查找出来的结果显示到Datagrid1中

End Sub’函数结束

Private Sub Command1_Click()

Dim d, i%, mArr, Temp$

Set d = CreateObject("scriptingdictionary")

dAdd "1234", "我"

dAdd "1345", "爱"

dAdd "5200", "你"

mArr = Split(Text1Text, " ")

For i = 0 To UBound(mArr)

Temp = Temp & dItem(mArr(i))

Next

Text2Text = Temp

End Sub

以上就是关于VB代码翻译（只要告诉我每行代码的含义就行）全部的内容，包括:VB代码翻译（只要告诉我每行代码的含义就行）、vb 程序代码 最好能逐句翻译 ···、VB如何写数字密码翻译成汉字的程序等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！