VB实验指导例题

1、实验A VB环境和可视化编程基础1（1）运行界面（2）参考代码：Private Sub Command1_Click()label3.Caption = text1.TextEnd Sub2模仿教材例1.1，将事件过程中自上而下移动改为自右向左移动，也要考虑文字出窗体边界的情况。（1）运行界面（2）参考代码：Private Sub Command1_Click()Timer1.Interval = 0Call mymoveEnd SubSub mymove()Label1.Move Label1.Left - 20If Label1.Left = 0 Then Label1.Left = Fo

2、rm1.WidthEnd SubPrivate Sub Command2_Click()Timer1.Interval = 200End SubPrivate Sub Timer1_Timer()Call mymoveEnd Sub3编写一程序，在文本框中统计在该窗口上鼠标单击的次数。（1）运行界面：（2）编写代码：Private Sub Form_Click()Text1 = Val(Text1) + 1End SubPrivate Sub Form_Load()Text1.Text = ""End Sub4代码：Private Sub Form_Click()Form1

3、.Caption = "鼠标单击"Form1.Picture = LoadPicture("d:1.jpg")End SubPrivate Sub Form_DblClick()Form1.Caption = "鼠标双击"Form1.Picture = LoadPicture("d:2.jpg")End SubPrivate Sub Form_Load()Form1.Picture = LoadPicture("d:3.jpg")End Sub5命令按钮、字号、内容和格式的复制练习（1）运行界面

4、（2）参考代码：Private Sub Command1_Click()Text1.FontName = "黑体"Text1.FontSize = 25End SubPrivate Sub Command2_Click()Text2.Text = Text1.SelTextText2.FontName = Text1.FontNameText2.FontSize = Text1.FontSizeText1.SetFocusEnd Sub实验B 顺序结构1 编一个华氏温度与摄氏温度之间转换的程序，要求用按钮实现转换。既单击“华氏转摄氏”按钮，则将华氏温度转换为摄氏温度；同样，

5、单击“摄氏转华氏”按钮，则将摄氏温度转换为华氏温度。代码：Private Sub Command1_Click()Dim f!, c!f = Val(Text1.Text)c = 5 / 9 * (f - 32)Text2.Text = Format(c, "0.00")End SubPrivate Sub Command2_Click()Dim f!, c!c = Val(Text2.Text)f = 9 / 5 * c + 32Text1.Text = Format(f, "0.00")End Sub2 （1）运行界面（2）参考代码Private S

6、ub Command1_Click()r = Text1.TextLabel1.Caption = Format(3.14 * r * r, ".00")Text1.SetFocusEnd SubPrivate Sub Command2_Click()r = Val(Text1.Text)Label2.Caption = Format(3.14 * 2 * r, ".00")Text1.SetFocusEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThenIf

7、 Not IsNumeric(Text1) ThenMsgBox "输入有误,请重输入"Text1.SetFocusText1.SelStart = 0Text1.SelLength = Len(Text1.Text)End IfEnd IfEnd SubPrivate Sub Text1_LostFocus()If Not IsNumeric(Text1) ThenMsgBox "输入有非数字字符,请重新输入", , "2-2"Text1.SetFocusText1.SelStart = 0Text1.SelLength = Len

