重要vb编程.docVIP

一。随机数出一个小写字母 Private Sub Command1_Click()Dim a As StringRandomizea = Chr(Int(97 + 26 * 26))MsgBox (a)End Sub 二。计算1/1！+1/2！+。。。。+1|10！ Private Sub Command1_Click()Dim m As Integer, n As Long, s As Doublen = 1s = 0For m = 1 To 10n = n * ms = s + 1 / nNextPrint sEnd Sub 三。编写一个函数，求两个数的最小数 Private Sub Form_Load()Dim a%, b%a = Val(InputBox(a=))b = Val(InputBox(b=))If a b ThenPrint abElsePrint abEnd IfEnd Sub 四。输入正方形的边长，并计算对角线长 Private Sub Form_Load()Dim a%, b%a = InputBox(请输入a的值)b = Sqr(2) * aPrint 正方形的对角线长：; bEnd Sub五。计算并输出下面级数前n项和中偶数项和s=1*2+2*3+3*4+4*5+。。。。+n*(n+1) Pr