《VB编程题附答案.doc》由会员分享，可在线阅读，更多相关《VB编程题附答案.doc（11页珍藏版）》请在三一文库上搜索。
1、Vb编程题1. 求自然数1100之间奇数之和。Private Sub Form_Click()Dim i%, sum%For i = 1 To 99 Step 2sum = sum + iNext iPrint sum=; sumEnd Sub2. 求自然数1100之间偶数之和。Private Sub Form_Click()Dim i%, sum%For i = 1 To 100 If i mod 2=0 thensum = sum + iend ifNext iPrint sum=; sumEnd Sub3. 编写程序，在窗体上随机输出一个10-99之间的两位整数。Sub command1
2、_click()Dim a%Randomizea=int(rnd*90+10)print aend sub4. 编程计算从200到1000之间的所有4的倍数之和。Private Sub Form_Click()Dim sum As Longsum = 0For i = 200 To 1000If i Mod 4 = 0 Thensum = sum + iEnd IfNext iPrint sumEnd Sub5. 编写程序在窗体上显示出：5/6+4/5+3/4+2/3+1/2Dim s As Singles = 0For i = 5 To 1 Step -1s = s + i / (i + 1
3、)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 = a Next Print Print 三数中最大者是:; MaxEnd Sub7. 在窗体的单击事件中编写程序，从键盘上任意输入3个数，输出中间数。Private Sub Co
4、mmand2_Click()Dim a(1 To 3) As IntegerFor i = 1 To 3a(i) = InputBox(请输入第 & i & 个数)Next iFor i = 1 To 2 For 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 y=; yEnd Sub11.编写程序，在窗体上输出由1、2、3、4、5这五个数字组
5、成的所有可能的两位数，并统计它们的个数。Private Sub Command1_Click()Dim a%, n%For i = 1 To 5 For j = 1 To 5 a = i * 10 + j n = n + 1 Print Str(a) Next jNext iPrint 总个数：; nEnd Sub12.有一个窗体，窗体中有一个文本框，名称为Text1，有一个按钮，试编写按钮的单击事件，实现计算1！+2！+3！+10!,将结果显示在文本框Text1中。 Private Sub Command1_Click()Sum = 0 x = 1 For i = 1 To 10 x = x
6、 * i Sum = Sum + x Next Text1.text= SumEnd Sub13.编写程序计算：s=1+1/2!+1/3!+1/n!,说明：在窗体中有一个文本框控件：Text1,用来接收n的值，有一个标签控件：Label1，用来显示S的值，试编写窗体的单击事件，实现计算与显示功能，只要求写出事件的主要代码，事件过程的起始语句和结束语句可略去。Private Sub Command1_Click()Sum = 0 x = 1n=Text1.text For i = 1 To n x = x * i Sum = Sum + x Next Text1.text= SumEnd Sub
7、14.通过文本框输入一个整数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.编写程序, 点击命令按钮Command1时，两个文本框text1与text2中的内容进行交换。Private Sub Command1_Click() Dim a As Stringa = Text1.TextText1.Text = T
8、ext2.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() Cls a = Val(InputBox(a=) n = Val(InputBox(n=) s = 0 s1 = 0 For i = 1 To n s1 = s1 * 10 + a s1 = s1 + a * 10 (i - 1) s = s + s1 Next Print sEnd Sub17.在窗体上输出下三角的九九乘法表。Private S
9、ub Form_Click()ClsFor i = 1 To 9 For J = 1 To i Print i; *; J; =; Format(Str(i * J), !); Next PrintNextEnd Sub18.编写程序，将26个字母逆序输出。Private Sub Command1_Click() Dim n%, m%n = Asc(a)For i = 1 To 26m = n + 26 - iPrint Chr(m)Next iEnd Sub19.编写程序，将字符串山高人为峰按逆序峰为人高山输出。Private Sub Command1_Click() Clss = 山高人为
10、峰 s1 = For i = Len(s) To 1 Step -1 s1 = s1 & Mid(s, i, 1) Next Print s1End Sub20.编写程序，在窗体上随机输出一个10-99之间的两位整数。同第3题21.设纸的厚度为0.5毫米，将纸对折，再对折，求至少对折多少次，纸张的厚度能达到珠穆朗玛峰的高度8848米。Private Sub Form_Click() Cls h = 0.5: cs = 0 Do While h c And a + c b And b + c a Then s = (a + b + c) / 2 area = Sqr(s * (s - a) *
11、(s - b) * (s - c) Print 边长为:; a; b; c; 的三角形面积为:; area End IfEnd Sub28.从键盘输入一个半径，输出圆的面积和周长，输出要求有文字说明，保留两位小数。Private Sub Form_Click() Cls r = Val(InputBox(r=) Print 半径为; r; 的圆 Print 面积为; Round(3.14 * r 2, 2) Print 周长为; Round(2 * 3.14 * r)End Sub29.使用文本框输入长方形的长和宽,用MsgBox输出长方形的周长和面积.Private Sub Form_Cli
12、ck()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!,F!F=val(inputbox(请输入华氏温度)C=(5/9)*(F-32)print 摄氏温度为：p
13、rint Cend sub31.编写涨工资的程序。计算条件是：基本工资大于或等于1500元的，增加工资20%；若小于1500元大于或等于900元的，增加工资15%；小于900元的，增加工资10%。要求：(1)在文本框中输入基本工资值；(2)在标签上输出增长后的基本工资值；(3)当单击按钮command1时实现上述功能。Private Sub Command1_Click() gz = Val(Text1.Text) Select Case gz Case Is = 1500 gz = gz * (1 + 0.2) Case Is = 900 gz = gz * (1 + 0.15) Case
14、Else gz = gz * (1 + 0.1) End Select Label1.Caption = Str(gz)End Sub32.公用电话收费标准如下：通话时间在3分钟之内（包括3分钟），收费0.5元；3分钟以上，则每超过1分钟加收0.15元。编写一段程序，计算某人通话S分钟，应缴多少电话费。Private Sub Form_Click() Cls s = Val(InputBox(通话时间) If s = 3 Then hf = 0.5 Else hf = 0.5 + Int(s - 3) * 0.15 End If Print 通话时间为; s; 分种 Print 应收话费; F
15、ormat(hf, 0.#); 元End Sub33.编程将一维数组A(10)中数组元素循环向后移动一个位置，最后一个元素移动到第一个元素的位置。Private Sub Form_Click() Dim a(10) As Integer Randomize clsPrint 初始数组为: For i = 0 To 10 a(i) = Int(Rnd * 10) Print a(i); Next Print t = a(10) For i = 10 To 1 Step -1 a(i) = a(i - 1) Next a(0) = t Print 移位后数组为 For i = 0 To 10 Pr
16、int a(i); Next PrintEnd Sub34.编写程序，求s的值，s=123+234+n(n+1)(n+2)的值。n由程序输入。Private Sub Form_Click() Cls n = Val(InputBox(n=) s = 0 For i = 1 To n s = s + i * (i + 1) * (i + 2) Next Print 123+234+; n; ; n + 1; ; n + 2; =; sEnd Sub35.火车站托运行李，按规定当行李重量不超过50公斤时，每公斤运费0.25元，超过50公斤后，超过部分按每公斤0.40元收费。输入行李重量W公斤，计算
17、出应付多少运费。Private Sub Form_Click() Cls w = Val(InputBox(w=) If w max Then max = a Loop Print Print 最大数; maxEnd Sub37.编写程序，输入一个数，判定该数是否为素数，如果是素数，则输出“该数是素数”的信息，否则输出“该数不是素数”的信息。Private Sub Form_Click() Cls x = Val(InputBox(x=) For i = 2 To x - 1 If x Mod i = 0 Then Exit For Next If i = x Then Print 该数是素数 Else Print 该数不是素数 End IfEnd Sub38.编写程序，实现如下功能：由文本框Text1输入一个数，单击窗体时，如果该数大于等于0，将其平方根输出到标签Lable1上，否则输出“数据不能为负数”的提示信息。Private Sub Form_Click() x = Val(InputBox(接收一个数) If x = 0 Then Label1.Caption = Sqr(x) Else MsgBox 数据不能为负数 End IfEnd Sub