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窗体
表格控件的管理创建窗体登录代码
班级管理创建：命令按钮代码
班级管理创建：命令按钮代码
班级管理创建：命令按钮代码
班级管理创建：命令按钮代码
班级管理创建：命令按钮代码
班级管理创建：命令按钮代码
班级管理创建：命令按钮代码
班级管理创建：命令按钮代码
- 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个数，转换成数值后保存在数组中。