《编程题附答案.doc》由会员分享，可在线阅读，更多相关《编程题附答案.doc（10页珍藏版）》请在三一文库上搜索。
1、Vb 编程题1. 求自然数1100之间奇数之和。Private Sub Form_Click() Dim i%, sum%For i = 1 To 99 Step 2 sum = sum + i Next i Print sum=; sum End Sub2. 求自然数 1100之间偶数之和。Private Sub Form_Click()Dim i%, sum%For i = 1 To 100If i mod 2=0 then sum = sum + i end if Next i Print sum=; sum End Sub3. 编写程序，在窗体上随机输出一个 10-99 之间的两位整数
2、。 Sub command1_click()Dim a% Randomize a=int(rnd*90+10) print a end sub4. 编程计算从 200到 1000之间的所有 4 的倍数之和。 Private Sub Form_Click()Dim sum As Long sum = 0For i = 200 To 1000 If i Mod 4 = 0 Then sum = sum + i End If Next i Print sum End Sub5. 编写程序在窗体上显示出： 5/6+4/5+3/4+2/3+1/2Dim s As Single s = 0For i =
3、5 To 1 Step -1 s = s + i / (i + 1) NextPrint “ 5/6+4/5+3/4+2/3+1/2= ”;s6. 在窗体的单击事件中编写程序，从键盘上任意输入 3 个数，输出最大数。 Private Sub Command2_Click()Clsa = Val(InputBox( 接收三个数 :)Print a; Max = a For i = 1 To 2 a = Val(InputBox( 接收三个数 :)Print a;If a Max Then Max = aNextPrintPrint 三数中最大者是 :; MaxEnd Sub7. 在窗体的单击事件
4、中编写程序，从键盘上任意输入 3 个数，输出中间数。 Private Sub Command2_Click()Dim a(1 To 3) As IntegerFor i = 1 To 3a(i) = InputBox( 请输入第 & i & 个数 )Next iFor i = 1 To 2For j = i + 1 To 3 If a(i) =0); y=1-5x (x0)。Private Sub Command1_Click()Dim x!, y!x = InputBox( 请输入x的值)If x 0 Theny = 1 - 5 * xElsey = 1 + 3 * xEnd IfPrint
5、 y=; yEnd Sub11. 编写程序，在窗体上输出由 1、2、3、4、5这五个数字组成的所有可能的两 位数，并统计它们的个数。Private Sub Command1_Click()Dim a%, n%For i = 1 To 5For j = 1 To 5a = i * 10 + jn = n + 1Print Str(a)Next jNext iPrint 总个数： ; nEnd Sub12. 有一个窗体，窗体中有一个文本框，名称为 Text1 ，有一个按钮，试编写按钮的单击事件，实现计算1! +2! +3! +10!,将结果显示在文本框Textl中Private Sub Comma
6、nd1_Click()Sum = 0x = 1For i = 1 To 10x = x * iSum = Sum + xNextText1.text= SumEnd Sub13. 编写程序计算：s=1+1/2!+1/3!+1/n!,说明：在窗体中有一个文本框控件： Textl,用来接收n的值，有一个标签控件：Labell，用来显示S的值，试编写窗 体的单击事件， 实现计算与显示功能， 只要求写出事件的主要代码， 事件过程的 起始语句和结束语句可略去。Private Sub Command1_Click()Sum = 0x = 1n=Text1.textFor i = 1 To nx = x *
7、 iSum = Sum + xNextText1.text= SumEnd Sub14. 通过文本框输入一个整数 X,判断X是否能被2整除。判断的结果在标签中 显示。Private Sub Command1_Click()x = Val(Text1.Text)If x Mod 2 = 0 ThenLabel1.Caption = x & 能被 2 整除ElseLabel1.Caption = x & 不能被 2 整除End IfEnd Sub15. 编写程序，点击命令按钮Comma nd时，两个文本框textl与text2中的内容 进行交换。Private Sub Command1_Click
8、()Dim a As Stringa = Text1.TextText1.Text = Text2.TextText2.Text = aEnd Sub16. 求s=a+aa+aaa+aaaaaa(n个a),其中a和n的值由用户自己输入。例如, 当 a=3,n=4 时， S=3+33+333+3333。Private Sub Form_Click()Clsa = Val(InputBox(a=)n = Val(InputBox(n=)s = 0s1 = 0For i = 1 To nsi = si * 10 + a si = si + a * 10 A (i - 1)s = s + s1Next
9、Print sEnd Sub17. 在窗体上输出下三角的九九乘法表。Private Sub Form_Click()ClsFor i = i To 9For J = i To iPrint i; *; J; =; Format(Str(i * J), !);NextPrintNextEnd Sub18. 编写程序，将 26 个字母逆序输出。Private Sub Commandi_Click()Dim n%, m%n = Asc(a)For i = i To 26m = n + 26 - iPrint Chr(m)Next iEnd Sub19. 编写程序，将字符串 山高人为峰 按逆序 峰为人
10、高山 输出。Private Sub Commandi_Click()Clss = 山高人为峰si = For i = Len(s) To i Step -isi = si & Mid(s, i, i)NextPrint siEnd Sub20. 编写程序，在窗体上随机输出一个 i0-99 之间的两位整数。 同第 3 题21. 设纸的厚度为0.5毫米，将纸对折，再对折，求至少对折多少次，纸张的 厚度能达到珠穆朗玛峰的高度 8848 米。Private Sub Form_Click()Clsh = 0.5: cs = 0Do While h c And a + c b And b + c a Th
11、ens = (a + b + c) / 2area = Sqr(s * (s - a) * (s - b) * (s - c)Print 边长为 :; a; b; c; 的三角形面积为 :; areaEnd IfEnd Sub28. 从键盘输入一个半径，输出圆的面积和周长，输出要求有文字说明，保留两 位小数。Private Sub Form_Click()Clsr = Val(InputBox(r=)Print 半径为 ; r; 的圆 Print 面积为;Rou nd(3.14 * r A 2, 2)Print 周长为; Round(2 * 3.14 * r)End Sub29. 使用文本框输
12、入长方形的长和宽,用MsgBox输出长方形的周长和面积.Private Sub Form_Click()l = Val(Text1.Text)h = Val(Text2.Text)MsgBox 长是 + Str(l) + 宽是 + Str(h) + _的长方形 + Chr(10) + 面积是: + Str(l * h) + _Chr(10) + 周长是: + Str(2 * (l + h)End Sub30. 使用 InputBox 函数输入华氏温度，要求输出摄氏温度。公式为： C=(5/9)*(F-32), 输出要有文字说明，取两位小数。sub command1_click()dim C!,
13、F!F=val(inputbox( 请输入华氏温度 )C=(5/9)*(F-32)print 摄氏温度为： print Cend sub31. 编写涨工资的程序。 计算条件是： 基本工资大于或等于 1 500元的，增加工资 20%；若小于 1 500元大于或等于 900元的，增加工资 15%；小于 900元的，增加 工资 1 0%。要求： (1 ) 在文本框中输入基本工资值； (2) 在标签上输出增长后的基 本工资值；(3)当单击按钮comma nd时实现上述功能。Private Sub Command1_Click()gz = Val(Text1.Text)Select Case gzCas
14、e Is = 1500gz = gz * (1 + 0.2)Case Is = 900gz = gz * (1 + 0.15)Case Elsegz = gz * (1 + 0.1)End SelectLabel1.Caption = Str(gz)End Sub32. 公用电话收费标准如下：通话时间在 3 分钟之内(包括 3分钟)，收费 0.5 元；3 分钟以上，则每超过 1分钟加收 0.15 元。编写一段程序，计算某人通话 S 分钟，应缴多少电话费。Private Sub Form_Click()Clss = Val(InputBox( 通话时间 )If s = 3 Thenhf = 0.
15、5Elsehf = 0.5 + Int(s - 3) * 0.15End IfPrint 通话时间为 ; s; 分种 Print 应收话费 ; Format(hf, 0.#); 元 End Sub33. 编程将一维数组A(10)中数组元素循环向后移动一个位置，最后一个元素移 动到第一个元素的位置。Private Sub Form_Click()Dim a(10) As IntegerRandomizeclsPrint 初始数组为 :For i = 0 To 10a(i) = Int(Rnd * 10)Print a(i);NextPrintt = a(10)For i = 10 To 1 St
16、ep -1a(i) = a(i - 1)Nexta(0) = tPrint 移位后数组为 For i = 0 To 10Print a(i);NextPrintEnd Sub34. 编写程序，求 s 的值，s=1x 2X 3+2x 3X4+nX (n+1) x (n+2)的值。n 由 程序输入。Private Sub Form_Click()Clsn = Val(InputBox(n=)s = 0For i = 1 To ns = s + i * (i + 1) * (i + 2)NextPrint 1 x 2X 3+2X 3X 4+; n; x; n + 1; x ; n + 2; =; s
17、End Sub35. 火车站托运行李， 按规定当行李重量不超过 50公斤时，每公斤运费 0.25 元， 超过50公斤后，超过部分按每公斤0.40元收费。输入行李重量W公斤，计算出 应付多少运费。Private Sub Form_Click()Clsw = Val(InputBox(w=)If w max Then max = aLoopPrintPrint 最大数 ; maxEnd Sub37. 编写程序，输入一个数，判定该数是否为素数，如果是素数，则输出“该数 是素数”的信息，否则输出“该数不是素数”的信息。Private Sub Form_Click()Clsx = Val(InputBo
18、x(x=)For i = 2 To x - 1If x Mod i = 0 Then Exit For NextIf i = x ThenPrint 该数是素数 ElsePrint 该数不是素数 End IfEnd Sub38. 编写程序，实现如下功能：由文本框 Text1 输入一个数，单击窗体时，如果 该数大于等于 0，将其平方根输出到标签 Lable1 上，否则输出“数据不能为负 数”的提示信息。Private Sub Form_Click() x = Val(InputBox( 接收一个数 )If x = 0 Then Label1.Caption = Sqr(x)ElseMsgBox 数据不能为负数 End IfEnd Sub