懂VB的进来下,帮我翻译下这段代码的意思,谢谢了

由于写不下,我在问题补充中说明内容
请大家去http://taoaaasss2.ys168.com/中的VB文件夹中下载TXT文档,麻烦大家了,谢谢

第1个回答  2008-10-03
星期一星期二星期三星期四星期五星期六五月六月七月八月SeptemberOctober 11 12星期日星期一星期二星期三星期四星期五星期六星期日1 2 3 4 5 6 7 8 9 10 11 Dec0January二月三月四月= Overflowwhileconvertingvariantoftype ( % s的) intotype ( % s的) Variantoverflow Invalidargument Invalidvarianttype Operationnotsupported Unexpectedvarianterror Externalexception % x Assertionfailed Interfacenotsupported Exceptioninsafecallmethod的% s ( % s后, % d行) AbstractError ? Accessviolationataddress % pinmodule '的% s ' 。 % sofaddress % , p值SystemError.Code : % d.

% s的AcalltoanOSfunctionfailed / Applicationisnotlicensedtousethisfeature
控制银Privilegedinstruction (异常% sinmodule %坐在%页

的% s % s的

ApplicationError1Format ' % s'invalidorincompatiblewithargument Noargumentforformat ' % s的“ Variantmethodcallsnotsupported读写$ Errorcreatingvariantorsafearray ) Variantorsafearrayindexoutofbounds Variantorsafearrayislocked Invalidvarianttypeconversion Invalidvariantoperation % Invalidvariantoperation ( % s的% 0.8 x )的
% s5Couldnotconvertvariantoftype ( % s的) intotype ( % s的) Fileaccessdenied Readbeyondendoffile Diskfull Invalidnumericinput Divisionbyzero Rangecheckerror IntegeroverflowInvalidfloatingpointoperation Floatingpointdivisionbyzero Floatingpointoverflow Floatingpointunderflow Invalidpointeroperation Invalidclasstypecast0Accessviolationataddress %山口% sofaddress % , p值Accessviolation Stackoverflow % s.Seeknotimplemented $ Operationnotallowedonsortedlist $ % snotinaclassregistrationgroup本回答被网友采纳
第2个回答  2008-10-03
这不是VB语言

节选:
MondayTuesdayWednesdayThurdayFridaySaturdayMayJuneJulyAugust SeptemberOctoberNovemberDecemberSunMonTueWedThuFriSatSundayJanFebMarAprMayJunJulAugSepOctNovDec0JanuaryFebruaryMarchApril=Overflowwhileconvertingvariantoftype(%s)intotype(%s)VariantoverflowInvalidargumentInvalidvarianttypeOperationnotsupportedUnexpectedvarianterrorExternalexception%xAssertionfailedInterfacenotsupportedExceptioninsafecallmethod%s(%s,line%d)AbstractError?Accessviolationataddress%pinmodule'%s'.%sofaddress%pSystemError.Code:%d.

%sAcalltoanOSfunctionfailed/Applicationisnotlicensedtousethisfeature
Control-ChitPrivilegedinstruction(Exception%sinmodule%sat%p.

%s%s

ApplicationError1Format'%s'invalidorincompatiblewithargumentNoargumentforformat'%s'"VariantmethodcallsnotsupportedReadWrite$Errorcreatingvariantorsafearray)VariantorsafearrayindexoutofboundsVariantorsafearrayislockedInvalidvarianttypeconversionInvalidvariantoperation%Invalidvariantoperation(%s%.8x)
%s5Couldnotconvertvariantoftype(%s)intotype(%s)FileaccessdeniedReadbeyondendoffile DiskfullInvalidnumericinputDivisionbyzeroRangecheckerrorIntegeroverflowInvalidfloatingpointoperationFloatingpointdivisionbyzeroFloatingpointoverflowFloatingpointunderflowInvalidpointeroperationInvalidclasstypecast0Accessviolationataddress%p.%sofaddress%pAccessviolationStackoverflow%s.Seeknotimplemented$Operationnotallowedonsortedlist$%snotinaclassregistrationgroupProperty%sdoesnotexistStreamwriteerrorOLEerror%.8x.Method'%s'notsupportedbyautomationobject/Variantdoesnotreferenceanautomationobject7Dispatchmethodsdonotsupportmorethan64parametersDCOMnotinstalled!'%s'isnotavalidintegervalue
Outofmemory I/Oerror%dFilenotfoundInvalidfilenameToomanyopenfilesCannotcreatefile"%s".%sCannotopenfile"%s".%sInvalidstreamformat$''%s''isnotavalidcomponentnameInvalidpropertypathInvalidpropertyvalueInvaliddatatypefor'%s'Listcapacityoutofbounds(%d)Listcountoutofbounds(%d)Listindexoutofbounds(%d)+OutofmemorywhileexpandingmemorystreamErrorreading%s%s%s:%sStreamreaderrorPropertyisread-onlyFailedtogetdatafor'%s'Resource%
第3个回答  2008-10-03
什么嘛。怎么可以这样的,没道德,谴责你。
第4个回答  2008-10-03
看不到啊,怎么译啊。。。。
晕,你写下`

会VB的快进来帮我写下代码,十分感谢!
这是第一个:Private Sub Command2_Click()Unload Me End Sub Private Sub Form_Load()Print "我们大家一起来轻松学习VB语言"Me.Caption = "第一个visual basic 程序"Label1.Caption = "编写VB程序是一件非常有趣的事情"Command1.Caption = "画面已经改变"Command2.Enabled = True End Sub 这是...

帮忙翻译一下VB代码(加点注释)
'有缘帮你写详细点吧 Private Sub Command1_Click() '按钮1点击事件 End '退出程序 End Sub Private Sub Form_Load() '主窗口启动事件 textsend.Visible = False 'textsend是文本框控件吧,把它设为不可见 textget.Visible = False '同上,textget设为不可见 Winsockserver.LocalPort = 1001 '...

懂VB的进来下,帮我翻译下这段代码的意思,谢谢了
没有看到MondayTuesdayWednesdayThurdayFridaySaturdayMayJuneJulyAugust SeptemberOctoberNovemberDecemberSunMonTueWedThuFriSatSundayJanFebMarAprMayJunJulAugSepOctNovDec0JanuaryFebruaryMarchApril=Overflowwhileconvertingvariantoftype(%s)intotype(%s)VariantoverflowInvalidargumentInvalidvarianttypeOperationnotsupported...

VB数据代码翻译
Private Sub Command1_Click()Data1.Recordset.MoveFirst '移动到第一条记录 Data1.Recordset.FindFirst "帐号='" & Trim(Text1.Text) & "'" '从记录集中查找满足条件的第一条记录 If Data1.Recordset.NoMatch Then '当nomatch=true 就是没找到匹配记录则 MsgBox "没有此用户", 48, "提示" '...

会VB的快进来帮我写下代码,十分感谢!
1.Private Sub Form_Click()if text1.text=123 then msgbox “密码不正确”else msgbox “密码错误”End Sub 2.Private Sub Command1_Click()Text1.FontName = "楷体"text1.fontsize=26 Text2.FontName = "隶书"text2.fontsize=26 text2.FontItalic=true text1.passwordchar=""End Sub 3....

请高手帮解释一下以下的VB代码
Unload Me '卸载当前窗体 End Sub Private Sub Frame1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ' 鼠标移动到frame1上边 触发该事件 Label2.FontUnderline = False ' label2去掉下划线 Label2.ForeColor = vbYellow' label2上边的字为黄色 Label3.Fo...

会VB的朋友进来看看。 这个代码加载进去后,老是说什么要求对象。运行...
其实你如果将添加到的控件都列出来,就一目了然了,这样很难知道,只能说你的控件少添加一个,或者是控件名称不对,我看过你的代码,应该是下面这个控件名称出错!label5.Caption = "面积=" = Str(s)label5这个控件名称应该有错,因为当你添加第一个label控件时,名称应该为1也就是label1,而不...

请高手帮忙详解下这个VB代码(请按步解释越详细越好不胜感谢必厚报...
If answer = vbYes Then ’如果answer =vbYes 运行下列代码 =VbNo 程序退出 DataGrid1.AllowDelete = True rs_client.Delete ’删除 rs_client.Update ’更新 DataGrid1.Refresh ’刷新 MsgBox "成功删除!", vbOKOnly + vbExclamation, "" ’提示成功 DataGrid1.AllowDelete = False Else ...

学过vb(visual basic)的,进来帮我解读下,100分就给你了。谢谢
Application.ScreenUpdating = False 关闭屏幕刷新 Application.EnableEvents = False 关闭事件 Dim nRow%, i% 定义 nrow 和i 两个变量为整形 Dim BeginR As Range, EndR As Range 定义beginr 和endr为range nRow = Range("n65536").End(xlUp).Row nrow=有记录的行数 Set BeginR = Range(...

VB编程的代码解释.例如Command是按钮的意思,都给我说说哈,谢谢了.
form 窗体的意思,像form和command这样的单词是控件的名称,名称是控件的属性之一,可以在屏幕右侧的属性列表中加以修改,找到name这一行,在右侧键入自己想要的名字即可,不必记忆,至于LostFocus..MouseUp是一些事件的名称,有必要记忆。下面写一些常用的。lostfocus失去焦点 getfocus得到焦点 load装载 unload...

相似回答