VB实例源码(完整资料).doc
VB(仓库管理系统源代码)
1.请购作业程序PrivateSubComCX_Click()’查询'在"编号"文本框中输入编号，连接数据库，查询编号，并将"编号","品名","规格","单位","单价"的数据分别导入到相应文本框。
SetCN=NewADODB.ConnectionSetRs=NewADODB.RecordsetistSecurityInfo=False"'打开数据库Rs.CursorType=adOpenStatic'制定一个静态游标Rs.LockType=adLockOptimistic'设置锁定模式为开放式Rs.Open"select*fromJLBHwhereFtextBHSJLike'"&"%"&Trim(textBHSJ.Text)&"%" &"'",CNDoEventsDoUntilRs.EOF=TrueIfRs.EOF=FalseThenlistBHSJ1.AddItem(Rs.Fields(0))listPMSJ1.AddItem(Rs.Fields(1))listGGSJ1.AddItem(Rs.Fields(2))listDWSJ1.AddItem(Rs.Fields(3))listDJSJ1.AddItem(Rs.Fields(4))Rs.MoveNextEndIfLoopEndSubPrivateSubcomFHZY_Click()’返回上页frmQGZY.HidefrmCKGLXT.ShowEndSubPrivateSubcomQD_Click()’录入数据IftextBHSJ.Text=""OrtextPMSJ.Text=""OrtextGGSJ.Text=""OrtextDWSJ.Text=""Or textDJSJ.Text=""OrtextQGSLSJ.Text=""ThenMsgBox"请将数据补充完整!"textBHSJ.Text=""textPMSJ.Text=""textGGSJ.Text=""textDWSJ.Text=""textDJSJ.Text=""textQGSLSJ.Text=""ElseDimcnnAsNewConnection,rstAsNewRecordset,fidAsField DimstrSqlAsString,strconnAsStringstrSql="SelecttextBHSJFromqgzywheretextBHSJ='"&Trim(textBHSJ.Text)&"'"cnn.ConnectionString=strconncnn.OpenSetrst=cnn.Execute(strSql)str1="InsertIntoqgzy(textBHSJ,textPMSJ,textGGSJ,textDWSJ,textDJSJ,textQGSJ)" str1=str1+"Values('"&Trim(textBHSJ.Text)&"','"&Trim(textPMSJ.Text)&"','"&Trim( textGGSJ.Text)&"','"&Trim(textDWSJ.Text)&"','"&Trim(textDJSJ.Text)&"','"&Trim (textQGSLSJ.Text)&"')"cnn.Executestr1listBHSJ1.AddItem(Trim(textBHSJ.Text))listPMSJ1.AddItem(Trim(textPMSJ.Text))listGGSJ1.AddItem(Trim(textGGSJ.Text))listDWSJ1.AddItem(Trim(textDWSJ.Text))listDJSJ1.AddItem(Trim(textDJSJ.Text))listQGSLSJ1.AddItem(Trim(textQGSLSJ.Text))MsgBox"数据输入成功!"rst.Closecnn.CloseSetRs=NothingSetCN=NothingtextBHSJ.Text=""textPMSJ.Text=""textGGSJ.Text=""textDWSJ.Text=""textDJSJ.Text=""textQGSLSJ.Text=""EndIfEndSubPrivateSubcomsc_Click()’删除IflistBHSJ1.SelCount>0ThenFori=listBHSJ1.ListCount-1To0Step-1IflistBHSJ1.Selected(i)ThentextBHSJ.Text=listBHSJ1.List(i)textPMSJ.Text=listPMSJ1.List(i)textGGSJ.Text=listGGSJ1.List(i)textDWSJ.Text=listDWSJ1.List(i)textDJSJ.Text=listDJSJ1.List(i)textQGSLSJ.Text=listQGSLSJ1.List(i)EndIfNextEndIfDimcnnAsNewConnection,rstAsNewRecordset,fidAsField DimstrSqlAsString,strconnAsStringstrSql="SelectFtextBHSJFromjlbhwhereFtextBHSJ='"&Trim(textBHSJ.Text)&"'"cnn.ConnectionString=strconncnn.OpenSetrst=cnn.Execute(strSql)Ifrst.EOF=FalseThenstr1="DeletefromqgzywhereFtextBHSJ='"&Trim(textBHSJ.Text)&"'" cnn.Executestr1textBHSJ.Text=""textPMSJ.Text=""textGGSJ.Text=""textDWSJ.Text=""textDJSJ.Text=""textQGSLSJ.Text=""IflistBHSJ1.SelCount>0ThenFori=listBHSJ1.ListCount-1To0Step-1IflistBHSJ1.Selected(i)ThenlistBHSJ1.RemoveItem(i)listPMSJ1.RemoveItem(i)listGGSJ1.RemoveItem(i)listDWSJ1.RemoveItem(i)listDJSJ1.RemoveItem(i)listQGSLSJ1.RemoveItem(i)EndIfNextEndIfMsgBox"数据已删除！"ElseMsgBox"无此数据！"textBHSJ.Text=""textPMSJ.Text=""textGGSJ.Text=""textDWSJ.Text=""textDJSJ.Text=""textQGSLSJ.Text=""EndIfrst.Closecnn.CloseSetRs=NothingSetCN=NothingEndSub‘以下是listbox串连显示PrivateSublistBHSJ1_Click()IflistBHSJ1.SelCount>0ThenFori=listBHSJ1.ListCount-1To0Step-1IflistBHSJ1.Selected(i)Then listPMSJ1.Selected(i)=TrueEndIfNextEndIfEndSubPrivateSublistDJSJ1_Click() IflistDJSJ1.SelCount>0ThenFori=listDJSJ1.ListCount-1To0Step-1 IflistDJSJ1.Selected(i)Then listQGSLSJ1.Selected(i)=TrueEndIfNextEndIfEndSubPrivateSublistDWSJ1_Click() IflistDWSJ1.SelCount>0ThenFori=listDWSJ1.ListCount-1To0Step-1 IflistDWSJ1.Selected(i)Then listDJSJ1.Selected(i)=TrueEndIfNextEndIfEndSubPrivateSublistGGSJ1_Click() IflistGGSJ1.SelCount>0ThenFori=listGGSJ1.ListCount-1To0Step-1 IflistGGSJ1.Selected(i)Then listDWSJ1.Selected(i)=TrueEndIfNextEndIfEndSubPrivateSublistPMSJ1_Click() IflistPMSJ1.SelCount>0ThenFori=listPMSJ1.ListCount-1To0Step-1 IflistPMSJ1.Selected(i)Then listGGSJ1.Selected(i)=TrueEndIfNextEndIfEndSubPrivateSublistQGSLSJ1_Click() IflistQGSLSJ1.SelCount>0ThenFori=listQGSLSJ1.ListCount-1To0Step-1IflistQGSLSJ1.Selected(i)ThenlistBHSJ1.Selected(i)=TrueEndIfNextEndIfEndSub2.增加料号程序PrivateSubcomFHZY_Click()’返回上页frmJLBH.HidefrmCKGLXT.ShowEndSubPrivateSubcomSCBH_Click()’删除IflistBHSJ1.SelCount>0ThenFori=listBHSJ1.ListCount-1To0Step-1IflistBHSJ1.Selected(i)ThentextBHSJ.Text=listBHSJ1.List(i)textPMSJ.Text=listPMSJ1.List(i)textGGSJ.Text=listGGSJ1.List(i)textDWSJ.Text=listDWSJ1.List(i)textDJSJ.Text=listDJSJ1.List(i)EndIfNextEndIfDimcnnAsNewConnection,rstAsNewRecordset,fidAsField DimstrSqlAsString,strconnAsStringstrSql="SelectFtextBHSJFromjlbhwhereFtextBHSJ='"&Trim(textBHSJ.Text)&"'" strconn=strconn&"F:\VB设计专用\仓库数据资料\仓库数据资料.mdb'"cnn.ConnectionString=strconncnn.OpenSetrst=cnn.Execute(strSql)Ifrst.EOF=FalseThenstr1="Delete*fromjlbhwhereFtextBHSJ='"&Trim(textBHSJ.Text)&"'"cnn.Executestr1textBHSJ.Text=""textPMSJ.Text=""textGGSJ.Text=""textDWSJ.Text=""textDJSJ.Text=""IflistBHSJ1.SelCount>0ThenFori=listBHSJ1.ListCount-1To0Step-1IflistBHSJ1.Selected(i)ThenlistBHSJ1.RemoveItem(i)listPMSJ1.RemoveItem(i)listGGSJ1.RemoveItem(i)listDWSJ1.RemoveItem(i)listDJSJ1.RemoveItem(i)EndIfNextEndIfMsgBox"编号已删除！"ElseMsgBox"无此编号！请确认后重新输入"textBHSJ.Text=""textPMSJ.Text=""textGGSJ.Text=""textDWSJ.Text=""textDJSJ.Text=""EndIfrst.Closecnn.CloseSetRs=NothingSetCN=NothingEndSubPrivateSubcomZJBH_Click()’新增料号IftextBHSJ.Text=""OrtextPMSJ.Text=""OrtextGGSJ.Text=""OrtextDWSJ.Text=""Or textDJSJ.Text=""ThenMsgBox"请将数据补充完整!"textBHSJ.Text=""textPMSJ.Text=""textGGSJ.Text=""textDWSJ.Text=""textDJSJ.Text=""ElseDimcnnAsNewConnection,rstAsNewRecordset,fidAsField DimstrSqlAsString,strconnAsStringstrSql="SelectFtextBHSJFromjlbhwhereFtextBHSJ='"&Trim(textBHSJ.Text)&"'" strconn=strconn&"F:\VB设计专用\仓库数据资料\仓库数据资料.mdb'"cnn.ConnectionString=strconncnn.OpenSetrst=cnn.Execute(strSql)Ifrst.EOF=FalseThenMsgBox"该编号已存在，不能追加！"Elsestr1="InsertIntojlbh(FtextBHSJ,FtextPMSJ,FtextGGSJ,FtextDWSJ,FtextDJSJ)"str1=str1+"Values('"&Trim(textBHSJ.Text)&"','"&Trim(textPMSJ.Text)&"','"&Trim( textGGSJ.Text)&"','"&Trim(textDWSJ.Text)&"','"&Trim(textDJSJ.Text)&"')" cnn.Executestr1listBHSJ1.AddItem(Trim(textBHSJ.Text)) listPMSJ1.AddItem(Trim(textPMSJ.Text)) listGGSJ1.AddItem(Trim(textGGSJ.Text)) listDWSJ1.AddItem(Trim(textDWSJ.Text)) listDJSJ1.AddItem(Trim(textDJSJ.Text)) MsgBox"恭喜您，添加成功!"EndIfrst.Closecnn.CloseSetRs=NothingSetCN=NothingtextBHSJ.Text=""textPMSJ.Text=""textGGSJ.Text=""textDWSJ.Text=""textDJSJ.Text=""EndIfEndSub‘以下是listbox循环选中程序PrivateSublistBHSJ1_Click()IflistBHSJ1.SelCount>0ThenFori=listBHSJ1.ListCount-1To0Step-1 IflistBHSJ1.Selected(i)ThenlistPMSJ1.Selected(i)=TrueEndIfNextEndIfEndSubPrivateSublistDJSJ1_Click()IflistDJSJ1.SelCount>0ThenFori=listDJSJ1.ListCount-1To0Step-1 IflistDJSJ1.Selected(i)ThenlistBHSJ1.Selected(i)=TrueEndIfNextEndIfEndSubPrivateSublistDWSJ1_Click()IflistDWSJ1.SelCount>0ThenFori=listDWSJ1.ListCount-1To0Step-1 IflistDWSJ1.Selected(i)ThenlistDJSJ1.Selected(i)=TrueEndIfNextEndIfEndSubPrivateSublistGGSJ1_Click() IflistGGSJ1.SelCount>0ThenFori=listGGSJ1.ListCount-1To0Step-1 IflistGGSJ1.Selected(i)Then listDWSJ1.Selected(i)=TrueEndIfNextEndIfEndSubPrivateSublistPMSJ1_Click() IflistPMSJ1.SelCount>0ThenFori=listPMSJ1.ListCount-1To0Step-1 IflistPMSJ1.Selected(i)Then listGGSJ1.Selected(i)=TrueEndIfNextEndIfEndSub。
VB经典竞赛实例程序代码(原创易懂)
VB 经典案例，竞赛必考出自原创镇宁民族中学 张国海1、1-9组成的不同三位数成1:2:3Private Sub Command1_Click()Dim i, j, k, l, num1, num2, num3 As Integer Dim str, str2 As String For i = 1 To 9 For j = 1 To 9 For k = 1 To 9num1 = i * 100 + j * 10 + k '生产三个三位数并建立关系 num2 = num1 * 2 num3 = num1 * 3If num2 > 999 Or num3 > 999 Then GoTo aa '如果大于999就结束循环 str = num1 & num2 & num3For l = 1 To 9If InStr(1, str, l) = 0 Then GoTo bb '查找这三个数是否包含1到9 Nextstr2 = str2 & num1 & vbTab & num2 & vbTab & num3 & vbCrLfPrint num1, num2, num3 bb: Next Next Next aa:MsgBox str2 '用显示框显示结果 End Sub2、手动输入任意数并进行排序 Private Sub Command1_Click() Dim b(10) As Long Dim a, m, s As Long Dox = InputBox("请输入10以内的数") a = Val(x) If a > 10 Then MsgBox ("dfdf") End IfLoop Until a <= 10 '控制输入10以内的数为排序的个数For s = 1 To ab(s) = InputBox("请输入任意数")Next '手动输入任意数值For i = 1 To a For j = i To aIf b(i) < b(j) Then '实现从大到小排序 m = b(j) b(j) = b(i) b(i) = m End If Nexts = s & b(i) & vbTab '把排序好的数用空格链接在一行上 Next Print s End Sub3、随机产生20个1到20的数去重后排序Private Sub Command1_Click() Dim s(20) As Long Dim i, m As LongText1.Text = "" '设初始值为空Text2.Text = "" Text3.Text = ""For i = 1 To 20s(i) = Int(Rnd * 19 + 1)Text1.Text = Text1.Text & s(i) & " " Next iFor j = 1 To 19For k = j + 1 To 20If s(j) = s(k) Then '把相同的数值归为0 s(k) = 0 End If Next k, jFor l = 1 To 20If s(l) <> 0 Then '统计不等于0的数值，也就是去掉重复的数值Text2.Text = Text2.Text & s(l) & " " End If Next lFor m = 1 To 20 For n = m To 20 If s(m) > s(n) Then t = s(n) s(n) = s(m) s(m) = t End If Next nIf s(m) <> 0 Then '统计排序后不等于0的数值，也就是去掉重复的数值Text3.Text = Text3.Text & s(m) & " " End If Next m End Sub4、求键盘字母的使用频率（不含非英文）Private Sub Command1_Click() Dim x, t As StringDim a(26), s As Integer Dim b(26) As DoubleOpen "D:\基本功训练\part.txt" For Input As #1 DoInput #1, x t = t & xLoop Until EOF(1)For i = 1 To Len(t)If Asc(UCase(Mid(t, i))) - 64 >= 1 And Asc(UCase(Mid(t, i))) - 64 <= 26 Thena(Asc(UCase(Mid(t, i))) - 64) = a(Asc(UCase(Mid(t, i))) - 64) + 1End If Next iFor k = 1 To 26 Print a(k)num = num + a(k) Next kText2.Text = Len(t)For j = 1 To 26b(j) = Format(a(j) / num * 100, "0.00")Text1.Text = Text1.Text & b(j) & "%" & " " Print Next jClose #1 End Sub5、倒计时的制作Dim x, h, m, s As IntegerPrivate Sub Command1_Click()x = InputBox("请输入时间，以分为单位")h = x \ 60m = x Mod 60s = 0Text1.Text = h & ":" & m & ":" & sTimer1.Enabled = TrueTimer1.Interval = 1000End SubPrivate Sub Command2_Click()Timer1.Enabled = Not Timer1.Enabled '暂停和开始End SubPrivate Sub Timer1_Timer()If h = 0 And m = 0 And s = 0 ThenMsgBox ("时间到！")EndElseIf s = 0 Thens = 59If m = 0 Thenm = 59h = h - 1Elsem = m - 1End IfElses = s - 1End IfText1.Text = h & ":" & m & ":" & sEnd Sub。
VB实例源码（完整资料）.doc
VB实例源码（完整资料）.doc【最新整理，下载后即可编辑】课前体验Private Sub Form_Click()For i = 1 To 10For j = 1 To iPrint "* ";Next jPrintNext iEnd Sub【例3-1】Private Sub Form_Click()c1$ = Chr$(13) + Chr$(10)msg1$ = "请输入您的名字: "msg2$ = "输入后按回车键"msg3$ = "或单击“确定”按钮"msg$ = msg1$ + c1$ + msg2$ + c1$ + msg3$ name$ = InputBox(msg$, "InputBox 函数示例", "张三") Print name$End Sub【例3-2】Private Sub Form_Click()Msg1$=”Are you Continue to?”msg2$=”Operation Dialog Box”r=MsgBox(msg1$,34,msg2$)Print rEnd Sub【例3-3】编写程序，用MsgBox函数判断是否继续执行。
Private Sub Form_Click()msg$ = "请确认此数据是否正确"Title$ = "数据检查对话框"x = MsgBox(msg$, 19, Title$)If x = 6 ThenPrint x * xElseIf x = 7 ThenPrint "请重新输入"End IfEnd Sub【例3-5】Private Sub Form_Click()Print: PrintFontName = "隶书"FontSize = 16Print " 姓名"; Tab(8); "年龄"; Tab(16); "职务";Print Tab(24); "单位"; Tab(32); "籍贯"PrintPrint "吴大明"; Tab(8); 25; Tab(16); "职员"; Tab(24); "人事科"; Tab(32); "北京"End Sub【例3-6】Private Sub Form_Click()X = InputBox("请输入成绩", "学生成绩录入", "00")Print xEnd Sub【例3-7】Private Sub Form_Click()Dim x As Single, y As Singlex=InputBox(“请输入x的值”)If x>0 Then y=1 ElseIf x=0 Then y=0 Else y=-1Print “x=”; x ,”y=” ; yEnd Sub【例3-8】Private Sub Form_Click()Dim msg, UserInputmsg = "请输入一个字母或0～9之间的数字."UserInput = InputBox(msg) ‘输入一个字母或数字If Not IsNumeric(UserInput) Then ‘判断是否是数字If Len(UserInput) = 1 Then ‘不是数字时，判断输入的字符串长度是否为1Select Case Asc(UserInput) ‘判断输入字母的ASCII 码值Case 60 To 90 '在60-90之间为大写字母msg = "你输入的是一个大写字母'"msg = msg & Chr(Asc(UserInput)) & "'。
vb源码
'定义模块级数组和变量'merch(15)存放菜单，Price(15)存放点菜价格,total存放总价价格Dim merch(15) As String, price(15) As IntegerDim total As Integer'在Form_load中打开文件，将菜单读入列表框'将菜单存入merch数组，价格信息存入price;计算总价值存入total变量Private Sub Form_load()Dim FileNo As IntegerFileNo = FreeFileOpen "菜单.txt" For Input As #FileNoSum = 0i = 0Do While Not EOF(FileNo)Input #FileNo, merch(i), price(i)List1.AddItem merch(i)Sum = Sum + price(i)i = i + 1LoopClose #FileNototal = SumText2 = "0元"Command1.Enabled = FalseCommand2.Enabled = FalseCommand3.Enabled = FalseCommand4.Enabled = FalseCommand5.Enabled = FalseEnd SubPrivate Sub list1_click()Command1.Enabled = TrueCommand2.Enabled = TrueCommand3.Enabled = TrueCommand4.Enabled = TrueCommand5.Enabled = TrueEnd Sub'"->"按钮，将List1中选中项目添加到List2中Private Sub command1_click()Dim Sel_Text As String, Sel_price As IntegerSel_Text = List1.TextList2.AddItem Sel_TextSel_price = search(Sel_Text)Text2 = Str(Val(Text2) + Sel_price) + "元"For i = 1 To List2.ListCountx(i) = List2.List(i - 1)y(i) = search(x(i))Next iEnd Sub'">>"按钮，将List1中项目全部添加到List2中Private Sub command2_click()For i = 0 To List1.ListCount - 1List2.AddItem List1.List(i)x(i) = List2.List(i - 1)Next iFor i = 1 To List2.ListCountx(i) = List2.List(i - 1)y(i) = search(x(i))Next iText2 = Str(total) + "元"End Sub'"<-"按钮，参考"->"按钮说明Private Sub command3_click()Dim Sel_Text As String, Sel_price As IntegerIf List2.Text = "" ThenMsgBox "请选择项目"Exit SubEnd IfSel_Text = List2.TextSel_price = search(Sel_Text)Text2 = Str(Val(Text2) - Sel_price) + "元"List2.RemoveItem List2.ListIndexFor i = 1 To List2.ListCountx(i) = List2.List(i - 1)y(i) = search(x(i))Next iEnd Sub'"<<"按钮，参考">>"按钮的说明Private Sub command4_click()Do While List2.ListCount > 0List2.ListIndex = 0List2.RemoveItem List2.ListIndex '删除选定项目LoopText2 = "0元"End Sub'查找函数，功能是根据菜单价格，查找相应的价格Function search(mname As String) As IntegerFor i = 0 To 15If mname = merch(i) Thensearch = price(i)Exit ForEnd IfNextEnd FunctionPrivate Sub command5_click()Load Form3Form3.ShowForm3.Print "已点清单"; Tab(25); "价格"Form3.PrintFor i = 1 To List2.ListCountForm3.Print x(i); Tab(25); y(i) Next iForm3.PrintForm3.Print "---------------------------"Form3.Print "总价"; Tab(25); Text2.Text End Sub。
vb实验 程序代码
AP1-2Private Sub Form_Click()PrintPrintPrintPrint "欢迎使用visual basic！"End SubPrivate Sub Form_Load()FontSize = 20FontBold = TrueForeColor = vbRedPicture = LoadPicture(App.Path + "\image\t1.gif")End SubP2-1Private Sub Command1_Click()Label1 = Text1End SubPrivate Sub Form_Load()Text1.PasswordChar = "*"Text1.FontSize = 20Label1.FontSize = 20Label1.Alignment = 2Label1.BorderStyle = 1Label1.BackColor = vbWhiteCommand1.FontSize = 20End SubP2-2Private Sub Command1_Click()Label1 = "欢迎来到重庆"Command1.Visible = FalseCommand2.Visible = TrueEnd SubPrivate Sub Command2_Click()Label1 = "welcome to ChongQing"Command2.Visible = FalseCommand1.Visible = TrueEnd SubPrivate Sub Form_Load()Label1 = "欢迎来到重庆"Label1.Alignment = 2Command1.Visible = FalseCommand2.Visible = TrueEnd SubP2-3Private Sub Form_Load()Label1.BackColor = vbRedLabel2.BackColor = vbBlueLabel3.BackColor = vbGreenLabel4.BackColor = vbYellowEnd SubPrivate Sub Label1_Click()Text1.ForeColor = Label1.BackColor End SubPrivate Sub Label2_Click()Text1.ForeColor = Label2.BackColor End SubPrivate Sub Label3_Click()Text1.ForeColor = Label3.BackColor End SubPrivate Sub Label4_Click()Text1.ForeColor = Label4.BackColor End SubP2-4Private Sub Command1_Click()Dim Shu As DoubleShu = Val(Text1)Label5 = Fix(Shu)Label6 = Int(Shu)Label7 = Round(Shu)End SubP2-5Private Sub Command1_Click()RandomizeLabel1 = Int(Rnd() * 899 + 100)Label2 = ""End SubPrivate Sub Command2_Click()Dim Zh As StringZh = Label1Label2 = Right(Zh, 1) & Mid(Zh, 2, 1) & Left(Zh, 1)End SubPrivate Sub Command3_Click()Dim Yh As IntegerDim A As IntegerDim B As IntegerDim C As IntegerYh = Val(Label1)A = Yh \ 100B = (Yh Mod 100) \ 10C = Yh Mod 10Label2 = C * 100 + B * 10 + AEnd SubPrivate Sub Form_Load()End SubP3-1Private Sub Command1_Click()Dim R As SingleConst Pi As Single = 3.1415926R = Val(Text1)Label3 = Int(2 * Pi * R * 1000 + 0.5) / 1000Label5 = Int(Pi * R ^ 2 * 1000 + 0.5) / 1000End SubPrivate Sub Form_Load()End SubP3-2Private Sub Command1_Click()Dim Lx As Long, Ux As LongLx = Val(Text1)Ux = Val(Text2)RandomizeLabel3 = Int((Ux - Lx) * Rnd + Lx) End SubPrivate Sub Form_Load()End SubP4-1Private Sub Command1_Click()Dim a As Integer, b As Integer, c As Integer Dim d As Single, r1 As Single, r2 As Singlea = Val(Text1)b = Val(Text2)c = Val(Text3)If a = 0 ThenIf b = 0 ThenMsgBox ("方程无解")Elser1 = -c / bMsgBox ("方程有一个根为：" + Str(r1))End IfElsed = b * b - 4 * a * cIf d > 0 Thenr1 = (-b + Sqr(d)) / (2 * a)r2 = (-b - Sqr(d)) / (2 * a)MsgBox ("方程有两个根为：" + Str(r1) + Chr(13) + " " + Str(r2))ElseIf d = 0 Thenr1 = -b / (2 * a)MsgBox ("方程有两个相同根为：" + Str(r1))ElseMsgBox ("方程无实根")End IfEnd IfEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Load()End SubP4-2Private Sub Command1_Click()Dim a As Double, b As DoubleDim ys As String * 1a = Val(Text1)b = Val(Text3)ys = Text2Select Case ysCase "+"Label4 = a + bCase "-"Label4 = a - bCase "*"Label4 = a * bCase "/"If b = 0 ThenMsgBox "除数不能为0！重新输入"Text3.SetFocusText3.SelStart = 0Text3.SelLength = Len(Text3)ElseLabel4 = a / bEnd IfEnd SelectEnd SubPrivate Sub Form_Load()End SubP4-3Private Sub Command1_Click()Dim a As SingleDim b As SingleDim c As SingleDim t As Singlea = Val(InputBox("请输入第一个数："))b = Val(InputBox("请输入第二个数："))c = Val(InputBox("请输入第三个数：")) Label1 = "输入的三个数为：" & a & "、" & b & "、" & cIf a < b Then t = a: a = b: b = tIf a < c Thent = c: c = b: b = a: a = tElseIf b < c Then t = b: b = c: c = tEnd IfLabel2 = "排序后的结果为：" & a & "、" & b & "、" & cEnd SubPrivate Sub Form_Load()End SubP4-4Private Sub Command1_Click()Dim zf As StringDim za As Integerzf = Text1za = Asc(zf)If za >= Asc("A") And za <= Asc("Z") Then Label3 = Chr(za + 32)ElseIf za >= Asc("a") And za <= Asc("z") ThenLabel3 = Chr(za - 32)ElseLabel3 = "*"End IfText1.SetFocusText1.SelStart = 0Text1.SelLength = 1End SubPrivate Sub Command2_Click()Dim zf As StringDim za As Integerzf = Text1za = Asc(zf)Select Case zaCase Asc("A") To Asc("Z")Label3 = Chr(za + 32)Case Asc("a") To Asc("z")Label3 = Chr(za - 32)Case ElseLabel3 = "*"End SelectText1.SetFocusText1.SelStart = 0Text1.SelLength = 1End SubPrivate Sub Form_Load()Text1.MaxLength = 1End SubP4-5Private Sub Command1_Click()Dim x As Integerx = Val(InputBox("请输入一个整数！")) Picture1.ClsIf x Mod 2 = 0 ThenPicture1.Print "你输入的数"; x; "是偶数"ElsePicture1.Print "你输入的数"; x; "是奇数"End IfEnd SubPrivate Sub Form_Load()End SubP4-6Private Sub Command1_Click()Dim a As Datea = NowPrint "输出结果为："PrintPrint Format(a, "hh:mm:ss AMPM dddd, yyyy-mm-dd")End SubPrivate Sub Form_Load()Form1.FontSize = 18Command1.FontSize = 15 End SubP5-1Private Sub Command1_Click() Dim n As Integer, sum As Single n = 0sum = 0Don = n + 1sum = sum + n ^ 2Loop Until sum > 1000Label2 = "n=" & nEnd SubPrivate Sub Form_Load()End SubP5-2Private Sub Command1_Click()Dim n As Integer, i As IntegerDim sum As Single, mid As Singlen = Val(InputBox("请输入n值"))sum = 0mid = 0For i = 1 To nmid = mid + isum = sum + midNext iLabel4 = nLabel5 = sumEnd SubPrivate Sub Form_Load()End SubP5-3Private Sub Command1_Click()Dim x As Integer, max As Integer, min AsIntegerDim k As Integer RandomizePicture1.Clsmax = 100min = 999For k = 1 To 10x = Int(Rnd * 900 + 100)If max < x Then max = xIf min > x Then min = xPicture1.Print xNext kText1 = maxText2 = minEnd SubPrivate Sub Form_Load() End SubP5-4Private Sub Form_Click()Dim i As IntegerDim aa As IntegerClsPrint: PrintPrint Tab(5);For i = 1 To 36aa = i + Asc("A") - 1If aa <= Asc("Z") ThenPrint Chr(aa); " ";ElsePrint Chr(aa - 26); " ";End IfIf i Mod 6 = 0 ThenPrintPrint Tab(5 + i / 6);End IfNextEnd SubPrivate Sub Form_Load() ShowDim i As IntegerDim j As IntegerDim aa As IntegerPrint: PrintFor i = 0 To 5Print Tab(5 + i);For j = 0 To 5aa = Asc("A") + i * 6 + jIf aa <= Asc("Z") ThenPrint Chr(aa); " ";ElsePrint Chr(aa - 26); " ";End IfNext jPrintNext iEnd SubP6-1Private Sub Command1_Click()Dim cj(1 To 10) As SingleDim sum As Single, i As Integersum = 0ClsFor i = 1 To 10cj(i) = Val(InputBox("请输入第" & i & "位同学的成绩："))sum = sum + cj(i)Next iPrint "这10位同学的成绩如下："For i = 1 To 10Print cj(i);If i Mod 5 = 0 Then PrintNext iPrintPrint "平均成绩为："; Spc(3); sum / i End SubPrivate Sub Form_Load()End SubP6-1Private Sub Command1_Click() Dim a(5, 5) As IntegerDim s As IntegerClsFor i = 1 To 5Print Tab(10);For j = 1 To 5a(i, j) = Int(Rnd * 10)Print a(i, j);Next jPrintNext is = 0For i = 2 To 5For j = 1 To i - 1s = s + a(i, j)Next j, iPrintPrint "下三角元素之和为："; ss = 0For i = 1 To 4For j = i + 1 To 5s = s + a(i, j)Next j, iPrint "上三角元素之和为："; s s = 0For i = 1 To 5s = s + a(i, i)Next iPrint "主对角线元素之和为："; s End SubPrivate Sub Form_Load()End SubP6-3Private Sub Command1_Click() ReDim sl(1 To 6)Dim i As Integer, j As Integer, t As Integer ClsFor i = 1 To 6sl(i) = Int(90 * Rnd + 10)Next iFor i = 1 To 5For j = i + 1 To 6If sl(i) < sl(j) Thent = sl(i)sl(i) = sl(j)sl(j) = tEnd IfNext jNext iPrint "原数据序列是："For i = 1 To 6Print sl(i);Next iPrintEnd SubPrivate Sub Command2_Click()ReDim Preserve sl(1 To 7)Dim n As Integern = Val(InputBox("请输入一个两位数：")) Print "插入的数为："; nFor i = 6 To 1 Step -1If n < sl(i) ThenExit ForElsesl(i + 1) = sl(i)End IfNext isl(i + 1) = nPrint "新的数据序列是："For i = 1 To 7Print sl(i);NextEnd SubPrivate Sub Form_Load()End SubP6-4Private Sub Command1_Click(Index As Integer)Dim a As Single, b As Singlea = Val(Text1):b = Val(Text2)Text3 = ""Select Case IndexCase 0: Text3 = a + bCase 1: Text3 = a - bCase 2: Text3 = a * bCase 3If b = 0 ThenMsgBox ("除数不能为零！")ElseText3 = Int(a / b * 1000 + 0.5) / 1000End IfEnd SelectEnd SubPrivate Sub Form_Load()End SubP7-1Private Sub Command1_Click()Dim a As Stringa = Text1Label2 = Fx(a)End SubFunction Fx(ByVal Ps As String) As String Dim ch As StringDim k As Integer, i As Integerk = Len(Ps)For i = 1 To kch = Mid(Ps, i, 1)Fx = ch & FxNext iEnd FunctionPrivate Sub Form_Load()End SubP7-2Private Sub Command1_Click()Dim a As Single, b As Single, c As Singlea = Val(InputBox("请输入第一个数："))b = Val(InputBox("请输入第二个数："))c = Val(InputBox("请输入第三个数："))Print "输入的三个数是："; a; b; cPrint "其中的最大值是："; Max3(a, b, c)End SubFunction Max3(ByVal X As Single, ByVal Y As Single, ByVal Z As Single) As SingleIf X >= Y And X >= Z ThenMax3 = XElseIf Y >= Z ThenMax3 = YElseMax3 = ZEnd IfEnd FunctionPrivate Sub Form_Load()End SubP7-3Private Sub Command1_Click()Dim a As String * 1a = InputBox("请输入一个字符：")Print "输入的字符是："; aPrint "它是：";Call Pd(a)End SubSub Pd(ByVal Os As String)Dim a As Integera = Asc(Os)Select Case aCase 48 To 57Print "数字字符"Case 65 To 90Print "大写字母"Case 97 To 122Print "小写字母"Case ElsePrint "其它字符"End SelectEnd SubPrivate Sub Form_Load()End SubP7-4Private Sub Command2_Click()Dim a As LongDim res As Booleana = Val(Text1)Ws2 a, resIf res = True ThenLabel2 = a & "是完数"ElseLabel2 = a & "不是完数"End IfEnd SubSub Ws2(ByVal X As Long, ByRef Y As Boolean)Dim i As Integer, sum As SingleY = Falsesum = 1For i = 2 To Int(X / 2)If X Mod i = 0 Then sum = sum + iNext iIf X = sum Then Y = TrueEnd SubFunction ws1(ByVal X As Long) As Boolean Dim i As Integer, sum As Singlews1 = Falsesum = 1For i = 2 To Int(X / 2)If X Mod i = 0 Then sum = sum + iNext iIf X = sum Then ws1 = TrueEnd FunctionPrivate Sub Form_Load()End SubP8-1Private Sub Check1_Click()If Check1 ThenText1.FontBold = TrueElseText1.FontBold = FalseEnd IfEnd SubPrivate Sub Check2_Click()If Check2 ThenText1.FontItalic = TrueElseText1.FontItalic = FalseEnd IfEnd SubPrivate Sub Check3_Click()If Check3 ThenText1.FontUnderline = TrueElseText1.FontUnderline = FalseEnd IfEnd SubPrivate Sub Form_Load()End SubPrivate Sub Option1_Click(Index AsInteger)Select Case IndexCase 0: Text1.FontSize = 12Case 1: Text1.FontSize = 16Case 2: Text1.FontSize = 18End SelectEnd SubP8-2Private Sub Form_Load()Picture1.Left = 200Picture1.Picture = LoadPicture(App.Path + "/image/t1.gif")HScroll1.Min = 200HScroll1.Max = 3000rgeChange = 40HScroll1.SmallChange = 20End SubPrivate Sub HScroll1_Change()Picture1.Left = HScroll1.ValueEnd SubPrivate Sub HScroll1_Scroll()Picture1.Left = HScroll1.ValueEnd SubP8-3Dim R As Integer, G As Integer, B As IntegerPrivate Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = 81 And Shift = 2 Then End '这是第四题的内容End SubPrivate Sub Form_Load()Timer1.Interval = 500Form1.KeyPreview = True '这是第四题的内容RandomizeEnd SubPrivate Sub Timer1_Timer()R = Int(Rnd() * 256)G = Int(Rnd() * 256)B = Int(Rnd() * 256)Label1.ForeColor = RGB(R, G, B) End SubP9-1Const pi = 3.1415926Private Sub Command1_Click() CurrentX = -2 * piCurrentY = 0ForeColor = vbRedFor i = -2 * pi To 2 * pi Step 0.01 Line -(i, Sin(i))NextCurrentX = -2 * piCurrentY = 1ForeColor = vbBlueFor i = -2 * pi To 2 * pi Step 0.01 Line -(i, Cos(i))NextEnd SubPrivate Sub Form_Load() ShowScale (-8, 1.2)-(8, -2) DrawWidth = 3FontSize = 15Line (-8, 0)-(8, 0)CurrentX = 7.5Print "X"Line (0, -1.2)-(0, 1.2) CurrentX = 0.1Print "Y"End SubP9-2Private Sub Form_Click()ClsFor i = 1 To 6Circle (0, 0), i * 5, RGB(256 * Rnd, 256 * Rnd, 256 * Rnd)NextEnd SubPrivate Sub Form_Load()Scale (-50, 40)-(50, -40)DrawWidth = 2RandomizeEnd SubP9-3Private Sub Command1_Click()ClsEnd SubPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y AsSingle)CurrentX = XCurrentY = YEnd SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 1 ThenLine -(X, Y), vbRedElseIf Button = 2 ThenPSet (X, Y), vbBlueEnd IfEnd SubPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 1 ThenPSet (X, Y), vbRedEnd IfEnd Sub。
个人教学实践精华程序,VB6.0案例教学-文本编辑器(含代码).doc
⏹加粗按钮：Private Sub Check1_Click()If Check1.Value = vbChecked Then Text1.FontBold = TrueElseText1.FontBold = FalseEnd IfEnd Sub⏹斜体按钮：Private Sub Check2_Click()If Check2.Value = vbChecked Then Text1.FontItalic = TrueElseText1.FontItalic = FalseEnd IfEnd Sub⏹下划线按钮：Private Sub Check3_Click()If Check3.Value = vbChecked Then Text1.FontUnderline = True ElseText1.FontUnderline = False End IfEnd Sub⏹分行显示按钮Private Sub Command1_Click()Text1.Text = "《静夜思》" & vbCrLf & "床前明月光，" & vbCrLf & "疑是地上霜。
" & vbCrLf & "举头望明月，" & vbCrLf & "低头思故乡。
"End Sub⏹清除按钮Private Sub Command2_Click()Text1.Text = ""End Sub⏹退出按钮Private Sub Command3_Click()Dim a As Integera = MsgBox("请问您确实要退出程序吗？", vbYesNo + vbQuestion, "作者温馨提示：")If a = vbYes ThenEndEnd IfEnd Sub⏹字体颜色设置Private Sub Option1_Click()Text1.ForeColor = vbRedEnd SubPrivate Sub Option10_Click()Text1.BackColor = vbRedEnd SubPrivate Sub Option11_Click()Text1.BackColor = vbWhiteEnd SubPrivate Sub Option2_Click()Text1.ForeColor = vbBlueEnd SubPrivate Sub Option3_Click()Text1.ForeColor = vbGreenEnd SubPrivate Sub Option4_Click()Text1.ForeColor = vbBlackEnd Sub⏹字号大小设置Private Sub Option5_Click()Text1.FontSize = 12End SubPrivate Sub Option6_Click()Text1.FontSize = 18End SubPrivate Sub Option7_Click()Text1.FontSize = 20End Sub背景颜色设置Private Sub Option8_Click()Text1.BackColor = vbYellow End SubPrivate Sub Option9_Click()Text1.BackColor = vbGreen End Sub。
vb程序源代码
EndProperty
ForeColor = &H00FF0000&
Height = 615
Left = 1800
Width = 615
End
Begin bel Label8
Caption = "游"
BeginProperty Font
Name = "宋体"
Begin bel Label6
Caption = "猜"
BeginProperty Font
Name = "宋体"
Size = 24
Charset = 134
BeginProperty Font
Name = "宋体"
Size = 24
Charset = 134
Weight = 400
EndProperty
ForeColor = &H000080FF&
Height = 615
Left = 3720
TabIndex = 11
Top = 240
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Weight = 400
Underline = 0 'False
Italic = 0 'False
VB60实例教程(含源代码)
创建班级管理F_bjgl窗体
创建班级管理F_bjgl窗体
创建班级管理F_bjgl窗体
创建班级管理F_bjgl窗体
班级管理创建F_bjgl窗体
班级管理创建F_bjgl窗体
表格控件的创建步骤： 1、创建表格
2、设置属性 右击选择属性
班级管理创建F_bjgl窗体
表格控件的创建步骤： 3、选择通用选项卡 4、在标题栏录入：班级信息表 5、在行高栏更改为：450
10、重复6-9 完成班主任
6、选择列选项卡 7、选择Column 0 8、在标题栏录入： 班 别 9、在数据字段栏录入：班别
班级管理创建F_bjgl窗体
表格控件的创建步骤： 11、选择布局选项卡 12、在列选择Column 0（班别） 13、在对齐更改为：2-dbcenter 14、在宽度更改为：3000
15、重复11-14 设置（班主任）
班级管理创建F_bjgl窗体
表格控件的创建步骤： 16、设置表格字体颜色 如右图
17、设置表格字体及大小 如下图
班级管理创建F_bjgl窗体
表格控件的管理创建窗体登录代码
班级管理创建：命令按钮代码
班级管理创建：命令按钮代码
班级管理创建：命令按钮代码
班级管理创建：命令按钮代码
班级管理创建：命令按钮代码
班级管理创建：命令按钮代码
班级管理创建：命令按钮代码
班级管理创建：命令按钮代码
VB精典实用源代码(详细))
个人收藏的VB精典实用源代码。
若朋友您想要问如何才能学好vb，或者入门需要看什么教材一类的问题，建议你抱着一颗刻苦钻研的心去面对这门学问，多动脑，少提问，遇到不知道的，多查资料，多看看帖子，或者用断点来亲自试验。
实在不会了，请在此贴中查找您的常见问题，如果还没有，那请您发出新贴，向各位高手讨教：）查找方法：按ctrl+f，输入要查找的问题关键字即可每个问题中间用///分隔，这只是一部分最常见到的问题，以后会逐渐更新。
////////////////////////////////////////////////////////////////////////////////////如何用VB建立快捷方式Private Declare Function fCreateShellLink Lib "STKIT432.DLL" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As LongSub Command1_Click()Dim lReturn As Long'添加到桌面lReturn = fCreateShellLink("..\..\Desktop", "Shortcut to Calculator", "c:\windows\calc.exe", "")'添加到程序组lReturn = fCreateShellLink("", "Shortcut to Calculator", "c:\windows\calc.exe", "")'添加到启动组lReturn = fCreateShellLink("\Startup", "Shortcut to Calculator", "c:\windows\calc.exe", "")End Sub////////////////////////////////////////////////////////////////////////////////////如何让程序在Windows 启动时自动执行？有以下二个方法：方法1: 直接将快捷方式放到启动群组中。
考试必备之vb实例编程代码
第一题新建工程，界面如下图，将窗体名称改为f1，标题属性为“我的第一个工程”， Text2允许多行，三个命令按钮名称分别为C1、C2、C3，单击C1 按钮将Text1 的字体改为黑体，Text2 的字体改为隶书。
单击C2 按钮将Text1 的文字颜色改为红色，Text2的背景颜色改为蓝色。
单击C3 按钮结束程序运行。
Private Sub C1_Click()Text1.Font = "黑体"Text2.Font = "隶书"End SubPrivate Sub C2_Click()Text1.ForeColor = vbRedText2.BackColor = vbBlueEnd SubPrivate Sub C3_Click()EndEnd Sub'注意，本题的窗体和三个按钮的名称需要修改，窗体的Caption需要修改；'text2的Multiline属性需要修改'文本框text属性建议清空第二题新建工程，界面如上图，运行时，鼠标在“改变窗体颜色”按钮上按下时使窗体背景色变为红色，鼠标抬起时使窗体背景色变为绿色。
鼠标在窗体空白地方按下时Text1 的内容为“在窗体上按下了鼠标”，鼠标抬起时使Text1 的内容为“在窗体上抬了鼠标”。
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)Form1.BackColor = vbRedEnd SubPrivate Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)Form1.BackColor = vbGreenEnd SubPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)Text1.Text = "在窗体上按下了鼠标"End SubPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)Text1.Text = "在窗体上抬起了鼠标"End Sub'注意：本题窗体的Caption属性需要修改'文本框text属性建议清空第三题新建工程，界面如下图，运行时，在文本框Text1 中输入内容的同时，在文本框Text2、Text3 中显示相同的内容，但字体不同（字体自定）。
(整理)vb编程实例.
实验30(1)Public Class Form1Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim a As String, b As String, c As StringDim x1 As Single, x2 As Singlea = InputBox("输?入?A", "输?入?数簓据YY", , 500, 500)b = InputBox("输?入?B", "输?入?数簓据YY", , 500, 500)c = InputBox("输?入?C", "输?入?数簓据YY", , 500, 500)x1 = -b + Math.Sqrt(b ^ 2 - 4 * a * c) / 2 / ax2 = -b - Math.Sqrt(b ^ 2 - 4 * a * c) / 2 / aMsgBox("x1=" & Format(x1, "###.###") & " x2=" & Format(x2, "###.###")) End SubPrivate Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.ClickDim x As SingleDim y As Singlex = InputBox("输?入?x")y = Math.Log(20) + Math.Abs(x - 16)MsgBox("Math.Log(20) + Math.Abs(x - 16)=" & y)End Sub计算落体Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.ClickConst g As Single = 9.81Dim v As Single, o As Single, t As Single, s As Singlev = InputBox("输?入?初?速ù度è")o = InputBox("输?入?角?度è")t = 2 * v * Math.Sin(o * Math.PI / 180) / gs = v * Math.Sin(2 * o * Math.PI / 180) / gMsgBox("落?地?所ù需è时骸?间?" & t & " 落?地?时骸?运?动ˉ的?射?程ì" & s) End SubEnd Class实验30 (2)随机产生奇偶数并输出Public Class Form1Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim x As Integerx = Int(Rnd() * 100)If x Mod 2 = 0 ThenMsgBox(x & "是?偶?数簓")ElseMsgBox(x & "是?奇?数簓")End IfEnd Sub比较三个数的大小并输出Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickDim a As Single, b As Single, c As Single, x As Single, y As Singlea = InputBox("请?输?入?a")b = InputBox("请?输?入?b")c = InputBox("请?输?入?c")If a > b Thenx = ay = bElsex = by = aEnd IfIf c > a Thenx = cElseIf c < b Theny = cEnd IfEnd IfMsgBox("最?大洙?数簓" & x & " 最?小?数簓" & y)End Sub计算当T<120时的计算（循环语句）Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.ClickDim t As Single, f As Singlet = InputBox("请?输?入?t")If t < 120 Thenf = 0.06 * t + 2MsgBox("f = 0.06 * t + 2=" & f)Elsef = 0.06 * t * 0.85MsgBox("f = 0.06 * t * 0.85=" & f)End IfEnd Sub判断成绩等级Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.ClickDim x As SingleDim y As Stringx = InputBox("请?输?入?成é绩¨")If x >= 90 Theny = "A"ElseIf x >= 80 Theny = "B"ElseIf x >= 70 Theny = "C"ElseIf x >= 60 Theny = "D"Elsey = "E"End IfMsgBox("成é绩¨" & x & "等台?级?为a" & y)End SubCase选择Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button5.ClickDim x As Single, y As Singlex = InputBox("请?输?入?x")Select Case xCase Is <= -1y = x - 1Case Is <= 2y = 2 * xCase Is <= 10y = x * (x + 2)Case Elsey = 0End SelectMsgBox("y=" & y)End Sub计算算数根Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.ClickDim a As String, b As String, c As StringDim x1 As Single, x2 As Single, x As Singlea = InputBox("输?入?A", "输?入?数簓据YY", , 500, 500)b = InputBox("输?入?B", "输?入?数簓据YY", , 500, 500)c = InputBox("输?入?C", "输?入?数簓据YY", , 500, 500)x = b ^ 2 - 4 * a * cIf x >= 0 Thenx1 = -b + Math.Sqrt(x) / 2 / ax2 = -b - Math.Sqrt(x) / 2 / aMsgBox("x1=" & Format(x1, "###.###") & " x2=" & Format(x2, "###.###")) Elsex1 = Math.Sqrt(-x) / 2 / ax2 = -Math.Sqrt(-x) / 2 / aMsgBox("x1=" & -b / 2 / a & x1 & "i x2=" & -b / 2 / a & x2 & "i") End IfEnd Sub循环语句实验31Public Class Form1Dim a(19) As IntegerPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim i As IntegerDim n As IntegerDim s As Singles = 0n = InputBox("请?输?入?n")For i = 1 To ns = s + 1 / (i * (i + 1))NextMsgBox("s=" & s)End Sub求下标是奇偶数的代码Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickDim a(10) As IntegerDim i As IntegerDim x As IntegerDim y As Integerx = 0y = 0For i = 1 To 10InputBox("请?输?入?第台? & i & "个?数簓")If i Mod 2 = 0 Thenx = x + a(i)Elsey = y + a(i)End IfNextMsgBox("下?标括?为a奇?数簓的?元a素?和í为a" & y & "下?标括?为a偶?数簓的?元a素?和í为a" & x)End Sub画星星图Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button3.ClickDim r As Integer, s As Integer, c As Integer, y(5) As String, j As Integer, ys As Stringys = ""r = 1Do While r <= 4c = 10 - r : s = 1y(r) = y(r) & Space(c + s)Do While s <= 2 * r - 1y(r) = y(r) & "*"s = s + 1Loopr = r + 1LoopFor j = 1 To 4ys = ys & y(j) & Chr(10)NextMsgBox(ys)End Sub画图Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.ClickDim r As Integer, s As Integer, c As Integer, y(5) As String, ys As Stringys = ""r = 4Do While r >= 1c = 10 - r : s = 1ys = ys & Space(c + s)Do While s <= 2 * r - 1ys = ys & "*"s = s + 1Loopr = r - 1ys = ys & Chr(10)LoopMsgBox(ys)End SubPrivate Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.ClickEnd Sub随机产生几个数并输出相关条件的个数Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.ClickDim s As StringDim i As IntegerDim x As IntegerDim y As Integerx = 0y = 0s = ""For i = 0 To 19a(i) = Int(Rnd() * 100)s = s & a(i) & ","If a(i) > 50 Thenx = x + 1ElseIf a(i) < 10 Theny = y + 1End IfNextMsgBox(s & vbCrLf & "50?元a以?上?的?业唉?务?人?数簓为a" & x & ",10?元a 以?下?的?业唉?务?人?数簓为a" & y)End Sub随机产生并排序Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click'Dim a(19) As IntegerDim t As IntegerDim i As IntegerDim j As IntegerDim x As StringDim y As Stringx = ""y = ""'For i = 0 To 19' a(i) = Int(Rnd() * 100)' x = x & a(i) & ","'NextFor i = 0 To 19For j = 19 To i + 1 Step -1If a(j) < a(j - 1) Thent = a(j)a(j) = a(j - 1)a(j - 1) = tEnd IfNexty = y & a(i) & ","NextMsgBox(x & vbCrLf & y)End SubPrivate Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.ClickDim a As IntegerDim b(9) As IntegerDim s As IntegerDim u As StringDim i As IntegerRandomize()a = Int(Rnd() * 90000000 + 10000000)For i = 0 To 7s = Mid(a, i + 1, 1)b(s) = b(s) + 1Nextu = "8位?数簓为a：阰(" & a & ")" & vbCrLfFor i = 0 To 9u = u & i & "出?现?次?数簓：阰" & b(i) & vbCrLfNextMsgBox(u)End SubPrivate Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.ClickDim b(19) As IntegerDim i As IntegerDim s As Strings = ""For i = 0 To 19b(i) = Int(Rnd() * 90000000 + 10000000)s = s & b(i) & vbCrLfNextMsgBox(s)End Sub循环语句Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.ClickDim i As IntegerDim t As SingleDim s As Integeri = 1t = 1 / (i * (i + 1))s = 0Do While t >= 0.000001s = s + ti = i + 1t = 1 / (i * (i + 1))LoopMsgBox("s=" & s)End SubPrivate Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.ClickDim i As IntegerDim t As SingleDim s As Singlei = 1t = 1 / (i * (i + 1))s = 0Dos = s + ti = i + 1t = 1 / (i * (i + 1))Loop While t >= 0.000001MsgBox("s=" & s)End SubPrivate Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.ClickDim a() As IntegerDim i As IntegerDim n As IntegerDim x As IntegerDim y As Integerx = 0y = 0n = InputBox("请?输?入?数簓组哩?的?数簓量?")ReDim a(n)For i = 1 To na(i) = InputBox("请?输?入?第台? & i & "个?数簓")If i Mod 2 = 0 Thenx = x + a(i)Elsey = y + a(i)End IfNextMsgBox("下?标括?为a奇?数簓的?元a素?和í为a" & y & "下?标括?为a偶?数簓的?元a素?和í为a" & x)End SubPrivate Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.ClickDim s As StringDim y As StringDim t As StringDim a() As StringDim i As IntegerDim j As IntegerDim l As Integert = ""y = ""s = InputBox("请?输?入?要癮排?序ò的?字?符?串?")l = Len(s)ReDim a(l)For i = 1 To la(i) = Mid(s, i, 1)NextFor i = 1 To lFor j = l To i + 1 Step -1If a(j) < a(j - 1) Thent = a(j)a(j) = a(j - 1)a(j - 1) = tEnd IfNexty = y & a(i)NextMsgBox(s & vbCrLf & y)End SubPrivate Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.ClickDim n As IntegerDim i As IntegerDim j As IntegerDim s As StringDim t As StringDim i_0 As IntegerDim j_0 As IntegerDim mfz_bz(9, 9) As StringDim mfz(9, 9) As Stringn = InputBox("请?输?入?魔§方?阵ó阶×数簓 N")If n < 3 Or n > 9 Or n Mod 2 <> 1 ThenMsgBox("您ú输?入?的?魔§方?阵ó阶×数簓 N 不?在ú范?围§内ú，?请?输?入?3-9之?间?的?奇?数簓")Exit SubEnd If'初?始?化ˉFor i = 1 To 9For j = 1 To 9mfz_bz(i, j) = 0mfz(i, j) = ""Next jNext imfz(1, n \ 2 + 1) = 1mfz_bz(1, n \ 2 + 1) = 1i_0 = 1j_0 = n \ 2 + 1For ysz = 2 To n * nIf mfz(i_0, j_0) > n And (mfz(i_0, j_0) Mod n = 0) Then i = i_0 + 1j = j_0ElseIf i_0 = 1 Theni = nj = j_0 + 1ElseIf j_0 = n Theni = i_0 - 1j = 1Elsei = i_0 - 1j = j_0 + 1End IfIf mfz_bz(i, j) = 1 Theni = i_0 + 1j = j_0End Ifmfz(i, j) = yszmfz_bz(i, j) = 1i_0 = ij_0 = jNext yszMsgBox("魔§方?阵ó排??毕?")s = ""For i = 1 To 9For j = 1 To 9t = mfz(i, j)s = s & Format(t, "{0,4}")Nexts = s & vbCrLfNextEnd SubEnd Class实验33Public Class Form1计算油钱Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim t As Integer, f As Single, x As Stringt = Val(TextBox1.Text)f = 7.69 * tx = Str$(f) + "元a"Label2.Text = xTextBox1.Focus()End SubPrivate Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.LoadTextBox1.Text = ""Label2.Text = ""End SubEnd Class判断身体健康Public Class Form1Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim x As IntegerIf TextBox1.Text = ""ThenTextBox1.Focus() '在ú文?本?框ò1输?入?身Θ?高?MsgBox("请?输?入?身Θ?高?")Exit SubIf TextBox2.Text = ""ThenTextBox2.Focus() '在ú文?本?框ò2输?入?体?重?MsgBox("请?输?入?体?重?")Exit SubEnd If'选?择?性?别纄If RadioButton1.Checked = False And RadioButton2.Checked = False Then'此?种?情é况?不?会á发ぁ?生Θ?MsgBox("请?选?择?被?检ì测a者?性?别纄")Exit SubEnd IfIf RadioButton1.Checked = True Thenx = Val(TextBox1.Text) - 100 '计?算?男D性?体?重?ElseIf RadioButton2.Checked = True Thenx = Val(TextBox1.Text) - 105 '计?算?女?性?体?重?End If'判D断?体?重?是?否?超?标括?，?并￠显?示?If Val(TextBox2.Text) > x ThenLabel3.Text = "体?重?超?标括?，?请?注痢?意癮饮?食?与?运?动ˉ！?"ElseLabel3.Text = "体?重?正y常￡"End IfEnd SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click'清?除y计?算?体?重?和í超?标括??示?Label3.Text = "" : TextBox1.Text = "" : TextBox2.Text = ""RadioButton1.Checked = False : RadioButton2.Checked = FalseEnd SubPrivate Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.ClickEnd'结á束?工¤程ì运?行DEnd SubPrivate Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.LoadMe.Show()TextBox1.Focus()End SubEnd ClassPublic Class Form1Dim x As Integer, varstring As StringPrivate Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadTextBox3.Enabled = FalseButton1.Enabled = FalseTextBox3.Font = New Font("宋?体?", 10, FontStyle.Regular)End SubPrivate Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.ClickEndEnd Sub调整字体Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickSelect Case TrueCase CheckBox1.Checked = True And CheckBox2.Checked = FalseTextBox3.Font = New Font("宋?体?", 10, FontStyle.Bold)Case CheckBox2.Checked = True And CheckBox1.Checked = FalseTextBox3.Font = New Font("宋?体?", 10, FontStyle.Italic)Case CheckBox1.Checked And CheckBox2.CheckedTextBox3.Font = New Font("宋?体?", 10, FontStyle.Bold Or FontStyle.Italic) Case CheckBox1.Checked = False And CheckBox2.Checked = FalseTextBox3.Font = New Font("宋?体?", 10, FontStyle.Regular)End SelectEnd SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickTextBox3.Enabled = TrueTextBox3.Text = TextBox1.Text & TextBox2.TextIf RadioButton1.Checked = True ThenTextBox3.Text = TextBox3.Text & RadioButton1.TextElseIf RadioButton2.Checked = True ThenTextBox3.Text = TextBox3.Text & RadioButton2.TextEnd IfEnd Sub输入病例Private Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.LostFocusx = Len(TextBox1.Text)If x <> 6 ThenBeep()TextBox1.Text = ""TextBox1.Focus()TextBox3.Clear()TextBox3.Text = "病?历え?号?为a6位?数簓字?"ElseTextBox3.Clear()Button1.Enabled = TrueEnd IfEnd SubPrivate Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChangedEnd SubPrivate Sub Form1_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.ShownEnd SubEnd ClassPublic Class Form1图书馆借书Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickListBox1.Items.Add(ComboBox1.Text)End SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickIf ListBox1.SelectedIndex = -1 ThenMsgBox("请?选?择?要癮删?除y的?书酣?")Exit SubEnd IfListBox1.Items.RemoveAt(ListBox1.SelectedIndex)End SubPrivate Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.ClickListBox1.Items.Clear()End SubPrivate Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.ClickDim num As Integernum = ListBox1.Items.CountFor i = 0 To num - 1If ListBox1.Items(i) = "内ú科?学§"Or ListBox1.Items(i) = "外猘科?学§"Then MsgBox("您ú已?经-借è阅?了?一?本?期ú刊ˉ,不?能ü再ù借è阅?期ú刊ˉ!")Exit SubEnd IfNext iIf RadioButton1.Checked = True ThenListBox1.Items.Add("内ú科?学§")ElseIf RadioButton2.Checked = True ThenListBox1.Items.Add("外猘科?学§")End IfEnd SubEnd Class开病方Public Class Form1Dim Var As String, Hx As Integer, Vx As IntegerPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickVar$ = ComboBox1.Text + ComboBox2.Text + ComboBox3.Text + ComboBox4.Text Select Case Var$Case Is = "?轻á度è38度è干é咳è"TextBox1.Text = "咽ê炎×"Case Is = "化ˉ脓§中D度è39度è早?起e咳è"TextBox1.Text = "?体?发ぁ?炎×"Case Is = "化ˉ脓§重?度è40?TextBox1.Text = "肺?炎×"Case ElseTextBox1.Text = "重?选?"End SelectEnd SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickMe.Close()End SubPrivate Sub ListBox1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.DoubleClickListBox2.Items.Add(ListBox1.Text)End SubPrivate Sub ListBox2_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox2.DoubleClick'首骸?先è判D断??框ò中D的?项?是?否?大洙??If (ListBox2.Items.Count > 0) Then'移?出?选?择?的?项?()'ListBox2.Items.Remove(ListBox2.SelectedItem)ListBox2.Items.RemoveAt(ListBox2.SelectedIndex)End IfEnd SubEnd ClassPublic Class Form1选图Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadComboBox1.Items.Add("一?")ComboBox1.Items.Add("二t")ComboBox1.Items.Add("三▂")ComboBox1.Items.Add("四?")ComboBox1.SelectedIndex = 0End SubPrivate Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChangedSelect Case ComboBox1.SelectedIndexCase 0'PictureBox1.Load("xiamen1.jpg")PictureBox1.Image = My.Resources.xiamen1Case 1'PictureBox1.Load("xiamen2.jpg")PictureBox1.Image = My.Resources.xiamen2Case 2'PictureBox1.Load("xiamen3.jpg")PictureBox1.Image = My.Resources.xiamen3Case 3'PictureBox1.Load("xiamen4.jpg")PictureBox1.Image = My.Resources.xiamen4End SelectEnd SubEnd ClassPublic Class Form1计算正弦和余弦Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadTextBox1.Text = ""'初?始?化ˉ输?入?文?本?框òLabel2.Text = ""'初?始?化ˉ输?出?标括?签?框òEnd SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim a, b As DoubleDim c As String'定¨义?一?个?可é存?放?部?分?输?出?结á果?的?字?符?串?变?量?c = ""If TextBox1.Text = ""ThenTextBox1.Focus() '如?果?没?有瓺输?入?任?何?时骸?间?,则ò强?制?返う?回?文?本?框ò等台?待鋣输?入?MsgBox("请?输?入?计?算?数簓据Y") '?示?用?户§输?入?时骸?间?Exit Sub'控?制?如?果?没?有瓺输?入?时骸?间?,不?进?行D下?面?的?计?算?,直±接ó结á束?“°计?算?”±按恪?钮￥的?Click事?件t过y程ìEnd IfIf RadioButton4.Checked = True Thenb = Val(TextBox1.Text) * Math.PI / 180 '判D断?是?否?输?入?角?度è?若?是?,进?行D弧?度è转羇换?,否?则ò不?转羇换?ElseIf RadioButton5.Checked = True Thenb = Val(TextBox1.Text)End If'判D断?进?行D何?种?计?算?,并￠进?入?对?应畖的?计?算?If RadioButton1.Checked = True Thena = Math.Sin(b)c = "Sin(" & TextBox1.Text & ")="'将?显?示?何?种?计?算?的?内ú容╕转羇换?为a字?符?串?ElseIf RadioButton2.Checked = True Thena = Math.Cos(b)c = "Cos(" & TextBox1.Text & ")="'将?显?示?何?种?计?算?的?内ú容╕转羇换?为a字?符?串?ElseIf RadioButton3.Checked = True Thena = Math.Tan(b)c = "Tan(" & TextBox1.Text & ")="'将?显?示?何?种?计?算?的?内ú容╕转羇换?为a字?符?串?End Ifa = Math.Round(a, 6) '结á果?四?舍Θ?五?入?a = Format(a, "0.000000") '保馈?证¤纯?小?数簓输?出?前°面?有瓺"0."符?号?显?示?,注痢?意癮a是?变?体?变?量?Label2.Text = c & aEnd SubEnd Class让图片不断转换Public Class Form1Dim i As IntegerPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickTimer1.Enabled = Truei = 0End SubPrivate Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.TickIf i = 0 ThenPictureBox1.Image = PictureBox2.Imagei = 1ElsePictureBox1.Image = PictureBox3.Imagei = 0End IfIf Label1.Left < 0 ThenLabel1.Left = Me.WidthElseLabel1.Left = Label1.Left - 30End IfEnd SubEnd Class选图调控比例Public Class Form1Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.LoadButton4.Enabled = FalseButton2.Enabled = FalseButton3.Enabled = FalseButton1.Image = My.Resources.CRDFLE12Button2.Image = My.Resources.EYEButton3.Image = My.Resources.ARW09RTButton4.Image = My.Resources.KEY06End SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickPictureBox1.SizeMode = PictureBoxSizeMode.ZoomPictureBox1.Image = My.Resources.R1Button4.Enabled = TrueButton2.Enabled = TrueButton3.Enabled = TrueEnd SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickForm2.PictureBox1.Image = My.Resources.R1Form2.Show()End SubPrivate Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button3.ClickPictureBox3.Image = PictureBox1.ImagePictureBox3.Image.RotateFlip(RotateFlipType.Rotate90FlipNone)End SubPrivate Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.ClickDim x As Integerx = Val(InputBox("设Θ?置?缩?小?比括?x="))PictureBox2.SizeMode = PictureBoxSizeMode.CenterImagePictureBox2.Image = PictureBox1.ImagePictureBox3.SizeMode = PictureBoxSizeMode.StretchImagePictureBox3.Height = PictureBox1.Image.Height / xPictureBox3.Width = PictureBox1.Image.Width / xPictureBox3.Image = PictureBox1.ImageEnd SubEnd Class。
VB代码全集
隐藏form1： h7Nb17gSLform1.hide ^Xjf@ 6Q:+~\ 5o显示form1： ~TVc9zform1.show RO*l`G}i53G"k?4o--------------------------------------------------------------------------------------------- f#a]'P|V\Dc+,'eAZ`退出程序时，弹出窗口提示是否要退出： 3#R%z=q1[24FwCPrivate Sub Form_Unload(Cancel As Integer) w5L#Hu1;Dim iAnswer As Integer CA'.k<(o}iAnswer = MsgBox("真要退出吗?", vbYesNo) ^h n3YH54SIf iAnswer = vbNo Then On`,H_Ol^Cancel = True J.^'GDDJElse |qU%\XRuEnd w4NAgCnEEnd If CQT"BEnd Sub "Xws@s(u4p>3,vPBK---------------------------------------------------------------------------------------------- 9DS3|R}K >(T%?只能用任务管理器关闭程序的代码： i.ncUFM8`Private Sub From_Unload(Cancel As Integer) NO.ihCancel = true ?,|b6m,u/End Sub SSm(b\31cZLm`mT------------------------------------------------------------------------------------------------ c?e"7"#Ei\<Ywb}点击command1打开33IQ网： X-y9`(|tj.M8j5YKDim strURL ?0\Zz4e7d/EQUPrivate Sub Command1_Click() 9E=@97<strURL = "" nagc6;Shell "explorer.exe " & strURL, 1 77|t9~p9End Sub 3 lQfC!-+ 4@vT^------------------------------------------------------------------------------------------------ icxTon7BGcGu--tY运行c:\1.exe .h ;P 'shell "c:\1.exe" V57A_gvj{n执行c:\1.bat _muh3| Sshell "c:\1.bat" L+ URz2(8s L2j1kZ注：只适用于大部分exe和全部bat。
VB实例(含代码和窗体)
VB实例第一天、使用VB收发电子邮件大叔：我说LOLI呀，既然你已经学习过VB的基础知识，也做过一些简单的程序，那么我也就不浪费口水教你认识界面、了解控件和学习语法了。
不如我来教教你怎么样制作出一些切实可用的程序，这样既能够加深对VB的认识，还可以让你拥有十足的成就感呢！LOLI：好呀，那做一些什么程序呢？大叔：当然不会像我哥哥当年那样简单至极的程序，而是一些具有实用性的程序，也可以做一个小游戏之类的，你看怎么样？LOLI：好的，不过今天别教我做游戏，不然明天就没有心思学了。
大叔：这个我自然知道，那我们就开始动手制作一个收发电子邮件的程序吧。
LOLI：收发电子邮件？这个会不会很难呢？大叔：正所谓会者不难，难者不会，有我这位名师指点，你还怕什么呢？开始动手吧！一、准备工作大叔：在VB中编写电子邮件程序需要通过调用微软公司的MAPI（Messaging A pplication Programming Interface，消息应用程序编程接口），这需要借助两个实现电子邮件收发功能的核心控件：MAPI会话控件和MAPI消息控件。
MAPI会话控件用于建立和控制一个Microsoft Mail会话，MAPI消息控件用于创建和收发邮件消息。
此外，Windows系统中必须要有遵从MAPI的邮件系统，比如Exchange、Out look等软件，而还要进行一番设置，确保邮件系统可以正常使用。
LOLI：呵呵，没关系，我用的就是Outlook，正好符合要求。
不过你说的MAPI 控件在哪里找呢？大叔：在VB中就有现成的，不过程序没有直接放置在工具箱里，需要我们自己将MAPI控件加入VB工具箱。
首先直接在VB左边的控件栏中右击鼠标，并在弹出菜单中选择“部件”命令，这时可以激活部件设置窗口，在其中的“控件”列表框中选取“Microsoft MAPI Controls”一项（如图1所示），接着按下“确定”按钮之后可以发现工具箱中将多出了两个图标，这就是MAPI会话控件和MAPI消息控件的图标（如图2所示）。
vb代码资料
For Each objItem In colItems PCName = objItem.DNSHostName Next TePcName.Text = PCName strComputer = "." Set objWMI = GetObject("winmgmts://" & strComputer & "/root/cimv2") Set colIP = objWMI.ExecQuery("Select * from Win32 _NetworkAdapterConfiguration where IPEnabled=TRUE") For Each Ip In colIP If Not IsNull(Ip.ipaddress) Then For I = LBound(Ip.ipaddress) To UBound(Ip.ipaddress) 'Mac = Ip.macaddress(I)objObject.DNSHostName If Ip.ipaddress(I) = "0.0.0.0" Then Else TeIp.Text = End If 'MsgBox "IP "Íø¿¨ÀàÐÍ:" "Íø¿¨µØÖ·:" Next End If Next Trim(TeIp.Text + " " + Ip.ipaddress(I))
ÓÃVB д³ÌÐò »ñÈ¡MAC ,IP ,hd ,CPU,ÄÚ´æ,µçÄÔÃû³ÆµÈÐÅÏ¢ Private Sub Form_Load() Dim Cpu, Mer, Disk, Mac, Ip, DiskSerial, PCName strComputer = "." Cpu = "" Mer = "" Disk = "" Mac = "" Ip = "" DiskSerial = "" PCName = "" 'ÃÜÂë³õʼ»¯±êÇ© TePs.Text = "" '»ñµÃCPUÐÅÏ¢ Set objWMIService = GetObject("winmgmts:\\" & strComputer) Set colItems = objWMIService.ExecQuery("Select * from Win32 _Processor") For Each objItem In colItems Cpu = Next TeCpu.Text = Trim(Cpu) '»ñµÃÄÚ´æÐÅÏ¢ Set wbemObjectSet = objWMIService.InstancesOf("Win32 _LogicalMemoryConfiguration") 'Win32_LogicalMemoryConfiguration Win32_PhysicalMemory For Each wbemObject In wbemObjectSet Mer1 = wbemObject.TotalPhysicalMemory ' & "KB" Next Mer = Int(((CLng(Mer1)) / 1024 * 10) / 10) T#34;MB" '»ñµÃÓ²ÅÌÐÅÏ¢ Set wbemObjectSet = objWMIService.InstancesOf("Win32_DiskDrive") For Each wbemObject In wbemObjectSet Disk = wbemObject.Model Next TeDisk.Text = Disk Set wbemObjectSet = objWMIService.InstancesOf("Win32_DiskDrive") For Each wbemObject In wbemObjectSet DiskSerial = wbemObject.Signature Next TeHd_serial.Text = DiskSerial '»ñµÃMACÐÅÏ¢ Set colItems = objWMIService.ExecQuery _ ("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE") For Each objItem In colItems Mac = Mac + " " + objItem.macaddress Next TeMac.Text = Replace(Trim(Mac), ":", "-") '»ñµÃµçÄÔÃû³Æ Set colItems = objWMIService.ExecQuery _ ("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")
vb源程序代码
Vb源代码（周至县第五中学710402 数学组唐永鸽）1 Private Sub Form_Click()Dim n As Integer, f1 As Double, f2 As Double, f3 As DoubleDim i As Integern = Val(InputBox("输入要输出的项数：", "输出斐波那契数列", 20)) f1 = 0f2 = 1Print Tab(8); f1Print Tab(8); f2For i = 3 To nf3 = f2 + f1Print Tab(8); f3f1 = f2f2 = f3NextEnd Sub2 Private Sub Form_Click()Dim n As Integer, f1 As Doublen = 1For n = 1 To 66f1 = 15 * nPrint f1NextEnd Sub3 Private Sub Form_Click()Dim a1 As Double, n As Double, i As Integera1 = V al(InputBox("请输入第1个数", "找最大数"))Print Tab(5); a1For i = 2 To 5n = Val(InputBox("请输入第" & i & "个数"))Print Tab(5); nIf n > a1 Then a1 = nNextPrint ""Print "最大数为"; a1End Sub4、Private Sub Form_Click()Dim year As Longyear = InputBox("请输入年份")If year Mod 4 = 0 ThenIf year Mod 100 = 0 ThenIf year Mod 400 = 0 ThenPrint year; "年是闰年"ElsePrint year; "不年是闰年"End IfElsePrint year; "年是闰年"End IfElsePrint year; "不年是闰年"End IfEnd Sub5、Private Sub form_Click() Dim year As LongFor year = 2000 To 2500If year Mod 4 = 0 ThenIf year Mod 100 = 0 ThenIf year Mod 400 = 0 ThenPrint year; "年是闰年", ElsePrint year; "年不是闰年", End IfElsePrint year; "年是闰年", End IfElsePrint year; "年不是闰年",End IfNextEnd Sub6、Option Base 1Private Sub Form_Click()Const n = 10Dim a(n) As SingleMax = 0k = 0For i = 1 To na(i) = Val(InputBox("请输入第" & i & "个数", "找最大数"))Print Tab(5); "第" & i & "个数为："; a(i)Next iFor i = 1 To nIf Max < a(i) ThenMax = a(i)k = iEnd IfNextPrintPrint "最大数为第" & k & "个数"; MaxEnd Sub7 、方法1、 Private Sub Form_Click()Dim n As Integer, f1 As Integer, f2 As Integer, f3 As Integer For n = 100 To 999f1 = Int(n / 100)f2 = Int(n / 10) Mod 10f3 = n Mod 10If f1 ^ 3 + f2 ^ 3 + f3 ^ 3 = n ThenPrint n; "为水仙花数"End IfNextEnd Sub方法2、Private Sub Form_Click()Dim n As Integer, f1 As Integer, f2 As Integer, f3 As Integer n = 100Do While n <= 999f1 = Int(n / 100)f2 = Int(n / 10) Mod 10f3 = n Mod 10If f1 ^ 3 + f2 ^ 3 + f3 ^ 3 = n ThenPrint n; "为水仙花数"End Ifn = n + 1LoopEnd Sub8 、 Private Sub Form_Click()Dim n As Integer, s As Integern = 1s = 0Dos = s + nn = n + 1Loop While s <= 200n = n - 2Print nEnd Sub9、二分法方法1、Public Function f(x As Double) As Doublef = x ^ 3 - x - 1End FunctionPrivate Sub command1_Click()Dim a As Double, b As Double, p As Singlea = 1b = 1.5p = 0.00001DoIf f((a + b) / 2) = 0 ThenExit DoElseIf f(a) * f((a + b) / 2) < 0 Thenb = (a + b) / 2Elsea = (a + b) / 2End IfEnd IfLoop While b - a >= pLabel1.Caption = "方程的根是" & (a + b) / 2End SubPrivate Sub Command2_Click()Label2.Caption = "求方程 f = x ^ 3 - x - 1的近似解" End Sub方法2、Private Sub Command1_Click()a = Val(Text1.Text)b = Val(Text2.Text)e = Val(Text3.Text)fa = (a * a - 1) * a - 1fb = (b * b - 1) * b - 1If fa * fb >= 0 ThenText4.Text = "求解范围错！"ElseDox = (a + b) / 2f = (x * x - 1) * x - 1If f * fa > 0 Thena = x: fa = fElseb = x: fb = fEnd IfLoop Until f = 0 Or Abs(b - a) < eText4.Text = (a + b) / 2End IfEnd Sub10、冒泡排序Private Sub Command1_Click()Dim C(6) As DoubleFor n = 1 To 6C(n) = InputBox("输入需要排序的数", "6个数的冒泡排序", "") Next nFor i = 1 To 6For j = 6 To i Step -1If C(j) < C(j - 1) Thena = C(j): C(j) = C(j - 1): C(j - 1) = aEnd IfNext jNext iFor i = 1 To 6Print "", C(i)Next iEnd Sub11、求12＋22＋32＋…＋1002的算法Private Sub Form_Load()Dim n As Long, s As Longn = InputBox("请输入 n:", "从1到n求平方和", 100)s = 0i = 1While i <= ns = s + i * ii = i + 1WendForm1.ShowPrint "", "1 到 "; n; " 的平方和是："; sEnd Sub12、辗转相除法求最大公因数Private Sub Form_Click()a = InputBox("请输入一个整数")b = InputBox("请输入一个整数")n1 = Abs(a)n2 = Abs(b)Do While n1 Mod n2 <> 0tt = n1 Mod n2n1 = n2n2 = ttLoopLabel1.Caption = a & "和" & b & "的最大公因数为" & n2End Sub13、用秦九韶算法求多项式的值Private Sub Command1_Click()Dim C(5) As Doublex = InputBox("请输入求值数", "")C(0) = -0.8: C(1) = 1.7: C(2) = -2.6: C(3) = 3.5: C(4) = 2: C(5) = 5 n = 1v = C(5)While n <= 5v = v * x + C(5 - n)n = n + 1WendPrint "所求的值是"; vEnd Sub14 .判断素数Private Sub Form_Click()Dim n As LongDim i As LongDim r As Singlen = Val(InputBox("请输入一个数", "判断素数"))For i = 2 To n - 1r = n Mod iIf r = 0 ThenPrintPrint n; "不是素数"GoTo 17End IfNextPrintPrint n; "为素数"17 End Sub15Private Sub Form_Click()Dim i As Integer, sum As Doublesum = 1For i = 1 To 64sum = sum + 2 ^ iNext iPrint sumEnd Sub16、猜字游戏Private Sub Command1_Click()RandomizeDim Num As LongDim RightAnswer As BooleanDim InputNum As LongText1.Text = ""Num = Int(Rnd * 10) + 1RightAnswer = FalseText1.Text = Text1.Text + "Here's a number between 1 and 10. Can you guess it?" + vbNewLineWhile RightAnswer = FalseInputNum = InputBox("Enter a number")If InputNum = Num ThenText1.Text = Text1.Text & InputNum & " " & "You guessed it!" & vbNewLineRightAnswer = TrueElseIf InputNum < Num ThenText1.Text = Text1.Text & InputNum & " " & "Too Small" & vbNewLineElseIf InputNum > Num ThenText1.Text = Text1.Text & InputNum & " " & "Too Large" & vbNewLineEnd IfWendEnd Sub17、石头、剪刀、布Private Sub Form_Activate()Option1.Caption = "石头"Option2.Caption = "剪刀"Option3.Caption = "布"Option1.Value = FalseOption2.Value = FalseOption3.Value = FalseEnd SubPrivate Sub Option1_Click()RandomizeSelect Case Int(3 * Rnd)Case 0: MsgBox "对方也出石头！继续！"Case 1: MsgBox "哈哈！你赢了！对方出的是剪刀！奖励你一个苹果！"Case 2: MsgBox "你输了！对方出的是布哦！不好意思，苹果给对方了哈！" End SelectOption1.Value = FalseEnd SubPrivate Sub Option2_Click()RandomizeSelect Case Int(3 * Rnd)Case 0: MsgBox "你输了！对方出的是石头哦！不好意思，苹果给对方了哈！" Case 1: MsgBox "对方也出剪刀！继续！"Case 2: MsgBox "哈哈！你赢了！对方出的是布！奖励你一个苹果！"End SelectOption2.Value = FalseEnd SubPrivate Sub Option3_Click()RandomizeSelect Case Int(3 * Rnd)Case 0: MsgBox "哈哈！你赢了！对方出的是石头！奖励你一个苹果！"Case 1: MsgBox "你输了！对方出的是剪刀哦！不好意思，苹果给对方了哈！" Case 2: MsgBox "对方也出布！继续！"End SelectOption3.Value = FalseEnd Sub18、选择题计分程序Private Sub Command1_Click() '提交按钮CommandButton1Dim sum As Integersum = 0If Text1.Text = "A" Thensum = sum + 5Image1.Picture = LoadPicture("E:\课件素材\图片\对号.jpg")ElseImage1.Picture = LoadPicture("E:\课件素材\图片\错号.jpg")End IfIf Text2.Text = "B" Thensum = sum + 5Image2.Picture = LoadPicture("E:\课件素材\图片\对号 - 副本.jpg") ElseImage2.Picture = LoadPicture("E:\课件素材\图片\错号 - 副本.jpg") End IfText3.Text = "您的最后得分是:" & sum & "分" & vbNewLineIf sum <= 5 ThenText3.Text = Text3.Text + "加油啊！"ElseText3.Text = Text3.Text + "恭喜您！及格了！"End IfEnd SubPrivate Sub Command2_Click()Text1.Text = ""Image1.Picture = LoadPicture()Text2.Text = ""Image2.Picture = LoadPicture()Text3.Text = ""End Sub18、韩信点兵Private Sub Command1_Click()Dim X As Integer, Y As IntegerX = 1: Y = 0DoIf X Mod 3 = 1 ThenIf X Mod 5 = 2 ThenIf X Mod 7 = 4 ThenIf X Mod 13 = 6 ThenIf X Mod 17 = 8 Then Y = X End IfEnd IfEnd IfEnd IfX = X + 1Loop Until Y > 0Print "韩信统御士兵数："; YEnd SubPrivate Sub Form_Click()k = 0s = 0100k = k + 1s = s + kIf k < 100 Then GoTo 100Print sEnd Sub。
VB编程实例.doc
用VB编写一个密码解锁界面我也是刚开始学VB语言，VB语言很强大，有别于其它语言，操作性很强，是很富有创造性的电脑语言。
下面是我看了两天书后编写的一个小程序：功能是能建立两个窗口，一个密码窗口，一个为修改密码窗口。
当密码输入正确后才能打开或者做一些事情，点击修改密码跳往第二个界面，修改成功后以修改的密码为解锁密码。
中间有错误提示和误操作提示。
①先建立一个小窗口，如下图：帐号一的“textbox”编号为“text1”，后面一次类推，command指令为1。
②程序的编写Text1：初始帐号为“07823”，如果可以的话可以给加入更多的功能，比如记忆多个账户和多对密码之类的等等。
2、text23、command1初始密码为“1234”，open函数可以打开文件，自己可以设置文件路径。
4、command2跳往第二个界面，隐藏第一界面。
5、初始指令6、全局变量全局变量本界面可以修改、其它界面可以调用的变量。
②建立第二个窗口Text的序号从上到下依次顺序排列，command的命令一次从左到右排列③第二个窗口的程序编写1、Text1：Private Sub Text1_LostFocus()Dim b As IntegerDim pw_1 As String, pw_2 As Stringpw_2 = Form1.mpw_1 = Text1.TextIf pw_1 <> pw_2 Thenb = MsgBox("密码错误", 5 + vbExclamation, "错误提示")End IfEnd Sub2、text2：Private Sub Text2_LostFocus()If Text2.Text = "" ThenMsgBox "新密码不能为空"End IfEnd Sub3、text3：Private Sub Text3_LostFocus()If Text2.Text <> Text3.Text ThenMsgBox "两次输入密码不一样"Text2.Text = ""Text3.Text = ""Text2.SetFocusEnd IfEnd Sub4、command1：Private Sub Command1_Click() If Text2.Text = Text3.Text Then n = Text2.TextEnd IfText1.Text = ""Text2.Text = ""Text3.Text = ""Form1.ShowForm2.HideEnd Sub5、command2：Private Sub Command2_Click() Text1.Text = ""Text2.Text = ""Text3.Text = ""Form1.ShowForm2.HideEnd Sub初始设置（Form）Private Sub Form_Load()Text1.PasswordChar = "*" Text1.Text = ""Text2.PasswordChar = "*" Text2.Text = ""Text3.PasswordChar = "*" Text3.Text = ""End Sub全局变量申明Public n As String。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
【最新整理，下载后即可编辑】课前体验Private Sub Form_Click()For i = 1 To 10For j = 1 To iPrint "* ";Next jPrintNext iEnd Sub【例3-1】Private Sub Form_Click()c1$ = Chr$(13) + Chr$(10)msg1$ = "请输入您的名字: "msg2$ = "输入后按回车键"msg3$ = "或单击“确定”按钮"msg$ = msg1$ + c1$ + msg2$ + c1$ + msg3$name$ = InputBox(msg$, "InputBox 函数示例", "张三")Print name$End Sub【例3-2】Private Sub Form_Click()Msg1$=”Are you Continue to?”msg2$=”Operation Dialog Box”r=MsgBox(msg1$,34,msg2$)Print rEnd Sub【例3-3】编写程序，用MsgBox函数判断是否继续执行。
Private Sub Form_Click()msg$ = "请确认此数据是否正确"Title$ = "数据检查对话框"x = MsgBox(msg$, 19, Title$)If x = 6 ThenPrint x * xElseIf x = 7 ThenPrint "请重新输入"End IfEnd Sub【例3-5】Private Sub Form_Click()Print: PrintFontName = "隶书"FontSize = 16Print " 姓名"; Tab(8); "年龄"; Tab(16); "职务";Print Tab(24); "单位"; Tab(32); "籍贯"PrintPrint "吴大明"; Tab(8); 25; Tab(16); "职员"; Tab(24); "人事科"; Tab(32); "北京"End Sub【例3-6】Private Sub Form_Click()X = InputBox("请输入成绩", "学生成绩录入", "00")Print xEnd Sub【例3-7】Private Sub Form_Click()Dim x As Single, y As Singlex=InputBox(“请输入x的值”)If x>0 Then y=1 ElseIf x=0 Then y=0 Else y=-1Print “x=”; x ,”y=” ; yEnd Sub【例3-8】Private Sub Form_Click()Dim msg, UserInputmsg = "请输入一个字母或0～9之间的数字."UserInput = InputBox(msg) ‘输入一个字母或数字If Not IsNumeric(UserInput) Then ‘判断是否是数字If Len(UserInput) = 1 Then ‘不是数字时，判断输入的字符串长度是否为1Select Case Asc(UserInput) ‘判断输入字母的ASCII 码值Case 60 To 90 '在60-90之间为大写字母msg = "你输入的是一个大写字母'"msg = msg & Chr(Asc(UserInput)) & "'。
"Case 97 To 122 '小写字母msg = "你输入的是一个小写字母'"msg = msg & Chr(Asc(UserInput)) & "'。
"Case Elsemsg = "你没有输入字母或数字."End SelectEnd IfElseSelect Case Val(UserInput) '将输入的数值型字符转换为数值Case 1, 3, 5, 7, 9 '如果是奇数msg = UserInput & " 是一个奇数。
"Case 0, 2, 4, 6, 8 '如果是偶数msg = UserInput & " 是一个偶数。
"Case Else '出界msg = "你输入的数字不在0～9范围内"End SelectEnd IfMsgBox msgEnd Sub【例3-8】Private Sub Form_Click()Dim msg, UserInputmsg = "请输入一个字母或0～9之间的数字."UserInput = InputBox(msg) ‘输入一个字母或数字If Not IsNumeric(UserInput) Then ‘判断是否是数字If Len(UserInput) = 1 Then ‘不是数字时，判断输入的字符串长度是否为1Select Case Asc(UserInput) ‘判断输入字母的ASCII 码值Case 60 To 90 '在60-90之间为大写字母msg = "你输入的是一个大写字母'"msg = msg & Chr(Asc(UserInput)) & "'。
"Case 97 To 122 '小写字母msg = "你输入的是一个小写字母'"msg = msg & Chr(Asc(UserInput)) & "'。
"Case Elsemsg = "你没有输入字母或数字."End SelectEnd IfElseSelect Case Val(UserInput) '将输入的数值型字符转换为数值Case 1, 3, 5, 7, 9 '如果是奇数msg = UserInput & " 是一个奇数。
"Case 0, 2, 4, 6, 8 '如果是偶数msg = UserInput & " 是一个偶数。
"Case Else '出界msg = "你输入的数字不在0～9范围内"End SelectEnd IfMsgBox msgEnd Sub【例3-10】Sub Form_Click()Dim N As Integern = InputBox("Enter N:") ‘输入N的值k = 1For i = 1 To N ‘循环N次，计算出N！k = k * INext iPrint N;”!=”;k ‘数据输出End Sub【例3-12】Dim S, NS = 0: N = 0Do While S <= 100N = N + 1S = S + NLoopPrint S, N【例3-13】Private Sub Form_Click()Dim char As StringCount = 0char = InputBox("请输入一个字符")While char <> "?"Count = Count + 1char = InputBox$("请输入一个字符")WendPrint "输入的字符数是:"; CountEnd Sub【例3-14】Private Sub Form_Click()Print " *";For i = 1 To 9Print Tab(i * 6); i;Next iPrintFor j = 1 To 9Print j;For k = 1 To jPrint Tab(k * 6); j * k; " ";Next kPrintNext jEnd Sub第4章课前体验（1）假定用来输入数学成绩的文本框名称为Text1，该文本框的LostFocus事件过程如下：Private Sub Text1_LostFocus()If Val(Text1.Text) < 0 Or Val(Text1.Text) > 100 ThenText1.Text = ""Text1.SetFocusEnd IfEnd Sub（2）其他文本框的LostFocus事件类似。
（3）假定按钮名称为Command1，该按钮的Click事件过程如下：Private Sub Command1_Click()If Check1.Value = 1 Then Sum = Sum + Val(Text1.Text)If Check2.Value = 1 Then Sum = Sum + Val(Text2.Text)If Check3.Value = 1 Then Sum = Sum + Val(Text3.Text)If Check4.Value = 1 Then Sum = Sum + Val(Text4.Text)If Check5.Value = 1 Then Sum = Sum + Val(Text5.Text)Text6.Text = SumEnd Sub【例4-1】Private Sub Command1_Click() ‘在其单击事件中编程For i = 1 To 6 ‘外循环，控制输出几行For j = 1 To i ‘内循环，控制输出几列Print " * ";Next jPrint ‘换行Next iEnd Sub【例4-2】Private Sub Text1_Change()Text2.Text = LCase(Text1.Text)Text3.Text = UCase(Text1.Text)End Sub【例4-3】Private Sub Check1_Click()Text1.FontUnderline = Not Text1.FontUnderlineEnd SubPrivate Sub Check2_Click()Text1.FontItalic = Not Text1.FontItalicEnd SubPrivate Sub Option1_Click()Text1.Font = "黑体"End SubPrivate Sub Option2_Click()Text1.Font = "宋体"End Sub【例4-4】Private Sub Command1_Click()If Option1 ThenText1.FontName = "宋体"ElseText1.FontName = "黑体"End IfIf Option3 ThenText1.FontSize = 8ElseText1.FontSize = 10End IfEnd SubPrivate Sub Command2_Click()EndEnd Sub【例4-5】Private Sub Form_Load()‘在窗体的Load事件中输入列表框的各个项目lstBooks.AddItem "计算机应用基础"lstBooks.AddItem "操作系统"lstBooks.AddItem "数据结构"lstBooks.AddItem "网络技术基础"End SubPrivate Sub cmdAdd_Click()‘单击添加命令按钮时将文本框中输入的内容添加到列表框中lstBooks.AddItem txtItemtxtItem = ""End SubPrivate Sub cmdDelete_Click()‘删除列表框中选中的项目lstBooks.RemoveItem lstBooks.ListIndexEnd SubPrivate Sub cmdModify_Click()‘所选项目显示在文本框中，等待修改txtItem.Text = lstBooks.TextcmdAdd.Enabled = FalsecmdDelete.Enabled = FalsecmdModify.Enabled = FalsecmdModify_OK.Enabled = TrueEnd SubPrivate Sub cmdModify_OK_Click()‘所选项目显示在文本框中修改完成后，按下修改确定按钮，更新列表框内容lstBooks.List(lstBooks.ListIndex) = txtItemcmdModify_OK.Enabled = TruecmdAdd.Enabled = TruecmdDelete.Enabled = TruecmdModify.Enabled = TruetxtItem = ""End Sub【例4-6】Private Sub Form_Click()Picture3.Picture=Picture1.PicturePicture1.Picture=Picture2.PicturePicture2.Picture=Picture3.PicturePciture3.Picture=LoadPicture() ‘把第3个图片框设置为空End sub【例4-7】Private Sub HScroll1_Change()Text1.Text = HScroll1.ValueEnd Sub【例4-8】Private Timer1_Timer()Labe1.Caption=Time$End Sub实训Private Sub Command1_Click()Debug.Print "姓名:"; Text1.TextDebug.Print "出生年月:"; Text2.TextDebug.Print "籍贯:"; Text3.TextIf Option1.Value Then Debug.Print "性别:"; "男"If Option2.Value Then Debug.Print "性别:"; "女"Debug.Print "民族:"; Combo1.TextIf Check1.Value = 1 Then Debug.Print "健康" Else Debug.Print "不健康"Debug.Print "职称:"; Combo3.TextDebug.Print "工资:"; Text4.TextDebug.Print "外语熟练程度"; HScroll1.ValueDebug.Print "简历:"; Text5.TextEnd Sub第5章课前体验Private Sub Command6_Click()Const n = 10 ‘定义常量n的值为10Max = 0: K = 0 ‘最高分及所在位置赋初值For i = 1 To nb(i) = InputBox("请输入第"& i &"个同学的成绩",求最高分) ‘输入成绩If b(i) > Max ThenMax = b(i)K = I ‘将第i个成绩与最高分Max相比，如果比最高分高，则保存起来End IfNext iPrint"最高分是第"& K &"个同学，其成绩是："& MaxEnd Sub【例5-1】Option Base 1Private Sub Command1_Click()Dim a(3) As Integera(1) = 1: a(2) = 3: a(3) = 5Print a(1)Print a(2)Print a(3)End Sub【例5-2】For i=1 To 10b(i) = InputBox("请输入第" & i & "个数")Next i【例5-3】For i=1 To 2For j=1 To 2b(i,j) = i+jNext jNext i【例5-4】Dim S(3，2) As Integer程序如下：For i = 0 To 3Print Tab(5); ‘输出位置定位For j = 0 To 2S(i, j) = i * 2 + j ‘给各元素赋值Print S(i, j);图5-4 使用二维数组打印出的图形Next jPrint ‘换行Next i【例5-5】Private Sub Form_Click()Dim s(5) As Integer '定义数组SConst n = 5For i = 1 To ns(i) = Val(InputBox("请输入第" & LTrim$(Str$(i)) & "个数", 数据排序))‘输入n个数，转换成数值后保存在数组中。