vb复习题二.doc

vb复习题二.docVB想考满分吗。。。天外飞仙
一。 随机数出一个小写字母
Private Sub Commandl_Click()
Dim a As String
Randomize
a = Chr(Int(97 + 26 * 26))
MsgBox (a)
End Sub
二。 计算 1/1! +1/2! +oooo +1110!
Private Sub Commandl_Click()
Dim m As Integer, n As Long, s As Double
n = 1
s = 0
Form = 1 To 10
n = n * m
s = s + 1 / n
Next
Print s
End Sub
三。 编写一个函数，求两个数的最小数
Private Sub Form_Load()
Dima%,b%
a = Val(InputBox(na=n))
b = Val(InputBox(nb=n))
If a>b Then
Print na>bn
Else
Print na<bn
End If
End Sub
四。 输入正方形的边长，并计算对角线长
Private Sub Form_Load()
Dima%,b%
a = InputBox(H请输入a的值”)
b = Sqr(2) * a
Print”正方形的对角线长：”；b
End Sub
五。 计算并输出下面级数前n项和中偶数项和s=l*2+2*3+3*4+4*5+。。。。+n*(n+l)
Private Sub Commandl_Click()
Dim i%, sum%
Fori = 1 To 50 Step 2
sum = sum + i * (i + 1)
Next i
Print sum
End Sub
六。 编写一个函数，其功能是判断某个整数是不是素数，调用该函数，判断100001是否是
素数
Private Sub Commandl_Click()
Dim a%,i%
a = InputBox(H请输入a的值”)
Fori = 1 To a
ff a Mod i = 0 Then
m = m + 1
Endff
Next i
If m = 2 Then
MsgBox (na 是素数”)
Else
MsgBox (na不是素数”)
End If
End Sub
七。 计算sum=l+3+5+...+99
Private Sub Commandl_Click()
Dim i As Integer, sum As Integer
sum = 0
Fori = 1 To 100 Step 2
sum = sum + i
Next
text = sum
End Sub
八。 输入一个两位数，分别输入它的个位数字和十位数字
Dima%,b%,c%
a=