VB 如何將結果分配給變數

是你不幫你。 我以前很好。 你不給任何分數。

string name1 = “”

string name2 = “”

int age1 = 0;

int age2 = 0;

定義變數是直接初始化的，養成良好的習慣可以減少很多不必要的錯誤。

假設你的數字=-1，你會發現你的if專案都沒有被執行，這個時候的成本是多少？ 編譯器無法確定 cost 的值，所以會給你乙個紅色的標記，你需要在定義它的時候初始化它，例如 cost=0（如果它是 c

你可以使用 cost=default），或者確保你的 if 涵蓋所有情況。

對於字串型別的變數，最佳初始賦值是字串

name1=null;

string

name2=null;

確定是否賦值的最佳方法是使用它。

if(>1)

判斷，然後輸出更好。

"第二名參與者的姓名 （0） 和年齡為歲",name2,age2);

這句話似乎沒有價值，房東。

set rs="從表名中選擇 * ，其中 1=1")

dim str1=rs("田")

str1 這裡是變數，資料庫中的字段已分配給它。

如果查詢結果中只有乙個值，則可以使用它。

val="從 id=1 的表名中選擇 fileld")(0)

如果有多個值，請使用 getrowss（），例如 .sql="從表名中選擇 *"

set rs=

arra =

結果是乙個陣列。

我不知道為什麼你的陳述會產生重複的結果，最好檢查一下你的**。 關於將語句的輸出分配給變數的問題，請參考我測試的**。

get_msisdn()

get_msisdn

它首先設定輸出的格式，例如關閉反饋; set pagesize 0;，然後將語句的輸出分配給檔案，最後使用 cat 命令顯示結果並為變數 result 賦值。

vb 中的等號只能分配給乙個變數，如果變數很多，可以想辦法讓 i = 1 到 n a（i）=4next i，這樣你就可以看看是否可以了。

您可以先設定乙個陣列，然後為其分配乙個值，或者您可以實現您的目標。

請參考上面就知道，從檔案中讀取的方法與上面相同，即一次讀取一行，然後將這一行的內容分成乙個帶逗號的中間陣列，然後判斷第一行，將值賦值給 n、ta、 xa，ya，判斷第二行被讀取，並將值分配給xb、yb、tb，並讀出大於或等於三行的資料，分配給陣列b（v），s（v）。當然，最好在賦值前先確定txt檔案中有多少行，這樣才能確定陣列b（v）、s（v）中v的維數。

好好看看給你的參考資料，並研究一下，這對你來說很簡單。

鄙視這樣的提問者。

老實說，我不太明白。

您應該使用 instr 函式。

不過，這很麻煩。

只需隨便取乙個帶有字串的名字（如名字 1、名字 2、名字 3 等），然後當名字 1 時使用 if then，誰乘以誰，當名字 2 加誰時，就可以了。

1.您只需要使用文字框的text屬性即可等於變數。

2. VB6 示例：（在表單上新增 text1、command1） private sub command1 click（）dim n 作為整數

n = 100

nend sub

型別還是價值？

1. 型別：如果沒有賦值型別，則預設為 varinat2，值：如果沒有賦值，則為空。 例如：

dim xmsgbox x

結果為空。

沒有分配的變數，預設值主要是字元型別。

數值型別的預設值為 0，字元型別的預設值為空字串，邏輯型別的預設值為 false，日期型別的預設值為 1899 的 0：00：00 秒，其他型別的預設值為空。

呵呵。。。 look look.

這與變數的型別有關，例如，對於數值型別（位元組、整數、長整型、單倍型和雙精度型），當沒有為這些型別的變數分配特定值時，它們都預設為 0。 對於布林型別，預設值為 false。 同樣，對於貨幣型別，當沒有具體值時，預設值也是型別的變數，當沒有具體值時，預設值為空字元""。

對於 oblect 型別的變數，預設值為 null。 因此，它與變數的特定型別有關。

private conn as new

private rs as new

private sub command1_click()

dim sqlstr as string

dim a as string

sqlstr = "select * from students where s_name='" & "'"

set rs =

if and then

elsea = rs("s_id") '將標識的學生編號分配給變數 a

顯示 ** 的學生 ID。

end if

end sub

private sub form_load()

訪問資料庫連線模式。

dim datapath as string

datapath = & "\" '資料庫路徑。

provider=;data source=" & datapath & ";mode=readwrite|share deny none;persist security info=false"

SQL Server 連線模式。

dim serverip as string, username as string, password as string, dataname as string

serverip = "" 'ip

username = "linhaibo" '使用者名稱。

password = "pass" '密碼。

dataname = "linhaibo" '資料庫的名稱。

driver=; database=" & username & "; uid=" & username & "; pwd=" & password & "; server=" & serverip

end sub

private sub form_unload(cancel as integer)

on error resume next

set conn = nothing

end sub

首先，如果從資料庫中檢索到的資料儲存在記錄集 rd 中，並且資料庫表中名稱為“picname”的字段，則不要執行"picname") '您可以去掉 ** 的名稱，以便將 ** 載入到 image1 中'記錄集向下移動乙個點，即再次執行下乙個 **name 迴圈