vb上级题.docVIP

1.从键盘输入a,b,c三条边的值，判断它是否能构成三角形，若能构成三角形，则计算三角形面积，否则给出提示信息； ? Private Sub Form_Click() Dim a As Single, b As Single , c As Single , p As Single, s As Single a = Val(InputBox(请输入边长a：)) b = Val(InputBox(请输入边长b：)) c = Val(InputBox(请输入边长c：)) If a + b c And a + c b And b + c a Then p = (a + b + c) / 2 s = Sqr(p * (p - a) * (p - b) * (p - c)) Print 三角形面积：; s Else Print 不能构成三角形 End If End Sub ? 2.从键盘输入一行字符，统计其26个字母的分布情况(采用数组计数器)； ? Private Sub Form_Click() Dim a(26) As Integer, n As Integer, x As String, ns As String For i = 1 To 26 a(i) = 0 Next i x = InputBox(请输入英语字符：) n = Len(x) For i = 1 To n ns = Mid(x, i, 1) m = Asc(ns) - 96 a(m) = a(m) + 1 Next i For i = 1 To 26 Print Chr(96 + i); ; a(i) Next i End Sub ? 3.编写计算下列函数的程序，自变量x的值用InputBox函数输入： ? ? Private Sub Form_Click() Dim x As Single, f As Single x = InputBox(输入x: ) If x 0 Then f = 2 * x * x + x + 6 ElseIf x = 10 Then f = x + Sqr(x) +2 Else f = Sqr(x) + Sin(x) + 1 End If print f End Sub ? 4.已知公式 π/4=1-1/3+1/5-1/7+…+1/(2n-1)，编程求π的近似值（保留小数5位即直到1/(2n-1)0.00001）； ? Private Sub Form_Click() Dim i As Long, n As Long, flag As Integer Dim sum As Single n = InputBox(输入n：) flag = 1 For i = 1 To n sum = sum + flag / (2 * i - 1) flag = -flag Next i pi = 4 * sum Print Int(10 ^ 5 * pi) / 10 ^ 5 End Sub ? 5.S=1+(1+2)+(1+2+3)+…+(1+2+3+…+n)，n从键盘输入； ? Private Sub Command1_Click() Dim n As Integer, s As Integer Dim i As Integer, j As Integer n = Val(InputBox(请输入n的值：)) For i = 1 To n For j = 1 To i s = s + j Next j Next i Print s End Sub ? 6.编程随机产生一个矩阵元素为三位整数的8×8的矩阵， 要求：（1）输出该矩阵 （2）求对角线上最大元素的位置并输出 ? Private Sub Form_Click() Dim a(8, 8), max, i, j, temp As Integer For i = 1 To 8 For j = 1 To 8 a(i, j) = Int(Rnd* (900) + 100 Next j Next i For i = 1 To 8 For j = 1 To 8 Print a(i, j); Next j Print Next i max = a(1, 1) For i = 1 To 8 If a(i, i) max Then temp = a(i, i) a(i, i) = max max = temp End If Next i For i = 1 To 8 If a(i, 9 - i) max Then temp = a(i, 9 - i) a(i, 9 - i) = max max = temp End If Next i Print max End Sub ? 7. 键盘输入n，计算S=