VB上机练习题

1、1.1.新建工程，界面如下图，将窗体名称改为f1，标题属性为“我的第一个工程”，Text2允许多行, 三个命色。单击C3按钮结束程序运行。Private Sub Comma nd1_Click()Text1.F on t =黑体End SubPrivate Sub Comma nd2_Click()Text1.ForeColor = vbRedText2.ForeColor = vbBlueEnd SubPrivate Sub Comma nd3_Click()EndEnd Sub2.新建工程，界面如上图，运行时，鼠标在“改变窗体颜色”按钮上按下时使窗体背景色变为红色，鼠标 抬起时使窗体背景色

2、变为绿色。鼠标在窗体空白地方按下时使Text1的内容为“在窗体上按下了鼠标”，鼠标抬起时使Text1的内容为“在窗体上抬起了鼠标。Private Sub Command1_MouseDownCommand1_MouseDown(Butt on As In teger, Shift As In teger, X As Sin gle, Y As Sin gle)Form1.BackColor = vbRedEnd SubPrivate Sub Command1_MouseUpCommand1_MouseUp(Butt on As In teger, Shift As In teger, X As

3、 Si ngle, Y As Sin gle)Form1.BackColor = vbGree nEnd SubPrivate Sub Form_MouseDownForm_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Sin gle)Text1.Text =在窗体上按下了鼠标End SubPrivate Sub Form_MouseUpForm_MouseUp(Button As In teger, Shift As In teger, X As Sin gle, Y As Sin gle) Text1.Te

4、xt =在窗体上抬起了鼠标End Sub3.新建工程，界面如下图，运行时，在文本框同的内容，但字体不同(字体自定)。PrivatePrivate SubSub Command1_Click()Command1_Click()Text1.Text =Text2.Text =Text3.Text =End SubPrivatePrivate SubSub Command2_Click()Command2_Click()令按钮名称分别为C1、C2、C3，单击C1冠我的第一个工程可冈按钮将Textl的字体改为黑体，Text2的字TextlTextl体改为隶书。单击C2按钮将Textl的文字颜色改为红色

5、,Text2的背景颜色改为蓝VisualVisual BasicBasic是一种可视化的、面向驱垫的结构语a aText2Text2修改字体修改颜色退岀Text1中输入内容的同时，在文本框Text2、Text3中显示相EndEnd SubPrivatePrivate SubSub Text1_Change()Text1_Change()Text2.Text = Text1.TextText3.Text = Text1.TextEnd Sub注：“字体不同”可以在属性那调4.设计一个窗体，如上图所示。当单击某个命令按钮时，对文本框中的文字完成相应的设置。其中，每单击一次“增大”或“缩小”按钮将使

6、文本框中的文字增大或缩小5磅，“粗体”按钮将使文本框中的文字加粗，“斜体”按钮将使文本框中的文字倾斜，“下划线”按钮将使文本框中的文字加下划线，“删除线”按钮将使文本框中的文字加删除线。5.设计一个窗体，如下图所示。程序中将n定义成符号常量(用Con st),运行时，输入底面半径 柱高h,然后单击“计算”命令按钮，在相应文本框中显示计算结果。运算结果为只读。PrivatePrivate SubSub Command1_Click()Command1_Click()Const pi = 3.14h = Val(Text1)r = Val(Text2)Text3.Text = pi * r八2Te

7、xt4.Text = 2 * pi * r * hText5.Text = pi * r八2 * hEnd Sub6.设计界面如上图所示。单击“岀题”按钮，产生任意两个【 中，单击“计算”按钮，求两个数的和。运算结果为只读。PrivatePrivate SubSub Command1_Click()Command1_Click()Text1.Text = In t(100 * Rnd + 1)Text2.Text = In t(100 * Rnd + 1)End SubPrivatePrivate SubSub Command2_Click()Command2_Click()7.设计一个数字钟

8、表程序，界面如图所示。运行时单击窗体，显示当前的年月日星期及时间。PrivatePrivate SubSub Form_Click()Form_Click()Label2.Ca ption = Year(Now)Label4.Ca ption = Mon th(Now)Label6.Ca ption = Day(Now)Label9.Ca ptio n = Weekday(Now)Label11.Ca pti on = TimeEnd Sub“ Fo nt”PrivatePrivate SubSub Command1_Click()Command1_Click()Text1.Fo ntSize

