Visualbasic基本试题.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) 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+...+99 Private 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 = 0For i = 1 To 6For j = 1 To 6Sum = Sum + a(i, j)Next jNext iPrint SumEnd Sub ?