VB编程题库.doc

1输入圆的半径，计算圆的面积，并输出。Private Sub Command1_Click()Dim r!, s!r = InputBox(请输入半径, 输入框)s = 3.1415926 * r 2Text1.Text = sEnd Sub输入正方形的边长，计算正方形的面积，并输出。Private Sub Command1_Click()Dim a%a = Text1.Texts = a * aPrint sEnd 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 SingleFor i = 0 To 2a(i) = Val(InputBox(输入第 & i & 条边的边长：)Next iIf a(0) + a(1) a(2) And a(0) + a(2) a(1) And a(1) + a(2) a(0) Thenp = (a(0) + a(1) + a(2) / 2s = Sqr(p * (p - a(0) * (p - a(1) * (p - a(2)MsgBox (s)ElseMsgBox (不能构成三角形)End IfEnd Sub2输入一个两位数，分别输出它的个位数字和十位数字。Private Sub Command1_Click()a = Val(InputBox(, )If a = 10 And a = 1000 And a 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 jNext iPrint 最大元素为：; MaxEnd Sub编写一个函数，其参数为一个一维整型数组，其功能为求数组中所有元素的平均值。Option Base 1Private Sub Command1_Click()Dim a()a() = Array(1, 2, 3, 4, 5, 6, 7, 8, 9)Print 数组中所有元素的平均值为： & ave(a()End SubPrivate Function ave(a()For i = 1 To UBound(a) Sum = Sum + a(i)Next iave = Sum / UBound(a)End Function5编写程序，计算并输出下面级数前n项(n=50)中偶数项的和。s=1*2+2*3+3*4+4*5+n*(n+1)+22750Private Sub Form_Activate()s = 0For I = 2 To 50 Step 2s = s + I * (I + 1)Next IPrint sEnd Sub6编写程序， 设n=20，x=3.4，编写程序，计算并输出S(n)的值，要求结果保留5位小数。S(n)=lnx/x+ln2x/x2+ln3x/x3+ln(n*x)/xn+（其中，ln为自然对数函数）Private Sub Command1_Click()Const x = 3.4For n = 1 To 20 s = s + Log(n * x) / x nNext nPrint Format(s, 0.#)End Sub7随机输出一个小写字母Dim letterasscii, i%, letter$letterascii = Int(Rnd * 26) + 97letter = Chr(letterascii)Print letterMsgBox (letter)如果是求大写字母就把97改为658编写一个函数，其功能为判断某个整数是不是素数并判断100001是否是素数。Private Sub Form_Click()Dim n, i#n = InputBox(n=) i = 2 While n Mod i 0 i = i + 1Wend If i = n ThenPrint n & 是素数ElsePrint n & 不是素数End IfEnd 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 sumEnd SubPrivate 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 = TrueEnd Function判断一个数是否为素数Dim n, i#n = InputBox(n=) i = 2 While n Mod i 0 i = i + 1Wend If i = n ThenPrint n & 是素数ElsePrint n & 不是素数End If9编写程序实现，从键盘输入一个十六进制数，将其转换为十进制数，并输出结果。要求：转换过程用Function过程实现。Private Sub Command1_Click()a = InputBox(请输入十六进制数：, 输入)Print a & 转成十进制： & HEX_to_DEC(a)End SubPublic Function HEX_to_DEC(ByVal Hex As String) As Long Dim i As Long Dim B As LongHex = 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 = BEnd Function编写一个函数，其功能是把一个二进制数串转换为十进制数串，并计算“1110011“对应的十进制数Private Sub Command1_Click()Print BIN_to_DEC(1110011)End SubPublic 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 iEnd Function10编写一个函数，其功能为求两个数的最大公约数。Private Sub Form_Click()Dim m%, n%m = InputBox(请输入第一个自然数)n = InputBox(请输入第二个自然数)Print m; 和; n; 的最大公约数是;Print gcd(m, n)End SubPublic Function gcd%(x%, y%)Dim r%r = x Mod yWhile r 0x = yy = rr = x Mod yWendgcd = yEnd Function 11输入整数M，N，编程让mn,并输出m，n的值Private Sub Command1_Click()Dim m, n%m = Val(InputBox(m)n = Val(InputBox(n)If m n Thenk = m: m = n: n = kEnd IfPrint m; n;End Sub12计算并输出下面级数前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 2s = s + i * (i + 1) * (i + 2)NextMsgBox (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 = 1Dok = (2 * i - 1) * i * 2) / (2 * i + 1) * (2 * i + 2)sum = sum + ki = i + 1Loop While i = 42Print Format(sum, 0.00000)End Sub编程，计算并输出下面级数，当n=15，x=3.1416时的部分和，结果取6位小数。1+x+x2/2!+x3/3!+xn/n!+Private Sub Command1_Click()Dim i As IntegerDim sum As SingleDim a As DoubleDim b As Singlea = 1: x = 3.1416: sum = 1For i = 1 To 15a = a * ib = x i / asum = sum + bNext iPrint Format(sum, 0.000000)End Sub13定义一个下标上界为10的整型数组，并用随机函数为其赋值（值介于0，100之间计算数组中所有偶数的数据的和:Dim a%(10), i, sum%For i = LBound(a) To UBound(a)Randomizea(i) = Rnd * 100If a(i) Mod 2 = 0 Thensum = sum + a(i)End IfNextPrint sum14判断输入年份是否闰年；dim m%if m mod 400=0 or m mod 1000 and m mod 4=0 thenprint YESelseprint NO15判断一个数是否为水仙花数a = m Mod 10b = (i - a) / 10 Mod 10c = i 100If a 3 + b 3 + c 3 = i ThenMsgBox yesElseMsgBox NOEnd If找出100到1000间的水仙花数Dim i%, a, b, c%For i = 100 To 999a = i Mod 10b = (i - a) / 10 Mod 10c = i 100If a 3 + b 3 + c 3 = i ThenPrint i;End IfNext i16计算sum=1!+3!+5!+.+9！Private Sub Command1_Click()Dim i%,j%,sum#,a#sum = 0For i = 1 To 9 Step 2a=1For j = 1 To ia = a * jsum = sum + aNext jNext iPrint sumEnd Sub、计算sum=2！+4！+10!For i = 1 To 9 Step 2换成For i = 0 To 9 Step 2计算sum=1*3*9Private Sub Command1_Click()Dim sum As Long, i As Integersum = 1For i = 1 To 9 Step 2sum = sum * iNexttext1.Text = sumEnd Sub17计算sum=1/1!+1/2!+1/10!Private Sub Command1_Click()Dim m As Integer, n As Long, s As Doublen = 1s = oFor m = 1 To 10n = n * ms = s + 1 / nNextPrint sEnd Sub18输出一位在（0100）的