1编写程序，将26个字母逆序输出教材p87【例4-15】2、编写程序，在窗体上随机输出一个10--99之间的两位整数。

Private Sub Form_Click()clRan domizePrint Int(Rnd() * 90) + 10End Sub3、在窗体的单击事件中编写程序，从键盘输入3个数，按从小到大的顺序输出到窗体上。

Private Sub Form_Click()clsa = Val(I nputBox("a二"))b = Val(I nputBox("b二"))c = Val(I nputBox("c二"))If a > b The nt = a: a = b: b = tEnd IfIf a > c The nt = a: a = c: c = tEnd IfIf b > c The nt = b: b = c: c = tEnd IfPrint "按从小到大排序后的结果：";a; " 、"; b; " 、"; cEnd Sub4、编写程序，要求随着不断单击命令按钮Commandl,窗体的标题依次显示为: 今天是星期一T今天是星期二T今天是星期三T今天是星期四T今天是星期五今天是星期日。

T今天是星期六TPrivate Sub Comma nd1_Click()Static i As In tegeri = i + 1Select Case iCase 1Form1.Capti on 二”今天是星期一Case 2Form1.Capti on 二”今天是星期二Case 3Form1.Capti on 二”今天是星期三Case 4Form1.Capti on 二”今天是星期四Case 5Form1.Capti on 二”今天是星期五Case 6Form1.Capti on 二”今天是星期六Case 7Form1.Capti on 二”今天是星期日i = 0End SelectEnd Sub5、编写程序，将字符串""山高人为峰""按逆序""峰为人高山""输出。

Private Sub Comma nd1_Click()clss ="山高人为峰"s1 =""For i = Len(s) To 1 Step -1s1 = s1 & Mid(s, i, 1)NextPrint s1End Sub6、使用文本框输入长方形的长和宽，用MsgBox输出长方形的周长和面积・Private Sub Form_Click()l = Val(Text1.Text)h = Val(Text2.Text)MsgBox "长是"+ Str(l) + " 宽是"+ Str(h) + _"的长方形” + Chr(10) + "面积是:"+ Str(l * h) + _Chr(10) + " 周长是:"+ Str(2 * (l + h))End Sub7、输入 x ,计算 y 的值。

其中：y=1+3x (x>=0); y=1-5x (x<0)Private Sub Form_Click() cis x = Val(l nputBox("x=")) If x >= 0 The n y = 1 + 3 * x Elsey = 1 - 5 * x End IfPrint "x="; x;" 时 y="; y End Sub8在窗体的单击事件过程中，编写程序计算1! +2! +3! + (15)9、编程计算从200到1000之间的所有4的倍数之和Private Sub Form_Click() cis Sum = 0For i = 200 To 1000 Step 4 Sum = Sum + i NextPrint "200-1000 中 4 的倍数和是:";SumEnd Sub10、编写程序，通过InputBox函数从键盘上输入4个数，计算并在窗体上显示这4个数的和及平均值Private Sub Form_Click()cisSum = 0For i = 1 To 4x = Val(lnputBox(" 接收 4 个数"))Sum = Sum + xNextPrint "和是";SumPrint " 平均值是";Sum / 4End Sub11、编写程序,点击命令按钮Commandl时，两个文本框textl与text2中的内容进行交换。

Private Sub Comma nd1_Click()t = Text1.TextText1.Text = Text2.TextText2.Text = tEnd Sub12、用InputBox函数输入3个数据，判断这3个数据是否可以组成三角形，如果能够组成三角形，计算并在窗体上输出三角形的面积。

构成三角形的条件是：任意两边之和大于第三边。

面积公式为area=,其中S=(A+B+C)/2，A、B、C为三条边的长度。

Private Sub Form_Click()clsa = Val(I nputBox("a二"))b = Val(I nputBox("b二"))c = Val(I nputBox("c二"))If a + b > c And a + c > b And b + c > a The ns = (a + b + c) / 2area = Sqr(s * (s - a) * (s - b) * (s - c))Print " 边长为:";a; b; c;" 的三角形面积为：";area End IfEnd Sub13、编程将一维数组A(10)中数组元素循环向后移动一个位置，最后一个元素移动到第一个元素的位置。

Private Sub Form_Click()Dim a(10) As In tegerRan domizeclsPrint "初始数组为："For i = 0 To 10a(i) = Int(Rnd * 10)Print a(i);NextPrintt = a(10)For i = 10 To 1 Step -1a(i) = a(i - 1)Nexta(0) = tPrint " 移位后数组为”For i = 0 To 10Print a(i);NextPrintEnd Sub14、使用InputBox函数输入圆半径r,使用文本框分别输出圆球表面积和圆球体积。

提示：圆球表面积公式为4*3・14*r;圆球体积公式为(3/4)*3・14*r3Private Sub Form_Click()r = Val(InputBox(" 圆半径:"))Text1.Text =" 半径为"+ Str(r) + " 的圆球表面积是” + Str(4 * 3.14 * r) Text2.Text =" 半径为"+ Str(r) + " 的圆球体积是"+ Str((3 / 4) * 3.14* r 八3)End Sub15、编写程序，在窗体上输出由1、2、3、4、5这五个数字组成的所有可能的两位数，并统计它们的个数。

精彩文档Private Sub Form_Click()CisFor i = 1 To 5Forj = 1 To 5gs = gs + 1Print i * 10 + j;If gs Mod 5 = 0 Then PrintNextNextEnd Sub16、在窗体上输出下三角的九九乘法表。

Private Sub Form_Click()CisFor i = 1 To 9For J = 1 To iPrint i; "*"; J; "="; Format(Str(i * J), "!@@");NextPrintNextEnd Sub17、编写程序，实现如下功能：使用InputBox函数输入一个数，单击窗体时，如果该数大于等于0,将其平方根输出到标签Lablel上，否则输出“数据不能为负数”的提示信息。

Private Sub Form_Ciick()x = Val(lnputBox(" 接收一个数"))If x >= 0 The nLabel1.Caption = Sqr(x)ElseMsgBox "数据不能为负数"End IfEnd Sub18、求s=a+aa+aaa+…+aaa…aaa（n个a）,其中a和n的值由用户自己输入。

例如，当a=3,n=4 时，S=3+33+333+333£佃、在窗体的单击事件中编写程序，要求：由文本框TEXT1输入一个0到6的数字，单击窗体时，在标签控件LABEL1上显示汉英对照星期信息，如：输入0,则显示星期日（SUNDAY）、输入1,则显示星期一（MONDAY ）,以此类推。

如果输入0--6以外的数据，用MsgBox信息框显示“输入数据错误”的提示信息。

Private Sub Form_Click() Dim d As In teger d = Val(Text1.Text) Select Case dCase 0Label1.Capti on = "Su nday"Case 1Label1.Captio n = "Mon day"Case 2Labell.Captio n = "Tuesday"Case 3Labell.Capti on 二"Wed nesday"Case 4Labell.Capti on = "Thursday"Case 5Labell.Captio n = "Friday"Case 6Labell.Captio n = "Saturday"Case ElseMsgBox "输入数据错误"End SelectEnd Sub20、从键盘输入一个半径，输出圆的面积和周长，输出要求有文字说明，保留两位小数。