热心人能否帮我解答一下VB方面的问题？非常感谢！！！
\u8bf7\u61c2VB\u7684\u597d\u5fc3\u4eba\u5e2e\u5fd9\uff01\u8c22\u8c22\uff01\uff01\uff01\uff01\uff01\u7528\u5faa\u73af\u5c31\u884c\u4e86
Private Sub Form_Load()Dim xlsApp As Excel.ApplicationDim xlsBook As Excel.WorkbookSet xlsApp = Excel.Application xlsApp.Visible = True Excel.Workbooks.Open ("d:\3.xlsx")' 10\u4e3a\u4fee\u6539\u7684\u6570\u91cfFor i = 1 to 10 Excel.Sheets(i).Name = Sheets(1).Cells(i, 1)Next iEnd Sub
\u5206\u65b9\u5757\u5f62\u72b6,\u65b9\u5757\u6389\u843d\u7ebf\u8def\u91c7\u7528\u968f\u673a,\u65b9\u5757\u6d88\u9664,\u8ba1\u5206\u548c\u6e38\u620f\u7ed3\u675f\u51e0\u90e8\u5206\u5206\u522b\u7f16\u7801.
n = Asc("a") - Asc("A")N就算了出小写a与大写A的ASCII 差多少，也就是说差32 如果你的是小写到大写。就把小写字母换成ASCII码的值再减去32（也就是N）再用CHR换回来就成小写的了（你这用的是b = String(1, Asc(b) + n) 也一样。因为STRING 有把ASCII变回字符的功能） 大写就小写也差不多就是加32（加N）就可以了
利用ascii进行转换
Private Sub Command1_Click()
Dim a$, b$, k%, n%
a = ""
n = Asc("a") - Asc("A") ‘大写字母和小写字母相差的ASCII值，可以用固守值32代替
For k = 1 To Len(Text1.Text) ’逐个读取文本框中的字母
b = Mid(Text1.Text, k, 1) ‘取出每个位置上相应的字母，然后检测是不是大写字母还是小字字母
If b >= "a" And b <= "z" Then ’如果是小写
b = String(1, Asc(b) - n) ‘ascII减去32，并转换为字母
Else
If b >= "A" And b <= "Z" Then ’如果是大写
b = String(1, Asc(b) + n) ‘ASCII加32，并转换为字母
End If
End If
a = a + b '字符串连接起来
Next k
Text1.Text = a ’在文本框内输出结果
End Sub
大写字母和小写字母的ascii码是不同的，这段程序通过改变它们的ascii码来实现大小写切换。
不过VB不用这么麻烦。VB有两个函数：LCase（大写变小写）和UCase（小写变大写）。比如lcase("ABCD")就是abcd,ucase("abcd")就是ABCD。
把你那个程序缩短一下：
Private Sub Command1_Click()
Dim a$, b$, k%, n%
a = ""
For k = 1 To Len(Text1.Text)
b = Mid(Text1.Text, k, 1)
If b >= "a" And b <= "z" Then
b = UCase(b)
Else
If b >= "A" And b <= "Z" Then
b = LCase(b)
End If
End If
a = a + b
Next k
Text1.Text = a
End Sub
绛旓細灏辨妸灏忓啓瀛楁瘝鎹㈡垚ASCII鐮佺殑鍊煎啀鍑忓幓32锛堜篃灏辨槸N锛夊啀鐢–HR鎹㈠洖鏉ュ氨鎴愬皬鍐欑殑浜嗭紙浣犺繖鐢ㄧ殑鏄痓 = String(1, Asc(b) + n) 涔熶竴鏍枫傚洜涓篠TRING 鏈夋妸ASCII鍙樺洖瀛楃鐨勫姛鑳斤級 澶у啓灏卞皬鍐欎篃宸笉澶氬氨鏄姞32锛堝姞N锛夊氨鍙互浜
绛旓細3.杩涜澶氶変竴鏃,鍙娇鐢╛Option鍗曢夋寜閽甠_鎺т欢,杩涜澶氶夊鏃,鍙娇鐢╛Check澶嶉夋__鎺т欢.4.鍚戝垪琛ㄦ鍜岀粍鍚堟璐村姞鍒楄〃鏃,鍙娇鐢╛Additem__鏂规硶;鍒犻櫎閫夊畾鐨勫垪琛,鍙娇鐢╛Delete__鏂规硶;鍒犻櫎鍏ㄩ儴鍒楄〃椤,鍙娇鐢╛_Cls_鏂规硶.5.瀹氭椂鍣ㄦ帶浠惰兘澶熷搷搴旂殑鍞竴浜嬩欢涓篲Timer__,骞朵笖璇ヤ簨浠惰婵鍙戠殑鏃堕棿闂撮殧鐢盻Interv...
绛旓細True
绛旓細涓嶈浣跨敤涓枃杈撳叆娉曪紝杞嫳鏂囪緭鍏ユ硶銆傝嫳鏂= "涓枃 = 鈥
绛旓細鍙兘鏄綘娌℃湁寮曠敤鏌愮瀵硅薄搴锛佷緥濡備娇鐢ˋDO鍓嶏紝蹇呴』寮曠敤ADO瀵硅薄搴撱備竴涓畝鍗曠殑鏂规硶鏉ュ垽鏂璞″簱鏄惁姝ｇ‘鍔犺浇锛氬厛杩涜閫愯鍙ヨ繍琛 鐪嬫槸鍦ㄩ偅涓涓璞℃垨鏄璞＄殑灞炴ф垨鏂规硶涓嚭閿欍傚湪瑙嗗浘涓夋嫨瀵硅薄娴忚鍣 鍦ㄦ悳绱腑杈撳叆杩愯涓嶈繃鍘诲湴鏂圭殑瀵硅薄鎴栨槸瀵硅薄鐨勫睘鎬ф垨鏂规硶锛岀湅绫讳腑鏄惁鑳藉鎵惧埌锛佽嫢鎵句笉鍒帮紝鍒欒鏄庝綘娌...
绛旓細鎴戞槸涓煯浜猴紝涓嶈繃閬囪浜嗗氨璋堜笅鏁濅汉鐨勬濊矾锛氭寜涓嬶紝Button鐢∕ouseDown锛屽惎鐢ㄤ竴涓猅imer鎺т欢锛屼笉鏂埛鏂板彂閫佹寚浠よ繑鍥炵殑鍊艰礋缁橳extBox锛岀劧鍚嶣utton鍙︿竴涓嚱鏁癕ouseUp鍋滅敤Timer鎺т欢銆備笉鐭ラ亾鍙惁锛
绛旓細1銆VB璧勬枡搴撲笅杞絟ttp://download.chinaitlab.com/special/vbebook.htm鍖呮嫭鍚勭璧勬枡 浠庡叆闂ㄥ埌绮鹃氥2銆佹病瀛﹁繃缂栫▼鐨勪汉甯稿父浼氶棶,缂栫▼闅句笉闅,杩欎釜闂寰堥毦鍥炵瓟銆傞毦,鐨勭‘寰堥毦,瑕佺紪涓涓ソ鐨勭▼搴忓挨鍏舵槸杩欐牱,骞朵笖鏈変簺绋嬪簭杩樿鐢ㄥ埌涓浜涘叾浠栦笓涓氱殑鐭ヨ瘑,姣斿璇翠竴涓浘褰㈠鐞嗙▼搴,灏辫瀵瑰浘鍍忕殑鏍煎紡鏈夋墍浜嗚В,鐢氳嚦涓浜涚編鏈煡璇...
绛旓細濡傛灉鏈夎緝澶氱殑閫夋嫨椤,瓒呭嚭鎵鐢荤殑鍖哄煙鑰屼笉鑳戒竴娆″叏閮ㄦ樉绀烘椂,VB浼氳嚜鍔ㄥ姞涓婃粴鍔ㄦ潯銆 4.11.1 甯哥敤灞炴 涓嬮潰浠嬬粛鍒楄〃妗嗙殑甯哥敤灞炴с (1)MultiSelect灞炴 璁剧疆璇ュ垪琛ㄦ鏄惁鑳閫夋嫨澶氶」銆傚彲鑳界殑鍙栧煎涓: 路 0(榛樿鍊):琛ㄧず涓嶅厑璁稿閲嶉夋嫨,鐢ㄦ埛涓娆″彧鑳介夋嫨涓涓 路 1:琛ㄧず绠鍗曞閲嶉夊畾,鐢ㄦ埛鐢ㄩ紶鏍囧崟鍑绘垨鎸塖pace閿潵...
绛旓細浣犲彲浠ヨ繖鏍风悊瑙.frm 鐩稿綋浜庝綘VB璁捐閲岄潰鐨勭獥浣,閲岄潰鏈夋帶浠朵俊鎭互鍙婁竴浜涗唬鐮.vbp 鐩稿綋浜庝竴涓伐鍘(鍏跺疄鍙伐绋嬫枃浠),瀹冮噷闈㈠彲浠ユ湁澶氫釜绐椾綋,杩樺彲浠ユ湁妯″潡鏂囦欢銆傚苟涓嶆槸璇存鏂囦欢閲岄潰鍚湁 .frm,.bas绛夋枃浠,閭ｆ牱鐨勮瘽,灏辨病蹇呰 鍐嶇敓鎴.frm鏂囦欢浜,鍙槸璇.vbp鐭ラ亾 鎵撳紑宸ョ▼鏃,瑕佸幓鎵撳紑鍝釜鎴栧摢鍑犱釜 .frm鏂囦欢銆傛垨鑰呰鐩稿綋...
绛旓細璇ョ獥鍙ｇ殑SQL璇彞鍙鍒跺埌绋嬪簭浠ｇ爜鐢ㄤ簬缂栫▼銆係QL鏌ヨ璇█涓昏缁撴瀯涓猴細Select 鏌ヨ瀛楁 from 琛ㄥ悕 Where 鏌ヨ鏉′欢璇彞 [鎺掑簭璇彞鎴栧垎缁勮鍙鏌ヨ瀛楁蹇呴』鍒嗗埆鐢紙瑗挎枃锛夐楀彿鍒嗗紑鎴栧氨鐢ㄤ竴涓*鍙蜂唬鏇匡紝涓婅堪鏌ヨ涓帓搴忚鍙ュ缓璁渶濂藉簲鐢ㄣ係QL鏌ヨ璇█濡傛湁閿欑▼搴忚繍琛屾椂鍛婅瘔浣犲嚭閿欙紝浣滅浉搴旀敼鍔ㄥ嵆鍙傛湰浜轰竴鑸厛鎸変笂杩...
