VB老师课件内容整理.doc

VB老师课件内容整理1、第一个程序字符串的输出，最简单的程序只需一条语句 print helloprint helloprint chinaa = 10print a 10print a a2、利用inputbox函数，输入一个数据，并输出x = inputbox(请输入数据,输入框) y = val(inputbox(请输入数据,输入框)print x;y 3、输入一个整数，输出是奇数还是偶数x = val(inputbox(请输入一个整数,输入框)if x mod 2 = 0 thenprint 偶数elseprint 奇数end if4、输出三个数中最小的数x = 15y = 5z =11print x,y,zif xy then if xz then print x是最小的 endifelse if yz then print y是最小的 else print z是最小的 end ifend if或者写为x = 15y = 5z =11print x,y,zif xy and xz then print x是最小的else if yz then print y是最小的 else print z是最小的 end ifend if5、输入一个整数，利用IIF函数输出是奇数还是偶数x = val(InputBox(输入一个整数, 输入)a = IIf(x Mod 2 = 0, 偶数, 奇数)Print a6、输入一个成绩，利用IIF函数输出成绩的等级（差60、良80、优100）x = val(InputBox(输入一个成绩, 输入)a = IIf(x 60, 差, IIf(x 80, 良, 优)Print a7、输入一个成绩，利用select case语句输出成绩的等级（不及格，及格，中等、良好、优秀）x = val(InputBox(输入一个整数, 输入)Select Case x Case Is 60 Print 不及格 Case Is 70 Print 及格 Case Is 80 Print 中 Case Is 9 or 57-6 and 85 and not 7410、P170-3 a = 5b = 2.5c = 7.8y = (3.1415*a*b)/(a+b*c)print y11、P170-5v0 = val(inputbox(请输入初速度v0,初速度)t = val(inputbox(请输入时间t,时间)s = 0.5 * g * t 2 + v0 * tprint s12、输入一个字符串，输出这个字符串是否是个数字字符串。Isnumeric()x = inputbox(请输入任意字符串,输入框)print xif Isnumeric(x) that print 您输入的是个数字字符串elseprint 您输入的不是数字字符串end if13、编写程序：输入一个整数，输出是奇数还是偶数。当输入的数据不是整数而是字母的时候，输出数据不合法。x = inputbox(请输入任意字符串,输入框)print xif Isnumeric(x) that if x mod 2 = 0 thenprint 偶数elseprint 奇数end ifelseprint 数据不合法end if14、输入三个数字，输出其中最大的数（与第4题类似）15、用IIF函数编写程序：输入一个成绩，输出成绩的等级（优秀、良好、中等、及格、不及格）x = val(InputBox(输入一个成绩, 输入)a = IIf(x 60, 不及格, IIf(x 70, 及格, IIf(x 80, 中等, IIf(x c and a + c b and b + c a thenp = (a+b+c)*0.5s = sqr(p*(p-a)*(p-b)*(p-c)print selseprint 不能组成三角形end if18、P170-8税务部门征税问题p = val(inputbox(请输入收入)select case pcase is = 200y = 0case is = 400y = (p - 200)*0.03case is = 5000y = 200*0.03 + (p - 400)*0.04case elsey = 200*0.03 + 4600*0.04 + (p-5000)*0.05end select19、求0.5mm的足够大的纸对折多少次，厚度会超过珠穆朗玛峰的高度。h = 0.5Do While h 8848000 h = h * 2 i = i + 1Loopprint i20、第19题的四种形式写法，Do循环的四种形式h = 0.5Do While h = 8848000 h = h * 2 j = j + 1Looph = 0.5Do h = h * 2 k = k + 1Loop Until h = 8848000h = 0.5Do h = h * 2 m = m + 1Loop While h 8848000print i,j,k,m21、输入10个人的成绩，求平均分。 s = 0 i = 1 Do While i = 10 x = val(InputBox(输入成绩, input) s = s + x i = i + 1 Loop Print s / 1022、输入10个人的成绩，求最高分。 s = 0 i = 1 Do While i = 10 x = val(InputBox(输入成绩, input) If s x Then s = x End If i = i + 1 Loop Print s23、输入10个人的成绩，求最高分和最低分。 g = 0 d = 100 i = 1 Do While i = 10 x = val(InputBox(输入成绩, input) If g x Then d = x End If i = i + 1 Loop Print g, d24、输入10个数，求正数的总和与负数的总和各是多少 z = 0 f = 0 i = 1 Do While i = 10 x = val(InputBox(输入成绩, input) If 0 0.00001 g = (g + x / g) / 2LoopPrint gG=1X=2Do until Abs(x - g 2) 0.00001Print gG=1X=2Do g = (g + x / g) / 2Loop until Abs(x - g 2) 0.00001Print g26、输入10个数，求正数的总和与负数的总和，以及正数的个数和负数及0的个数。 z = 0 f = 0 zg = 0 fg = 0 lg = 0 i = 1 Do While i = 10 x = val(InputBox(输入成绩, input) If 0 0 then f = f + x fg = fg +1 elselg = lg + 1 end if End If i = i + 1 Loop Print z, f27、用For求1100的和 s = 0 For i = 1 To 100 s = s + i Next Print s28、1100的奇数和，1100的偶数积，1100的平方和，1100的奇数的倒数和 1100的奇数和 s = 0 For i = 1 To 100 Step 2 s = s + i Next Print s 1100的偶数积 s = 1 For i = 2 To 100 Step 2 s = s * i Next Print s 1100的平方和 s = 0 For i = 1 To 100 s = s + i 2 Next Print s 1100的奇数的倒数和 s = 0 For i = 1 To 100 Step 2 s = s + 1/i Next Print s29、求从1加到100的过程中，加上哪个数，和超过了3000。 s = 0 For i = 1 To 100 s = s + i If s 3000 then Exit for End if Next Print s,i30、读程序，写出程序的输出结果是什么 For i=1 to 2 For j=1 to 2 Print i,j Next Next For i=1 to 2 For j=1 to 2 Print i & + & j & = & i+j Next Next31、编写程序输出所有由数字4、6、8组成的三位数。 For i=4 to 8 step 2 For j=4 to 8 step 2 For k=4 to 8 step 2 Print i*100+j*10+k Next Next Next32、编写程序输出130之内符合勾股定理的数字组合。 For i = 1 to 30 For j = 1 to 30 For k = 1 to 30 If i2 + j2 = k2 Then print i,j,k End If Next Next Next33、编写程序输出乘法九九表34、P171-10数字金字塔 for i = 1 to 9 print space(9-i) for j = 1 to i print j; next for k = i - 1 to 1 step -1 print k; next print next35、P171-12 求完全数 m = val(inputbox( ) n = val(inputbox( ) if m n then x = m m = n n = x end if for i = m to n s = 0 for j = 1 to i - 1 if i mod j = 0 then s = s + j end if next j if i = s then print i end if next 36、P171-14 对调数hh = 0For x = 11 To 99 a = x 10 b = x Mod 10 y = b * 10 + a For m = 11 To 99 i = m 10 j = m Mod 10 n = j * 10 + i If x + m = y + n Then Print x; m; ; hh = hh + 1 If hh Mod 10 = 0 Then Print End If End If NextNext37、假设我国人口13亿，我国人口年增长率为0.5%，计算多少年后我国人口超过20亿 rk = 13 n = 0 do while rk=20 rk = rk * 1.0005 n = n + 1 loop print n38、求1100之间，能同时被3或7整除的数。 for i = 1 to 100 if i mod 3 = 0 or i mod 7 = 0 then print i end if next39、输入一个数，判断是否为素数。 x = val(inputbox( ) k = 0 for i = 2 to x -1 if x mod i = 0 then k = 1 end if next if k = 0 then print 是素数 else print 不是素数 end if40、求100200之间所有的素数。 for x = 100 to 200 k = 0 for i = 2 to x -1 if x mod i = 0 then k = 1 end if next if k = 0 then print x end if next41、输入两个数，求其最大公约数 a = val(inputbox( ) b = val(inputbox( ) i = a do until a mod i = 0 and b mod i = 0 i = i - 1 loop print i42、输入两个数，求其最小公倍数。 a = val(inputbox( ) b = val(inputbox( ) i = a do until i mod a = 0 and i mod b = 0 i = i + 1 loop print i43、输入三个数，利用选择结构将其按从大到小的顺序输出 a = val(inputbox( ) b = val(inputbox( ) c = val(inputbox( ) if a b then t = a a = b b = t end if if a c then t = a a = c c = t end if if b c then t = b b = c c = t end if print a,b c44、企业发放奖金根据利润K提成，输入企业利润，利用select语句计算应发放多少奖金。 K = 10万奖金 10% 10万 K = 20万奖金 低于10万部分10%，高于10万部分7.5% 20万 K = 40万奖金 低于20万部分按上述方法提成，高于20万部分5% 40万 K = 60万奖金 低于40万部分按上述方法提成，高于40万部分3% 60万 K奖金 低于60万部分按上述方法提成，高于60万部分1% k = val(inputbox(请输入利润) select case k case is = 10 y = k * 0.1 case is = 20 y = 10*0.1 + (k-10)*0.075 case is = 40 y = 10*0.1 + 10*0.075 + (k - 20)*0.05 case is = 60 y = 10*0.1 + 10*0.075 + 20*0.