vb复习题(带答案).doc

1.编写程序计算：s=1+1/2!+1/3!+1/n!,说明：在窗体中有一个文本框控件：Text1,用来接收n的值，有一个标签控件：Label1，用来显示S的值，试编写窗体的单击事件，实现计算与显示功能，只要求写出事件的主要代码，事件过程的起始语句和结束语句可略去。Dim n As Integer, s As Single, t As Longn = Val(Text1.Text)s = 0t = 1For i = 1 To nt = t * is = s + 1 / tNextLabel1.Caption = Format(s, #.0000)2.有一个窗体，窗体中有一个文本框，名称为Text1，有一个按钮，试编写按钮的单击事件，实现计算1！+2！+3！+10!,将结果显示在文本框Text1中。Private Sub Command1_Click()Dim s As Long, t As Longs = 0t = 1For i = 1 To 10 t = t * i s = s + tNextText1.Text = sEnd Sub3.编写程序在窗体上显示出：5/6+4/5+3/4+2/3+1/2Private Sub Command1_Click()Dim s As Singles = 0For i = 5 To 1 Step -1 s = s + i / (i + 1)NextPrint sEnd Sub4.在银行存款，计算本利和的公式为：p1=p(1+r)n，其中，p为存款数，n为年数，r 为年利率，p1为n年后本金和利息之和。设p=1000,n=3,r=0.02,编程计算3年后本利和。要求小数点后两位，四舍五入。Private Sub Command1_Click()p = 1000n = 3r = 0.02p1 = p * (1 + r) np1 = Round(p1, 2)Print p1End Sub5.在窗体的单击事件中编写程序，要求：由文本框TEXT1输入一个0到6的数字，单击窗体时，在标签控件LABEL1上显示汉英对照星期信息，如：输入0，则显示星期日（SUNDAY）、输入，则显示星期一（MONDAY），以此类推。如果输入0-6以外的数据，用MsgBox信息框显示“输入数据错误”的提示信息。Private Sub Command1_Click()Dim d As Integer, d1 As Stringd = Text1.TextSelect Case d Case 0d1 = SUNDAYCase 1d1 = MONDAY Case 2 d1 = TUESDAY Case 3d1 = WEDNESDAY Case 4d1 = THURSDAY Case 5d1 = FRIDAY Case 6d1 = SATURDAY Case Else MsgBox (输入数据错误)End SelectLabel1.Caption = d1End Sub6.编写程序，求s的值，s=123+234+n(n+1)(n+2)的值。n由程序输入。Private Sub Command1_Click()Dim s As Long, n As Integers = 0n = Val(Text1.Text)For i = 1 To n s = s + i * (i + 1) * (i + 2)NextLabel1.Caption = Str(s)End Sub7.使用InputBox函数输入长方形的长和宽,用MsgBox输出长方形的周长和面积.Private Sub Command1_Click()Dim a As Integer, b As IntegerDim l As Integer, s As Integera = Val(InputBox(输入长方形长)b = Val(InputBox(输入长方形宽)l = 2 * (a + b)s = a * bMsgBox (长方形的周长是： + Str(l) + Chr(13) + 长方形的面积是： + Str(s)End Sub8.输入x，计算y的值。其中：y=1+3x (x=0); y=1-5x (x= 0 Then y = 1 + 3 * x Else y = 1 - 5 * xText2.Text = yEnd SubPrivate Sub Text1_Change()Text2.Text = End Sub9.求自然数1100之间偶数之和。Private Sub Command1_Click()Dim sum As IntegerFor i = 2 To 100 Step 2 sum = sum + iNextText1.Text = sumEnd Sub10.编写程序，要求随着不断单击命令按钮Command1，窗体的标题依次显示为：今天是星期一今天是星期二今天是星期三今天是星期四今天是星期五今天是星期六今天是星期日。Private Sub Command1_Click()Static d As Integerd = d + 1Select Case d Case 1 Form1.Caption = 今天是星期一 Case 2 Form1.Caption = 今天是星期二 Case 3 Form1.Caption = 今天是星期三 Case 4 Form1.Caption = 今天是星期四 Case 5 Form1.Caption = 今天是星期五 Case 6 Form1.Caption = 今天是星期六 Case 7 Form1.Caption = 今天是星期日 d = 0End SelectEnd Sub11.求s=a+aa+aaa+aaaaaa(n个a),其中a和n的值由用户自己输入。例如，当a=3,n=4时，S=3+33+333+3333。12.编写涨工资的程序。计算条件是：基本工资大于或等于1500元的，增加工资20%；若小于1500元大于或等于900元的，增加工资15%；小于900元的，增加工资10%。要求：(1)在文本框中输入基本工资值；(2)在标签上输出增长后的基本工资值；(3)当单击按钮command1时实现上述功能。Private Sub Command1_Click()Dim x As Singlex = Text1.TextSelect Case x Case Is = 1500 y = x + 0.2 * x Case Is = 900 y = x + 0.15 * x Case Else y = x + 0.1 * xEnd SelectLabel2.Caption = 增长后的基本工资： + Format(y, #.00) + 元End SubPrivate Sub Text1_Change()Label2.Caption = End Sub13.编写程序, 点击命令按钮Command1时，两个文本框text1与text2中的内容进行交换。Private Sub Command1_Click()a = Text1.Textb = Text2.TextText1.Text = bText2.Text = aEnd Sub14.编程将一维数组A(10)中数组元素循环向后移动一个位置，最后一个元素移动到第一个元素的位置。Private Sub Command1_Click()Dim a(1 To 10) As IntegerDim s As Integer, p As Stringp = For i = 1 To 10 a(i) = Int(90 * Rnd) + 10 p = p + Str(a(i) + ,NextLabel1.Caption = 移位前： + Left(p, Len(p) - 1)t = a(10)For i = 10 To 2 Step -1 a(i) = a(i - 1)Nexta(1) = tp = For i = 1 To 10 p = p + Str(a(i) + ,NextLabel2.Caption = 移位后： + Left(p, Len(p) - 1)End Sub15.编写程序，通过InputBox函数从键盘上输入4个数,计算并在窗体上显示这4个数的和及平均值。16.编写程序，实现如下功能：使用InputBox函数输入一个数，单击窗体时，如果该数大于等于0，将其平方根输出到标签Lable1上，否则输出“数据不能为负数”的提示信息。Private Sub Command1_Click()Dim x As Singlex = InputBox(输入数据)If x = 0 Then Label1.Caption = Str(Sqr(x)Else Label1.Caption = 数据不能为负数End IfEnd Sub17.编程计算从300到1000之间的所有7的倍数之和。34.编程计算从200到1000之间的所有4的倍数之和(第17题)Private Sub Command1_Click()Dim s As LongFor i = 300 To 1000 If i / 7 = Int(i / 7) Then s = s + i End IfNextLabel1.Caption = Str(s)End Sub18.使用InputBox函数输入圆半径r和圆柱高h, 使用文本框分别输出圆周长和圆面积。提示：圆周长公式为2*3.14*r; 圆面积公式为3.14*r2Private Sub Command1_Click()Dim r As Single, l As Single, s As Singler = InputBox(请输入圆的半径)l = 2 * 3.14 * rs = 3.14 * r 2Text1.Text = lText2.Text = sEnd Sub19.编写一个程序，用户连续输入N个值，直到输入非数值数据为止。最后输出其中最大的一个数。Dim a, bb = 0Doa = InputBox(请输入一个数，输入非数值退出：)If Not IsNumeric(a) Then Exit DoIf Val(a) Val(b) Then b = aLoopPrint 最大的数是：; b20.在窗体的单击事件中编写程序，从键盘上任意输入3个数，输出最大数。33.在窗体的单击事件中编写程序，从键盘上任意输入3个数，输出最小数。39.在窗体的单击事件中编写程序，从键盘上任意输入3个数，输出中间数。Private Sub Command1_Click()Dim a As Single, b As Single, c As SingleDim max As Singlea = InputBox(输入数据a)b = InputBox(输入数据b)c = InputBox(输入数据c)max = aIf max b Then max = bIf max b Then t = a: a = b: b = tIf a c Then t = a: a = c: c = tIf b c Then t = b: b = c: c = tLabel2.Caption = 三个数从小到大的顺序是： + Str(a) + , + Str(b) + , + Str(c)End Sub27.使用文本框输入长方形的长和宽,用MsgBox输出长方形的周长和面积.28.使用InputBox函数输入圆半径r和圆柱高h, 使用文本框分别输出圆球体积和圆柱体积。提示：圆球体积公式为（3/4）*3.14*r3; 圆柱体积公式为 3.14*r2*hPrivate Sub Command1_Click()Dim r As Single, h As Single, v1 As Single, v2 As Singler = InputBox(请输入圆的半径)h = InputBox(请输入圆柱的高度)v1 = (4 / 3) * 3.14 * r 3v2 = 3.14 * r 2 * hText1.Text = v1Text2.Text = v2End Sub29.编写程序，将字符串山高人为峰按逆序峰为人高山输出。Private Sub Command1_Click()Dim s1 As String, s2 As StringDim n As Integers1 = InputBox(输入字符串)Label1.Caption = s1n = Len(s1)For i = 1 To n s2 = s2 + Mid(s1, n - i + 1, 1)NextLabel2.Caption = s2End Sub30.编写程序，将26个字母逆序输出。31.通过文本框输入一个整数X，判断X是否能被2整除。判断的结果在标签中显示。Private Sub Command1_Click()Dim x As Singlex = Text1.TextIf x Mod 2 = 0 Then Label2.Caption = 能被2整除Else Label2.Caption = 不能被2整除End IfEnd Sub32.使用InputBox函数输入华氏温度，要求输出摄氏温度。公式为：C=(5/9)*(F-32), 输出要有文字说明，取两位小数。Private Sub Command1_Click()Dim f As Single, c As Singlef = InputBox(请输入华氏温度)c = (5 / 9) * (f - 32)Label1.Caption = 华氏 + Format(f, #.00) + 度= + 摄氏 + Format(c, #.00) + 度。End Sub。35.用InputBox函数输入3个数据，判断这3个数据是否可以组成三角形，如果能够组成三角形，计算并在窗体上输出三角形的面积。构成三角形的条件是：任意两边之和大于第三边。面积公式为area= , 其中S=(A+B+C)/2，A、B、C为三条边的长度。Private Sub Command1_Click()Dim a As Single, b As Single, c As SingleDim max As Singlea = InputBox(输入数据a)b = InputBox(输入数据b)c = InputBox(输入数据c)If a + b c And a + c b And b + c a Then s = (a + b + c) / 2 area = Sqr(s * (s - a) * (s - b) * (s - c) Label1.Caption = 三角形的面积= + Format(area, #.00)Else Label1.Caption = 三边不能构成三角形End IfEnd Sub36.求自然数1100之间奇数之和。37.使用InputBox函数输入圆半径r和圆柱高h, 使用文本框分别输出圆球表面积和圆球体积。提示：圆球表面积公式为4*3.14*r; 圆球体积公式为（3/4）*3.14*r338.编写程序，输入一个数，判定该数是否为素数，如果是素数，则输出“该数是素数”的信息，否则输出“该数不是素数”的信息。Private Sub Command1_Click()Dim x As Integerx = InputBox(输入一个数据)For i = 2 To x - 1 If x Mod i = 0 Then Exit ForNextIf i = x Then Label1.Caption = Str(x) + 是一个素数Else Label1.Caption = Str(x) + 不是一个素数End IfEnd Sub40.编写程序，交换两个变量当中的数据。Private Sub Command1_Click()Dim temptemp = Text1.Text: Text1.Text = Text2.Text: Text2.Text = tempEnd Sub41.在窗体的单击事件中编写程序，从键盘输入3个数，按从大到小的顺序输出到窗体上。Dim a(3) As Integer Dim i As Integer Dim s As Integer For i = 1 To 3 a(i) = Val(InputBox(请输入整数) Next i If a(1) a(2) Then s = a(1) a(1) = a(2) a(2) = s End If If a(1) a(3) Then s = a(1) a(1) = a(3) a(3) = a(2) a(2) = s Else If a(2) a(3) Then s = a(2) a(2) = a(3) a(3) = s End If End If For i = 1 To 3 Print a(i) Next i42.使用文本框输入华氏温度，要求输出摄氏温度。公式为：C=(5/9)*(F-32), 输出要有文字说明，取两位小数。 Private Sub Command1_Click() Dim F, C, N As Double F = InputBox(请输入需要转换的华氏温度：, 输入) C = (F - 32) * 5 / 9 N = Left(CStr(C * 100), InStr(1, CStr(C * 100), .) If Mid$(CStr(C), InStr(1, CStr(C), .) + 1