vb編程
⑴ 什麼是VB程序設計
Visual Basic程序設計是BASIC編程語言。
VB擁有圖形用戶界面（GUI）和快速應用程序開發（RAD）系統，可以輕易的使用DAO、RDO、ADO連接資料庫，或者輕松的創建ActiveX控制項，用於高效生成類型安全和面向對象的應用程序。
程序員可以輕松的使用VB提供的組件快速建立一個應用程序。
(1)vb編程擴展閱讀：
VB 的組件既可以擁有用戶界面，也可以沒有。這樣一來伺服器端程序就可以處理增加的模塊。
VB 使用參數計算的方法來進行垃圾收集，這個方法中包含有大量的對象，提供基本的面向對象支持。因為越來越多組件的出現，程序員可以選用自己需要的擴展庫。
和有些語言不一樣，VB 對大小寫不敏感，但是能自動轉換關鍵詞到標準的大小寫狀態，以及強制使得符號表入口的實體的變數名稱遵循書寫規則。默認情況下字元串的比較是對大小寫敏感的，但是可以關閉這個功能。
參考資料來源：網路-Visual Basic
⑵ vb編程vb編程
Private Sub Command1_Click()
Dim j%, k%, m%, n%, mArr(1 To 80), OArr(), EArr(), ZArr(), Q%, E%, tmP%, Z%, mSum%
Q = 1
E = 1
Z = 1
Print "80個隨機整數："
For j = 1 To 80
Randomize
mArr(j) = Int(90 * Rnd + 10)
Print CStr(mArr(j)); Spc(2);
If j Mod 10 = 0 Then Print
Next j
Print
For m = 1 To 79 '排序
For n = 80 To m + 1 Step -1
If mArr(n) < mArr(n - 1) Then tmP = mArr(n): mArr(n) = mArr(n - 1): mArr(n - 1) = tmP
Next n
Next m
For m = 1 To 80 '奇偶分組
If mArr(m) Mod 2 = 1 Then
ReDim Preserve OArr(1 To Q)
OArr(Q) = mArr(m)
Q = Q + 1
Else
ReDim Preserve EArr(1 To E)
EArr(E) = mArr(m)
E = E + 1
End If
If zs(CInt(mArr(m))) = True Then '素數分組
ReDim Preserve ZArr(1 To Z)
ZArr(Z) = mArr(m)
mSum = mSum + ZArr(Z)
Z = Z + 1
End If
Next m
Print
Print "偶數：" '在窗體輸出
For m = 1 To UBound(EArr)
Print CStr(EArr(m)); Spc(2);
If m Mod 10 = 0 Then Print
Next m
Print
Print
Print "奇數："
For m = 1 To UBound(OArr)
Print CStr(OArr(m)); Spc(2);
If m Mod 10 = 0 Then Print
Next m
Print
Print
Print "素數："
For m = 1 To UBound(ZArr)
Print CStr(ZArr(m)); Spc(2);
If m Mod 10 = 0 Then Print
Next m
Print
Print "素數個數："; UBound(ZArr)
Print "素數之和："; mSum
End Sub
Private Function zs(x As Integer) As Boolean '素數判斷子過程
Dim d%
If x = 2 Then zs = True: Exit Function
For d = 2 To Int(Sqr(x))
If x Mod d = 0 Then Exit For: zs = False
If d = Int(Sqr(x)) Then zs = True
Next
End Function
⑶ VB編程。
2樓的是錯的。inputbox函數里輸入的是字元，要用val函數將其轉為數字。
a=val(inputbox(......))
⑷ vb編程，
你要是只有這么個功能，是很容易實現的，不過不知道你這么做的意義何在，稍等，代碼隨後發上
⑸ 用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編程
准備工作:
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是面向對象的語言,你可以對照書上的例子在機器上學習編程.這樣影響更深刻,步驟都不是嚴格的,可以根據程序的需要來進行.但是第一步應該是程序的總體演算法,模塊,界面設計.
⑻ VB編程的程序
DimjlAsString
PrivateSubct_Click()
Text1.FontBold=True
EndSub
PrivateSubqc_Click()
Text1.Text=""
EndSub
PrivateSubsl_Click()
jl=InputBox("請輸入相關信息","輸入信息")
EndSub
PrivateSubtc_Click()
End
EndSub
PrivateSubxhx_Click()
Text1.FontUnderline=True
EndSub
PrivateSubxs_Click()
Text1.Text=jl
EndSub
PrivateSubxt_Click()
Text1.FontItalic=True
EndSub
PrivateSubzc_Click()
Text1.Font.Size=10
Text1.FontBold=False
Text1.FontUnderline=False
Text1.FontItalic=False
EndSub
PrivateSubztdx_Click()
Text1.FontSize=20
EndSub
http://www.namipan.com/d/
程序下載地址
⑼ 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