(完整版)VB上机练习题

1、1 .新建工程,界面如下列图,将窗体名称改为fl,标题属性为“我的第一个工程 ,Text2允许多行,三个命令按钮名称分别为 C1、C2、03,单击C1按钮将Textl的字体改为黑体,Text2的字体改为隶书.单击02按钮将Textl的文字颜色改为红色,Text2的背景颜色改为蓝色.单击03按钮结束程序运行.TextlText2Private Sub Command1_Click()Textl.Font =黑体End SubPrivate Sub Command2_Click()Text1.ForeColor = vbRedText2.ForeC010r = vbBlueEnd SubPriva

2、te Sub Command3_Click()EndEnd Sub2 .新建工程,界面如上图,运行时,鼠标在“改变窗体颜色按钮上按下时使窗体背景色变为红色,Text1的内容为“在窗体上按下了鼠标抬起时使窗体背景色变为绿色.鼠标在窗体空白地方按下时使 鼠标,鼠标抬起时使Text1的内容为“在窗体上抬起了鼠标Private Sub Command1_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)Form1.BackColor = vbRedEnd SubPrivate Sub Command1_Mo

3、useUp(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 S

4、ingle, Y As Single) Text1.Text = "ft窗体上抬起了鼠标"End Sub3 .新建工程,界面如下列图,运行时,在文本框Text1中输入内容的同时,在文本框Text2、Text3中显Text1.Text =""示相同的内容,但字体不同(字体自定)Private Sub Command1_Click()Text2.Text =""Text3.Text =""End SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Text1_Cha

5、nge()Text2.Text = Text1.TextText3.Text = Text1.TextEnd Sub文本框字体效果设置要使文本框能够 显示姜行文本可 以将其 MultiLitie属嶷动条,可以设置其 Scroll的门属性VOHX注：“字体不同可以在属性那调“ Font4 .设计一个窗体,如上图所示.当单击某个命令按钮时,对文本框中的文字完成相应的设置.其中,每单击一次“增大或“缩小按钮将使文本框中的文字增大或缩小5磅,“粗体按钮将使文本框中的文字加粗,“斜体按钮将使文本框中的文字倾斜, “删除线按钮将使文本框中的文字加删除线.Private Sub Command1_Click

6、() Text1.FontSize = Text1.FontSize + 5End SubPrivate Sub Command2_Click() Text1.FontSize = Text1.FontSize - 5End SubPrivate Sub Command3_Click()Text1.FontBold = TrueEnd Sub“下划线按钮将使文本框中的文字加下划线,Private Sub Command4_Click()Text1.FontItalic = TrueEnd SubPrivate Sub Command5_Click()Text1.FontUnderline =

7、TrueEnd SubPrivate Sub Command6_Click()Text1.FontStrikethru = TrueEnd Sub5 .设计一个窗体,如下列图所示.程序中将兀定义成符号常量(用 Const ),运行时,输入底面半径 和圆柱高h,然后单击“计算命令按钮,在相应文本框中显示计算结果.运算结果为只读.Private Sub Command1_Click()Const pi = 3.14h = Val(Text1)r = Val(Text2)Text3.Text = pi * r A 2Text4.Text = 2 * pi * r * hText5.Text = pi

8、 * r a 2 * hEnd Sub6 .设计界面如上图所示. 单击“出题按钮,产生任意两个11,100】之间的随机整数于 Textl、Text2中,单击“计算按钮,求两个数的和.运算结果为只读.Private Sub Command1_Click()Textl.Text = Int(100 * Rnd + 1)Text2.Text = Int(100 * Rnd + 1)End SubPrivate Sub Command2_Click() a = Val(Text1.Text) b = Val(Text1.Text) Text3.Text = a + bEnd Sub,在文本框中输入任意

