老鐵們，大家好，相信還有很多朋友對于vb編程設計例題圖文和vb編程設計例題100例的相關問題不太懂，沒關系，今天就由我來為大家分享分享vb編程設計例題圖文以及vb編程設計例題100例的問題，文章篇幅可能偏長，希望可以幫助到大家，下面一起來看看吧！
vb編程有哪幾種步驟
1．創建程序的用戶界面
2．設置界面上各個對象屬性
3．編寫對象響應事件的程序代碼
4．保存工程
5．測試應用程序，排除錯誤
6．創建可執行程序
VB語言編程教材推薦
VB推薦一本書“visualBasic基礎編程一百例”，人民郵電的。
這本書中的一百個例子非常詳細。
而且例題講的也比較寬。
其中除了API以外基本上都有。
1、vb6.0編寫程序，計算下列分段函數，要求輸入x的值，輸出y的值。(30分，其中界面設計詳細全面2分）
'1、編寫程序，計算下列分段函數，要求輸入x的值，輸出y的值。(30分，其中界面設計詳細全面2分）：
'y=sin(πx/20)0<=X<10
'y=x2/1010<=X<100
'y=1100-x100<=X<200
'y=990x>=200
Constpi=3.1415926
PrivateSubForm_click()
Show
Dimx!,y!
x=Val(InputBox("請輸入X值"))
Ifx>=0Andx<10Then
y=Sin(pi*x/20)
ElseIfx>=10Andx<100Then
y=x^2/10
ElseIfx>=100Andx<200Then
y=1100-x
ElseIfx>=200Then
y=990
EndIf
Print"x=";x;"y=";y
EndSub
用VB編寫一個隨機數的程序
用VB做一個產生隨機數的程序過程：
1創建隨機數窗體：
2編寫產生隨機數的事件：PrivateSubCommand1_Click()Randomize'初始化隨機數生成器List1.AddItemInt((Rnd*9)+1)EndSub3運行結果：
用VB編寫CAD繪圖插件
操作步驟：
一、創建一個ACTIVEXDLLcadPro工程二、添加一個模塊命名為ModCad.代碼如下PublicacadAppAsObjectPublicacadDocAsObject(這里建立一個新塊主要是為了以后在多個窗體、類或者多個工程中可以調用)二、添加一個類ClsTest代碼如下：
PublicFunctionMenuMain(MenuIndexAsInteger)'下面的判斷在VB中測試的時候可以用到，在生成DLL后VBA調用時可注釋IfModCad.acadAppIsNothingOrModCad.acadDocIsNothingThenConnectToAcadsetAppModCad.acadAppsetDocModCad.acadDocEndIfSelectCaseMenuIndexCase1AutoCADTestCase2EndSelectEndFunctionPublicFunctionConnectToAcad()OnErrorResumeNextSetModCad.acadApp=GetObject(,"AutoCAD.Application.16.2")'16.2是CAD的版本IfErrThenErr.ClearSetModCad.acadApp=CreateObject("AutoCAD.Application.16.2"
)EndIfIfErrThenErr.ClearSetModCad.acadApp=GetObject(,"AutoCAD.Application"
)IfErrThenErr.ClearSetModCad.acadApp=CreateObject("AutoCAD.Application"
)EndIfIfErrThenUnloadMeEndIfEndIfModCad.acadApp.Visible=TrueSetModCad.acadDoc=ModCad.acadApp.ActiveDocumentEndFunctionPublicFunctionsetApps(acadObjAsAcadApplication)SetModCad.acadApp=acadObjSetModCad.acadDoc=acadApp.ActiveDocumentEndFunction'VB中要在CAD中實現的功能PrivateFunctionAutoCADTest()DimcadLineAsAcadLineDimcadPointAsVariantcadPoint=ModCad.acadDoc.Utility.GetPoint(,"請選取一個插入點：")ModCad.acadDoc.ModelSpace.AddCirclecadPoint,5EndFunction三、如果要在VB中調試，在添加一個EXE工程，引用ACTIVEX工程，添加一個窗體，在窗體上添加一個按鈕，PrivateSubCommand1_Click()DimRecAsNewcadPro.MenuMainRec.MenuMain1EndSub四、生成DLL文件在VBA中調用。在工具----設定引用項目中加入生成的DLL。代碼如下：
OptionExplicitPrivateclsGreAsNewcadPro.ClsTestPublicSubcadtest()OnErrorResumeNextclsGre.setAppThisDrawing.ApplicationclsGre.MenuMain1EndSub按照以上四個步驟就可實現VB與AutoCAD的連接。以上程序在本機測試通過。OS:winxpsp2chtAuotCADVersion:AutoCAD2006
END，本文到此結束，如果可以幫助到大家，還望關注本站哦！
