VB老师课件内容整理.docVIP

VB老师课件内容整理 1、第一个程序字符串的输出，最简单的程序只需一条语句 print hello print hello print china a = 10 print a 10 print a a 2、利用inputbox函数，输入一个数据，并输出 x = inputbox(请输入数据,输入框) y = val(inputbox(请输入数据,输入框)) print x;y 3、输入一个整数，输出是奇数还是偶数 x = val(inputbox(请输入一个整数,输入框)) if x mod 2 = 0 then print 偶数 else print 奇数 end if 4、输出三个数中最小的数 x = 15 y = 5 z =11 print x,y,z if xy then if xz then print x是最小的 endif else if yz then print y是最小的 else print z是最小的 end if end if 或者写为 x = 15 y = 5 z =11 print x,y,z if xy and xz then print x是最小的 else if yz then print y是最小的 else print z是最小的 end if end if 5、输入一个整数，利用IIF函数输出是奇数还是偶数 x = val(InputBox(输入一个整数, 输入)) a = IIf(x Mod 2 = 0, 偶数, 奇数) Print a 6、输入一个成绩，利用IIF函数输出成绩的等级（差60、良80、优100） x = val(InputBox(输入一个成绩, 输入)) a = IIf(x 60, 差, IIf(x 80, 良, 优)) Print a 7、输入一个成绩，利用select case语句输出成绩的等级（不及格，及格，中等、良好、优秀） x = val(InputBox(输入一个整数, 输入)) Select Case x Case Is 60 Print 不及格 Case Is 70 Print 及格 Case Is 80 Print 中 Case Is 90 Print 良 Case Else Print 优 End Select 8、select case中 case后的条件的各种写法 x = val(InputBox(输入一个整数, 输入)) Select Case x Case 60 print 真幸运刚好及格 Case 10,20,30,40,50,60,70,80,90,100 print 真巧你的成绩是10的倍数 Case 0 to 29 print 太差了吧，你还不到30分 End Select 9、特殊的运算符以及运算符的优先级问题 5*5\5/5 -3^2与(-3)^2 3+5*79 or 57-6 and 85 and not 74 10、P170-3 a = 5 b = 2.5 c = 7.8 y = (3.1415*a*b)/(a+b*c) print y 11、P170-5 v0 = val(inputbox(请输入初速度v0,初速度)) t = val(inputbox(请输入时间t,时间)) s = 0.5 * g * t ^ 2 + v0 * t print s 12、输入一个字符串，输出这个字符串是否是个数字字符串。Isnumeric() x = inputbox(请输入任意字符串,输入框) print x if Isnumeric(x) that print 您输入的是个数字字符串 else print 您输入的不是数字字符串 end if 13、编写程序：输入一个整数，输出是奇数还是偶数。当输入的数据不是整数而是字母的时候，输出数据不合法。 x = inputbox(请输入任意字符串,输入框) print x if Isnumeric(x) that if x mod 2 = 0 then print 偶数 else print 奇数 end if else print 数据不合法 end if 14、输入