1樓：轉殖狼_江
private sub command1_click() 定義過程
if trim(txtoldpwd.text) = strmm and txtnewpwd1.text = txtnewpwd2.text then
'txtoldpwd.text是輸入舊密碼，trim函式表示去除前後空格，並且格式成字串格式
con.execute "update 使用者 set 密碼='" & trim(txtnewpwd1.text) & "' where 使用者名稱 ='" & strxm & "'
'這裡是向資料寫入密碼，在雙引號中的兩個雙引號等同於乙個雙引號
"msgbox "修改成功"
'提示 修改成功
else if trim(txtoldpwd.text) = strmm and txtnewpwd1.text <> txtnewpwd2.text then
'輸入的舊密碼正確，但是新密碼不等於確認密碼
msgbox "兩次輸入的新密碼不一樣！"
else
msgbox "老密碼輸入錯誤！"
end if
end sub
2樓：匿名使用者
原**亂七八遭的
private sub command1_click()if trim(txtoldpwd.text) = strmm and txtnewpwd1.text = txtnewpwd2.
text then '判斷填入的資訊是否正確
con.execute "update 使用者 set 密碼='" & trim(txtnewpwd1.text) & "' where 使用者名稱 ='" & strxm & "'" '修改的sql命令
msgbox "修改成功" '提示成功else
if trim(txtoldpwd.text) = strmm and txtnewpwd1.text <> txtnewpwd2.
text then '如果老密碼正確但兩次輸入不一樣
msgbox "兩次輸入的新密碼不一樣！"
else
msgbox "老密碼輸入錯誤！"
end if
end if
end sub
3樓：匿名使用者
private 定義私有過程，
command1_click() 按鈕事件trim(去空格
con已經定義的資料庫鏈結
con.execute 執行sql語句
update 修改資料
where 條件查詢
4樓：匿名使用者
同意樓上說的...原碼亂七八遭
vb的語句解釋`
5樓：
dim p as integer, i as integer, n as integer
宣告p,i,n為整形變數，dim宣告的變數是動態變數，使用dim宣告的變數在過程執行後不會被儲存
p = 2: n = 20
對p，n進行賦值（不賦值的話，vb預設為0）
for i = 1 to n step p
進入迴圈 i 為迴圈變數，迴圈次數是1到n(也就是20)step是步長，表示這個迴圈體迴圈一次是1+步長，此程式步長為2
p = p + 2
p值為p+2，這個是累加（書上有介紹的，初學者有點困難，難理解累加是什麼意思，數學中這個表示式是錯誤的，但在vb中是正確的）
n = n - 3
n的值等於n-3
i = i + 1
i是迴圈變數
if p >= 10 then exit for
當p大於等於10是退出此迴圈（exit for）
next i
next 是迴圈變數的結束格式，i是可以省略的
'''迴圈語句的格式是
for(迴圈變數)=（初值）to(終值) step(步長)』當步長為1是 可省略
語句next (迴圈變數)
print i, p, n
列印i,p,n的值
6樓：vb妮可
private sub command1_click()'設定3個整型變數p,i,n
dim p as integer, i as integer, n as integer
'設定p和n的初值,分別為2和20
p = 2: n = 20
'讓i從1到n迴圈, 步長為p,也就是2
for i = 1 to n step pp = p + 2 '讓p=p+2
n = n - 3 '讓n=n-3
i = i + 1 '讓i=i+1
if p >= 10 then exit for '如果p大於或等於10的時候,跳出for的迴圈過程
next i
print i, p, n '在一行中列印i,p,n的值, 分隔為1tab寬度
end sub
7樓：
for...next 迴圈,
do...loop跳轉
太多了,自己找下資料
也就是附值,加減運算,條件判斷,
vb語句解釋 在下小白想了解下方語句詳細解釋和作用
8樓：網海1書生
dim i as integer '這是宣告乙個整形變數idim arrstr() '這是宣告乙個陣列arrstrarrstr = array '這是給陣列arrstr賦值i = i + 1 '讓變數i遞增1
if i > ubound(arrstr) then '如果i大於陣列arrstr的最大下標
i = 0 '就讓i等於0，也就是陣列arrstr的最小下標end if
label1.caption = arrstr(i) '把陣列arrstr的第i個元素賦值給標籤label1
這段**的作用，就是每點選按鈕command1一次，標籤label1上就會顯示一句話，比如第一次是「跟著我開啟魔幻之旅吧」，第二次是「我有乙個小毛驢」，第三次是「我從來也不騎」……依此類推，一直到「七」，這時候再點選command1，又會從頭開始，「我是你們的魔法王子」，「跟著我開啟魔幻之旅吧」，「我有乙個小毛驢」……
VB的語句解釋
dim p as integer,i as integer,n as integer 宣告p,i,n為整形變數，dim宣告的變數是動態變數，使用dim宣告的變數在過程執行後不會被儲存 p 2 n 20 對p，n進行賦值 不賦值的話，vb預設為0 for i 1 to n step p 進入迴圈 i ...
問VB的簡單語句，問乙個VB的簡單語句
再次更正 1.dim i as integer 宣告區域性非靜態整型變數i 2.list2.additem list1.list i 在list2中新增一項，這一項是list1中的第i項3.end if 結束if語句塊 4.next i 將程式控制權轉移至for所在的語句行，以判斷i的值是否超過終值...
vb中的dowhileloop語句
文件類共創空間 do loop 語句的語法具有以下幾個部分 在do loop 中可以在任何位置放置任意個數的 exit do 語句，隨時跳出do.loop 迴圈。exit do 通常用於條件判斷之後，例如if then，在這種情況下，exit do 語句將控制權轉移到緊接在 loop 命令之後的語句...