C代码语言转VB代码的问题：
谁能帮我把这段代码转成Vb的代码，不胜感激，谢谢！
void CTempDlg::OnOK()
{
UpdateData(1);
int nlen=m_edit1.GetLength();
char *username=m_edit1.GetBuffer(nlen);//定义一个新字符串username,长度为nlen，并将m_edit1中的字符串一个个放入到username数组中
char strA[]="9012345678abcdeABCDEFGHIJKLMNfghijklmnUVWXYZxyzuvwopqrstOPQRST";
int szint[18]={0x11,0x34,0xC9,0x23,0x75,0x18,0xD7,0xE2,0x12,0x35,0x29,0x2B,0xEC,0xB6,0x23,0x19};
int ljq1=0,ljq2=0x25;//累加器
int k=0,l=0,q=0;
char *serile=new char[nlen];//定义一个新字符串数组serile,长度为nlen
for (int i=0;i<strlen(username);ljq1=ljq1+5,i++)
{
for (int j=0;j<strlen(strA);j++)
{
if (username[i]==strA[j])
{
// k=0,l=0/*,q=szint[i+2]*/;
l=szint[i];
if (i>=16)
{
l=i % 0x10;//求余
l=szint[l];
}
k=ljq2;
k=k*3;
l=l^k;
l=l^ljq1;
l=l+j;
l=l % 0x3e;//余数
serile[i]=strA[l];
l=l+0x24d9;
ljq2=l^ljq2;
break;
相关文档：
VBScript 运行常见错误
如果 VBScript 脚本执行系统无法实施的操作，则会产生 VBScript 运行时错误。只有在运行脚本、为变量表达式赋值或分配内存时，才会产生 VBScript 运行时错误。 以下是65个运行时错误：
错误编号 描述
十进制 十六进制 说明
5 800A0005 无效过程调用或参数
6 800A00 ......
在文章调试JavaScript/VB Script脚本程序（Wscript篇）里面，有网友问我如何调试ASP里面的脚本程序，我不知道他问得是调试ASP网页里面的VBScript ASP代码，还是ASP.NET网页里面的JavaScript/VBScript客户端代码，所以我就在这篇文章里面先将调试ASP网页里面的ASP代码这种情况都解释一下吧。
估计ASP这个玩艺用的人已经很少 ......
转自:http://www.pconline.com.cn/pcedu/empolder/gj/vb/0506/644702.html
Time
返回系统时钟的当前时间。
Date
返回系统时钟的当前日期。
Now
返回代表当前日期和时间的编码值。该函数经常用作其它系统时钟函数的参数。
Hour(Time)
返回指定时间的小时部分（0到23）。
Minute(Time)
返回指定时间的分钟部� ......
****什么是二次开发?
一般的来说，一些大公司如IBM、MS开发了一个大型的软件系统平台，根据不同的客户的需要，一些其它的中小公司为客户根据需求在该平台上进行第二次有针对性的开发，这被统称为二次开发。
二次开发要看软件是否提供相应的接口，有点软件公司只提供软件，但也有小公司连代码一起出售，� ......
VB备份ACCESS数据库的方法，代码
这个代码其实也适用于其它类型文件的复制，要修改一下其中的语句哦~Private Sub bak_Click()
Dim TargetFileName As String '目标文件名
On Error Resume Next
With cdlog1
.DialogTitle = "数据备份"
.InitDir = App.Path
.FileName = "backup.mdb"
.Filter = ......
