1输入圆的半径，计算圆的面积，并输出。
Private Sub Command1_Click()
Dim r!, s!
r = InputBox("请输入半径", "输入框")
s = 3.1415926 * r ^ 2
Text1.Text = s
End Sub
输入正方形的边长，计算正方形的面积，并输出。
Private Sub Command1_Click()
Dim a%
a = Text1.Text
s = a * a
Print s
End Sub
计算长方形周长
Private Sub Command1_Click()
Dim m#, n#
m = Val(InputBox("请输入长方形的长"))
n = Val(InputBox("请输入长方形的宽"))
MsgBox (2 * (m + n))
End Sub
输入三个数判断是否能构成三角形，若能计算其面积
Private Sub Command1_Click()
Dim i As Integer, a(2) As Integer, p As Single, s As Single
For i = 0 To 2
a(i) = Val(InputBox("输入第" & i & "条边的边长："))
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
2输入一个两位数，分别输出它的个位数字和十位数字。
Private Sub Command1_Click()
a = Val(InputBox("", ""))
If a >= 10 And a < 100 Then
c = a \ 10
d = a Mod 10
End If
Print a & "的十位数为：" & c & "，个位数为：" & d
End Sub
输入一个四位数，分别输出它的个位数字、十位数字、百位数字和千位数字。
Private Sub Command1_Click()
a = Val(InputBox("", ""))
If a >= 1000 And a < 10000 Then
c = a \ 1000
d = (a - c * 1000) \ 100
e = (a - c * 1000 - d * 100) \ 10
f = a - c * 1000 - d * 100 - d * 10
End If
Print a & "的千位数为：" & c
Print a & "的百位数为：" & d
Print a & "的十位数为：" & e
Print a & "的个位数为：" & f
End Sub
3裴波那契数列是由计算某类动物繁殖增长量而提出的。数列的前两项是1、1，以后的每一项都是其相邻前两项之和。编写程序求: 数列前30项和FS; (2178308)
Private Sub Command1_Click()
Dim a#(1 To 30), fs&
a(1) = 1
a(2) = 1
For i = 3 To 30
a(i) = a(i - 1) + a(i - 2)
Next
For i = 1 To 30
fs = fs + a(i)
Next
Print fs
End Sub
用Function过程求斐波那契数列的第n项，并调用该函数，显示数列的第5项。斐波那契数列：1，1，2，3，5，8... ...
Dim i As Integer
Private Sub Command1_Click()
n = InputBox("", "")
For i = 1 To n
Print f(i)
Next i
End Sub
Private Function f(a)
If a = 1 Or a = 2 Then
f = 1
Else
f = f(a - 1) + f(a - 2)
End If
End Function
4编写程序，产生一个整型二维数组A（N ，N），（N 取5），数组元素的取值范围为[0，20 )，计算数组中每一列数据的和
Option Base 1
Private Sub Form_Click()
Randomize
Dim a(1 To 5, 1 To 5)
For i = 1 To 3
For j = 1 To 3
a(i, j) = Int(Rnd * 21)
Print a(i, j); " ";
Next j
Print
Next i
c = "每列相加的值是：" & vbCrLf
For i = 1 To 3
For j = 1 To 3
t = t + a(j, i)
Next j
c = c & t & " "
t = 0
Next i
Print c
End Sub
编写程序，建立一个 6×6的整型二维数组（数据由程序调用Rnd函数产生[0，15 ）的随机整数数），输出数组中的最大元素。
Option Base 1
Private Sub Command1_Click()
Dim a(6, 6) As Integer
Randomize
Max = a(1, 1)
For i = 1 To 6
For j = 1 To 6
a(i, j) = Int(Rnd * 16 + 0)
If a(i, j) > Max Then
Max = a(i, j)
End If
Print a(i, j);
n = n + 1
If n Mod 6 = 0 Then
Print
End If
Next j
Next i
Print "最大元素为："; Max
End Sub
编写一个函数，其参数为一个一维整型数组，其功能为求数组中所有元素的平均值。
Option Base 1
Private Sub Command1_Click()
Dim a()
a() = Array(1, 2, 3, 4, 5, 6, 7, 8, 9)
Print "数组中所有元素的平均值为：" & ave(a())
End Sub
Private Function ave(a())
For i = 1 To UBound(a)
Sum = Sum + a(i)
Next i
ave = Sum / UBound(a)
End Function
5编写程序，计算并输出下面级数前n项(n=50)中偶数项的和。
s = 1*2+2*3+3*4+4*5+......+n*(n+1)+...
22750
Private Sub Form_Activate()
s = 0
For I = 2 To 50 Step 2
s = s + I * (I + 1)
Next I
Print s
End Sub
6编写程序， 设n=20，x=3.4，编写程序，计算并输出S(n)的值，要求结果保留5位小数。S(n)=lnx/x+ln2x/x^2+ln3x/x^3+...+ln(n*x)/x^n+...（其中，ln为自然对数函数）
Private Sub Command1_Click()
Const x = 3.4
For n = 1 To 20
s = s + Log(n * x) / x ^ n
Next n
Print Format(s, "0.#####")
End Sub
7随机输出一个小写字母
Dim letterasscii, i%, letter$
letterascii = Int(Rnd * 26) + 97
letter = Chr(letterascii)
Print letter
MsgBox (letter)
如果是求大写字母就把97改为65
8编写一个函数，其功能为判断某个整数是不是素数并判断100001是否是素数。
Private Sub Form_Click()
Dim n, i#
n = InputBox("n=")
i = 2
While n Mod i <> 0
i = i + 1
Wend
If i = n Then
Print n & "是素数"
Else
Print n & "不是素数"
End If
End Sub
用VB编写程序,判断100到200之间的素数,并求和
Private Sub Command1_Click()
Dim i As Integer, j As Integer, sum As Integer
Print "100到200之间的素数："
For i = 100 To 200
If Prime(i) Then
j = j + 1
Print CStr(i) & " ";
If j Mod 5 = 0 Then Print
sum = sum + i
End If
Next i
Print
Print "总和："
Print sum
End Sub
Private Function Prime(n As Integer) As Boolean
If n <= 1 Then
Exit Function
ElseIf n = 2 Then
Prime = True: Exit Function
ElseIf n Mod 2 = 0 Then
Exit Function
End If
Dim i As Integer
For i = 3 To Sqr(n) Step 2
If n Mod i = 0 Then Exit Function
Next i
Prime = True
End Function
判断一个数是否为素数
Dim n, i#
n = InputBox("n=")
i = 2
While n Mod i <> 0
i = i + 1
Wend
If i = n Then
Print n & "是素数"
Else
Print n
& "不是素数"
End If
9编写程序实现，从键盘输入一个十六进制数，将其转换为十进制数，并输出结果。要求：转换过程用Function过程实现。
Private Sub Command1_Click()
a = InputBox("请输入十六进制数：", "输入")
Print a & "转成十进制：" & HEX_to_DEC(a)
End Sub
Public Function HEX_to_DEC(ByVal Hex As String) As Long
Dim i As Long
Dim B As Long
Hex = UCase(Hex)
For i = 1 To Len(Hex)
Select Case Mid(Hex, Len(Hex) - i + 1, 1)
Case "0": B = B + 16 ^ (i - 1) * 0
Case "1": B = B + 16 ^ (i - 1) * 1
Case "2": B = B + 16 ^ (i - 1) * 2
Case "3": B = B + 16 ^ (i - 1) * 3
Case "4": B = B + 16 ^ (i - 1) * 4
Case "5": B = B + 16 ^ (i - 1) * 5
Case "6": B = B + 16 ^ (i - 1) * 6
Case "7": B = B + 16 ^ (i - 1) * 7
Case "8": B = B + 16 ^ (i - 1) * 8
Case "9": B = B + 16 ^ (i - 1) * 9
Case "A": B = B + 16 ^ (i - 1) * 10
Case "B": B = B + 16 ^ (i - 1) * 11
Case "C": B = B + 16 ^ (i - 1) * 12
Case "D": B = B + 16 ^ (i - 1) * 13
Case "E": B = B + 16 ^ (i - 1) * 14
Case "F": B = B + 16 ^ (i - 1) * 15
End Select
Next i
HEX_to_DEC = B
End Function
编写一个函数，其功能是把一个二进制数串转换为十进制数串，并计算"1110011"对应的十进制数
Private Sub Command1_Click()
Print BIN_to_DEC(1110011)
End Sub
Public Function BIN_to_DEC(ByVal Bin As String) As Long
Dim i As Long
For i = 1 To Len(Bin)
BIN_to_DEC = BIN_to_DEC * 2 + Val(Mid(Bin, i, 1))
Next i
End Function
10编写一个函数，其功能为求两个数的最大公约数。
Private Sub Form_Click()
Dim m%, n%
m = InputBox("请输入第一个自然数")
n = InputBox("请输入第二个自然数")
Print m; "和"; n; "的最大公约数是";
Print gcd(m, n)
End Sub
Public Function gcd%(x%, y%)
Dim r%
r = x Mod y
While r <> 0
x = y
y = r
r = x Mod y
Wend
gcd = y
End Function
11输入整数M，N，编程让m>n,并输出m，n的值
Private Sub Command1_Click()
Dim m, n%
m = Val(InputBox("m"))
n = Val(InputBox("n"))
If m < n Then
k = m: m = n: n = k
End If
Print m; n;
End Sub
12计算并输出下面级数前n项(n=20)中奇数项的和1*2*3-... +(-1)^(n-1)*n*(n+1)*(n+2)+
Private Sub Command1_Click()
Dim s!, i%
For i = 1 To 20 Step 2
s = s + i * (i + 1) * (i + 2)
Next
MsgBox (s)
End Sub答案 24090
编程 设n=20，编写程序，计算并输出 S(n)的值，保留5位小数
S(n)=(1*2)/(3*4)+(3*4)/(5*6)+(5*6)/(7*8)+......+((2n-1)*2n)/((2n+1)*(2n+2))+.......
Private Sub Command1_Click()
Dim i%, k#, sum#
i = 1
Do
k = ((2 * i - 1) * i * 2) / ((2 * i + 1) * (2 * i + 2))
sum = sum + k
i = i + 1
Loop While i <= 42
Print Format(sum, "0.00000")
End Sub
编程，计算并输出下面级数，当n=15，x=3.1416
时的部分和，结果取6位小数。
1+x+x^2/2!+x^3/3!+...+x^n/n!+...
Private Sub Command1_Click()
Dim i As Integer
Dim sum As Single
Dim a As Double
Dim b As Single
a = 1: x = 3.1416: sum = 1
For i = 1 To 15
a = a * i
b = x ^ i / a
sum = sum + b
Next i
Print Format(sum, "0.000000")
End Sub
13定义一个下标上界为10的整型数组，并用随机函数为其赋值（值介于[0，100]之间计算数组中所有偶数的数据的和:
Dim a%(10), i, sum%
For i = LBound(a) To UBound(a)
Randomize
a(i) = Rnd * 100
If a(i) Mod 2 = 0 Then
sum = sum + a(i)
End If
Next
Print sum
14判断输入年份是否闰年；
dim m%
if m mod 400=0 or m mod 100<>0 and m mod 4=0 then
print "YES"
else
print "NO"
15判断一个数是否为水仙花数
a = m Mod 10
b = (i - a) / 10 Mod 10
c = i \ 100
If a ^ 3 + b ^ 3 + c ^ 3 = i Then
MsgBox "yes"
Else
MsgBox "NO"
End If
找出100到1000间的水仙花数
Private Sub Command1_Click()
Dim i%, a, b, c%
For i = 100 To 999
a = i Mod 10
b = (i - a) / 10 Mod 10
c = i \ 100
If a ^ 3 + b ^ 3 + c ^ 3 = i Then
Print i;
End If
Next i
End Sub
16计算sum=1!+3!+5!+...+9！
Private Sub Command1_Click()
Dim i%,j%,sum#,a#
sum = 0
For i = 1 To 9 Step 2
a=1
For j = 1 To i
a = a * j
sum = sum + a
Next j
Next i
Print sum
End Sub、
计算sum=2！+4！+···+10!
For i = 1 To 9 Step 2
换成For i = 0 To 9 Step 2
计算sum=1*3*··*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
text1.Text = sum
End Sub
17计算sum=1/1!+1/2!+```+1/10!
Private Sub Command1_Click()
Dim m As Integer, n As Long, s As Double
n = 1
s = o
For m = 1 To 10
n = n * m
s = s + 1 / n
Next
Print s
End Sub
18输出一位在（0~100）的整数
Private Sub Command1_Click()
Randomize
Dim s%
s = Int(101 * Rnd)
Print s
End Sub
19当x为偶数时y为x的2分之一
当x为奇数时y为x的2倍
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
20计算1~100的5的倍数和7的倍数之和
Private Sub Form_Click()
Sum = 0
For i = 1 To 100
If i Mod 5 = 0 Or i Mod 7 = 0 Then
Sum = Sum + i
End If
Next i
Print Sum
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 long,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,"0.000000")
Print s
End sub
1、》输入长方形的长和宽，计算长方形的面积，并输出。
Private Sub command1_click()
Dim a%, b%, s%
a = Val(InputBox("a"))
b = Val(InputBox("b"))
s = a * b
Print s
End Sub
2、 输入正方形的边长，计算正方形的对
角线长，并输出。
Private Sub command1_click()
Dim a!,l!
a=val(inputbox("输入边长"))
l=sqr(2)*a
Print "对角线长度为：";l
End sub
3、输入圆的半径，计算圆的周长，并输出。
Private sub command1_click()
Const pi=3.14
Dim s#,i%
r=val(inputbox("请输入半径"))
s=2*pi*r
print "圆的周长为：";s
end sub
4、 》计算sum=1/2!+1/4!+1/6!+...+1/10!
Private sub command1_click()
Dim i%,f#,s#
F=1:s=0
For i=1 to 10
F=f*i
If i mod 2=0 then
S=s+1/f
End if
Next i
Print "sum=1/2!+1/4!+1/6!+...+1/10!";"=";s
End sub
5、 计算sum=2!+4!+6!+...+10! 《计算、sum=1!+3!+5!+...+9!》
Private sub command1_click()
Dim i%,f#,s#
F=1:s=0
For i=1 to 10
F=f*i
If i mod 2=0 then
S=s+f
End if
Next i
Print "sum=2!+4!+6!+...+10!";"="s
End sub
6、计算sum=2+4+6+...+100
Private Sub Command1_Click()
Dim i%, sum%
sum = 0
For i = 2 To 100 Step 2
sum = sum + i
Next i
Text1.Text = sum
End Sub
7、计算sum=1+3+5+...+99
Private Sub command1_click()
Dim i%, sum%
For i = 1 To 99 Step 2
sum = sum + i
Next
Print sum
End Sub
8、 编写程序，建立一个 6×6的整型二维数组（数据由程序调用Rnd函数产生[0，15 ）的随机整数数），输出数组中的最小元素。
Private Sub command1_click()
Dim a%(6, 6), i%, j%
For i = 1 To 6
For j = 1 To 6
a(i, j) = Int(Rnd * 15)
Print a(i, j);
Next j
Print
Next i
Min = a(1, 1)
For i = 1 To 6
For j = 1 To 6
If Min > a(i, j) Then Min = a(i, j)
Next j
Next i
Print "数组中最小元素为："; Min
End Sub
11、随机输出一个位于[0，100]的整数。
Private Sub Command1_Click()
Dim s#
S=int(rnd *101) '括号里是r n d ，不是md
Print "随机整数为：";s
End sub
12、 编写一个函数，其功能为求两个数的最小数。
Private Sub Command1_Click()
Dim x!, y!
x = InputBox("输入第一个数值 ")
y = InputBox("输入第二个数值 ")
Min = f(x, y)
End Sub
Public Function f(m!, n!)
Min = m
If Min > n Then Min = n
f = Min
Print "两数中的较小数是"; Min
End Function
16、 编写一个函数，其功能为判断某个整数是不是素数。调用该函数，计算并输出区间 [1300 ， 1400] 内所有素数的和。 ( 提示：只能被 1 和自身整除的自然数称为素数。 )
Private Sub Command1_Click()
Dim i%
s = 0
For i = 1300 To 1400
If f(i) Then s = s + i
Next i
Text1.Text = s
End Sub
Public Function f(n%) As Boolean
Dim i%
For i = 2 To n - 1
If n Mod i = 0 Then Exit For
Next i
If i > n - 1 And n > 1 Then
f = True
Print n; "是素数"
Else
Print n; "不是素数"
End If
End Function
17、 随机输出一个小（大）写字母。
Private Sub Command1_Click()
Dim s
s = Chr$(Int(Rnd * 26 + 97))
p = Chr$(Int(Rnd * 26 + 65))
Print "输出的随机小写字母是"; s
Print "输出的随机大写字母是"
; p
End Sub
18、 编写一个函数，其功能为判断某个整数是不是素数。调用该函数，判断100001是否是素数。或100007，100003
Public Function f(n#)
For i = 2 To n - 1
If n Mod i = 0 Then Exit For
Next i
If i > n - 1 And n > 1 Then
f = True
Print n; "是素数"
Else
Print n; "不是素数"
End If
End Function
Private Sub Command1_Click()
Dim p%
p = f(100001)
p = f(100007)
p = f(100003)
End Sub
19、》编程题.设n=20，x=0.5，编写程序，计算并输出下面级数的部分和。结果取6位小数
1- ［ x^2/2!-x^4/4!+x^6/6!- ... +(-1)^(n-1)*x^(2n)/(2n)!+ ...］ （其中， ^ 表示幂运算， ! 表示求阶）
Private Sub Command1_Click()
Dim f#, i%
f = 1: x = 0.5: s = 0: n = -1
For i = 1 To 40
f = f * i
If i Mod 2 = 0 Then
n = -n
s = s + (x ^ i / f)
End If
Next i
Sum = 1 - s
Print "级数的部分和是"; Format(Sum, "#.######")
End Sub
20、 输入两个数，交换他们的值，并输出。
Private Sub Command1_Click()
Dim m!, n!, t!
m = Val(InputBox(请输入第一个数值))
n = Val(InputBox(请输入第二个数值))
Print "交换前数值是"; m; n
t = m: m = n: n = t
Print "交换后数值是"; m; n
End Sub
24、编写一个函数，其功能为求两个数的最小公倍数。
Private Sub Command1_Click()
Dim n%, m%, r%, t%, x%, y%
m = InputBox("输入的第一个自然数")
n = InputBox("输入的第二个自然数")
If m < n Then t = m: m = n: n = t
x = m: y = n
r = m Mod n
Do While r <> 0
x = y
y = r
r = x Mod y
Loop
Print m & "和" & n & "的最小公倍数是"; m * n / y
End Sub
25、 》 编写程序，计算并输出下面级数前 n 项 (n=20) 中奇数项的和。
1*2*3-2*3*4+3*4*5-4*5*6+ ... +(-1)^(n-1)*n*(n+1)*(n+2)+ ... （其中， ^ 表示幂运算）
Private sub command1_click()
Dim i%,n%,sum%
n=20
for i=1 to n step 2
sum= sum+ i*(i+1)*(i+2)
Next
Print sum
End sub
26、 编写一个函数，其功能为判断某个整数是不是素数。调用该函数，计算并输出区间[3000 ， 4000] 内所有素数的和。 ( 提示：只能被 1 和自身整除的自然数称为素数。 )
Private Sub Command1_Click()
Dim i%
s = 0
For i = 3000 To 4000
If f(i) Then s = s + i
Next i
Text1.Text = s
End Sub
Public Function f(n%) As Boolean
Dim i%
For i = 2 To n - 1
If n Mod i = 0 Then Exit For
Next i
If i > n - 1 And n > 1 Then
f = True
Print n; "是素数"
Else
Print n; "不是素数"
End If
End Function
28、》计算sum=1*2*3*...*10
private sub command1_click()
dim sum%,i%
sum=1
for i=1 to 10
sum=sum*i
next
print sum
end sub 这个编程哪里有问题，为什么运行不了？(应该 dim sum#)
30、编写程序。设n=20,x=3.4,要计算并输出S(n)的值，要求结果保留5位小数。S(n)=lnx/x+ln2x/x^2+ln3x/x^3+..
.+ln(n*x)/x^n+...（其中，ln 为自然对数函数）
Private Sub Command1_Click()
Dim i%
x = 3.4: n = 20: s = 0
For i = 1 To n
s = s + Log(i * x) / x ^ i
Next i
Print Format(s, "###.#####")
End Sub
32、 编写一个函数，其参数为一个一维整型数组，其功能为求数组中所有元素的最小值。
Public Function findmin%(b%())
Dim i%
Min = b(LBound(b))
For i = LBound(b) To UBound(b)
If Min > b(i) Then Min = b(i)
Next
findmin = Min
End Function
Private Sub Command1_Click()
Dim a%(1 To 10), i%
For i = 1 To 10
a(i) = Int(Rnd * 100)
Print a(i);
Next
Print
Print "数组最小值是"; findmin(a())
End Sub
33、 编程题。有一个数列，第一项和第二项都是1，以后的每一项都是其相邻前两项之和的0.65 倍。试编写通用过程（函数或子程序），求数列前 n 项的平均值。要求调用该过程，计算并输
出 n=49 时前 n 项的平均值（保留 2 位小数）。
Private Sub Command1_Click()
Print "前49项的平均值是"; f(49)
End Sub
Public Function f(n%)
Dim a#(), i%
ReDim a#(1 To n)
a(1) = 1: a(2) = 1
For i = 3 To n
a(i) = (a(i - 1) + a(i - 2)) * 0.65
Next i
For i = 1 To n
s = s + a(i)
Next
pj = s / n
f = Format(pj, "#.##")
End Function
34、编程题。设 n=20 ，编写程序，计算并输出 S(n) 的值，要求结果保留 5 位小数。
S(n)=(1*2)/(3*4)+(3*4)/(5*6)+(5*6)/(7*8)+...+[(2n-1)*2n]/[(2n+1)*(2n+2)]+...
Private Sub Command1_Click()
Dim i%
n = 20
For i = 1 To n
s = s + ((2 * i - 1) * (2 * i)) / ((2 * i + 1) * (2 * i + 2))
Next i
Print "前20项的和是"; Format(s, "#.#####")
End Sub
3.编写一个函数，其参数为一个一维整型数组，其功能为求数组中所有元素的最大值3
．Private Function max%(a%())
Dim i%
max = a(0)
For i = LBound(a) To UBound(a)
If a(i) > max Then max = a(i)
Next
End Function
5编写程序，建立一个 6×6的整型二维数组（数据由程序调用Rnd函数产生[0，10 ）
的随机整数数），输出数组中所有元素的和。
5．Option Base 1
Private Sub Command1_Click()
Dim a%(6, 6), i%, j%, sum%
Randomize
For i = 1 To 6
For j = 1 To 6
a(i, j) = Int(Rnd * 10)
sum = sum + a(i, j)
Print a(i, j);
Next
Print
Next
Print sum
End Sub
6编写程序，建立一个 6×6的整型二维数组（数据由程序调用Rnd函数产生[0，10 ）
的随机整数数），输出数组中所有奇数行元素的和。
6．Option Base 1
Private Sub Command1_Click()
Dim a%(6, 6), i%, j%, sum%
Randomize
For i = 1 To 6
For j = 1 To 6
a(i, j) = Int(Rnd * 10)
If i Mod 2 = 1 Then
sum = sum + a(i, j)
End If
Print a(i, j);
Next
Print
Next
Print sum
End Sub
8编写程序，建立一个 6×6的整型二维数组（数据由程序调用Rnd函数产生[0，15 ）
的随机整数数），输出数组中所有偶数行元素的和。
8．Option Base 1
Private Sub Command1_Click()
Dim a
%(6, 6), i%, j%, sum%
Randomize
For i = 1 To 6
For j = 1 To 6
a(i, j) = Int(Rnd * 15)
If i Mod 2 = 0 Then
sum = sum + a(i, j)
End If
Print a(i, j);
Next
Print
Next
Print sum
End Sub
9编写程序，建立一个 6×6的整型二维数组（数据由程序调用Rnd函数产生[0，20 ）
的随机整数数），输出数组中所有偶数行元素的和。
9．Option Base 1
Private Sub Command1_Click()
Dim a%(6, 6), i%, j%, sum%
Randomize
For i = 1 To 6
For j = 1 To 6
a(i, j) = Int(Rnd * 20)
If i Mod 2 = 0 Then
sum = sum + a(i, j)
End If
Print a(i, j);
Next
Print
Next
Print sum
End Sub
10编写程序，建立一个 6×6的整型二维数组（数据由程序调用Rnd函数产生[0，20 ）
的随机整数数），输出数组中所有奇数列元素的和。
10．Option Base 1
Private Sub Command1_Click()
Dim a%(6, 6), i%, j%, sum%(6)
Randomize
For i = 1 To 6
For j = 1 To 6
a(i, j) = Int(Rnd * 20)
sum(j) = sum(j) + a(i, j)
Print a(i, j);
Next
Print
Next
For j = 1 To 6
If j Mod 2 = 1 Then
Print "第"; j; "列的和为："; sum(j)
End If
Next
End Sub
12编写程序，产生一个整型二维数组A（N ，N），（N 取5），数组元素的取值范围为
[0，15 )，计算数组中每一列数据的和。
12．Option Base 1
Private Sub Command1_Click()
Dim a%(5, 5), i%, j%, sum%(5)
Randomize
For i = 1 To 5
For j = 1 To 5
a(i, j) = Int(Rnd * 15)
sum(j) = sum(j) + a(i, j)
Print a(i, j);
Next
Print
Next
For j = 1 To 5
Print "第"; j; "列的和为："; sum(j)
Next
End Sub
13编写程序，产生一个整型二维数组A（N ，N），（N 取5），数组元素的取值范围为
[0，10 )，计算数组中每一列数据的和。
13．Option Base 1
Private Sub Command1_Click()
Dim a%(5, 5), i%, j%, sum%(5)
Randomize
For i = 1 To 5
For j = 1 To 5
a(i, j) = Int(Rnd * 10)
sum(j) = sum(j) + a(i, j)
Print a(i, j);
Next
Print
Next
For j = 1 To 5
Print "第"; j; "列的和为："; sum(j)
Next
End Sub
17.输入一个三位数，分别输出它的个位数字、十位数字和百位数字
17．Private Sub Command1_Click()
Dim a%
a = InputBox("请输入一个三位数", "输入", "100")
If a <= 99 Or a >= 1000 Then
MsgBox "你输入的不是三位数"
End
Else
Print "百位数字是"; (a \ 100) Mod 10
Print "十位数字是"; (a \ 10) Mod 10
Print "个位数字是"; a Mod 10
End If
End Sub
19.计算sum=1*3*5...*9
19．Private Sub Command1_Click()
Dim sum#, i%
sum = 1
For i = 1 To 9 Step 2
sum = sum * i
Next
Print "1*3*5...*9="; sum
End Sub
20.计算sum=1+2+...+100
20．Private Sub Command1_Click()
Dim sum#, i%
sum = 0
For i = 1 To 100
sum = sum + i
Next
Print "1+2+...+100="; sum
End Sub
23.计算sum=1!+2!+...+10!
23．Private Sub Command1_Click()
Dim sum#, i%, j%, fac#
sum = 0
fac = 1
For i = 1 To 10
For j = 1 To i
fac = fac * j
Next
sum = sum + fac
Next
Print "1!+2!+...+10!="; sum
En
d Sub
25.输入长方形的长和宽，计算长方形的周长，并输出。
25．Private Sub Command1_Click()
Dim a#, b#, c#
a = InputBox("请输入长方形的长", "长")
b = InputBox("输入长方形的宽", "宽")
c = 2 * (a + b)
Print "长方形的周长为"; c
End Sub
30.编写程序，计算并输出下面级数前n项(n=50)中奇数项的和。 s =
1*2+2*3+3*4+4*5+......+n*(n+1)+...
30．Option Base 1
Private Function s#(ByVal m)
Dim j%
For j = 1 To m
s = s + j * (j + 1)
Next
End Function
Private Sub Command1_Click()
Dim i%, sum#
For i = 1 To 49 Step 2
sum = sum + s(i)
Next
Print sum
End Sub
32.编写一个函数，其功能为判断一个3位正整数是否是"水仙花数"。（"水仙花数"是
指各位数字的立方和与该数相等，如153=1^3+5^3+3^3,153就是水仙花数。）
32．Private Function shui(ByVal m%) As Boolean
Dim a%, b%, c%
a = Mid(m, 1, 1)
b = Mid(m, 2, 1)
c = Mid(m, 3, 1)
If m = a ^ 3 + b ^ 3 + c ^ 3 Then
shui = True
Else
shui = False
End If
End Function
35.编写一个函数，其功能是求某个数的阶乘。调用该函数计算12!。
35．Private Function fac#(n%)
Dim i%
fac = 1
For i = 1 To n
fac = fac * i
Next
End Function
Private Sub Command1_Click()
Print fac(12)
End Sub
37 裴波那契数列是由计算某类动物繁殖增长量而提出的。数列的前两项是1、1，以
后的每一项都是其相邻前两项之和。编写程序求: 数列前30项和FS;
37．Private Function a#(ByVal n%)
Dim b(1 To 30) As Double, i%
b(1) = 1
b(2) = 1
For i = 3 To 30
b(i) = b(i - 1) + b(i - 2)
Next
a = b(n)
End Function
Private Sub Command1_Click()
Dim sum#, j%
For j = 1 To 30
sum = sum + a(j)
Next
Print sum
End Sub
38 编写一个函数，其参数为一个一维整型数组，其功能为求数组中所有元素的最小值
所对应的下标。
38．Option Base 1
Private Sub mins(b%())
Dim i%, min%, n%, num%(100)
min = b(1)
n = 0
For i = LBound(b) To UBound(b)
If b(i) < min Then min = b(i)
Next
For i = LBound(b) To UBound(b)
If b(i) = min Then
n = n + 1
num(n) = i
End If
Next
Print "最小值是"; min
For i = 1 To n
Print "第"; i; "个最小值的小标是"; num(i)
Next
End Sub
计算题集合.frm
Private Sub Command1_Click()
Dim sum#, i%, j%, fac#
sum = 0
fac = 1
For i = 2 To 10 Step 2
For j = 1 To i
fac = fac * j
Next
sum = sum + 1 / fac
Next
Print "1/2!+1/4!+1/6!...+1/10!="; sum
End Sub
Private Sub Command2_Click()
Dim n%, s#, i%
n = 20
s = 0
For i = 1 To n
s = s + ((2 * n - 1) * 2 * n) / ((2 * n + 1) * (2 * n + 2))
Next
Print "n=20"
Print "S(n)="; Format(s, "0.00000")
End Sub
Private Sub Command3_Click()
Dim i%, f#, s#
f = 1: s = 0
For i = 1 To 10
f = f * i
If i Mod 2 = 0 Then
s = s + f
End If
Next i
Print "sum=2!+4!+6!+...+10!"; "="; s
End Sub
Private Sub Command4_Click()
Dim i%, sum%
sum = 0
For i = 2 To 10
0 Step 2
sum = sum + i
Next i
Print sum
End Sub
Private Sub Command6_Click()
Dim i%
x = 3.4: n = 20: s = 0
For i = 1 To n
s = s + Log(i * x) / x ^ i
Next i
Print Format(s, "###.#####")
End Sub
Private Sub Command7_Click()
a = InputBox("请输入十六进制数：", "输入")
Print a & "转成十进制：" & HEX_to_DEC(a)
End Sub
Public Function HEX_to_DEC(ByVal Hex As String) As Long
Dim i As Long
Dim b As Long
Hex = UCase(Hex)
For i = 1 To Len(Hex)
Select Case Mid(Hex, Len(Hex) - i + 1, 1)
Case "0": b = b + 16 ^ (i - 1) * 0
Case "1": b = b + 16 ^ (i - 1) * 1
Case "2": b = b + 16 ^ (i - 1) * 2
Case "3": b = b + 16 ^ (i - 1) * 3
Case "4": b = b + 16 ^ (i - 1) * 4
Case "5": b = b + 16 ^ (i - 1) * 5
Case "6": b = b + 16 ^ (i - 1) * 6
Case "7": b = b + 16 ^ (i - 1) * 7
Case "8": b = b + 16 ^ (i - 1) * 8
Case "9": b = b + 16 ^ (i - 1) * 9
Case "A": b = b + 16 ^ (i - 1) * 10
Case "B": b = b + 16 ^ (i - 1) * 11
Case "C": b = b + 16 ^ (i - 1) * 12
Case "D": b = b + 16 ^ (i - 1) * 13
Case "E": b = b + 16 ^ (i - 1) * 14
Case "F": b = b + 16 ^ (i - 1) * 15
End Select
Next i
HEX_to_DEC = b
End Function
Private Sub Command8_Click()
sum = 0
For i = 1 To 100
If i Mod 5 = 0 Or i Mod 7 = 0 Then
sum = sum + i
End If
Next i
Print sum
End Sub
2-200之间的所有素数.frm
Private Sub Command1_Click()
Dim m As Integer
Dim i As Integer
Dim count As Integer
Cls
count = 0
For m = 2 To 200
For i = 2 To m - 1
If m Mod i = 0 Then
Exit For
End If
Next i
If i = m Then
Print m;
count = count + 1
If count Mod 8 = 0 Then Print
End If
Next m
End Sub
计算到负1的N次方除以N的阶乘精确到小数点.frm
Private Sub Command1_Click()
' 计算1-1/2!+1/3!-1/4!+.....+(-1)^(n-1)/n! 要求精度达到0.000001
Dim f As Integer, n As Long
Dim m As Double, s As Double
s = 0: n = -1: f = 1: m = 1
Do While 1 / m > 0.0001
m = m * f
f = f + 1
n = -n
s = s + n / m
Loop
s = Format(s, "0.000000")
Print s
End Sub
计算面积
Private Sub Command1_Click()
Dim A!, B!, C!, P!, Z!
A = Val(Text1.Text)
B = Val(Text2.Text)
C = Val(Text3.Text)
P = (A + B + C) / 2
Z = Sqr(P * (P - A) * (P - B) * (P - C))
Label5.Caption = "面积=" & Str(Z)
End Sub
判断是否为素数.frm
Private Sub Command1_Click()
Dim m As Integer
Dim i As Integer
Cls
m = Val(Text1.Text)
For i = 2 To m - 1
If m Mod i = 0 Then
Print m & "不是素数"
Exit For
End If
Next i
If i = m Then Print m & "是素数"
End Sub
求方程的根
Private Sub Command1_Click()
Dim a!, b!, c!, d!, x!, y!
a = Text1.Text
b = Text2.Text
c = Text3.Text
If (b ^ 2 - 4 * a * c
< 0) Then
Text4.Text = "无解""
Else
x = (-b + Sqr(b ^ 2 - 4 * a * c)) / 2 * a
y = (-b - Sqr(b ^ 2 - 4 * a * c)) / 2 * a
Text4.Text = x
Text5.Text = y
End If
End Sub
输入两个整数m,n,.frm
Private Sub Command1_Click()
Dim m&, n&, a&
m = Val(InputBox("请输入m:", 输入, "m"))
n = Val(InputBox("请输入n:", 输入, "n"))
If n > m Then
a = m
m = n
n = a
End If
Print "m=", m
Print "n=", n
End Sub
输入一个整数，将其反向输出.frm
Private Sub Command1_Click()
Cls
a = Val(Text1.Text)
d = 0
While a <> 0
b = a Mod 10
d = d * 10 + b
a = a \ 10
Wend
Print d
End Sub
随机产生30个大写字母.frm
Private Sub Command1_Click()
Dim i As Integer
Dim letter As Integer
Dim count As Integer
Cls
count = 0
For i = 1 To 30
letter = Int(Rnd * 26) + 65
count = count + 1
Print Chr(letter); Spc(2);
If count Mod 10 = 0 Then Print
Next i
End Sub
随即产生30个小写字母.frm
Private Sub Command1_Click()
Dim i As Integer
Dim letter As Integer
Dim count As Integer
Cls
count = 0
For i = 1 To 30
letter = Int(Rnd * 26) + 97
count = count + 1
Print Chr(letter); Spc(2);
If count Mod 10 = 0 Then Print
Next i
End Sub
阴影字
Private Sub Command1_Click()
Text1.Text = ""
Label1.Caption = "阴影字"
Label2.Caption = "阴影字"
Text1.SetFocus
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
End Sub
Private Sub Text1_Change()
Text2.Text = Text1.Text
Label1.Caption = Text1.Text
Label2.Caption = Text1.Text
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 = Format(ES,"0.000000")
Print ES
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
输入三个数a、b、c，编写程序使得a<=b<=c，并输出a、b、c的值。
Private Sub Command1_Click()
Dim a%,b%,c%,t%
a = Val(InputBox("请输入a的值!"))
b = Val(InputBox("请输入b的值!"))
c = Val(InputBox("请输入c的值!"))
If a > b Then
t = a
a = b
b = t
End If
If a > c Then
t = a
a = c
c = t
End If
If b > c Then
t = b
b = c
c = t
End If
Print a,b,c
End Sub
2