VB习题部分456-zzia.doc

1．圆半径 Private Sub Command1_Click() Dim m As Double Const PI = 3.1415926 m = Val(InputBox(请输入圆半径)) Print 圆的周长为：; 2 * PI * m End Sub 2．定义一个10个元素的一维数组，并对其随机赋值，求元素为奇数的和 Private Sub Form_Click() Dim a(10), i, sum As Integer For i = 1 To 10 a(i) = Int(101 * Rnd) Print a(i) Next Print For i = 1 To 10 If a(i) Mod 2 = 1 Then sum = sum + a(i) End If Next Print sum End Sub 3.随机输出一个大写字母 Private Sub Form_Click() a = Chr(Int((Asc(Z) - Asc(A) + 1) * Rnd + Asc(A))) Print 大写字母为; a End Sub 4.分段函数 2倍，二分之一 Private Sub Form_Click() Dim x%, y% x = Val ( InputBox (input a number) ) If x Mod 2 = 0 Then y = x / 2 Else y = 2 * x End If Print x=; x, y=; y End Sub 5 水仙花数 Private Sub Command1_Click() Dim num As Integer, bw%, sw%, gw% num = Val(InputBox(输入num:)) bw = Int(num / 100) sw = Int((num - bw * 100) / 10) gw = num - bw * 100 - sw * 10 If num = bw ^ 3 + sw ^ 3 + gw ^ 3 Then Print num 是水仙花数 Else Print num 不是水仙花数 End If End Sub 6 判断是否为闰年 Dim year As Integer year = Val(Text1.Text) If year / 400 = Int(year / 400) Then Text2.Text = year 是闰年 ElseIf year / 4 = Int(year / 4) And year / 100 Int(year / 100)Then Text2.Text = year 是闰年 Else Text2.Text = year 是平年 End If 7 定义一个数组并对其随机赋值 1.Private Sub Form_Click Dim a%(19), sum%, i% Randomize For i=LBound(a) To UBound(a) a(i)=Int(101*Rnd) Print a(i); Next i Print End Sub 8 计算sum=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 9 输入整数M，N，编程让mn,并输出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 IfPrint m; n; End Sub 10 定义一个下标上界为10的整型数组，并用随机函数为其赋值（值介于[0，100]之间计算数组中所有偶数的数据的和:Private Sub Command1_Click() Randomize Dim a%(10) Dim i%, s% For i = 0 To 10 a(i) = 101 * Rnd() Next i For i = 0 To 10 If a(i) Mod 2 = 0 Then s = s + a(i) End If Next i Print 所有偶数的和为, s End Sub 11 输入三个边，判断是否为三角形，并求面积