8、(Text1.Text)End IfEnd Sub3 我国有13亿人口，按人口增长0.8%计算，多少年后我国人口超过26亿。（1）运行界面（2）参考代码Private Sub Command1_Click()a = Int(Log(2) / (Log(1 + 0.008) + 1Text1.Text = a & "年后,我国人口超过26亿"End Sub4 输入一字符串，分别调用Ucase、Len函数将其转换成大写字母并显示其字符串长度（1） 运行界面（2） 参考代码Private Sub Command1_Click()Text2.Text = UCase(Tex

9、t1.Text)Text3.Text = Len(Text1.Text)End Sub5 随机产生一个3位正整数，然后逆序输出，产生的随机数与逆序数同时显示。例如，产生735，输出是537（1）运行界面（2）参考代码：Private Sub Command1_Click()x = Int(899 + 1) * Rnd + 100)a = x 100b = (x Mod 100) 10c = x Mod 10Text1.Text = xText2.Text = c * 100 + b * 10 + aEnd Sub6 使用Mid、Left、Right函数。在Text1文本框中输入一字符串，在la

10、bel1、Label2、Label3中显示如图的效果。（1） 运行界面（2）参考代码：Private Sub Form_Click()Text1.FontSize = 16Label1.FontSize = 16Label2.FontSize = 16Label3.FontSize = 16Text1.Text = "VisualBasic程序设计教程(第三版)"Label1.Caption = Left(Text1.Text, 11)Label2.Caption = Mid(Text1.Text, 12, 6)Label3.Caption = Right(Text1.Te

11、xt, 5)End Sub7 Print方法练习，显示字符图形。（1） 运行界面（2）参考代码：（a）Private Sub Command1_Click()PrintFor i = 1 To 5Print Tab(13 - 2 * i); String(2 * i - 1, ""); Spc(22 - 4 * i); String(2 * i - 1, "")Next iEnd SubPrivate Sub Command2_Click()Form1.ClsEnd Sub（b）Private Sub Command1_Click()PrintFor i

12、 = 1 To 5Print Tab(13 - 2 * i); String(2 * i - 1, ""); String(11 - 2 * i, ""); String(2 * i - 1, "")Next iEnd SubPrivate Sub Command2_Click()Form1.ClsEnd Sub8 用InputBox输入一个正实数，用Print方法在一行上显示出它的平方和平方根、立方和立方根，每个数保留三位小数，其间有间隔。(1)运行界面(2)参考代码：Private Sub Command1_Click()x =

13、Val(InputBox("输入一个正实数")Form1.Print Format(x * x, ".000"); Spc(5); Format(Sqr(x), ".000"); Spc(5); Format(x * x * x, ".000"); Spc(5); Format(x (1 / 3), ".000")End Sub实验C 选择结构一、 实验目的1 掌握逻辑表达式的正确书写形式2 掌握单分支与双分支条件语句的使用。3 掌握多分支条件语句的使用。4 掌握情况语句的使用及其与多分支条件语

14、句之间的区别。二、实验内容1、在购买某物品时，若所标明的价钱x在下述范围内，所付钱y按对应所扣支付：提示：此题用多分支结构实现，注意计算公式和条件表达式的正确书写。实验目的：掌握多边if语句的正确使用实验步骤：1 新建新工程2 要求单击窗体提示物品的价钱，最后在窗体上显示所付钱y 代码如下：Private Sub Form_Click() Dim x As Single, y As Single x = Val(InputBox("请输入物品价钱：") If x < 1000 Then y = x ElseIf x >= 1000 And x < 2000

15、 Then y = 0.9 * x ElseIf x >= 2000 And x < 3000 Then y = 0.8 * x ElseIf x >= 3000 Then y = 0.7 * x End If Print "所付钱为：" yEnd Sub2、编一程序输入上网的时间并计算上网费用，计算的方法如下：同时为了鼓励多上网，每月收费最多不超过150元。提示：首先利用多分支条件更具三个时间段算出费用，然后再用if语句对超过150元的费用设置为150元。略：提示和第一题类似3、输入x,y,z三个数，按从大到小的次序显示。实验目的：掌握单边或嵌套if语句

16、的使用实验步骤：1 新建工程2 代码如下：Private Sub Form_click() Dim x As Integer, b As Integer, z As Integer, d As Integer dim x!,y!,z!x = InputBox("请输入第一个数") y = InputBox("请输入第二个数") z = InputBox("请输入第三个数") Print "排序前" x; Spc(5); y; Spc(5); z If x < y Then d = x: x = y: y =

17、d End If If y < z Then d = y: y = z: z = d End If If x < y Then d = x: x = y: y = d End IfPrint "排序后" x; Spc(5); y; Spc(5); zEnd Sub4、利用实验c的思想，随机产生3个整数，按从小到大的顺序显示。Private Sub Form_click() Dim x As Integer, y As Integer, z As Integer, d As Integer Randomize x = Int(Rnd * 101): y = Int

18、(Rnd * 101): z = Int(Rnd * 101) Print "排序前" x; Spc(5); y; Spc(5); z If x > y Then d = x: x = y: y = d End If If y > z Then d = y: y = z: z = d End If If x > y Then d = x: x = y: y = d End IfPrint "排序后" x; Spc(5); y; Spc(5); zEnd Sub5、利用计算机解决古代数学问题“鸡兔同笼问题”。即已知在同一笼子里有总数为m只

19、鸡和兔，鸡和兔的总脚数为n只，求鸡和兔各有多少只？实验目的：掌握if语句使用，分析解题中出现的可能情况，避免出现不合理的结果，提高解决实际问题的能力。实验步骤：1 创建新工程界面如上2 代码如下：Private Sub Form_Load() Label1.Caption = "输入总只数" Label2.Caption = "输入总脚数" Label3.Caption = "求得鸡数" Label4.Caption = "求得兔数" Text1.Text = "" Text2.Text = &

20、quot;" Text3.Text = "" Text4.Text = ""End SubPrivate Sub Form_Load() Label1.Caption = "输入总只数" Label2.Caption = "输入总脚数" Label3.Caption = "求得鸡数" Label4.Caption = "求得兔数" Text1.Text = "" Text2.Text = "" Text3.Text = &qu

21、ot;" Text4.Text = ""End SubPrivate Sub Text2_LostFocus() Dim m%, n%, y% m = Val(Text1) n = Val(Text2) If n Mod 2 <> 0 Then MsgBox ("脚数必定为偶数") Text2 = "" Text2.SetFocus Else y = n / 2 - m If y < 0 Then MsgBox "脚数必须>=2倍的头数,", vbOKOnly, "sy2

22、 - 5" Text2 = "" Text2.SetFocus Else x = m - y Text3 = x Text4 = y End If End IfEnd Sub6、输入一元二次方程ax2+bx+c=0的系数a,b,c,计算并输出一元二次方程的连个根x1，x2.实验步骤：1 创建一个新的工程2 代码如下：Private Sub Command1_Click() Dim a As Single, b As Single, c As Single a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.T

23、ext) If a <> 0 Then delta = b 2 - 4 * a * c re = -b / (2 * a) If delta > 0 Then sb = Sqr(delta) / (2 * a) Text4.Text = Str(re + sb) Text5.Text = Str(re - sb) ElseIf delta = 0 Then Text4.Text = Str(re) Text5.Text = Str(re) Else xb = Sqr(-delta) / (2 * a) Text4.Text = Str(re) & "+&qu

24、ot; & Str(xb) & "i" Text5.Text = Str(re) & "-" & Str(xb) & "i" End If Else If b <> 0 Then ygz = -b / c Text4.Text = Str(ygz) Else Text4.Text = "方程无意义！" End If End IfEnd SubPrivate Sub Command2_Click() EndEnd SubPrivate Sub Form_Load()

25、 Text1 = "": Text2 = "" Text3 = "": Text4 = "" Text5 = ""End Sub7、编一模拟袖珍计算器的完整程序，。要求：输入两个操作数和一个操作符，根据操作符决定所做的运算。实验目的：掌握select case语句的使用1 新建一个工程2 代码如下：Private Sub Command1_Click() op = Trim(Text3.Text) Select Case op Case "+" Text4.Text = Va

26、l(Text1) + Val(Text2) Case "-" Text4.Text = Val(Text1) - Val(Text2) Case "*" Text4.Text = Val(Text1) * Val(Text2) Case "/" If Val(Text2) = 0 Then MsgBox "除数不能是零！，重新输入" Text2 = "" Text2.SetFocus Else Text4.Text = Val(Text1) / Val(Text2) End If End Sel

27、ectEnd SubPrivate Sub Command2_Click() EndEnd SubPrivate Sub Form_Load() Text1.Text = "": Text2.Text = "" Text3.Text = "": Text4.Text = ""End SubPrivate Sub Command2_Click() EndEnd SubPrivate Sub Form_Load() Text1.Text = "": Text2.Text = ""

28、 Text3.Text = "": Text4.Text = ""End Sub8、输入一个数字（17），分别通过select语句和choose函数两种方法用英文显示对应的星期一星期日略:参考书上例子4.10实验D循环结构一、 实验目的 1 掌握for语句的使用 2 掌握Do语句的各种形式的使用 3 掌握如何控制循环条件，防止死循环或不循环二、实验内容实验目的：掌握单循环结构以及tab、trim函数的使用。1、利用单循环结构显示如图所示的界面实验步骤：1 创建一个新的工程2 代码如下Private Sub Form_Click() For i = 1 T

29、o 9 Print Tab(10 - i); String(2 * i - 1, Trim(Str(i) Next iEnd Sub2、用单循环实现如图的界面实验步骤1 创建一个新的工程2 主要代码如下：For i = 1 To 9 Print Tab(i); String(2 * (10 - i), Trim(Chr(i + 64)Next i3、计算s=1+1/2+1/4+1/7+1/11+1/16+1/22+1/29+.当第i项的值<10-4时结束。提示：找出规律，第i项的分母是前一项的分母加i开始计数。可利用for循环结构的循环控制变量获得项数，当某项达到规定的精度时退出循环。实

30、验目的：利用循环，计算部分级数和。实验步骤：1 创建一个新的工程，窗体布局如右图2 代码如下：Private Sub Command1_Click() Dim s!, t!, i& s = 1: t = 1: i = i Do While 1 / t > 0.00001 t = t + i s = s + 1 / t i = i + 1 Loop Print "Do while结构" s, i - 1; "项"End SubPrivate Sub Command2_Click() Dim s!, t!, i& s = 1: t =

31、1 For i = 1 To 100000 t = t + i s = s + 1 / t If 1 / t < 0.00001 Then Exit For Next i Print "for 结构" s, i; "项"End Sub4、计算的近似值，的计算公式为：=实验步骤： 1 新建一个工程 2 代码如下：注意溢出问题Private Sub Form_Click() Dim i As Long, s As Double s = 2 n% = Val(InputBox("输入n的值：") For i = 1 To n s =

32、s * (2 * i) 2) / (2 * i - 1) * (2 * i + 1) Next i Print "当n为：" n; "时计算结果为" sEnd Sub5、求sn=a+aa+aaa+aaaa+.+aaa(n个a)，其中a是一个随机数产生的19（包括1，9）中的一个正整数，n是一个随机产生的510（包括5，10）中的一个数。实验目的：学会根据问题的要求找规律、写通项；掌握循环的正确使用。实验步骤：1 新建一个工程2 代码如下：Private Sub Form_Click() Dim s!, t!, i!, a%, n% a = Int(Rnd

33、 * 9 + 1) n = Int(Rnd * 6 + 5) Print "a=" & a; "n=" & n t = 0: s = 0 For i = 1 To n t = t * 10 + a s = s + t Print t; Next i Print "s=" sEnd Sub6、编一程序，显示出所有的水仙花数。所谓水仙花数，是指一个3位数，其各位数字立方和等于数字本身。提示：解该题的方法有两种：1 利用三重循环，将三个数连接成一个3位数进行判断。实验步骤：1 新建一个工程2 代码如下：Private Sub

34、 Form_Click()Dim i%, j%, k% For i = 1 To 9 For j = 0 To 9 For k = 0 To 9 a = i 3 + j 3 + k 3 b = i & j & k If a = Val(b) Then Print b & "是水仙花数" End If Next k Next j Next iEnd Sub2 利用单循环将一个3位数逐位分离后进行判断。实验步骤：1 新建一个工程2 代码如下：Private Sub Form_Click() Form1.FontSize = 24 For n = 100

35、To 999 a = Int(n / 100) 'a100 b = Int(n - a * 100) / 10) '(a mod 100)10 c = n - (a * 100 + b * 10) 'a mod 10 p = a 3 + b 3 + c 3 If p = n Then Print p Next n End Sub7、用迭代法求x=.求立方根的迭代公式为：迭代到为止，为方程的近似解。实验目的：利用迭代公式求方程的近似解。实验步骤：1 新建一个工程2 代码如下：Private Sub Form_Click() Dim a!, x0!, x1! a = 27

36、x0 = 2 i = 0 Do i = i + 1 x1 = 2 * x0 / 3 + a / (3 * x0 * x0) If Abs(x1 - x0) < 0.00001 Then Exit Do x0 = x1 Loop Print "迭代结果为：" x1; "迭代次数为：" i Print "利用乘方运算结果为：" a (1 / 3)End Sub8、一个富翁视图与陌生人做一笔还钱生意，还钱规则为：陌生人每天给富翁10万元钱，直到满一个月（30天）；而符文第一天给陌生人1分钱，第二天2分，第三天4分，.富翁每天给陌生人的

37、钱是前一天的两倍，直到满一个月。分别显示富翁给陌生人的钱和陌生人给富翁的钱为多少？实验步骤：参考答案1 新建一个工程2 代码如下：Private Sub Form_Click() Print "富翁给陌生人的钱为：" Dim i As Integer, x As Single, s As Single i = 0: x = 0.01: s = 0.01 While i < 30 x = x * 2 s = s + x i = i + 1 Wend Print s * 100 Print "陌生人给富翁的钱为：" & 100000 * 30E

38、nd Sub9、用计算机安排考试日程。期末某专业在周一周六的6天时间内要考x，y，z三门课程，考试顺序为先考x，然后考y，最后考z，规定一天只能考一门，且z课程只能安排在周五或周六考。编写程序安排考试日程（即x，y，z三门课程各在哪一天考），要求列出满足条件的所有方案。实验步骤：实验步骤：参考答案1 新建一个工程2 代码如下：Private Sub Form_Click() Dim i%, j%, k% For i = 1 To 6 For j = 1 To 6 For k = 5 To 6 If i < j And j < k Then Print "x在周"

39、 & i, "y在周" & j, "z在周" & k End If Next k Next j Next iEnd Sub实验E 数组和自定义类型1、随机产生30100的10个整数，求最大值，最小值，平均值，并显示整个数组的值和结果。Dim a(10) As IntegerPrivate Sub Form_Activate()Dim i As Integer, max As Integer, min As Integer, avg As IntegerRandomizeFontSize = 15For i = 1 To 10 a(

40、i) = Int(Rnd * 71 + 30) Print a(i);NextPrint " "max = a(1)For i = 2 To 10 If max < a(i) Then max = a(i) End IfNextPrint "max=" maxmin = a(1)For i = 2 To 10 If min > a(i) Then min = a(i) End IfNextPrint "min=" minavg = 0For i = 1 To 10 avg = avg + a(i)Nextavg = avg

41、 / 10Print "avg=" avgEnd Sub2、已知6个学生的成绩，通过对数组赋初值的方法，利用String函数，以每五分为一个标记显示，并显示学生的成绩。Dim a(6) As IntegerPrivate Sub Form_Activate()Dim i As Integer, j As Integer, k As IntegerFontSize = 10a(1) = 56a(2) = 78a(3) = 98a(4) = 88a(5) = 76a(6) = 78For i = 1 To 6 j = a(i) 5 Print String(j, Chr(17)

42、; a(i)NextEnd Sub3、随机产生20个学生的成绩，统计各个分数段人数。即059、6069、7079、8089、90100，并显示结果，产生数据在Picture1中显示，统计结果在Picture2中显示。Dim a(20) As IntegerPrivate Sub Command1_Click()Dim i As IntegerRandomizeFor i = 1 To 20 a(i) = Int(Rnd * 101) Picture1.Print a(i); " " If i Mod 4 = 0 Then Picture1.Print End IfNextE

43、nd SubPrivate Sub Command2_Click()Dim s(9) As Integer, j As Integer, k As IntegerFor j = 1 To 20 k = a(j) 10 Select Case k Case 0 To 5 s(5) = s(5) + 1 Case 9 To 10 s(9) = s(9) + 1 Case 6 To 8 s(k) = s(k) + 1 End SelectNextFor j = 0 To 9 If s(j) <> 0 Then Picture2.Print "s(" j; "

44、)的人数有：" s(j); "个" End IfNextEnd Sub4、随机产生10个2位数，按照从大到小的递减顺序排列，并显示排序结果。Dim a(10) As IntegerPrivate Sub Form_Activate()Dim i As Integer, j As Integer, t As IntegerFontSize = 15For i = 1 To 10 a(i) = Int(Rnd * 90 + 10) Print a(i); " "NextPrintFor i = 1 To 9 For j = i + 1 To 10

45、If a(i) < a(j) Then t = a(i): a(i) = a(j): a(j) = t End If NextNextFor i = 1 To 10 Print a(i); " "NextEnd Sub5、在通用段声明两个二维数组，利用随机函数形成各个元素。要求：1）以下三角形显示A数组，上三角形显示B数组。2）求A数组主对角线元素之和和B数组副对角线元素之和。Dim a(4, 4) As Integer, b(4, 4) As IntegerDim i As Integer, j As Integer, sum1 As Integer, sum2 A

46、s IntegerPrivate Sub Command1_Click()For i = 1 To 4 For j = 1 To i Picture1.Print a(i, j); " " NextPicture1.PrintNextEnd SubPrivate Sub Command2_Click()For i = 1 To 4 If i <> 1 Then For k = 1 To 6 * (i - 1) Picture2.Print " " Next End If For j = i To 4 Picture2.Print b(i, j

47、); " " NextPicture2.PrintNextEnd SubPrivate Sub Command3_Click()Dim x As Integer, y As IntegerFor i = 1 To 4 For j = 1 To 4 If i = j Then x = x + a(i, j) End If If i + j = 5 Then y = y + b(i, j) End If NextNext Picture3.Print x Picture3.Print yEnd SubPrivate Sub Form_Activate()For i = 1 To

48、 4 For j = 1 To 4 a(i, j) = Int(90 * Rnd + 10) b(i, j) = Int(900 * Rnd + 100) NextNextFor i = 1 To 4 For j = 1 To 4 Picture4.Print a(i, j); " " NextPicture4.PrintNextFor i = 1 To 4 For j = 1 To 4 Picture5.Print b(i, j); " " NextPicture5.PrintNextEnd Sub6、输入整数n,显示出具有n行的杨辉三角形。Dim a

49、()Private Sub Form_Load()Form1.FontSize = 22Label1.FontSize = 18Label1.Caption = "输入行数："Text1.FontSize = 18Text1.Text = ""End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)Dim n As IntegerIf KeyAscii = 13 Thenn = Val(Text1.Text)ClsIf n > 10 ThenMsgBox "请不要超过10！"E

50、xit SubEnd IfReDim a(n, n)For i = 1 To na(i, 1) = 1: a(i, i) = 1Next iPrint Tab(20); Format(1, "!") & Chr(13)Print Tab(18); Format(1, "!") & Space(2) & Format(1, "!") & Chr(13)For i = 3 To nPrint Tab(20 - i * 2); Format(a(i, 1), "!") & Spac

51、e(2);For j = 2 To i - 1a(i, j) = a(i - 1, j - 1) + a(i - 1, j)Print Format(a(i, j), "!");Next jPrint Space(2) & Format(a(i, i), "!") & Chr(13)Next iEnd IfEnd Sub7、设计一个选课的运行界面，它包含2个列表框，左边为已经开设的课程名称，通过Form_Load事件加入，并按拼音字母排序；当单击某课程名称后，将该课程加入到右边列表框，并在左边列表框中删除该课程，当左边课程数已满5门时，不

52、允许再加入，出现消息框提示信息。Dim a As IntegerPrivate Sub Form_Load()List1.AddItem "Web程序设计"List1.AddItem "多媒体技术与应用"List1.AddItem "网络技术与应用"List1.AddItem "软件技术基础"List1.AddItem "VB程序设计"List1.AddItem "数据库技术与应用"List1.AddItem "硬件技术基础"List1.AddItem &

53、quot;C/C+程序设计"List1.AddItem "大学计算机基础"End SubPrivate Sub List1_Click()a = a + 1If a > 5 Then MsgBox "超过5门课程，不能再选", 0, "提示" Exit SubEnd IfList2.AddItem List1.TextList1.RemoveItem List1.ListIndexEnd Sub8、思考练习9、思考练习10、参考代码： Private Type zgtype no As Integer name As

54、String * 10 pay As SingleEnd TypeDim s() As zgtype, n As IntegerPrivate Sub Command1_Click()Dim t As zgtypen = n + 1ReDim s(1 To n)With s(n) .no = Val(Text1.Text) .name = Text2.Text .pay = Val(Text3.Text)End With Picture1.Print s(n).no; " " s(n).name; " " s(n).payEnd SubPrivate Sub Command2_Click()Dim t As zgtypePicture1.ClsFor i = 1 To n - 1 For j = i + 1 To n If s(j).pay > s(i).pay Then t = s(j): s(j) = s(i): s(i) = t End If NextNextFor i = 1 To n Picture1.Print s(i).no, s(i).name, s(i).payNextEnd Sub实验F 过程1、编一子程