VB实例源码【完整版】
VB小程序代码实例
VB小程序代码实例1.打印负数并分别计算正负数只和：有如下10个数：-2，73，82，-76，-1，24，321，-25，89，-20(也可以定位其他数值) 打印出其中的每个负数，分别计算并输出正数和负数的和。
程序如下：Sub Form_Click()Dim number AS IntegerNegativeSum=0:PostiveSum=0For i=1 To 10number=InputBox("Enter data: ")If number<0 ThenPrint number;NegativeSum=NegativeSum+numberElsePostiveSum=PostiveSum+numberEnd IfNext iprintprint "NegativeSum=";NegativeSumPrint "PostiveSum=";PostiveSumEnd Sub2.打印九九表：在窗体上打印九九表：程序如下：Print Sub Form_Click()FontSize=12Print Tab(30);"9*9 T able"Print:Print '输出两个空行Print "* ";For i=1 To 9Print Tab(i*6);i; '打印横行序号Next iFor j=1 To 9Print j;" "; '打印竖行序号For k=1 To jtemp=j*kPrint Tab(k*6);temp;" "; '打印乘积Next kPrint '输出一个空行Next jEnd Sub3.打印人员名册打印人员名册:Private Sub Form_Click()Print:PrintFontName="魏碑"FontSize=16Print "姓名";Tab(8);"年龄";Tab(16);"职务";Tab(24);"单位";Tab(32);"籍贯"PrintPrint "张得功";Tab(8);"25";Tab(16);"科长";Tab(24);"劳动科";Tab(32);"北京"Print "李德生";Tab(8);"32";Tab(16);"处长";Tab(24);"科研处";Tab(32);"上海" End Sub4.单选按钮设置字体类型和大小单选按钮设置字体类型和大小:在窗体上画出两个框架，每个框架内分别画两个单选按钮，然后画两个命令按钮和一个文本框。
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通讯源代码
VB与串行通信编程实例代码如下:Private Sub Command1_Click()MSComm1.Output = "123456"End SubPrivate Sub Form_Load()MSComm1.PortOpen = TrueMSComm1.RThreshold = 1MSComm1.SThreshold = 1MSComm1.InputMode = comInputModeText Text1 = ""End SubPrivate Sub MSComm1_OnComm()Select Case mEventCase comEvSendText1 = "comEvSend"Case comEvReceiveText1 = "comEvReceive"Case comEvCTSText1 = "comEvCTS"Case comEvDSRText1 = "comEvDSR"Case comEvCDText1 = "comEvCD"Case comEvRingText1 = "comEvRing"Case comEvEOFText1 = "comEvEOF"End SelectEnd Sub以下参考MSDN：OnComm 常数常数值描述comEvSend 1 发送事件。
comEvReceive 2 接收事件。
comEvCTS 3 clear-to-send 线变化。
comEvDSR 4 data-set ready 线变化。
comEvCD 5 carrier detect 线变化。
comEvRing 6 振铃检测。
comEvEOF 7 文件结束。
MSComm 控件提供下列两种处理通讯的方式：事件驱动通讯是处理串行端口交互作用的一种非常有效的方法。
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实用案例50例
实验报告11实验报告2：实验题目1：设计窗体。
参考界面如下：运行前运行后要求：1）在窗体上添加一个标签，通过属性窗囗设置标签格式：Caption：字体格式Alignment：2—Center（居中）BorderStyle ：1—Fixed Single（有边框）Backstyle：0—Tansparent（背景透明）2）运行时，单击“字号”，将标签内容的字号设置为30；单击“加粗”，将标签内容加粗；单击“下划线”，则在标签内容下加下划线。
提示：字号FontSize、加粗FontBold、下划线FontUnderline实验题目1源程序代码：Private Sub Command1_Click()Label1.FontSize = 30End SubPrivate Sub Command2_Click()Label1.FontBold = trueEnd SubPrivate Sub Command3_Click()Label1.FontUnderline = TrueEnd Sub实验题目2：设计一个计算器。
参考界面如下：要求：1）实现算术运算（+、-、*、/）的功能；2）实现清除和结束的功能；3）实现清除后，将焦点移到第一个文本框中。
实验题目2源程序代码：Private Sub Command1_Click()Text3.Text = Val(Text1.Text) + Val(Text2.Text)End SubPrivate Sub Command2_Click()Text3.Text = Val(Text1.Text) - Val(Text2.Text)End SubPrivate Sub Command3_Click()Text3.Text = Val(Text1.Text) * Val(Text2.Text)End SubPrivate Sub Command4_Click()Text3.Text = Val(Text1.Text) / Val(Text2.Text)End Sub实验题目3：设计一个能够统计某学生三门课程成绩总分和平均分的程序。
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编程代码大全【范本模板】
vb编程代码大全1.数值型函数：abs(num): 返回绝对值sgn（num）：num>0 1；num=0 0；num<0 -1；判断数值正负hex(num）：返回十六进制值直接表示：＆Hxx 最大8位oct(num）: 返回八进制值直接表示：＆Oxx 最大8位sqr（num)：返回平方根num〉0int(num)：取整int(99。
8）=99; int（-99.2）=100fix（num)：取整fix(99。
8）=99；fix（-99.2)=99round（num，n)：四舍五入取小数位round(3。
14159,3)=3。
142 中点数值四舍五入为近偶取整round（3。
25，1)=3.2log（num）: 取以e为底的对数num〉0exp（n）: 取e的n次幂通常用num^nsin(num）: 三角函数,以弧度为值计算(角度＊Pai）/180=弧度con（num）; tan（num）; atn （num）2.字符串函数：len(str)：计算字符串长度中文字符长度也计为一!mid（str，起始字符,［读取长度］)：截取字符串中间子字符串left(str,nlen）：从左边起截取nlen长度子字符串right（str，nlen)：从右边起截取nlen长度子字符串Lcase（str）：字符串转成小写Ucase（str）：字符串转成大写trim(str）:去除字符串两端空格Ltrim(str）：去除字符串左侧空格Rtrim(str)：去除字符串右侧空格replace(str,查找字符串，替代字符串,［起始字符，替代次数，比较方法]):替换字符串注：默认值:起始字符1；替代次数不限;比较方法区分大小写(0)InStr(［起始字符，］str,查找字符串［，比较方法］):检测是否包含子字符串可选参数需同时选返回起始位置InStrRev（str,查找字符串[，起始字符］［,比较方法］):反向检测是否包含子字符串返回起始位置space（n）：构造n个空格的字符串string（n，str）：构造由n个str第一个字符组成的字符串StrReverse（str）：反转字符串split（str，分割字符串［，次数][，比较方法］)：以分割字符串为分割标志将字符串转为字符数组可选参数需同时选3.数据类型转换函数：Cint(str）:转换正数True —1；False 0；日期距离1899/12/31天数；时间上午段0;下午段1；Cstr（str)：日期输出格式yyyy/mm/dd;时间输出格式Am/Pm hh：mm：ssClng(str)：与Cin（）类似Cbool（num)：num不为零True;反之FalseCdate(str）：转换日期格式0：＃Am 12:00:00#；正数距离1899/12/31天数的日期；浮点数日期＋小数时间Cbyte（num）:num〈255 转换为字节Csng（str):转换为单精度数值Cdbl(str）：转换为双精度数值Ccur（str):转换为现金格式4。
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。