9、数值,单击相应按钮Private Sub Command2_Click()Label3.Caption = Sqr(Val(Text1)Text1.SetFocusText1.SelStart = 0Text1.SelLength = Len(Text1.Text)End Sub7 .设计一个数字钟表程序,界面如下图.运行时单击窗体,显示当前的年月日星期及时间.Private Sub Form_Click() Label2.Caption = Year(Now) Label4.Caption = Month(Now) Label6.Caption = Day(Now) Label9.Capti

10、on = Weekday(Now) Label11.Caption = TimeEnd Sub8 .设计一个数学函数程序,界面如下图.程序运行时 标签中显示结果.文本框始终处于选中状态.Private Sub Command1_Click()Label3.Caption = Abs(Val(Text1)Text1.SetFocusText1.SelStart = 0Text1.SelLength = Len(Text1.Text)End SubPrivate Sub Command3_Click() Label3.Caption = Fix(Val(Text1) Text1.SetFocusT

11、ext1.SelStart = 0Text1.SelLength = Len(Text1.Text)End SubPrivate Sub Command4_Click() Label3.Caption = Int(Val(Text1) Text1.SetFocusText1.SelStart = 0Text1.SelLength = Len(Text1.Text)End SubPrivate Sub Command5_Click()Label3.Caption = Sgn(Val(Text1)Text1.SetFocusText1.SelStart = 0Text1.SelLength = L

12、en(Text1.Text)End Sub3、5、7整除,假设能9 .设计一工程,在文本框中输入一整数,单击“判断按钮,判断能否同时被用MsgBox函数显示“能同时被 3、5、7整除,否那么显示“不能整除Private Sub Command1_Click()a = Val(Text1)If a Mod 3 = 0 And a Mod 5 = 0 And a Mod 7 = 0 ThenMsgBox "能同时被3、5、7整除"ElseMsgBox "不能整除"End IfEnd Sub10 .设计一个计算购书价钱的程序,界面如下列图所示.为了提升运行速度

13、,设置Tab键序,使得输入完单价后,焦点定位到输入数量文本框中.单击“计算总价或用访问键,算出总价.总价文本框要 求为只读属性.完成相应功能.Private Sub Command1_Click() a = Val(Textl) b = Val(Text2) Text3.Text = a * bEnd SubPrivate Sub Command2_Click()EndEnd Sub*计算购书龄请输入单价：请输入颗量：总价:请输入能度I;计算X|5in X| |CosII忘求三角面款的绝对值 mrnirx计茸总价(C)23303540454eB0l 2 4 3173 后 o- 7 4 o 4

14、6 3556778 Qcio.o,o.0.321O.36&0.019O.76B 0.707O.S65 0.50011 .设计一工程,界面如上图所示.程序运行,单击“计算,求出对应角度的三角函数的绝对值于文本框Text2中,同时要求选中文本框Textl内容,以便继续输入.Private Sub Command1_Click()a = Val(Text1) b = a * 3.14 / 180c = Abs(Sin(b)d = Abs(Cos(b)Text2.Text = Text2.Text & a & Space(10) & Format(c, "0.

15、000") _& Space(10) & Format(d, "0.000") & vbCrLfText1.SetFocusText1.SelStart = 0Text1.SelLength = Len(Text1.Text)End Sub12 .设计一个程序,用户界面如下列图所示.程序运行后,单击“计算,求出应付款额；单击“去除去除所有文本框内容.Private Sub Command1_Click() a = Val(Text1) b = Val(Text2) c = Val(Text3)Text4.Text = a * b * cEn

16、d SubPrivate Sub Command2_Click()Text1.Text =""Text2.Text =""Text3.Text =""Text4.Text =""End Sub13.输入一个学生的学号和测试成绩,然后按如图格式在图片框中输出学号、测试成绩及评语,评语:90100优秀；8089良好；7079中等；6069及格；0-59不及格.Private Sub Command1_Click() a = Val(Text2)Select Case aCase 90 To 100h ="优秀

17、"Case 80 To 89h ="良好"Case 70 To 79h ="中等"Case 60 To 69h ="及格"Case 0 To 59h ="不及格"End SelectPicture1.PrintPicture1.Print "学号："& Text1.TextPicture1.PrintPicture1.Print "分数:"& a & Space(3) & hEnd SubForml学号 200 712047成绩 y2

18、学号：2007120471植R： 92优秀匚二二 Zi输入国的半径;国的面积;园的周长;14.设计一个窗体 Forml,界面如上图所示.编写适当的事件过程,程序运行后在第一个文本框中输 入圆的半径,单击“计算按钮,分别在第二个和第三个文本框中显示圆的面积和周长.Private Sub Command1_Click()Text3.Text = 2 * a * 3.14a = Val(Text1)End SubText2.Text = a A 2 * 3.1415.设计一个程序,用户界面如下列图所示.程序运行后,单击Private Sub Command1_Click()a = Val(Text1

19、):b = Val(Text2):c = Val(Text3)If a < b Then t = a: a = b: b = tIf a < c Then t = a: a = c: c = tIf b < c Then t = b: b = c: c = tText4.Text = aText5.Text = cEnd SubCommand1按钮,求出最大、最小数.16 .界面如下列图所示.编写适当的事件过程,程序运行后在三个文本框中分别输入三角形的边长值,单击“判断并计算按钮,判断它们是否能组成三角形,假设能组成三角形在Text4中显示三角形的面积,否那么在Text4中显

20、示“ FALSE.Private Sub Command1_Click()a = Val(Text1):b = Val(Text2):c = Val(Text3)If a + b < c Or a + c < b Or b + c < a Or Abs(a - b) > c Or Abs(a - c) > b Or Abs(b - c) > a Then Text4.Text = "FALSE"Elseh = (a + b + c) / 2s = Sqr(h * (h - a) * (h - b) * (h - c) Text4.Text

21、 = Format(s, "0.00")End IfEnd Sub17 .设计一个程序运行界面如下列图所示,将输入的三个不同数,按从小到大的顺序排列.Private Sub Command1_Click()a = Val(Text1):b = Val(Text2):c = Val(Text3)If a < b Then t = a: a = b: b = tIf a < c Then t = a: a = c: c = tIf b < c Then t = b: b = c: c = tText1.Text = c: Text2.Text = b: Tex

22、t3.Text = aEnd Sub18.在窗体上画两个命令按钮分别求 11+22+33+44+nn小于100000最大值和2020!的累加和并将结果输出到 Label1和Label2中.n! 1! 2! 3!n 1Private Sub Command1_Click() n = 0: s = 0 Do n = n + 1 s = s + n A n Label1.Caption = s Loop Until s > 100000End SubPrivate Sub Command2_Click() s = 0For i = 1 To 20 n = 1For k = 1 To i n =

23、 n * kNext k s = s + n Next i Label2.Caption = sEnd Sub19 .在窗体上画两个文本框输入 a和n的值a和n均为一位数字,单击命令按钮输出Sn=a+aa+aaa+aaaa+aaa 最后一项n个a,但J如3+33+333+3333的值于标签中.Private Sub Command1_Click() a = Text1.text n = Val(Text2) Sn = 0 For i = 1 To nb = String(i, a) Sn = Sn + Val(b) Next iLabel1.Caption = Sn End Sub20 .单击

24、命令按钮将3到200之间的所有奇数显示在列表框中.Private Sub Command1_Click()For i = 3 To 200 Step 2List1.AddItem iNext iEnd SubS1=4 (11 135S2=1X3X5X7X x (2n-1)并将六S1、S2的结果输出到图片框.21 .在窗体上画一文本框用于输入 n值,画两个命令按钮分别求下述表达式的值S2 = 1For i = 1 To nS2 = S2 * (2 * n - 1)Next iPicture1.Print 4 * sPicture1.Print S2Private Sub Command1_Cli

25、ck() n = Val(Text1) s = 0For i = 1 To ns = s + (-1) a (i + 1) / (2 * i - 1) Next iEnd Sub22 .在文本框T1中打印100999之间的所有水仙花数.(该数为各位数字的立方和.例如：153=1 3+5 3+3 3 )Private Sub 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 Then T1.Te

26、xt = T1.Text & i & vbCrLfNext iEnd Sub23 .有一数列,它的头 2个数为0、 1,以后的每个数都是其前 2个数之和.编程在文本框 T1中输出所有这些数列,直到第30个数或最后一项等于Private Sub Command1_Click()a = 0: b = 1: s = 0Text1.Text = a & vbCrLf & b & vbCrLfFor i = 1 To 14s = s + a + ba = a + b24 .设计如下列图所示界面,单击时输出相应结果, 程实现.Function h(a As Inte

27、ger) As BooleanDim m As Integer, s As Booleanm = 0For i = 2 To (a - 1)If a Mod i = 0 Then m = m + 1Next iIf m = 0 Then s = True Else s = Falseh = sEnd FunctionPrivate Sub Command1_Click()Dim a As Integera = Val(Text1)1000为止,同时在另一文本框中输出它们的和.b = a + bText1.Text = Text1.Text & a & vbCrLf &

28、b & vbCrLfNext iText2.Text = sEnd Sub2N之间素数在列表框中输出,要求判断素数用过If h(a) = False ThenText2.Text ="不是素数"ElseText2.Text ="是素数"End IfEnd SubPrivate Sub Command2_Click()Dim i As Integera = Val(Text1)For i = 2 To aIf h(i) = True Then List1.AddItem iNext iEnd Sub25 .界面如上图,单击各按钮时输入行数,Priv

29、ate Sub Command1_Click() Clsa = Val(InputBox("请输入行数")For i = 1 To aPrint Tab(i); String(a, "*")Next iEnd SubPrivate Sub Command2_Click()Clsa = Val(InputBox("请输入行数")For i = 1 To aPrint Tab(a - i + 1); String(2 * i - 1, "*") Next iEnd Sub26 .设计如下列图所示界面,单击时输出 N!和

30、Function h(n As Integer) As IntegerDim s As Integers = 1For i = 1 To ns = s * iNext ih = sEnd FunctionPrivate Sub Command1_Click()Dim n As Integer按此行数在窗体上显示不同的图形(参考教材练习6-15).Private Sub Command3_Click() Clsa = Val(InputBox("请输入行数")For i = a To 1 Step -1Print Tab(a - i + 1); String(2 * i -

31、1, "*")Next iEnd SubPrivate Sub Command4_Click()Clsa = Val(InputBox("请输入行数")For i = a To 1 Step -1Print Tab(a - i + 1); String(2 * i - 1, "*"); _Space(3); String(2 * (a - i) + 1, "*") Next iEnd Sub1!+2!+N!结果,要求 N!用过程实现.n = Val(Text1)Text2.Text = h(n)End SubPri

32、vate Sub Command2_Click()Dim n As Integer m = Val(Text1) s = 0For n = 1 To m s = s + h(n)Next nText3.Text = sEnd SubForilOption Base 1Dim A(5, 5) As IntegerPrivate Sub Form_Click()For i = 1 To 5Forj = 1 To 5A(i, j) = 2If i = j Then A(i, j) = 1If i + j = 6 Then A(i, j) = 1Next j, i28.界面如下列图所示.分别在For

33、i = 1 To 5CurrentY = i * 300Forj = 1 To 5CurrentX = j * 300Print A(i, j);Next j, iEnd SubTextl和Text2中输入两个自然数x、y,用展转相除的方法求自然数x,1 2 2 2 12 12 122 2 12 22 12 121 2 2 2127.编写一个程序,输出一个 5*5的矩阵,该矩阵主、负对角线上元素均为1,其余元素均为 2,执行结果如上图所示.y = r r = x Mod y Loop Label3.Caption = y End SubPrivate Sub Command2_Click()

34、Label4.Caption = a * b / y End Suby的最大公约数和最小公倍数.在窗体上显示结果.Dim a As Integer, b As Integer, x As Integer, y As Integer,r as IntegerPrivate Sub Command1_Click()x = Val(Text1)y = Val(Text2) a = x: b = y r = x Mod y Do While r <> 0事求最大公约数、最小公倍数BI3B请输入第一个数:请输入第二个数: iiaanB 求曷大公妁数求量小公倍数TextlText2Label3

35、Label429 .仿照25题画四个命令按钮,单击各按钮在图片框上显示如下不同的数据图形.6 5 4 3 2 15 4 3 2 14 3 2 13 2 12 111 212 312 3 412 3 4-512 3 4 5 66543216 6 6 6 6 65 5 5 5 54 4 4 43 3 32 2Private Sub Command1_Click()For i = 1 To 6For j = i To 1 Step -1Print j;Next jPrintNext iEnd SubPrivate Sub Command2_Click()For i = 6 To 1 Step -1P

36、rint Space(18 - 3 * i);Forj = 1 To iPrint j;Next jPrintNext iEnd SubPrivate Sub Command3_Click()Fori = 1 To 6Print Space(18 - 3 * i);For j = i To 1 Step -1Print 7 - j;Next jPrintNext iEnd SubPrivate Sub Command4_Click()For i = 6 To 1 Step -1For j = i To 1 Step -1Print j;Next jPrintNext iEnd Sub30 .设

37、计一个窗体Forml,编写适当的事件过程.内容为“欢送学习 VB)程序运行界面如下图.Private Sub Check1_Cllck()Textl.FontBold = TrueEnd SubPrivate Sub Check2_Click()Text1.FontItalic = TrueEnd SubPrivate Sub Check3_Click()Text1.FontUnderline = True End Sub限制Text1中背景色和字体格式.(字体默认为宋体,Private Sub Option1_Click()Text1.BackColor = vbRedEnd SubPriv

38、ate Sub Option2_Click()Text1.BackColor = vbYellowEnd SubPrivate Sub Option3_Click()Text1.BackColor = vbBlueEnd SubForml箱机音机炉 泳衣电合赛法 电洗彩组S 0口回口的口31 .利用两个列表框控件,设计选项移动窗体如上图.Private Sub Command1 Click()If List1.ListCount = 0 ThenMsgBox "列表中没有可选的列","注意Exit SubIf List1.ListIndex >= 0 The

39、nFor i = 0 To List1.ListCount - 1End IfEnd Sub32 .设计界面如下列图所示,运行时,当移动滚动条时,(F-32) /9)编写适当的事件过程实现功能要求.Private Sub Command2_Click() For i = 0 To List1.ListCount - 1List1.Selected(0) = True List2.AddItem List1.Text List1.RemoveItem 0 Next i End SubPrivate Sub Command4_Click() For i = 0 To List2.ListCount

40、 - 1List2.Selected(0) = True List1.AddItem List2.Text List2.RemoveItem 0 Next i End Sub在标签中能正确显示摄氏、华氏温度值(C=5Private Sub Form_Load()VScrollI.Min = 100VScrollI.Max = 0End Sub33 .设计上面界面,按“开始按钮使标签在窗体上从左向右移动,当遇到窗体的右侧后,改成从右向左移动,按“停止按钮停止标签移动.Dim a As IntegerPrivate Sub Command1_Click()Timer1.Enabled = True

41、End SubPrivate Sub Command2_Click()Timer1.Enabled = FalseEnd SubPrivate Sub Timer1_Timer()34 .编写一个程序,实现在标签中自动依次显示“祝你Dim a As IntegerPrivate Sub Timer1_Timer()a = a + 1b = a Mod 3End Sub,“测试,“成功.If b = 1 Then Label1.Caption ="祝你"If b = 2 Then Label1.Caption ="测试"If b = 0 Then Labe

42、l1.Caption ="成功" End Sub35.窗体上有一个名为 L1的列表框,通过属性向列表框添加3个工程,分别是“ 123、456、789.当启动后,每次双击列表框中任何一项,那么总在最后添加一项,该项是所有项之和.界面如下列图.Private Sub L1_DblClick()Dim b As Double, s As Doublea = Val(L1.ListCount) s = 0For i = 0 To aPrivate Sub VScroll1_Change()Label2.Caption = VScroll1.ValueLabel1.Caption =

43、 Format(VScroll1.Value * 9 / 5 + 32, "#.0")End Subb = Val(L1.List(i) s = s + bNext iLI.AddItem sEnd Sub36.设计如上界面,编写适当的事件过程. 绿到蓝,再由蓝到红循环变化.Dim a As IntegerPrivate Sub Timer1_Timer()程序运行后,每过1秒钟文本框的背景色能够由红到绿,a = a + 1b = a Mod 337.单击第一个按钮,生成If b = 1 Then Text1.BackColor = vbRedIf b = 2 Then T

44、ext1.BackColor = vbGreenIf b = 0 Then Text1.BackColor = vbBlueEnd Sub20个0,100之间的随机整数,显示于文本框 1中,单击第二个按钮,求1中.单击第 2中.这20个数中的最大数和最小数,显示于文本框Option Base 1Dim a(20) As IntegerPrivate Sub Command1_Click()Text1.Text =""For i = 1 To 20a(i) = Int(99 * Rnd - 0)Text1.Text = Text1.Text & a(i) &

45、vbCrLf Next iFori = 1 To 1938.编写程序,单击第一个按钮,用随机函数产生 二个按钮,实现将第1行和第3行数据交换或第 Dim A(1 To 4, 1 To 5) As Integer, B(1 To 4,1 To 5) As IntegerPrivate Sub Command1_Click()For i = 1 To 4s1 =""Forj = 1 To 5A(i, j) = Int(91 * Rnd + 10)s1 = s1 & Space(2) & A(i, j)Next jPicture1.Print s1 & v

46、bCrLfNext iEnd SubPrivate Sub Command2_Click()For i = 1 To 42中.For 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) & Space(3) & a(20)End Sub4行5列的两位整数并输出到图片框 2列和第4列数据交换,输出到图片框s1 =""Forj = 1 To 5If i Mod 2 <> 0 Then c = 4 - iB(i,

47、 j) = A(c, j)s1 = s1 & Space(2) & B(i, j) ElseB(i, j) = A(i, j)s1 = s1 & Space(2) & B(i, j) End IfNext jPicture2.Print s1 & vbCrLf Next iEnd Subm!39.利用Function计算N!,求组合数o n!(m n)!Function A(h As Integer) As Integer Dim s As Integer, i As Integer s = 1For i = 1 To hs = s * iNext iA

48、 = sEnd Function在文本框1中输入n,文本框2中输入m,单击命令按钮,在文本框 3中显示组合结果.Private Sub Command1_Click()Dim m As Integer, n As Integer, p As Integer, k As Doublen = Val(Text1): m = Val(Text2): p = m - nx = A(m): y = A(n): z = A(p) k = x / (y * z)Text3.Text = kEnd Sub40.生成两个010之间的随机整数矩阵,分别放入两个列表框, 求两个矩阵之和放入第三个列表框. 如下列图所

49、示.Private Sub Form_Load()For i = 1 To 5s1 =""Forj = 1 To 5a(i, j) = Int(Rnd * 11)s1 = s1 & Format(a(i, j), "!")Next jList1.AddItem s1 & vbCrLfNext iFor i = 1 To 5s1 =""Forj = 1 To 5b(i, j) = Int(Rnd * 11)s1 = s1 & Format(b(i, j), "!")Next jList2.Ad

50、dItem s1 & vbCrLfNext iEnd SubPrivate Sub Command1_Click()For i = 1 To 5s1 =""Forj = 1 To 5 c(i, j) = a(i, j) + b(i, j)s1 = s1 & Format(c(i, j), "!")Next jList3.AddItem s1 & vbCrLfNext iEnd SubPrivate Sub Command2_Click()EndEnd Sub® Forml矩脸13 H 日 67 15 7 41 T 5 1

51、111 11 IT IS10 9 3 121.0 20 5,0 5 15 2 o O 17 3 1 8 6 17退出=10X41.生成10个两位数的随机整数,放入A数组, 单击显示按钮全部显示在文本框1中,单击排序按钮由小到大排序,显示在文本框2中.如上图For i = 1 To 942.如下列图,单击显示按钮,将 20个随机两位整数,输出在 程降序排序的结果输出在LIST2中.Option Base 1Dim A(10) As IntegerPrivate Sub Command1_Click()For i = 1 To 10A(i) = Int(91 * Rnd + 10)Text1.Te

52、xt = Text1.Text & A(i) & SpaceNext iEnd SubPrivate Sub Command2_Click()For j = i + 1 To 10If A(i) > A(j) Thent = A(i)A(i) = A(j)A(j) = tEnd IfNext j, iFor i = 1 To 10Text2.Text = Text2.Text & A(i) & Space(1)Next iEnd SubLIST1中；单击排序按钮,将使用子过Option Base 1Dim A(10) As IntegerPrivate S

53、ub Command1_Click()For i = 1 To 10A(i) = Int(91 * Rnd + 10)List1.AddItem A(i)Next iEnd SubPrivate Sub Command2_Click()For i = 1 To 9For j = i + 1 To 10If A(i) > A(j) Thent = A(i)A(i) = A(j)A(j) = tEnd IfNext j, iFor i = 1 To 10List2.AddItem A(i)Next iEnd Sub43.编写适当的事件过程,在窗体上输出相应行数的杨辉三角形.点击窗体弹出 对话

54、框中输入行数,打印出如上图所示形态的杨辉三角形.InputBox对话框,在Dim A() As IntegerPrivate Sub Form_Click()Dim m As Integer, n As Integer m = Val(InputBox("请输入行数") n = mReDim A(m, n) For i = 0 To m - 1A(i, i) = 1A(i, 0) = 1Next iPrint Tab(3 * m - 1); 1For i = 2 To n - 1s =""Forj = 1 To i- 1A(i, j) = A(i - 1, j) + A(i - 1, j - 1) s = s & Space(5) & A(i, j)Next iEnd SubPrivate Sub Command2_Click()Fori = 1 To 5s =""Forj = 1 To 4b(i, j) = a(j, i)s = s & Space(2) & b(i, j)Next jPicture2.Print sNext iEnd SubNext jPrint Tab(3 * (m - i); A(i,