很多朋友對于vb課程設計實例和vb編程實例速成150例不太懂，今天就由小編來為大家分享，希望可以幫助到大家，下面一起來看看吧！
vb中space函數例子
Space函數:返回特定數目空格的Variant(String)。示例:本示例使用Space函數來生成一個字符串，字符串的內容為空格，長度為指定的長度。
DimMyString'返回10個空格的字符串。
MyString=Space(10)'將10個空格插入兩個字符串中間。
MyString="Hello"&Space(10)&"World"
vb語言基礎知識
（1）VB的語言特點
可視化開發環境：界面設計所見所得；面向對象程序設計：程序和數據封裝作為一個對象，在工具箱里面的都是一個一個的類，比如commandbutton類，當你把它從工具箱拖出來已經，它就被實例化成了一個對象，名稱叫command1，如果你拖了2個command，就是2個不同的對象；事件驅動編程：VB程序沒有明顯的入口和出口，都在等待用戶或者系統或者代碼觸發某個事件，然后執行事件對應的任務
（2）VB的工作模式
設計模式，運行模式，中斷模式；程序在運行模式是沒有辦法修改代碼和設計界面窗口的。
（3）VB的文件類型
窗體文件frm；程序模塊文件bas；類模塊文件cls；工程文件vbp；工程組文件vbg；資源文件res；保存工程的時候應該同時保存工程文件vbp和窗體文件frm。
（4）VB的窗口
任何的窗口被關閉了找不到了，都應該在視圖菜單下面來尋找，工具箱窗口，代碼窗口，窗體布局窗口，立即窗口（可以在中斷模式下查詢程序運行對象值，ctrl+G打開立即窗口）
用VB編程畫圓
VB可以通過GDI+繪圖類來繪制圓形，方法如下：
1.創建新的Windows窗體應用程序工程；
2.雙擊窗體，進入代碼視圖；
3.在窗體類的對象區域上方添加以下代碼，引用Graphics名字空間：
```
ImportsSystem.Drawing.Drawing2D
```
4.在窗體的Paint事件中，添加以下代碼，繪制圓形：
```
PrivateSubForm1_Paint(senderAsObject,eAsPaintEventArgs)HandlesMyBase.Paint
'創建Graphics畫布，用于繪制
DimgAsGraphics
g=e.Graphics
'創建Pen對象，設置圓形的顏色、寬度等
DimpenAsPen
pen=NewPen(Color.Red,5)
'繪制圓形，傳入圓形的位置和大小（使用Rectangle對象表示）
g.DrawEllipse(pen,NewRectangle(100,100,200,200))
'釋放Pen對象，避免資源泄露
pen.Dispose()
'釋放Graphics對象，避免資源泄露
g.Dispose()
EndSub
```
5.運行程序，將繪制一個紅色的圓形。
簡要解釋代碼：在Form1_Paint事件中，我們創建了一個Graphics對象g，用于繪制，然后創建了一個Pen對象pen，設置其顏色為紅色，寬度為5像素。然后我們調用g.DrawEllipse方法，傳入pen和一個Rectangle對象，表示圓形的位置和大小。最后釋放pen和g對象。
怎么樣用vb畫等腰三角形
代碼示例：
PrivateSubCommand1_Click()
ScaleMode=vbPixels
Me.Cls
PSet(Me.ScaleWidth/2,5),RGB(255,0,0)
PSet(5,Me.ScaleHeight-5),RGB(0,255,0)
PSet(Me.ScaleWidth-5,Me.ScaleHeight-5),RGB(0,0,255)
Line(Me.ScaleWidth/2,0)-(5,Me.ScaleHeight-5),RGB(255,0,0)
Line(Me.ScaleWidth/2,0)-(Me.ScaleWidth-5,Me.ScaleHeight-5),RGB(0,255,0)
Line(5,Me.ScaleHeight-5)-(Me.ScaleWidth-5,Me.ScaleHeight-5),RGB(0,0,255)
EndSub
vba里的vbcomponents怎么用
Subtest()
Rem本示例代碼作用是新建一個工作簿，并且在工作簿的工程當中新建一個模塊1且寫入一個過程
Rem工具---引用勾選MicrosoftVisualBasicForApplicationsExtensibility5.3
Rem信任中心需要勾選“信任對VBA工程對象模型的訪問”
DimvbAsVBComponent,wbAsWorkbook
Setwb=Workbooks.Add
wb.VBProject.VBComponents.Add(vbext_ct_StdModule).Name="模塊1"
Withwb.VBProject.VBComponents("模塊1").CodeModule
.InsertLines1,"Subtest()"
.InsertLines2,"msgbox123"
.InsertLines3,"Endsub"
EndWith
EndSub
關于vb課程設計實例和vb編程實例速成150例的介紹到此就結束了，不知道你從中找到你需要的信息了嗎 ？如果你還想了解更多這方面的信息，記得收藏關注本站。
