VB語句幫我解釋

private sub cmdmstart_click()

計時器開始。 timer_ = true

資料庫檔案的位置是程式所在目錄中非同步電動機的溫公升。 MDB 檔案。

databasefile1 = + 非同步電機溫公升。 mdb"扮。

i = 0，直到找到當天姿勢不佳的資料庫檔案。

do i = i + 1

databasefile2 = + 非同步電機溫公升" +str(date) +str(i) +mdb"

loop while dir(databasefile2) <

初始 fs 的值。

set fs = createobject("")

複製資料庫 1 到 2

databasefile1, databasefile2, false

開啟資料庫 2

set db = opendatabase(databasefile2)

在資料庫2中各點的溫度變化表中，查詢了蘆葦爐的所有記錄。

set rst1 = "從各點溫度變化表中選擇*") dbopendynaset)

如果存在任何記錄，則刪除所有記錄。

do while <>0

loop 關閉查詢。

** 可見框。

True 重新整理顯示 pic1 重新整理

end sub

private sub cmdmstart_click()

timer_ = true '觸發定時器 1

databasefile1 = + 非同步電機溫公升。 mdb"'資料庫檔案。

i = 0do '開始迴圈。

i = i + 1

databasefile2 = + 非同步電機溫公升" +str(date) +str(i) +mdb"'指定檔案 2 的資料庫名稱。

loop while dir(databasefile2) <

set fs = createobject("")

databasefile1, databasefile2, false

set db = opendatabase（databasefile2） '將明檔案 2 複製到檔案 1

set rst1 = "從每個點的溫度變化表中選擇 *"） dbopendynaset） ' 開啟記錄集。

do while <>0 'Recordset 迴圈（如果有記錄）。

指標將移動到第一條記錄。

刪除第一條記錄。

指標將移動到第一條記錄。

loop“關閉記錄集。

true 'pic1 是可見的。

pic1 refresh '重新整理 pic1

end sub

誰能幫梁梁幫我解釋一下？

VB分為順序結構、條件結構和迴圈結構：if條件。

then 語句 1

else 語句 2endif

forito 語句 1' 重複 10 次。 nexti

do 語句 1loopuntil

條件。 '當條件滿足時退出迴圈，否則它將繼續在很遠的地方執行。

而條件。

宣告 1wend

在滿足條件時執行迴圈。

vb loop 語句具有以下內容：

1、dowhile...loop：當條件為 true 時迴圈，在進入迴圈之前檢查條件。

2、do...loop

while：當條件為真時，迴圈至少執行一次後檢查條件。

3、dountil...loop：當迴圈條件為false時，進入迴圈前檢查條件。

4、do..

loopuntil：當條件設定為false時，在迴圈執行至少一次後檢查條件。

5、while...wend:

當條件為 ture 時迴圈。

6、for...next：指定迴圈數，並使用計數器重複該語句。

7、foreach...next：對於集合中的每個項或陣列中的元素，重複每個語句。

8、foreach...in：從集合中獲取每個元素。

9. 迴圈巢狀：這意味著乙個小迴圈可以包含在乙個大迴圈中。

10.強行退出迴圈。

就是這樣，呵呵。

答案是15當你第一次看到這個問題時，不要被它的多個迴圈嚇倒。如果從盲目計算開始逐層計算，會浪費大量時間，甚至可能計算錯誤。

對於這個問題，首先分析它的迴圈結構，發現 i 和 j 中的兩層迴圈會重新分配 x，所以只需要計算最後乙個迴圈。 i=4 j=3 x=3 表示 i=1 到 2 只剩下兩個週期，所以 x=3+6+6=15

答案是2。 首先看問題，最後要輸入的6個數字其實是兩組資料是乙個組，-1是乙個組，分別對應輸入的a、b、x。 第一組不需要計數，因為在第二組 x=-1 中，迴圈中止。

此時，a=2+1+（-1）=2

答案是12首先，mod 是餘數，j mod 2 <>0 表示 j 是奇數。 每當 J 週期 A 加 1，如果 J 是奇數，則 A 從 1 到 4 再加乙個迴圈，總共有 2 個偶數，所以乙個週期 i A 加 6

有兩個 i 週期，所以 a 是 12

1.執行順序為四次（a=4，三次（a=3，a=a+6，a=a+6））。

