vb 程序题

一。随机数出一个小写字母
Private Sub Command1_Click()
Dim a As String
Randomize
a = 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 Double
n = 1
s = 0
For m = 1 To 10
n = n * m
s = s + 1 / n
Next
Print s
End Sub

三。编写一个函数，求两个数的最小数
Private Sub Form_Load()
Dim a%, b%
a = Val(InputBox("a="))
b = Val(InputBox("b="))
If a > b Then
Print "a>b"
Else
Print "aEnd If
End Sub

四。输入正方形的边长，并计算对角线长
Private Sub Form_Load()
Dim a%, b%
a = InputBox("请输入a的值")
b = Sqr(2) * a
Print "正方形的对角线长："; b
End 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 2
sum = sum + i * (i + 1)
Next i
Print sum
End Sub

六。编写一个函数，其功能是判断某个整数是不是素数，调用该函数，判断100001
是否是素数

Private Sub Command1_Click()
Dim a%, i%
a = InputBox("请输入a的值")
For i = 1 To a
If a Mod i = 0 Then
m = m + 1
End If
Next i
If m = 2 Then
MsgBox ("a是素数")
Else
MsgBox ("a不是素数")
End If
End Sub
七。计算sum=1+3+5+...+99

Private Sub Command1_Click()
Dim i As Integer, sum As Integer
sum = 0
For i = 1 To 100 Step 2
sum = sum + i
Next
text1.Text = sum
End Sub

八。输入一个两位数，分别输入它的个位数字和十位数字
Dim a%, b%, c%
a=val(inputbox "a=" )
b = a Mod 10
c = a \ 10
Print "各位数字为："; b; "十位数字为："
End Sub
九。计算1/1!+1/3！+1/5!+.....+1/99!
Private Sub Form_Load()
Dim i%, sum%, fact%
For i = 1 To 9
fact = fact * i
If i Mod 2 = 0 Then
sum = sum
sum = sum + 1 / fact
Next
Print sum
End Sub

十。编写程序，建立一个6*6的整型二维数组（数据由程序调用rnd函数产生{0,15}
的随机），输出数组中所有元素和

Private Sub Form_Load()
Option Base 1
For i = 1 To 6
For j = 1 To 6
a(i, j) = Int(Rnd * 15)
Next j
Next i
Sum = 0
For i = 1 To 6
For j = 1 To 6
Sum = Sum + a(i, j)
Next j
Next i
Print Sum
End Sub