谁来翻译VB语句来实现打印功能

private sub command1 click（） 定义了两个变量，用于执行以下循环。

dim i as integer, j as integerdim txtsql as string

dim msgtext as string'定义 Excel Book 对象的输出。

dim expworkbook as

定义 excel 对象的输出。

dim expexcel as

定义记录集。

dim mrc as

设置 excel 对象。

set expexcel = new

将 excel 设置为可见。

True 1：在 Excel 中添加新工作表。

set expworkbook =

调用获取连接的函数。

call connectstring

txtsql = "select * from hygiene_check "

myflexgrid

connectdb

set mrc = "select * from hygiene_check")

调用该函数执行SQL，获取记录集。

set mrc = executesql(txtsql, msgtext)

将查询到表格的页眉输出到工作表页面，并自行查看具体的单元格数。

for i = 0 to - 1

i + 1) =

next将查询的内容输出到工作表页面。 从第一条记录开始。

for j = 1 to

for i = 0 to - 1

2, i + 1) = cstr(

下一个指针移动到下一个指针。

如果你到了最后一个，你就会跳出这个循环。

if then exit for

下一页 释放 Excel 对象以节省内存。 这很重要。

set expexcel = nothingend sub

意思是：如果你真的爱我，就让我走开。

我会好好取悦你的！！

我不会让你走开的！

亲爱的，请不要离开我。

谢谢。 打印：

yes=打印 no=退出打印。

pgy q fhw r gip fhw r ep h wq gip j ep fp wq --- land （bfk 可能写错了） 宝藏 我真的还爱着你或爱你。

唉！！！ 用你输入的五笔输入法，你会发现！

翻译不出来，都是你自己乱七八糟。。。或者我帮你检查一下......

？？这是哪个国家的文本？？

选择“比较数据库”。

该选项是显式的。 subsetDefaultShippingAddress（） 如果 isnull（I！） （客户 ID]）。

clearshippingaddress

其他。 调暗 RSW 新记录集封装器。

如果客户展开信息“， ”，“id]=" &

和我在一起！ （发送的货物名称]= ！[联系人姓名]。

我！ （送货地址] = ！[地址]。

我！ （船城] = ！[城市]。

我！ （发货国家/地区：地区] = ！[国家、地区）。 如果它结束了。

如果它结束了。 终结者。

私人潜艇 cmddeleteorder click（） if isnull （I！） （订单编号]）。

哔哔声。

否则如果我！ [状态 ID] = 已发货 CustomerOrder 或 Me。

就是几个数据库相关的自定义函数，过程函数无非是添加、删除、修改，没什么特别的，函数createinvoice就是添加记录，函数isinvoiced，获取订单状态，函数setstatus，修改订单状态，函数删除，删除订单。

这是什么程序写的？

一个字听不懂，说也没用。

对 USB 病毒的免疫力。

当我听说他要结婚时，我非常难过（五笔打字）。

当我听说他要结婚时，我非常难过。

五冲程打字（真的，爱一个人没有错！ )

= true

驱动器列表框可见，其中显示磁盘。

true directory 列表框可见，显示文件夹。

似乎两个驱动程序控件是链接的。