如果一个三位数等于其各位数字的立方和，则称其为水仙花数。请输入一个三位数，并判断其是否为水仙花数。若是，用MsgBox输出“yes”，否则输出“no”
Private Sub Command1_Click() Dim a%, i%, j%, k%
a = InputBox(\请输入一个三位数！\i = a \\ 100 j = a \\ 10 Mod 10 k = a Mod 10
If a = i ^ 3 + j ^ 3 + k ^ 3 Then MsgBox (\Else
MsgBox (\End If End Sub
某分段函数描述如下：
（1）当x为偶数时，y的值为x的二分之一 （2）当x为奇数时，y的值为x的二倍
Private Sub Command1_Click() Dim x!, y!
x = Val(InputBox(\请输入X的值！\If x Mod 2 = 0 Then y = x / 2 Else y = 2 * x End If MsgBox (y) End Sub
输入三个数，判断其是否能够构成三角形...........
Private Sub Command1_Click()
Dim i As Integer, a(2) As Integer, p As Single, s As Single For i = 0 To 20
a(i)=val(inputbox(\输入第\条边的边长:\Next i
If a(0) + a(1) > a(2) And a(0) + a(2) > a(1) And a(1) + a(2) > a(0) Then
p = (a(0) + a(1) + a(2)) / 2 s=sqr(p*(p-a(0)*(p-a(1))*(p-a(2))) MsgBox (s) Else
MsgBox (\不能形成三角形!\End If End Sub
计算1*3*5....*9
Private Sub Command1_Click() Dim sum As Long, i As Integer sum = 1
For i = 1 To 9 Step 2 sum = sum * i Next
MsgBox (sum) End Sub
随机产生一个小写字母
Private Sub Command1_Click() Dim a As String
Randomize
a = Chr(Int(97 + 26 * Rnd)) MsgBox (a) End Sub
编写程序，计算下面级数中偶数项的和ES，在求和的过程中，当某偶数项（注意，该项参与求和）的值 0.001时求和终止并输出ES，结果取6位1/(1*2)+1/(2*3)+1/(3*4)??+1/(n*(n+1)
private Sub Command1_Click() Dim a#, i%, ES# i = 1
Do
a = i * (i + 1) i = i + 1
If i Mod 2 = 0 Then ES = ES + 1 / a
End If
Loop Until 1 / a < 0.001 ES = fonnat(ES, \Print ES End Sub
编写程序，求下面级数前n项的和s=1/1!-1/2!+1/3!-1/4???（-1）∧（n-1）*1/n!+?..
求和过程当某一项的绝对值小于0.0001时结束（注意，该项参与求和），计算并输出所求的和s，要求保留6位小数
Private Sub Command1_Click()
Dim m As Double, n As Integer, s As Double, f As Integer s = 0: n = -1: m = 1: f = 1 Do While 1 / m >= 0.0001 m = m * f f = f + 1 n = -n
s = s + n / m
Loop
s = Format(s, \Print s End Sub
随即输出一个位于【0,100】之间的整数
Private Sub Command1_Click() Randomize Dim s%
s = (101 * Rnd) Print s End Sub
编写程序，计算并输出下面级数前n项（n=50)中的偶数项的和
Private Sub Command1_Click() Dim s!, i%
For i = 2 To 50 Step 2 s = s + i * (i + 1) Next
MsgBox (s) End Sub
输入长方形的长和宽，计算长方形的周长，并输出
Private Sub Command1_Click() Dim m#, n#
m = Val(InputBox(\请输入长方形的边长\n = Val(InputBox(\请输入长方形的另一个边长\MsgBox (2 * (m + n)) End Sub
《VB期末范围题总汇》
1． 求随机10个整数的最大值、最小值、平均值以及和；
Dim a(1 To 10)
Private Sub Command1_Click() Randomize
Picture1.Print \产生的随机数为：\ For i = 1 To 10
a(i) = Int(Rnd * 99 + 1) Picture1.Print a(i); Next i
Picture1.Print
End Sub
Private Sub Command2_Click() Dim max, min, ave max = a(1) min = a(1)
ave = 0.1 * a(1)
For i = 2 To 10
If a(i) > max Then max = a(i) If a(i) < min Then min = a(i) ave = ave + 0.1 * a(i) Next i
Picture1.Print \最大数为：\ Picture1.Print \最小数为：\ Picture1.Print \平均数为：\
End Sub
2.求水仙花数
Private Sub Form_Click()
Dim a, b, c As Integer 'a(个)b(十)c(百) For a = 0 To 9 For b = 0 To 9
For c = 1 To 9
If a ^ 3 + b ^ 3 + c ^ 3 = a + 10 * b + 100 * c Then MsgBox 100 * c + 10 * b + a End If Next c Next b Next a End Sub
3.百元买百鸡问题；
Option Explicit Const a = 5, b = 3, c = 1 Private Sub Form_Activate()
Dim i As Integer, j As Integer, k As Integer, n As Integer For i = 1 To 100 For j = 1 To 100 For k = 1 To 100
If i * a + j * b + k * c = 100 Then n = n + 1
List1.AddItem \公鸡：\母鸡：\小鸡：\ End If
Next: Next: Next
MsgBox \共有组合：\ End Sub
求1000以内的所有完数 一个按钮里调用的过程
Private Sub Command1_Click() OutputWanNumber 1000 End Sub
4.'求完数的过程
Private Sub Form_Click()