VB中注释 VB中怎样进行注释？
VB\u4e2d\u6ce8\u91ca\u8bed\u53e5\u600e\u4e48\u5199\uff1fVB\u4e2d\u6ce8\u91ca\u8bed\u53e5\uff1a
1\u3001rem\u540e\u9762\u8ddf\u6ce8\u91ca\u5185\u5bb9\u3002\u4ee5Rem\u5173\u952e\u5b57\u5f00\u5934\u5e76\u4e14Rem\u5173\u952e\u5b57\u4e0e\u6ce8\u91ca\u5185\u5bb9\u4e4b\u95f4\u8981\u52a0\u4e00\u4e2a\u7a7a\u683c\u3002\u6ce8\u91ca\u53ef\u4ee5\u662f\u5355\u72ec\u7684\u4e00\u884c\u4e5f\u53ef\u4ee5\u5199\u5728\u5176\u4ed6\u8bed\u53e5\u884c\u7684\u540e\u9762\u3002\u5982\u679c\u5728\u5176\u4ed6\u8bed\u53e5\u884c\u540e\u4f7f\u7528Rem\u5173\u952e\u5b57\u5219\u5fc5\u987b\u4f7f\u7528\u5192\u53f7\uff08:\uff09\u4e0e\u8bed\u53e5\u9694\u5f00\u3002
2\u3001'\u540e\u9762\u8ddf\u6ce8\u91ca\u5185\u5bb9\u3002\u4f7f\u7528\u4e00\u4e2a\u6487\u53f7\uff08'\uff09\u6765\u4ee3\u66ffRem\u5173\u952e\u5b57\u3002\u82e5\u4f7f\u7528\u6487\u53f7\u5219\u5728\u5176\u4ed6\u8bed\u53e5\u884c\u4f7f\u7528\u65f6\u4e0d\u5fc5\u52a0\u5192\u53f7\u3002
3\u3001Visual Basic\u662f\u4e00\u79cd\u7ed3\u6784\u5316\u7684\u3001\u6a21\u5757\u5316\u7684\u3001\u9762\u5411\u5bf9\u8c61\u7684\u3001\u5305\u542b\u534f\u52a9\u5f00\u53d1\u73af\u5883\u7684\u4e8b\u4ef6\u9a71\u52a8\u4e3a\u673a\u5236\u7684\u53ef\u89c6\u5316\u7a0b\u5e8f\u8bbe\u8ba1\u8bed\u8a00\u3002\u5b83\u6e90\u81ea\u4e8eBASIC\u7f16\u7a0b\u8bed\u8a00\u3002VB\u62e5\u6709\u56fe\u5f62\u7528\u6237\u754c\u9762\uff08GUI\uff09\u548c\u5feb\u901f\u5e94\u7528\u7a0b\u5e8f\u5f00\u53d1\uff08RAD\uff09\u7cfb\u7edf\uff0c\u53ef\u4ee5\u8f7b\u6613\u7684\u4f7f\u7528DAO\u3001RDO\u3001ADO\u8fde\u63a5\u6570\u636e\u5e93\u6216\u8005\u8f7b\u677e\u7684\u521b\u5efaActiveX\u63a7\u4ef6\u3002\u7a0b\u5e8f\u5458\u53ef\u4ee5\u8f7b\u677e\u7684\u4f7f\u7528VB\u63d0\u4f9b\u7684\u7ec4\u4ef6\u5feb\u901f\u5efa\u7acb\u4e00\u4e2a\u5e94\u7528\u7a0b\u5e8f\u3002
Visual Basic 2003\u4ee5\u4e0a\u7248\u672c\u6709\u4e24\u79cd\u6ce8\u91ca\u65b9\u6cd5\uff1a
1\u3001\u662f\u7528'\u7b26\u53f7\u8fdb\u884c\u6ce8\u91ca\u3002
2\u3001\u662f\u7528#region \u201c\u201d \u548c #end region\u6ce8\u91ca\uff0c\u8fd9\u662f\u4e00\u5bf9\u62ec\u53f7\u578b\u7684\u6ce8\u91ca\u65b9\u6cd5\u3002
VB\u7a0b\u5e8f\u8bbe\u8ba1\u4e2d\uff0c\u6784\u6210\u5bf9\u8c61\u7684\u4e09\u8981\u662f\uff1a\u5c5e\u6027\u3001\u65b9\u6cd5\u548c\u4e8b\u4ef6 \u3002
\u5c5e\u6027\u63cf\u8ff0\u4e86\u5bf9\u8c61\u7684\u7279\u5f81 \uff0c\u65b9\u6cd5\u63cf\u8ff0\u4e86\u5bf9\u8c61\u7684\u884c\u4e3a \uff0c\u4e8b\u4ef6\u89c4\u5b9a\u4e86\u64cd\u4f5c\u7cfb\u7edf\u53ef\u8bc6\u522b\u7684\u5176\u5b83\u5bf9\u8c61\u4f5c\u7528\u4e8e\u672c\u5bf9\u8c61\u7684\u884c\u4e3a\u3002
Private Sub 浏览_Click() '[按钮?]单击事件
CommonDialog1.Filter = "EXCEL文件(.XLS)|*.XLS|所有文件|*.*" '设置通用对话框过滤 xls文件 或 所有文件
CommonDialog1.ShowOpen '显示打开对话框
file_name = CommonDialog1.FileName '得到用户选择的文件名
If file_name = "" Then Exit Sub '判断文件名是否有效,无效则退出过程
List1.Clear '清空列表框
Dim xlExcel As Excel.Application '声明Excel应用程序实例
Dim xlBook As Excel.Workbook '声明Excel工作簿实例
Dim xlSheet As Excel.Worksheet '声明Excel表单实例
Set xlExcel = CreateObject("Excel.Application") '生成Excel应用程序实例
Set xlBook = xlExcel.Workbooks.Open(file_name) '打开xls文件
xlExcel.Visible = False '在后台处理,不显示Excel窗口
For i = 1 To xlBook.Sheets.Count '遍历所有工作表
Set xlSheet = xlBook.Worksheets(i)
xlSheet.Activate '激活第i个工作表
List1.AddItem xlSheet.Name '将工作表名添加到列表框
DoEvents '让系统响应一下其他消息
Next
xlBook.Close '关闭工作簿
xlExcel.Quit '退出Excel
End Sub
Private Sub List1_Click() '列表框单击事件
If Text1.Text = "" Then Exit Sub '如果Text1文本框没有内容则退出过程
If file_name = "" Then Exit Sub '如果用户选择的文件名无效则退出过程
Dim Con As New ADODB.Connection 'ADODB连接对象声明
Dim ConStr As String '声明字符串变量
Con.CursorLocation = adUseClient '设置游标引擎的位置,相关请参阅MSDN
ConStr = "driver=sql server;server=(local);uid=sa;pwd=56776606;database=knife;" '赋值:用sa账号,56776606为密码,连接本机SQLServer的knife数据库
Con.Open ConStr '打开连接
Con.Execute "SELECT * INTO " & Text1.Text & " FROM OPENROWSET('MICROSOFT.JET.OLEDB.4.0','Excel 5.0;HDR=YES;DATABASE=" & file_name & "'," & List1.Text & "$)"
'access、Oracle等数据库可以用SELECT....INTO....from...语句，可以在事先不创建表的情况下，直接将查询结果保存到一个新创建的表中。
'请不要见笑,貌似SQLServer不能这么做,当然我没有试验,我从来没这么做过,这个是把List1选择的工作表作为数据表,Text1制定的作为目标工作表
Con.Close '关闭连接
Set Con = Nothing '释放变量
MsgBox "导入成功！" '提示数据导入成功
Beep '制造dooooong的一声他妈的噪音
End Sub
Private Sub 导入Excel_Click() '单击事件
'碌碌无为
End Sub
Visual Basic 2003以上版本有两种注释方法：
1、是用'符号进行注释。
2、是用#region “” 和 #end region注释，这是一对括号型的注释方法。
您好，VB中添加注释有两种方法：
1.
代码 ' 注释
（单引号：在代码后加入英文状态的单引号）
2.
代码 ：Rem 注释
（Rem语句：代码后加冒号，加Rem，加注释）
注：VB的默认代码字体颜色下，注释为绿色
Visual Basic 2003以上版本有两种注释方法：
第一种是用 ' 符号进行注释。第二种是用#region “” 和 #end region注释，这是一对括号型的注释方法，用方法1只能在一行里注释，用#region 则可把整段程序用这个注释括
单引号后边的一行中都是注释的内容
绛旓細vb绋嬪簭涓紝鍔娉ㄩ噴鐨勭鍙锋槸//鎴栬/* */锛屽叾涓//涓哄崟琛屾敞閲婏紝鑰/* */涓哄琛屾敞閲娿傜画琛岀鏄淿鈥濓紝鑰岃鍙ョ殑鍒嗛殧绗﹀彿鏄濓細鈥溿倂b涓繕鏈夊叾浠栫殑绗﹀彿锛+涓鸿繛鎺ョ鍙枫佽繍绠椻滃拰鈥濄-涓鸿繍绠楀噺鍙枫*涓鸿繍绠椾箻鍙枫&涓鸿繛鎺ョ鍙枫
绛旓細1銆侀鍏堬紝鍙屽嚮杩涘叆浠ｇ爜绐楀彛銆2銆佺劧鍚庢寜涓嬪崟寮曞彿鍗冲彲寮濮娉ㄩ噴銆3銆佽繖鏃舵垜浠彲浠ョ湅鍒拌娉ㄩ噴鐨勮鍙ユ槸缁胯壊鐨勬枃瀛椼4銆佷篃鍙互鎵撳紑缂栬緫绐楀彛銆5銆佺劧鍚庣偣鍑绘鎸夐挳鍗冲彲澶氳娉ㄩ噴銆6銆佷篃鍙互鐐瑰嚮杩欎釜鍙栨秷澶氳娉ㄩ噴銆傛敞鎰忎簨椤癸細VB鎷ユ湁鍥惧舰鐢ㄦ埛鐣岄潰锛圙UI锛夊拰蹇熷簲鐢ㄧ▼搴忓紑鍙戯紙RAD锛夌郴缁燂紝鍙互杞绘槗鐨勪娇鐢―AO銆丷DO銆丄DO杩炴帴...
绛旓細1銆侀鍏堬紝鎴戜滑鍙屽嚮杩涘叆浠ｇ爜绐楀彛銆2銆佺劧鍚庢垜浠寜涓嬪崟寮曞彿鍗冲彲寮濮娉ㄩ噴銆3銆佽繖鏃舵垜浠彲浠ョ湅鍒拌娉ㄩ噴鐨勮鍙ユ槸缁胯壊鐨勬枃瀛椼4銆佷篃鍙互鎵撳紑缂栬緫绐楀彛銆5銆佺劧鍚庣偣鍑绘鎸夐挳鍗冲彲澶氳娉ㄩ噴銆6銆佹垜浠篃鍙互鐐瑰嚮杩欎釜鍙栨秷澶氳娉ㄩ噴銆
绛旓細vb鐨勫師绋嬪簭涓敞瑙ｆ槸浠ュ崟寮曞彿 '寮澶寸殑锛屼絾濡傛灉杩欎釜绗﹀彿鏄湪鍙屽紩鍙蜂箣鍐呯殑锛屽垯瑙嗕负鏂囨湰锛屼笉鍋氫负娉ㄩ噴寮曞绗︼紝杩欎釜绗﹀彿鍚庨潰鐨勫唴瀹瑰潎涓烘敞閲婂唴瀹 鍙﹀鐩存帴浠em寮曞鐨勮锛屾槸浣滀负娉ㄩ噴琛屻
绛旓細鍦VB涓锛娉ㄩ噴浠em鍏抽敭瀛楀紑澶达紝骞朵笖Rem鍏抽敭瀛椾笌娉ㄩ噴鍐呭涔嬮棿瑕佸姞涓涓┖鏍笺傛敞閲婂彲浠ユ槸鍗曠嫭鐨勪竴琛岋紝涔熷彲浠ュ啓鍦ㄥ叾浠栬鍙ヨ鐨勫悗闈傚鏋滃湪鍏朵粬璇彞琛屽悗浣跨敤Rem鍏抽敭瀛楋紝鍒欏繀椤讳娇鐢ㄥ啋鍙(:)涓庤鍙ラ殧寮銆備篃鍙互浣跨敤涓涓拠鍙(')鏉ヤ唬鏇縍em鍏抽敭瀛椼傝嫢浣跨敤鎾囧彿锛屽垯鍦ㄥ叾浠栬鍙ヨ浣跨敤鏃朵笉蹇呭姞鍐掑彿銆傚湪銆愪唬鐮併戠獥鍙ｄ腑...
绛旓細Visual Basic 2003浠ヤ笂鐗堟湰鏈変袱绉娉ㄩ噴鏂规硶锛1銆佹槸鐢'绗﹀彿杩涜娉ㄩ噴銆2銆佹槸鐢#region 鈥溾 鍜 #end region娉ㄩ噴锛岃繖鏄竴瀵规嫭鍙峰瀷鐨勬敞閲婃柟娉曘VB绋嬪簭璁捐涓紝鏋勬垚瀵硅薄鐨勪笁瑕佹槸锛氬睘鎬с佹柟娉曞拰浜嬩欢 銆傚睘鎬ф弿杩颁簡瀵硅薄鐨勭壒寰 锛屾柟娉曟弿杩颁簡瀵硅薄鐨勮涓 锛屼簨浠惰瀹氫簡鎿嶄綔绯荤粺鍙瘑鍒殑鍏跺畠瀵硅薄浣滅敤浜庢湰瀵硅薄鐨勮涓恒
绛旓細VB涓敞閲璇彞锛1銆乺em鍚庨潰璺熸敞閲婂唴瀹广備互Rem鍏抽敭瀛楀紑澶村苟涓擱em鍏抽敭瀛椾笌娉ㄩ噴鍐呭涔嬮棿瑕佸姞涓涓┖鏍笺傛敞閲婂彲浠ユ槸鍗曠嫭鐨勪竴琛屼篃鍙互鍐欏湪鍏朵粬璇彞琛岀殑鍚庨潰銆傚鏋滃湪鍏朵粬璇彞琛屽悗浣跨敤Rem鍏抽敭瀛楀垯蹇呴』浣跨敤鍐掑彿锛:锛変笌璇彞闅斿紑銆2銆'鍚庨潰璺熸敞閲婂唴瀹广備娇鐢ㄤ竴涓拠鍙凤紙'锛夋潵浠ｆ浛Rem鍏抽敭瀛椼傝嫢浣跨敤鎾囧彿鍒欏湪鍏朵粬璇彞琛...
绛旓細1銆侀鍏堟槸鍦╡xcle杞欢涓壘鍒扳滃紑鍙戝伐鍏封-銆媀isual Basic銆2銆佽繘鍏ヤ唬鐮佸尯銆3銆侀変腑瑕娉ㄩ噴鐨勪竴娈典唬鐮併4銆佺劧鍚庡湪椤堕儴鎵惧埌宸ュ叿鏍忋5銆佺劧鍚庡彸閿崟鍑伙紝閫夋嫨鈥滅紪杈戔濄6銆佺劧鍚庢壘鍒版敞閲婁唬鐮佸潡銆7銆佺偣鍑讳箣鍚庯紝鎴戜滑鍙戠幇鎴戜滑鍒氭墠閫変腑鐨勪唬鐮佸潡灏辫娉ㄩ噴鎺変簡銆
绛旓細VB 娉ㄩ噴绋嬪簭浠ｇ爜鐨勭鍙锋槸 '锛屽彧瑕佸湪鏌愯绋嬪簭鍓嶉潰鍔犱笂璇ョ鍙峰氨鍙互娉ㄩ噴璇ヨ绋嬪簭銆備絾濡傛灉绋嬪簭浠ｇ爜璇彞寰堝鐨勬椂鍊欙紝涓琛屼竴琛屽湴娉ㄩ噴灏遍潪甯镐笉鏂逛究銆傚叾瀹 VB 鏈韩鎻愪緵浜嗕竴娆℃ф敞閲婂鏉¤鍙ョ殑鍔熻兘锛氬湪涓昏彍鍗曗滆鍥锯濋夐」鐨勨滃伐鍏锋爮鈥濅笅锛岄変腑鈥滅紪杈戔濓紝VB 鐨勭晫闈細鍑虹幇涓鎺掑伐鍏锋寜閽紝鍏朵腑灏辨湁鐢ㄤ簬鈥滆缃敞閲婂潡...
绛旓細vb鐨勫師绋嬪簭涓敞瑙d鏄互鍗曞紩鍙 ' 寮澶寸殑锛屼絾濡傛灉杩欎釜绗﹀彿鏄湪鍙屽紩鍙蜂箣鍐呯殑锛屽垯瑙嗕负鏂囨湰锛屼笉鍋氫负娉ㄩ噴寮曞绗︼紝杩欎釜绗﹀彿鍚庨潰鐨勫唴瀹瑰潎涓烘敞閲婂唴瀹广俈isual Basic涓紝澶ч儴鍒嗙殑绋嬪簭鎵ц閮芥槸鍦ㄤ簨浠朵腑瀹屾垚鐨勩傚湪浠ｇ爜涓紝鎺т欢鐨勬瘡涓涓簨浠堕兘闇瑕佸０鏄庯紝澹版槑鏂规硶绫讳技涓涓瓙杩囩▼鐨勫０鏄庛傚ぇ閮ㄥ垎鐨勬帶浠跺湪鍙屽嚮鎺т欢杩涘叆...