雖然有很多迴圈，但 i 和 j 的外部迴圈以 x 的新值開始，實際結果與沒有迴圈相同。 最終 x=15

2.執行順序為，a=5，b=4，x=3，a=5+4+3，迴圈，a=2，b=1，x=-1，a=2+1-1，列印乙個結果為2

三個 mod 操作將取其餘部分。 j mod 2 = 0 表示 j 是偶數。 也就是說，每個 j 週期 a 向自身加 1，如果 j 是偶數，則 a 再加 1

J 迴圈有 2 個從 1 到 4 的偶數，因此 i 迴圈 A 加 6有兩個 i 週期，所以 a 是 12

int 函式是四捨五入的。

所以表示式的值為：32+23=55

str（） 用於將數值變數或常量更改為基於字元的變數或常量，例如：

對於常量：str（35）=" 35 ",str(" "，依此類推。 （注意字串。" 35"它前面有乙個空間。

對於變數，然後將變數的值轉換為字串，例如：假設為 287，則 str（a）=" 287 "，依此類推。 （請注意，它前面有空格）。

對於你說的str（abc），因為abc不是乙個數字，所以vb系統把它當成乙個變數abc，然後調整abc的值，因為abc從來沒有賦值過，所以系統預設為0，所以它把0轉換成乙個字串str（abc） 列印出字串" 0"（前面有乙個空格）。

綜上所述，str（" "注意：它前面有乙個空格。

你不明白嗎？ 讓我解釋一下。

len（） 是位元組長度"3212"長度是 4，所以它以 4 開頭，然後 str（） 被強制轉換，它最初是浮點型的，然後它被轉換為乙個字元，然後是 4+，即 4，然後 str 被強制轉換為乙個字元，所以 b 4 出來了乙個字元。

我的部落格。

我認為它是 a，因為它是乙個字串連線，它不是數字的相加，b 是怎麼回事，沒有空格。

str 是將數字轉換為字串。

在兩個字串之間使用，它充當字串聯結器&樓上，當你檢視MSDN對str的介紹時，你就會明白為什麼會有空格當你使用str將數字轉換為字串時，它前面總是有乙個空格來表示正負。 如果數字為正數，則返回的包含前導空格的字串表示存在正號。

所以它是 B，而不是 A

如果你不使用 str 進行轉換，結果就是你所說的。

private sub command1_click()

dim warning as string

dim sql as string

warning = ""

輸入有效性判斷。

if textuser = "" then warning = warning & "使用者名稱"

if textpassword = "" then warning = warning & "密碼"

if warning <>"" then

msgbox warning & "不能為空！ ", 0 + 48 + 0, "警告"

textuser = ""

textpassword = ""

elsesql = "從使用者管理中選擇 *，其中使用者名稱 ='" & textuser & "'和使用者密碼 ='" & textpassword & "'"

sql = "從使用者管理中選擇 *，其中使用者名稱 =""" & textuser & """和使用者密碼 =""" & textpassword & """"

openrs (sql)

if not ( and then

grade = rst("使用者級別") '記錄使用者評分。

userid = rst("使用者名稱") '記錄使用者名稱。

call userlogin '填寫登入記錄。

trueunload me

elsemsgbox "使用者不存在！ ", 0 + 32 + 0, "著陸失敗"

textuser = ""

textpassword = ""

grade = 0

end if

closers

end if

end sub

然後，我將數字影象儲存在USB快閃記憶體驅動器或光碟等儲存介質上，它仍然是數字影象。

a:"int"是乙個整數函式。 x 2 的值應該等於 x 2 的整數值，這意味著 x 應該能被 2 整除。

b： “mod” 是餘數函式， “x

mod2=0“表示 x 2 的餘數為 0（表示 x 可被 2 整除），c： ”fix“ 也是乙個整數函式。 x 2 的值應該等於 x 2 的整數值，這意味著 x 應該能被 2 整除。

int 和 fix 的區別：int 和 .

修復功能被刪除。

number

引數的小數部分，並以整數形式返回結果。 int 和。

fix 函式的區別在於 if。

number

如果引數為負數，則 int

該函式返回小於或等於。

number

第乙個負整數，while。

fix 函式返回 greater than 或 equal to。

number

引數的第乙個負整數。 例如，int will。

轉換為。 -9，而。

修復功能將。

轉換為。