vb編程

① 什麼是VB程序設計

Visual Basic程序設計是BASIC編程語言。

VB擁有圖形用戶界面（GUI）和快速應用程序開發（RAD）系統，可以輕易的使用DAO、RDO、ADO連接資料庫，或者輕松的創建ActiveX控制項，用於高效生成類型安全和面向對象的應用程序。

程序員可以輕松的使用VB提供的組件快速建立一個應用程序。

(1)vb編程擴展閱讀：

VB 的組件既可以擁有用戶界面，也可以沒有。這樣一來伺服器端程序就可以處理增加的模塊。

VB 使用參數計算的方法來進行垃圾收集，這個方法中包含有大量的對象，提供基本的面向對象支持。因為越來越多組件的出現，程序員可以選用自己需要的擴展庫。

和有些語言不一樣，VB 對大小寫不敏感，但是能自動轉換關鍵詞到標準的大小寫狀態，以及強制使得符號表入口的實體的變數名稱遵循書寫規則。默認情況下字元串的比較是對大小寫敏感的，但是可以關閉這個功能。

參考資料來源：網路-Visual Basic

② VB編寫程序的步驟

拿本教程先學學語法,vb是面向對象的語言,你可以對照書上的例子在機器上學習編程.這樣影響更深刻,步驟都不是嚴格的,可以根據程序的需要來進行.但是第一步應該是程序的總體演算法,模塊,界面設計.

③ vb編程vb編程

Dim a%(1 to 80), i%, k%, t%, b%(1 to 80), c%(1 to 80)
Private Sub Command1_Click()
Me.Cls
Dim j As Integer
Randomize
t = 1
k = 1
For i = 1 To 80
a(i) = Int(Rnd * 90) + 10

If a(i) Mod 2 = 1 Then
b(k) = a(i)
k = k + 1
End If

If IsPrimeNum(a(i)) Then
c(t) = a(i)
t = t + 1
End If
Next i

Print "全部"

For i = 1 To 80
Print a(i);
If i Mod 10 = 0 Then Print
Next i

SortArray b, k - 1

Print "奇數"

For i = 1 To k - 1
Print b(i);
If i Mod 10 = 0 Then Print
Next i

Print

SortArray c, t - 1

Print "素數"

For i = 1 To t - 1
Print c(i);
If i Mod 10 = 0 Then Print
Next i
End Sub

Private Function IsPrimeNum(V As Integer) As Boolean
Dim i As Integer
Dim flag As Boolean
flag = True
For i = 2 To V - 1
If V Mod i = 0 Then
flag = False
Exit For
End If
Next i
IsPrimeNum = flag

End Function

Private Sub SortArray(arr() As Integer, ByVal size As Integer)
Dim i As Integer
Dim j As Integer
Dim t As Integer
For i = 1 To size
For j = i + 1 To size
If arr(i) > arr(j) Then t = arr(i): arr(i) = arr(j): arr(j) = t
Next j
Next i

End Sub
'添加一個按鈕就可以搞定

④ 用vb編寫一個簡單的程序

上面的程序有問題
'給窗口加3個TEXT控制項
text.text
都設為0，再加個COMMAND
控制項
'付上以下程序
OK了
Private
Sub
Command1_Click()
Dim
D
As
Single,
L
As
Single
D
=
Val(Text1.Text)
L
=
val(Text2.Text)
v
=
0.7854
*
L
*
(D
+
0.5
*
L
+
0.005
*
L
^
2
+
0.000125
*
L
*
(14
-
L)
^
2
*
(D
-
10))
^
2
/
1000
Text3.Text
=
v
End
Sub

⑤ VB編程是什麼

vb是用來編寫應用程序的，它寫出的程序運行於微軟的windows，不同的程序應用於不同的地方，如辦公軟體、監控軟體、計量軟體等等。

⑥ 用vb編程

准備工作:
1:在C:\下新建一個文本文件,名為Mytxt.txt,內容隨便輸入
2:在窗體上添加一個命令按鈕,一個文本框,設置文本框的Multiline屬性為True,ScrollBars屬性為2
添加如下代碼,F5運行後,點擊命令按鈕