9、 = Text1.Fo ntSize + 5End SubPrivatePrivate SubSub Command2_Click()Command2_Click()Text1.Fo ntSize = Text1.Fo ntSize - 5End SubPrivatePrivate SubSub Command3_Click()Command3_Click()Text1.Fo ntBold = TrueEnd SubPrivatePrivate SubSub Command4_ClickOCommand4_ClickOText1.F on tItalic = TrueEnd SubPrivat

10、ePrivate SubSub Command5_Click()Command5_Click()Text1.F ontUn derl ine = TrueEnd SubPrivatePrivate SubSub Command6_Click()Command6_Click()Text1.F on tStrikethru = TrueEnd Subr和圆1,100】之间的随机整数于Textl、Text2a = Val(Text1.Text) b =Val(Text1.Text)Text3.Text = a + b End Sub8.设计一个数学函数程序，界面如图所示。程序运行时，在文本框中输入任

11、意数值，单击相应按钮标签 中显示结果。文本框始终处于选中状态。PrivatePrivate SubSub Command1_Click()Command1_Click()Label3.Ca ptio n = Abs(Val(Text1)Text1.SetFocus Text1.SelStart = 0Text1.SelLe ngth = Le n(Text1.Text)End SubPrivatePrivate SubSub Command2_Click()Command2_Click()Label3.Ca ption = Sqr(Val(Text1)Text1.SetFocus Text1.

12、SelStart = 0Text1.SelLe ngth = Le n(Text1.Text)End SubPrivatePrivate SubSub Command3_Click()Command3_Click()Label3.Ca ptio n = Fix(Val(Text1)Text1.SetFocus Text1.SelStart = 0TextI.SelLe ngth = Le n(Textl.Text) End SubPrivatePrivate SubSub Command4_Click()Command4_Click()Label3.Ca ption = In t(Val(Te

13、xt1)Text1.SetFocusText1.SelStart = 0Text1.SelLe ngth = Le n(Text1.Text) End SubPrivatePrivate SubSub Command5_Click()Command5_Click()Label3.Ca ption = Sg n(Val(Text1)Text1.SetFocusText1.SelStart = 0Text1.SelLe ngth = Le n(Text1.Text) End Sub9.设计一工程，在文本框中输入一整数，单击“判断”按钮，判断能否同时被MsgBox函数显示“能同时被3、5、7整除”，

14、否则显示“不能整除”。PrivatePrivate SubSub Command1_Click()Command1_Click()a = Val(Text1)If a Mod 3 = 0 And a Mod 5 = 0 And a Mod 7 = 0 The nMsgBox 能同时被3、5、7整除ElseMsgBox 不能整除End IfEnd Sub10.设计一个计算购书价钱的程序，界面如下图所示。为了提高运行速度，设置价后，焦点定位到输入数量文本框中。单击“计算总价”或用访问键，算岀总价。总价文本框要求为只 读属性。完成相应功能。PrivatePrivate SubSub Command1

15、_Click()Command1_Click()a = Val(Textl)b = Val(Text2)Text3.Text = a * b11.设计一工程，界面如上图所示。程序运行，单击“计算”，求岀对应角度的三角函数的绝对值于文本框Text2中，同时要求选中文本框Textl内容，以便继续输入。PrivatePrivate SubSub Command1_Click()Command1_Click()a = Val(Textl)b = a * 3.14 / 180c = Abs(Si n(b)d = Abs(Cos(b)Text2.Text = Text2.Text & a &

16、; Sp ace(10) & Format(c, 0.000) _& Sp ace(10) & Format(d, 0.000) & vbCrLfText1.SetFocus Text1.SelStart = 0Text1.SelLe ngth = Le n(Text1.Text)End Sub3、5、7整除，若能用Tab键序，使得输入完单End SubPrivatePrivate SubSub Command2_Click()Command2_Click()EndEnd Sub13.输入一个学生的学号和考试成绩，然后按如图格式在图片框中输岀学号、考试成绩及评语

17、，评语：90100优秀；8089良好；7079中等；6069及格；059不及格。PrivatePrivate SubSub Command1_Click()Command1_Click()a = Val(Text2)Select Case aCase 90 To 100h =优秀Case 80 To 89h =良好Case 70 To 79 h =中等Case 60 To 6914.设计一个窗体Forml，界面如上图所示。编写适当的事件过程， 程序运行后在第一个文本框中输入圆 的半径， 单击“计算”按钮，分别在第二个和第三个文本框中显示圆的面积和周长。PrivatePrivate SubSub

18、 Command1_Click()Command1_Click()a = Val(Text1)Text2.Text = a人2 * 3.1415.设计一个程序，用户界面如下图所示。程序运行后，单击PrivatePrivate SubSub Command1_Click()Command1_Click()a = Val(Text1):b = Val(Text2):c = Val(Text3)If a b The n t = a: a = b: b = tIf a c The n t = a: a = c: c = tIf b c The n t = b: b = c: c = tText4.Te

19、xt = aText5.Text = cEnd Sub16.界面如下图所示。编写适当的事件过程，程序运行后在三个文本框中分别输入三角形的边长值，单击“判断并计算”按钮，判断它们是否能组成三角形，若能组成三角形在Text4中显示三角形的面积否则在Text4中显示“FALSE”。12设计一个程序， 用户界面如下图所示。 程序运行后， 单击“计算”， 求岀应付款额； 单击“清 除”，清除所有文本框内容。PrivatePrivate SubSub Command1_Click()Command1_Click()a = Val(Text1)b = Val(Tex t2)c = Val(Tex t3) T

20、ext4.Text = a * b * cEnd SubPrivatePrivate SubSub Command2_Click()Command2_Click()Text1.Text =Text2.Text =Text3.Text =Text4.Text =End SubIlliIlliIlliIlliIlliIlliIlliIllih =及格Case 0 To 59 h =不及格End SelectP icture1. PrintPicture1.Print 学号：& Text1.TextP icture1. PrintPicture1.Print 分数：& a &

21、 Space(3) & hEnd SubText3.Text = 2 * a * 3.14End SubComma nd1按钮，求岀最大、最小数。PrivatePrivate SubSub Command1_Click()Command1_Click()a = Val(Text1):b = Val(Text2):c = Val(Text3)If a + b c Or a + c b Or b + c c Or Abs(a - c) b Or Abs(b - c) a The n Text4.Text = FALSEElseh = (a + b + c) / 2s = Sqr(h * (

22、h - a) * (h - b) * (h - c)Text4.Text = Format(s, 0.00)End IfEnd Sub17.设计一个程序运行界面如下图所示，将输入的三个不同数，按从小到大的顺序排列。PrivatePrivate SubSub Command1_Click()Command1_Click()a = Val(Text1):b = Val(Text2):c = Val(Text3)If a b The n t = a: a = b: b = tIf a c The n t = a: a = c: c = tIf b 100000End SubPrivate Sub C

23、omma nd2_Click()s = 019.在窗体上画两个文本框输入a和n的值(a和n均为一位数字)，单击命令按钮输出Sn=a+aa+aaa+aaaa+aaa(最后一项n个a,例如3+33+333+3333)的值于标签中。PrivatePrivate SubSub Command1_Click()Command1_Click()a = Text1.textn = Val(Text2)Sn = 0For i = 1 To n20.单击命令按钮将3到200之间的所有奇数显示在列表框中。PrivatePrivate SubSub Command1_Click()Command1_Click()F

24、or i = 3 To 200 Ste p 2List1.Addltem i21.在窗体上画一文本框用于输入n值，画两个命令按钮分别求下述表达式的值S1=4咒(1-1+1-+(-1)n比1)352 n - 1For i = 1 To 20n = 1For k = 1 To in = n * kNext ks = s + nNext iLabel2.Ca pti on = sEnd Subb = Stri ng(i, a)Sn = Sn + Val(b)Next iLabel1.Ca ptio n = SnEnd SubNext iEnd SubS2=1S2=1X 3 3X5 5X 7 7X-X

25、 (2n-1)(2n-1)并将S1、S2的结果输出到图片框。PrivatePrivate SubSub Command1_Click()Command1_Click() n = Val(Text1)s = 0For i = 1 To ns = s + (-1) A (i + 1) / (2 * i - 1) NextiS2 = 1For i = 1 To nS2 = S2 * (2 * n - 1)Next iP icture1. Print 4 * s22.在文本框T1中打印100999之间的所有水仙花数。(该数为各位数字的立方和。例如：153=13+53+33)PrivatePrivate

26、 SubSub Command1_Click()Command1_Click()For i = 100 To 999a = Fix(i / 100)b = Fix(i / 10) - a * 10c = i - Fix(i / 10) * 10If a A 3 + b A 3 + c A 3 = i The n T1.Text = T1.Text & i & vbCrLfNext iEnd Sub23.有一数列，它的头2个数为0、1,以后的每个数都是其前2个数之和。编程在文本框T1中输岀所有 这些数列，直到第30个数或最后一项等于1000为止，同时在另一文本框中输岀它们的和。P

27、rivatePrivate SubSub Command1_Click()Command1_Click()a = 0: b = 1: s = 0Text1.Text = a & vbCrLf & b & vbCrLfFor i = 1 To 14s = s + a + ba = a + b24.设计如下图所示界面，单击时输岀相应结果，现。25.界面如上图，单击各按钮时输入行数，按此行数在窗体上显示不同的图形(参考教材练习PrivatePrivate SubSub Command1_Click()Command1_Click()Clsa = Val(InputBox(请输

28、入行数)For i = 1 To aP icture1. Print S2End Subb = a + bText1.Text = Text1.Text & a & vbCrLf & b & VbCrLfNext iText2.Text = sEnd Sub2N之间素数在列表框中输岀，要求判断素数用过程实FunctionFunction h(ah(a AsAs Integer)Integer) AsAs BooleanBooleanDim m As In teger, s As Boolea nm = 0For i = 2 To (a - 1)If a Mod

29、i = 0 The n m = m + 1Next iIf m = 0 The n s = True Else s = False h = sEnd Fun cti onPrivatePrivate SubSub Command1_Click()Command1_Click()Dim a As In tegera = Val(Text1)If h(a) = False The nText2.Text =不是素数ElseText2.Text =是素数End IfEnd SubPrivatePrivate SubSub Command2_Click()Command2_Click()Dim i A

30、s In tegera = Val(Text1)For i = 2 To aIf h(i) = True The n List1.AddItem i Next iEnd Sub6-15)。Next iEnd SubPrivatePrivate SubSub Command2_Click()Command2_Click()Clsa = Val(InputBox(请输入行数)Print Tab(i); Stri ng(a, *)For i = 1 To aPrint Tab(a - i + 1); String(2 * i - 1, *)Next iEnd SubPrivatePrivate Su

31、bSub Command3_Click()Command3_Click()Clsa = Val(InputBox(请输入行数)For i = a To 1 Step -1Print Tab(a - i + 1); Stri ng(2 * i - 1, *)Next i26.设计如下图所示界面，单击时输岀N!和1!+2!+N!结果，要求N!用过程实现。FunctionFunction h(nh(n AsAs Integer)Integer) AsAs IntegerIntegerDim s As In tegers = 1For i = 1 To ns = s * iNext ih = sEnd

32、 Fun cti onPrivatePrivate SubSub Command1_Click()Command1_Click()Dim n As In teger n = Val(Text1)28.界面如下图所示。分别在Textl和Text2中输入两个自然数x、y，用展转相除的方法求自然数 最大公约数和最小公倍数。在窗体上显示结果。Dim a As In teger, b As In teger, x As In teger,y As In teger,r as In tegerPrivatePrivate SubSub Command1_Click()Command1_Click()x =

33、 Val(Text1) y = Val(Text2) a = x: b = y r = x Mod y Do Whiler 0End SubPrivatePrivate SubSub Command4_Click()Command4_Click()Clsa = Val(InputBox(请输入行数) For i = aTo 1 Step -1Print Tab(a - i + 1); Stri ng(2 * i - 1,Sp ace(3); Stri ng(2 * (a - i) + 1, *)Next iEnd Sub*);Text2.Text = h(n)End SubPrivatePri

34、vate SubSub Command2_Click()Command2_Click()Dim n As In teger m = Val(Textl) s = 0For n = 1 To ms = s + h( n)Next nText3.Text = sEnd Sub27.编写一个程序，输岀一个5*5的矩阵，该矩阵主、负对角线上元素均为 结果如上图所示。Op tion Base 1Dim A(5, 5) As In tegerPrivatePrivate SubSub Form_Click()Form_Click()Fori = 1 To 5Forj = 1 To 5A(i, j) = 2

35、If i = j Then A(i, j) = 1If i + j = 6 The n A(i, j) = 1Next j, iFor i = 1 To 5Curre ntY = i * 300Forj = 1 To 5Curre ntX = j * 300Pri nt A(i, j);Next j, iEnd Sub1，其余元素均为2,执行y = rr = x Mod yLoopLabel3.Ca pti on = yEnd SubPrivatePrivate SubSub Command2_Click()Command2_Click()Label4.Ca ption = a * b / y

36、End SubX,y的冠求杲大公约数 5 摄小公倍数回田诘输入第二个数Label3Label3Label4Label429.仿照25题画四个命令按钮，单击各按钮在图片框上显示如下不同的数据图形。PrivatePrivate SubSub Command1_Click()Command1_Click()Fori = 1 To 6For j = i To 1 Ste p -1Print j;Next jPrintNext iEnd SubPrivatePrivate SubSub Command2_Click()Command2_Click()For i = 6 To 1 Step -1Print

37、 Sp ace(18 - 3 * i);Forj = 1 ToiPrint j;Next jPrintNext iEnd SubEnd Sub30.设计一个窗体FormI，编写适当的事件过程。控制 容为“欢迎学习VB”)程序运行界面如图所示。PrivatePrivate SubSub Check1_Click()Check1_Click()Text1.Fo ntBold = TrueEnd SubPrivatePrivate SubSub Check2_Click()Check2_Click()Text1.F on tItalic = True1-1-诘输入第 1 个数TextlTextlTe

38、xt2Text2PrivatePrivate SubSub Command3_Click()Command3_Click()Fori = 1 To 6Print Sp ace(18 - 3 * i);For j = i To 1 Ste p -1Print 7 - j;Next jPrintNext iEnd SubPrivatePrivate SubSub Command4_Click()Command4_Click()For i = 6 To 1 Step -1For j = i To 1 Ste p -1Print j;Next jPrintNext iText1中背景色和字体格式。（字

39、体默认为宋体，内End SubPrivatePrivate SubSub Check3_Click()Check3_Click()TextI.F ontUn derl ine = True End SubPrivatePrivate SubSub OpOp tion1tion1 Click()Click()Text1.BackColor = vbRedEnd SubPrivatePrivate SubSub OpOp tion2_Click()tion2_Click()Text1.BackColor = vbYellowEnd SubPrivatePrivate SubSub OpOp tio

40、n3_Click()tion3_Click()TextI.BackColor = vbBlue End Sub31.利用两个列表框控件，设计选项移动窗体如上图。编写适当的事件过程实现功能要求。Private Sub Comma nd1_Click()If List1.ListCou nt = 0 The nMsgBox 列表中没有可选的列,注意Exit SubIf List1.List In dex = 0 The nFor i = 0 To List1丄istCount-1End IfEnd SubPrivatePrivate SubSub Command2_Click()Command2_

41、Click()For i = 0 To List1.ListCou nt - 1List1.Selected(0) = True32.设计界面如下图所示，运行时，(F-32)/9)PrivatePrivate SubSub Form_Load()Form_Load()VScrolH.Min = 100VScrolH.Max = 0End SubPrivatePrivateSubSubList2.AddItem Listl.Text ListI.Removeltem0Next iEnd SubPrivatePrivate SubSub Command4_Click()Command4_Click

42、()For i = 0 To List2丄istCou nt - 1List2.Selected(0) = True Listl.AddItemList2.Text List2.RemoveItem 0Next iEnd Sub当移动滚动条时，在标签中能正确显示摄氏、华氏温度值VScroll1_ChangeOVScroll1_ChangeO(C=5Label2.Ca ptio n = VScrolll.ValueLabell.Ca ptio n = Format(VScroll1.Value * 9 / 5 + 32, #.O) End Sub33.设计上面界面， 按“开始”按钮使标签在窗体上

43、从左向右移动， 当遇到窗体的右侧后， 改成从右向 左移动，按“停止”按钮停止标签移动。Dim a As In tegerPrivatePrivate SubSub Command1_Click()Command1_Click()Timer1.E nabled = TrueEnd SubPrivatePrivate SubSub Command2_Click()Command2_Click()34.编写一个程序，实现在标签中自动依次显示“祝你”，Dim a As In tegerPrivatePrivate SubSub Timer1_Timer()Timer1_Timer()a = a + 1

44、b = a Mod 3Timerl.E nabled = FalseEnd SubPrivatePrivate SubSub Timer1_Timer()Timer1_Timer()End Sub“考试”，“成功”。If b = 1 The n Labell.Ca ptio n =祝你If b = 2 The n Label1.Ca ptio n =考试If b = 0 The n Label1.Ca ptio n =成功 End Sub35.窗体上有一个名为L1的列表框，通过属性向列表框添加3个项目分别是“ 动后，每次双击列表框中任何一项，则总在最后添加一项，该项是所有项之和。界面如下图。b

45、 = Val(L1.List(i)s = s + bNext iL1.AddItem s End SubPrivatePrivate SubSubL1_DblClick()L1_DblClick()Dim b As Double, s As Double a = Val(L1丄istCou nt) s = 0For i = 0 To a36.设计如上界面，编写适当的事件过程。123、456、789”。当启程序运行后，每过1秒钟文本框的背景色能够由红到绿，绿If b = 1 The n TextI.BackColor = vbRedIf b = 2 The n Text1.BackColor =

46、 vbGreenIf b = 0 The n Text1.BackColor = vbBlue End Sub37.单击第一个按钮，生成20个0,100之间的随机整数，显示于文本框1中，单击第二个按钮，求这20个数中的最大数和最小数，显示于文本框Op tio n Base 1Dim a(20) As In tegerPrivatePrivate SubSub Command1_Click()Command1_Click()Text1.Text =For i = 1 To 20a(i) = In t(99 * Rnd - 0)Text1.Text = Text1.Text & a(i)

47、& vbCrLfNext iFori = 1 To 1938.编写程序，单击第一个按钮，用随机函数产生按钮，实现将第1行和第3行数据交换或第2列和第4列数据交换，输岀到图片框Dim A(1 To 4, 1 To 5) As In teger, B(1 To 4,1 To 5) As In tegerPrivatePrivate SubSub Command1_Click()Command1_Click()For i = 1 To 4s1 =Forj = 1 To 5A(i, j) = In t(91 * Rnd + 10) s1 = s1 & Sp ace(2) & A

48、(i,j) Next jP icture1. Print s1 & vbCrLfNext iEnd SubPrivatePrivate SubSub Command2_Click()Command2_Click()For i = 1 To 439.利用Function计算N!，求组合数cm -n!(m - n)!在文本框1中输入n,文本框2中输入m,单击命令按钮，在文本框FunctionFunction A(hA(h AsAs Integer)Integer) AsAs IntegerIntegerDim s As In teger, i As In tegers = 1Fori =

49、1 To hs = s * i到蓝，再由蓝到红循环变化。Dim a As In tegerPrivatePrivate SubSub Timer1_Timer()Timer1_Timer()a = a + 1b = a Mod 3For j = i + 1 To 20If a(i) a(j) Thent = a(i)a(i) = a(j)a(j) = tEnd IfNext j, iText2.Text = a(1) & Sp ace(3) & a(20) End Sub4行5列的两位整数并输岀到图片框1中。单击第二个2中。s1 =Forj = 1 To 5If i Mod 2

50、 0 The n c = 4 - iB(i, j) = A(c, j) s1 = s1 & Sp ace(2)& B(i, j) ElseB(i，j) = A(i, j)s1 = s1 & Sp ace(2) & B(i, j) End IfNext jP icture2. Print s1 & vbCrLf Next iEnd Subm!PrivatePrivate SubSub Command1_ClickOCommand1_ClickODim m As In teger, n As In teger, p As In teger, k As Dou

51、blen = Val(Text1): m = Val(Text2): p = m - nx = A(m): y = A( n): z = A(p)k = x / (y * z)Text3.Text = kEnd Sub2中。Next iA = sEnd Fun cti on40.生成两个010之间的随机整数矩阵，分别放入两个列表框，求两个矩阵之和放入第三个列表框。如 下图所示。PrivatePrivate SubSub Form_Load()Form_Load()Fori = 1 To 5s1 =Forj = 1 To 5a(i, j) = In t(R nd * 11)s1 = s1 &am

52、p; Format(a(i, j), !)Next jList1.Addltem s1 & vbCrLfNext iFor i = 1 To 5s1 =Forj = 1 To 5b(i, j) = In t(R nd * 11)s1 = s1 & Format(b(i, j), !)Next jList2.Addltem s1 & vbCrLf41.生成10个两位数的随机整数，放入A数组，由小到大排序，显示在文本框2中。(如上图)Op tio n Base 1Dim A(10) As In tegerPrivatePrivate SubSub Command1_Clic

53、k()Command1_Click()For i = 1 To 10A(i) = In t(91 * Rnd + 10)Text1.Text = Text1.Text & A(i) & Sp ace(1)Next iEnd SubPrivatePrivate SubSub Command2_Click()Command2_Click()Fori = 1 To 9For j = i + 1 To 1042.如下图，单击显示按钮，将20个随机两位整数，输岀在LIST1中；单击排序按钮，将使用子过程降序排序的结果输岀在LIST2中。Op tio n Base 1Dim A(10) A

54、s In tegerPrivatePrivate SubSub Command1_Click()Command1_Click()For i = 1 To 10A(i) = In t(91 * Rnd + 10)List1.Addltem A(i)Next iEnd SubPrivatePrivate SubSub Command2_Click()Command2_Click()Fori = 1 To 9For j = i + 1 To 10Next iEnd SubPrivatePrivate SubSub Command1_Click()Command1_Click()Fori = 1 To

55、 5s1 =Forj = 1 To 5c(i, j) = a(i, j) + b(i, j) s1 = s1 &Format(c(i, j), !) Next jList3.Addltem s1 & vbCrLfNext iEnd SubPrivatePrivate SubSub Command2_Click()Command2_Click()EndEnd Sub单击显示按钮全部显示在文本框1中，单击排序按钮If A(i) A(j) The nt = A(i)A(i) = A(j)A(j) = tEnd IfNext j, iFor i = 1 To 10Text2.Text

56、= Text2.Text & A(i) & Sp ace(1) Next iEnd SubIf A(i) A(j) The n t =A(i) A(i) = A(j) A(j)= tEnd IfNext j, iFor i = 1 To 10List2.Addltem A(i) NextiEnd Sub43.编写适当的事件过程，在窗体上输岀相应行数的杨辉三角形。点击窗体弹岀 框中输入行数，打印岀如上图所示形态的杨辉三角形。Dim A() As In tegerPrivatePrivate SubSub Form_Click()Form_Click()Dim m As In te

57、ger, n As In tegerm = Val(InputBox(请输入行数)n = mReDim A(m, n)For i = 0 To m - 1A(i, i) = 1A(i, 0) = 1Next i44.编写程序，实现矩阵转置，即将一个互换。单击显示按钮将原矩阵放在图片框Op tio n Base 1Dim a(4, 5) As In teger, b(5, 4) As In tegerPrivatePrivate SubSub Command1_Click()Command1_Click()Fori = 1 To 4s =Forj = 1 To 5a(i, j) = In t(9

58、1 * Rnd + 10)s = s & Sp ace(2) & a(i, j)Next jP icture1. Print sNext i45.编写函数过程计算1+2+3+。+n，运行时输入PrivatePrivate SubSub Command1_Click()Command1_Click()Dim m As In teger, n As In teger, p As In teger, k As Doublem = Val(Text1): n = Val(Text2): p = Val(Text3)x = A(m): y = A( n): z = A(p)k = (x

59、+ y) / zText4.Text = kEnd Sub46.利用控件数组Text1、Text2将Text1中随机产生的数，交换到Text2中，界面如下图所示。PrivatePrivate SubSub Command1_Click()Command1_Click() For k = 0 To 5Text2(k).Text = Text1(5 - k).Text Next kEnd SubInputBox对话框，在对话2。Print Tab(3 * m - 1); 1For i = 2 To n - 1s =Forj = 1 To i- 1A(i, j) = A(i - 1, j) + A(

60、i - 1, j - 1)s = s & Sp ace(5) & A(i, j)Next jPrint Tab(3 * (m - i); A(i, 0) & s & Sp ace(5) & A(i, i)Next iEnd Subn m的矩阵(均由随机函数产生，并且是两位整数)的行和列1，单击转置按钮将转置后的矩阵输岀在图片框End SubPrivatePrivate SubSub Command2_Click()Command2_Click()Fori = 1 To 5s =Forj = 1 To 4b(i, j) = a(j, i)s = s & Sp ace(2) & b(i, j)Next jPicture2 .Print sNext iEnd Subm,n,p的值，单击“丫=”输岀结果(保留三位小数）。y =（宀+宀丁“十匚十）如上图所示。(1+2+3 +. + P)FunctionFunction A(hA(h AsAs Integer)Integer) AsAs IntegerIntegerDim s As In teg