重要vb编程.doc

一。随机数出一个小写字母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)Private Sub Command1_Click()Dim i%, sum%For i = 1 To 50 Step 2sum = sum + i * (i + 1)Next iPrint sumEnd Sub六。编写一个函数，其功能是判断某个整数是不是素数，调用该函数，判断100001是否是素数Private Sub Command1_Click()Dim a%, i%a = InputBox(请输入a的值)For i = 1 To aIf a Mod i = 0 Thenm = m + 1End IfNext iIf m = 2 ThenMsgBox (a是素数)ElseMsgBox (a不是素数)End IfEnd Sub七。计算sum=1+3+5+.+99Private Sub Command1_Click()Dim i As Integer, sum As Integersum = 0For i = 1 To 100 Step 2sum = sum + iNexttext1.Text = sumEnd Sub八。输入一个两位数，分别输入它的个位数字和十位数字Dim a%, b%, c%a=val(inputbox a= )b = a Mod 10c = a 10Print 各位数字为：; b; 十位数字为：End Sub九。计算1/1!+1/3！+1/5!+.+1/99!Private Sub Form_Load()Dim i%, sum%, fact%For i = 1 To 9fact = fact * iIf i Mod 2 = 0 Thensum = sumsum = sum + 1 / factNextPrint sumEnd Sub十。编写程序，建立一个6*6的整型二维数组（数据由程序调用rnd函数产生0,15的随机），输出数组中所有元素和Private Sub Form_Load()Option Base 1For i = 1 To 6For j = 1 To 6a(i, j) = Int(Rnd * 15)Next jNext iSum =