單說(shuō)代碼格式的話，沒(méi)多大變化，只是比VB6書(shū)寫(xiě)起來(lái)更方便。
創(chuàng)新互聯(lián)制作網(wǎng)站網(wǎng)頁(yè)找三站合一網(wǎng)站制作公司,專(zhuān)注于網(wǎng)頁(yè)設(shè)計(jì),網(wǎng)站制作、成都網(wǎng)站制作,網(wǎng)站設(shè)計(jì),企業(yè)網(wǎng)站搭建,網(wǎng)站開(kāi)發(fā),建網(wǎng)站業(yè)務(wù),680元做網(wǎng)站,已為近1000家服務(wù),創(chuàng)新互聯(lián)網(wǎng)站建設(shè)將一如既往的為我們的客戶(hù)提供最優(yōu)質(zhì)的網(wǎng)站建設(shè)、網(wǎng)絡(luò)營(yíng)銷(xiāo)推廣服務(wù)!
比如聲明變量的同時(shí)可以初始化：Dim a As Integer=12
循環(huán)變量可以在循環(huán)中直接聲明: For n As Integer=1 to 10 Step 2
Continue For和Continue Do/While 語(yǔ)句的引入
數(shù)組的初始化也更加方便: Dim num As Integer()={1,2,3}
增加了自運(yùn)算符和移位運(yùn)算符：i += 1
等等等等
然后就是比VB6更規(guī)范一點(diǎn)(你要說(shuō)更死板一點(diǎn)也可以）。
比如說(shuō)所有索引的下標(biāo)強(qiáng)制從0開(kāi)始（VB6里可以自己設(shè)置的）
調(diào)用方法時(shí)統(tǒng)一給參數(shù)列表加上括號(hào)（不像VB6里面存在加括號(hào)強(qiáng)制傳值這種讓新手暈頭的特性）
等等等
關(guān)鍵字有一些增減
總之，在語(yǔ)法方面大體上和VB6相同，但又吸收了類(lèi)C語(yǔ)言的一些方便的地方。
最主要的變化在于VB.NET是完全OOP的
另外一個(gè)比較實(shí)際的問(wèn)題就是默認(rèn)控件的使用和VB6相差很大，需要一定時(shí)間才能熟悉
Function?ULCase(ByVal?value?As?String)?As?String
Dim?s?As?String?=?""
For?Each?i?As?Char?In?value
s?=?IIf(Char.IsLower(i),?Char.ToUpper(i),?Char.ToLower(i))
Next
Return?s
End?Function
textbox1.text=ULCase(textbox1.text)
就行了.類(lèi)似樓上,用的內(nèi)置方法判斷大小寫(xiě)
2.
能得到數(shù)據(jù)的方法 常用 InputBox ?,TextBox
inputBox 用法
Public Function InputBox(ByVal Prompt As String, Optional ByVal Title As String = "", Optional ByVal DefaultResponse As String = "", Optional ByVal XPos As Integer = -1, Optional ByVal YPos As Integer = -1) As String
功能: 在對(duì)話框中顯示提示，等待用戶(hù)輸入文本或單擊按鈕，然后返回包含文本框內(nèi)容的字符串。
參數(shù):
Prompt: 必選的 String 表達(dá)式，作為消息顯示在對(duì)話框中。Prompt 的最大長(zhǎng)度大約為 1024 個(gè)字符，具體取決于所用字符的寬度。如果 Prompt 包含多行內(nèi)容，則可以在每行之間使用回車(chē)符 (Chr(13))、換行符 (Chr(10)) 或回車(chē)/換行符組合 (Chr(13) Chr(10)) 來(lái)分隔各行。
Title: 可選。顯示在對(duì)話框標(biāo)題欄中的 String 表達(dá)式。如果省略 Title，則標(biāo)題欄中顯示應(yīng)用程序名稱(chēng)。
DefaultResponse: 可選的 String 表達(dá)式。如果未提供其他輸入，則作為默認(rèn)響應(yīng)顯示在文本框中。如果省略 DefaultResponse，則顯示的文本框?yàn)榭铡?/p>
XPos: 可選。數(shù)值表達(dá)式，指定屏幕左邊緣與對(duì)話框左邊緣之間的距離（以緹為單位）。如果省略 XPos，則對(duì)話框水平居中。
YPos: 可選。數(shù)值表達(dá)式，指定屏幕頂部與對(duì)話框上邊緣之間的距離（以緹為單位）。如果省略 YPos，則對(duì)話框垂直定位在屏幕向下大約三分之一處。
返回值:
在對(duì)話框中顯示提示，等待用戶(hù)輸入文本或單擊按鈕，然后返回包含文本框內(nèi)容的字符串。
代碼:
Dim?KC()?As?String?=?{"語(yǔ)文",?"數(shù)學(xué)",?"英語(yǔ)",?"物理",?"化學(xué)"}
Dim?MyTable?As?New?Hashtable
For?Each?i?As?String?In?KC
MyTable.Add(i,?Val(InputBox("請(qǐng)輸入"""??i??"""?的成績(jī):",?"成績(jī)輸入",?"0")))
Next
Dim?sum?As?Single
For?Each?i?As?DictionaryEntry?In?MyTable
sum?+=?i.Value
Next
Dim?Pf?As?String?=?IIf(sum??450?OrElse?_
(MyTable(KC(0))??95?AndAlso?MyTable(KC(1))??95?AndAlso?MyTable(KC(2))??95?AndAlso?MyTable(KC(3))??80?AndAlso?MyTable(KC(4))??80)?OrElse?_
(MyTable(KC(0))??85?AndAlso?MyTable(KC(1))??85?AndAlso?MyTable(KC(2))??85?AndAlso?MyTable(KC(3))??85?AndAlso?MyTable(KC(4))??85),?"優(yōu)秀",?"可以")
MsgBox(Pf)
這個(gè)程序很簡(jiǎn)單，我以前做過(guò)算素?cái)?shù)的，算隨機(jī)十以?xún)?nèi)的用來(lái)教我一個(gè)小叔子的兒子，你看看VB基礎(chǔ)就可以寫(xiě)的出了，如果碰到代碼問(wèn)題可以找人幫忙，但是如果你單獨(dú)讓人來(lái)代寫(xiě)那么不是很現(xiàn)實(shí)，好像知道貌似沒(méi)有幫代做單獨(dú)軟件的吧
你這是vb.net的代碼,vb中不允許那么寫(xiě):
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值,改類(lèi)型變量只有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
'
這里開(kāi)始是分支語(yǔ)句
Case
"+"
TextBox1.Text
=
Str(Val(strdx(1))
+
Val(strdx(0)))
dim s1 as string
dim s2 as string
s1=textbox1.text
s2=StrReverse(s1)'翻轉(zhuǎn)
if s1=s2 then
label1.text=
必須的
可選的
數(shù)字 那么這里可以是 1 2 3 ...
文檔約定
本文檔使用以下字體約定。
約定示例 描述
Sub, If, Case Else, Print, True, BackColor, Click, Debug, Long 首字母大寫(xiě)的單詞表示語(yǔ)言特有的關(guān)鍵字。
setup 命令以粗體形式出現(xiàn)。
事件驅(qū)動(dòng) 在文本中，楷體字表示專(zhuān)用術(shù)語(yǔ)，通常該術(shù)語(yǔ)在書(shū)中首次出現(xiàn)的時(shí)候使用楷體字?？w有時(shí)也表示強(qiáng)調(diào)。
variable 在語(yǔ)法和文本中，斜體字表示應(yīng)提供信息的所在處。
[expressionlist] 在語(yǔ)法說(shuō)明中，方括號(hào) ([]) 內(nèi)部的項(xiàng)是可選的。
{While | Until} 在語(yǔ)法說(shuō)明中，花括號(hào) ({}) 和豎線 (|) 表示可在兩個(gè)或者多個(gè)選項(xiàng)中選擇一個(gè)。除非所有的選項(xiàng)又包含在方括號(hào) ([]) 中，否則必須選擇一個(gè)選項(xiàng)。
Sub HelloButton_Click()
Readout.Text = _
"Hello, world!"
End Sub 這種字體用于程序代碼。
ENTER 大寫(xiě)字母表示鍵的名字和鍵的組合，例如 ENTER 和 CTRL+R。
ALT+F1 鍵名之間的加號(hào) (+) 表示鍵組合。例如，ALT+F1 表示在按 ALT 同時(shí)按 F1 鍵。
DOWN ARROW 按照鍵上的箭頭方向使用單個(gè)方向鍵。(LEFT、RIGHT、UP 或 DOWN)?！凹^鍵”是這些鍵的統(tǒng)稱(chēng)。
BACKSPACE, HOME 按照各自的名字使用其它定位鍵。
c:\Vb\Samples\Calldlls.vbp 大小寫(xiě)混合的路徑和文件名。
本文檔的程序設(shè)計(jì)風(fēng)格
本文檔的程序編寫(xiě)用到以下規(guī)則。詳細(xì)信息請(qǐng)參閱《程序員指南》一書(shū)中的“編程基礎(chǔ)”。
關(guān)鍵字用大寫(xiě)字母開(kāi)頭：
'Sub, If, ChDir, Print 和 True 都是關(guān)鍵字。
Print "Title Page"
用行標(biāo)號(hào)代替行號(hào)。行標(biāo)號(hào)的使用只限于錯(cuò)誤處理例程：
ErrorHandler:
Power = conFailure
End Function
使用撇號(hào) (') 引導(dǎo)注釋?zhuān)?/p>
'這是注釋部分；在程序運(yùn)行時(shí)，這兩行
'將被忽略。
在子過(guò)程、函數(shù)過(guò)程和屬性過(guò)程中的控制流塊和語(yǔ)句需要縮進(jìn)：
Private Sub cmdRemove_Click ()
Dim Ind As Integer
Ind = lstClient.ListIndex '獲取索引。
'確定有選定的項(xiàng)。
If Ind = 0 Then
lstClient.RemoveItem Ind '將其從列表框中刪除。
'顯示編號(hào)。
lblDisplay.Caption = lstClient.ListCount
Else
Beep '如果沒(méi)有項(xiàng)被選中，就發(fā)出鳴叫。
End If
End Sub
如果一句代碼太長(zhǎng)，無(wú)法在一行內(nèi)寫(xiě)下（不包括注釋?zhuān)?，則可以在下一行繼續(xù)，在行的末尾用續(xù)行字符表示一行尚未結(jié)束，續(xù)行字符是一個(gè)空格加一個(gè)下劃字符 ( _)：
Sub Form_MouseDown (Button As Integer, _
Shift As Integer, X As Single, Y As Single)
內(nèi)部常數(shù)名是大小寫(xiě)混合的，它的前綴是兩個(gè)字符，表示定義該常數(shù)的對(duì)象庫(kù)。Visual Basic (VB) 和 Visual Basic for application (VBA) 對(duì)象庫(kù)中的常數(shù)的前綴為 “vb”；數(shù)據(jù)訪問(wèn)對(duì)象 (DAO) 庫(kù)中的常數(shù)的前綴為 “db”；Microsoft Excel 對(duì)象庫(kù)中的常數(shù)的前綴為 “xl”。下面是幾個(gè)例子：
vbTileHorizontal
dbAppendOnly
xlDialogBorder
在本書(shū)中，用戶(hù)自定義的常數(shù)的前綴通常為 “con”，而且是大小寫(xiě)混合的。例如：
conYourOwnConstant
然而，在使用 Windows API 常數(shù)時(shí)，代碼仍遵循 Visual Basic 的以前版本中使用的約定。例如：
EM_LINESCROLL
重慶分公司
重慶分公司
