你這是vb點(diǎn)虐 的代碼,vb中不允許那么寫:
目前成都創(chuàng)新互聯(lián)已為超過千家的企業(yè)提供了網(wǎng)站建設(shè)、域名、虛擬主機(jī)、網(wǎng)站托管維護(hù)、企業(yè)網(wǎng)站設(shè)計(jì)、婁煩網(wǎng)站維護(hù)等服務(wù)，公司將堅(jiān)持客戶導(dǎo)向、應(yīng)用為本的策略，正道將秉承"和諧、參與、激情"的文化，與客戶和合作伙伴齊心協(xié)力一起成長(zhǎng)，共同發(fā)展。
Dim
strdx()
As
String
=
{"0",
"0",
"0"}
'定義個(gè)數(shù)組,從后面的值能看的出最大下標(biāo)是2,也就是strdx(0),strdx(1)和strdx(2),3個(gè)的默認(rèn)值都為0
Dim
calcount1
As
String
=
"0"
'定義個(gè)字蔽襲蠢符串變量
Dim
calcount2
As
String
=
"0"
Dim
strvalue
As
Boolean
=
False
'定義strvalue為bool值,改類型變量只有true和false
2種值
If
strdx(0)
=
"0"
Then
TextBox1.Text
=
strdx(0)
"."
這是字符串連接符號(hào),和"+"的區(qū)別是,他把左右禪并2邊的內(nèi)容直接連接的,而"+"可能會(huì)編程運(yùn)算符,例如
2
3
=
"23"
而
2
+
3
=
5
ElseIf
strvalue
=
False
Then
strdx(0)
=
strdx(0)
"0"
TextBox1.Text
=
strdx(0)
"."
strvalue
=
True
Else
strdx(0)
=
strdx(0)
"0"
TextBox1.Text
=
strdx(0)
Select
Case
calcount1
'
這里開始是分支語句宏陪
Case
"+"
TextBox1.Text
=
Str(Val(strdx(1))
+
Val(strdx(0)))
導(dǎo)入在引用的項(xiàng)目和程序集中定義的命名空間或編程元素 此外 導(dǎo)入在同一個(gè)項(xiàng)目中定義的命名空間或元素
Imports [?aliasname?=?] namespace or Imports [?aliasname?=?] namespace element
各部分說明
aliasname
可選 導(dǎo)入別名 或名稱 代碼可按該名稱而不是完全限定字符串來引用 namespace
namespace
必選 所導(dǎo)入命名空間的完全限制名稱 可以為嵌套到任意級(jí)別的命名空間的字符串
element
可選 命名空間中所聲明編程元素的名稱 可以為任何容器元素
備注
每個(gè)源文件可以包含任意數(shù)量的 Imports 語句 這些語句必須位于任何選項(xiàng)聲明（如 Option Strict 語句）之后 任何編程元素聲明（如 Module 或 Class 語句）之前
只能在文件級(jí)別使用 Imports 這意味著導(dǎo)入的聲明上下文必須是源文件 而不能是命名耐笑空間 類 結(jié)構(gòu) 模塊 接口 過程或塊
當(dāng)需要使用在一個(gè)或多個(gè)命名空間中聲明的同名項(xiàng)目時(shí) 導(dǎo)入別名十分有用
請(qǐng)注意 Imports 語句不會(huì)將其他項(xiàng)目和程序集中的元素提供給您的項(xiàng)目使用 導(dǎo)入不會(huì)取代對(duì)引用的設(shè)置 它只是使那些已經(jīng)可用于項(xiàng)目的名稱不再需要加以限定
規(guī)則
別名 不應(yīng)使用與 aliasname 相同的名稱在模塊級(jí)別聲明成員 如果這樣做 Visual Basic 編譯器只對(duì)聲明的成員使用 aliasname 而不再將其識(shí)別為導(dǎo)入別名
命名空間名稱 可以提供單個(gè)命名空間名稱 也可以提供嵌套命名空間的字符串 每個(gè)嵌套命名空間都通過句點(diǎn) ( ) 與下一個(gè)更高級(jí)別的命名空間分隔 如下面的示例中所述
Imports System Collections Generic
元素類型 如果提供 element 它必須表示 容器元素 即可包含其他元素的編程元素 容器元素包括類 結(jié)構(gòu) 模塊 接口和枚舉
行為
范圍 Imports 語句昌咐含所提供元素的范圍取決于是否指定了 element 如果僅指定了 namespace 則該命名空間中所有具有唯一名稱的成員以及該命名空間內(nèi)容器元素的成員無需限定即可使用 如果既指定了 namespace 又指定了 element 則只有該元素的成員無需限定即可使用
限定 命名空間或容器元素外部的代碼通常必須使用該命名空間或容器元素的名稱來限定簡(jiǎn)鄭成員的名稱 除非您的項(xiàng)目要訪問具有相同名稱的另一個(gè)成員 否則使用 Imports 語句后將不必進(jìn)行此類限定 在這種情況下 您可以在每個(gè) Imports 語句中指定一個(gè) aliasname 然后 您只需導(dǎo)入別名即可限定具有相同名稱的成員
示例
下面的示例將導(dǎo)入 Microsoft VisualBasic Strings 類并給其分配一個(gè)別名 str 該別名可用于訪問 Left 方法
Place Imports statements at the top of your program Imports str = Microsoft VisualBasic Strings Visual BasicClass testClass ? ?Sub showHello()? ? Display only the word Hello ?? MsgBox(str Left( Hello World )) ?? End Sub End Class lishixinzhi/Article/program/ASP/201311/21880
③當(dāng)多分叢祥鬧支中有多個(gè)表達(dá)式宴茄同時(shí)滿足條件時(shí)，只履行第1個(gè)與之匹配的語句。
Form_Load（）進(jìn)程滲罩設(shè)置變量的初始值，Visual
Basic在運(yùn)行程序時(shí)先履行該
.
重慶分公司
重慶分公司