Private Sub Command1_Click()
'讀取文本文件的內容並顯示在文本框中
Dim S as string,S1 as String
Open "C:\MyTxt.txt" For Input as #1
While Not Eof(1)
Line Input #1,S
S1=S1 & S & IIf(Eof(1),"",vbCrlf)
Wend
Close #1
Text1.Text=S1

'清空文本文件的內容
Open "C:\MyTxt.Txt" For output As #1
Print #1,
Close #1
End Sub

⑦ VB編程。

用統計圖表示有關數量之間的關系，比統計表更加形象直觀，使人一目瞭然，印象深刻。常用的統計圖有什麼統計圖。

⑧ 關於vb編程

//LenB()輸出的結果怎麼是18，不應該是13嗎？
VB默認使用unicode編碼，不管中西文，每個字元都占兩位元組
要計算中西文混排的字元串的位元組數需要這樣：
Print LenB(StrConv(strMys1, vbFromUnicode))

//將unicode轉換成dbcs後是亂碼。轉回來後怎麼還是亂碼
你並沒有轉換回來啊，你是又對原字元串進行了一次多餘的轉換
strMys2 = StrConv(strMys1, vbFromUnicode)
strMys3 = StrConv(strMys1, vbUnicode)
仔細看看，是不？
應該是：
strMys3 = StrConv(strMys2, vbUnicode)
這樣就轉換回來了

//轉換回來後的Len()輸出結果怎麼是15，
上一步錯了自然是步步錯，上一步修改正確後再用len就後得到9了吧
之所以會得到15，是因為5個英文字母後面分別多了一個chr(0)，同時第一個漢字被拆成了兩截（這個說法其實不準確，只是我暫時找不到更准確的說法），所以共多出6個字元
你把剛才修改的strMys2改回成strMys1（還原成你原先的代碼）
在它後面添加如下代碼：
For i = 1 To Len(strMys3)
Print Asc(Mid(strMys3, i, 1))
Next
這樣就可以看清是怎麼回事了吧

⑨ vb編程超簡單

PrivateSubCommand1_Click()
Text2.Text=""
Text2.Text=Text2.Text+Text1.Text
Fori=0To2
IfOption1(i).Value=TrueThen
Text2.Text=Text2.Text+Space(3)+"職稱："+Option1(i).Caption+Space(3)
Else
Option1(i).Enabled=False
EndIf
Nexti
Text2.Text=Text2.Text+"愛好："
Fori=0To2
IfCheck1(i).Value=1Then
Text2.Text=Text2.Text+Check1(i).Caption+Space(1)
Else
Check1(i).Enabled=False
EndIf
Nexti
Text2.Text=Text2.Text+Space(2)+"籍貫："+List1.List(List1.ListIndex)+Space(3)
Text2.Text=Text2.Text+"部門："+Combo1.Text
EndSub

PrivateSubCommand2_Click()
End
EndSub

PrivateSubForm_Load()
Option1(0).Caption="初級"
Option1(1).Caption="中級"
Option1(2).Caption="高級"
Check1(0).Caption="音樂"
Check1(1).Caption="體育"
Check1(2).Caption="繪畫"
List1.AddItem"北京市"
List1.AddItem"江蘇省"
List1.AddItem"江西省"
List1.AddItem"山東省"
List1.AddItem"山西省"
List1.AddItem"浙江省"
List1.AddItem"遼寧省"
List1.AddItem"天津市"
List1.AddItem"湖南省"
List1.AddItem"河北省"
List1.AddItem"上海市"
List1.AddItem"廣東省"
Combo1.AddItem"電子系"
Combo1.AddItem"數學系"
Combo1.AddItem"計算機系"
Combo1.AddItem"物理系"
Combo1.AddItem"化學系"
Combo1.AddItem"天文系"
Combo1.AddItem"地質系"
Combo1.AddItem"醫學系"
Text1.Text=""
Text2.Text=""

EndSub

PrivateSubFrame1_Click()
Fori=0To2
IfOption1(Index).Value=FalseThenOption1(Index).Enabled=False
Nexti
EndSub