vb操作题

vb操作题 VB操作题 VB操作题 目录 4. 给定年份和月份，判断该年是否是闰年。并根据给出的月份判断是什么季节、该月有多少天。(闰年的条件是:年份能被4整除但不能被100整除或能被400 整除) 6. 编写程序，输入学生的姓名、学号和成绩(高数、英语和专业课)，判断该学生能获得几等奖学金，并输出结果。获奖条件是:一等奖学金要求所有成绩在95分以上;二等奖学金要求所有成绩在90分以上;三等奖学金要求所有成绩在88分以上。 8. 已知:。。 当任意输入x值时求f(x)的值。请编制程序完成。 9. 编写一个程序输入某人的身高(cm)和体重(kg)，按下式确定其体重是否为 标准 excel标准偏差excel标准偏差函数exl标准差函数国标检验抽样标准表免费下载红头文件格式标准下载 、过胖或过瘦: (1)标准体重=身高-110;(2)超过标准体重5kg为过胖;(3)低于标准体重5kg为瘦。 10. 征兵的条件是:男性(sex)年龄(age)在18~20之间，身高(size)在1.65米以上;或者女性(sex)年龄(age)在16~18之间，身高(size)在1.60米以上。 用三个文本框控件分别输入性别、年龄、身高信息，根据这些信息判断是否符合征兵条件，用标签控件输出结果。 11. 夏季到了，超市对水果进行促销，具体活动如下: 早市 9:00~ 12:00 所有水果打九折; 午市 12:00 ~ 16:00 所有水果打8折; 晚市 16:00 ~ 21:00 所有水果打7折; 小明今天要去超市买些荔枝，请根据他去的时间段，编程输入荔枝的价格并计算总价。 斤) (请注意，他买的水果可能不止1 12. 为某航空公司 设计 领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计 一售机票程序，能根据月份和订票数决定优惠率，计算票 价。假设优惠折扣规定如下: ? 在旅游的旺季7,9 月份，如果订票数超过20 张，票价 优惠15%;20 张以下，票价优惠5%。 ? 在旅游的淡季1,5 月份、10 月份和11 月份， 如果订票数超过20 张，票价优惠30%，20 张以下，票价优惠20%。 ? 其他情况，一律 优惠20%。 13. 输入4 个大小不同的数，将它们从大到小排序。 14. 利用if 语句求三个数x，y，z 中的最大值，并将其放入Max 变量中显示输出。 15. 编一段程序，从键盘输入3 个整数，找出其中绝对值最小的数。 16. 税务部门征收所得税，规定如下: (1) 收入在1000内的，免征。 (2) 收入在1000~1500元内，超过1000元的部分征税2% 。 (3) 收入超过1500元的部分，纳税3%。 (4) 当收入达到或者超过5000元时，将3%税金改为4%。 编程实现上述条件的税金，利用InputBox函数进行输入某人的收入，然后根据条件计算所交税金及交税金之后的实际收入，将所交税金及实际收入通过文本框输出 17. 求一个一元二次方程ax^2+... 的根 18. 任意输入5个学生的成绩，当成绩大于等于60小于等于100时，输出该生成绩“合格”，当成绩大于等于0小于60时，输出该生成绩“不合格”，其他情况输出“成绩不合法”，并 1 临木川斫护 VB操作题 统计这5个人的平均分。 19. 用两种循环结构输出101~500之间的所有奇数并输出它们的和。 20. 输入两个正整数m 和n，求其最大公约数a 21. 求: 要求:用InputBox或文本框进行n值的输入，用MsgBox函数输出结果 22. 利用下述公式计算 的值(直到最后一项小于为止)。 23. 百鸡问题 公鸡每只5元，母鸡每只3元，小鸡3只1元。现有100元，要求买100只鸡，问:公鸡、母鸡、小鸡各多少只,(所有可能的结果均放在列表框中显示出来) 24. 设计程序，求s=1*(1+2)*(1+2+3)*„.*(1+2+3+4+„+n)的值，编程求s不大于20000时最大的n值。 25. 求300~400之间(包括300和400)所有能被3整除的数之和s，并在窗体上打印出s的值。 26. 已知编程实现:任意输入n的值，求S的值 27. 编程求1到100自然数中被7整除的数据的个数及它们的和。 28. 求S=1!/2 + 2!/3 + 3!/4 + ... + n!/(n+1)，n是从键盘输入的正整数n 。 29(求s，直到最后一项的值小于10^(-6) 30. s=....r任意输入一个n值，求S 31. 某单位制定生产 计划 项目进度计划表范例计划下载计划下载计划下载课程教学计划下载 ，未来五年的生产量年递增率为5%，从第六年起年递 增率调整到8%，试计算产量翻一翻(基数的2 倍)所需的最少年数。 32. 编写一个求4个数中最大数的Sub过程，并调用以验证其正确性。 33. 编写一个求4个数的最小值的函数，在窗体上设计4个文本框输入数据，一个命令按钮“求最小值“，点击该按钮既可调用函数求出4个文本框中的数值的最小值。 34. 编写一个计算圆的面积的函数过程或子过程。要求输入一个半径值，就能够 通过该子过程或函数过程求得以该值为半径的圆的面积 35. S=1/1+1....，编写一个求的Function过程。 36. 编写 的Function函数，用该函数实现以下表达式求和，n为任意输入的数值。 37. 在列表框中输入100~200之间不能被3整除的数。窗体上有两个命令按钮和一个列表框，一个命令按钮的标题为“开始”，一个命令按钮的标题为“清除“;点击”开始“按钮后在列表框中列出所有满足条件的数据，点击”清除“按钮后清除列表框中的数据。 38. 已知数组A=array(7,9,5,12,24,32,45)，编写一程序，删除数组中值为x (例如 为9)的第一个元素。要求用户可以输入x 。 39. 随机产生n 个(n 由用户输入)[10,20]范围内的无序整数，存放到数组中， 显示结果，并将数组中相同的数只保留一个，其余的删除，最后输出删除后的结果。 40. 利用一维数组统计一班15 个学生0~9、10~19、20~29、„„、90~99 及100 各分数段的人数，并将统计结果在列表框中显示出来 41. 有10 个数据，请用冒泡法排序将其按照由小到大的顺排列出来 42. 把两个按升序(即从小到大)排序的数列a(1),a(2),a(3),„„,a(10)和b(15) 合并成一个仍为升序排列的新数列 43. 利用随机函数产生20 个50~100 范围内的随机数，显示他们的最大值、最小值和 平均值。 44. 编写一个在数组中查找最大值的函数过程。要求给定或由机器产生一系列随机数构 成一个一维数组，然后调用该过程，就可以找到并显示数组中的最大值。 2 临木川斫护 VB操作题 45. (96)任意输入n 值，编程求n! 46( (80)已知铁路货运的费用与路程s的关系如下表所示:设计窗体界面如下图所示，程序运行后，用户输入路程和货物重量，单击命令按钮，显示总共需要的费用。 47.在“神州号”程序中，需要判断飞船飞行状况。当飞船速度继续加大时，飞船将达到第二宇宙、第三宇宙速度(见下表)试编写程序，输入不同的飞船速度V，判断它的各种飞行状况，显示出来。 飞船速度( V) 单位(km/s) 飞行状况 7.91<=V<11.19 飞船绕地球做匀速圆周运动 11.19<=V<16.67 飞船离开地球的控制 ,围绕太阳转 V>16.67 飞船挣脱太阳引力飞出太阳系 48. ?，编写一个求的Sub过程，对于任意给定的n值，调用该过程求出相应的s值 ——————————————————答案——————————————————— 4. 给定年份和月份，判断该年是否是闰年。并根据给出的月份判断是什么季节、该月有多少天。(闰年的条件是:年份能被4整除但不能被100整除或能被400 整除) 4 Private Sub Command1_Click() Dim x As Integer, y As Integer Text1.Text = InputBox("请输入年份") x = Val(Text1.Text) Text3.Text = (x Mod 4) = 0 And (x Mod 100 <> 0) _ Or (x Mod 4) = 0 And (x Mod 400 = 0) End Sub Private Sub Command2_Click() Dim x As Integer, y As Integer Text2.Text = InputBox("请输入月份") y = Val(Text2.Text) Select Case y Case 3 To 5 Text4.Text = "春季" Case 6 To 8 Text4.Text = "夏季" Case 9 To 11 Text4.Text = "秋季" Case 1, 2, 12 Text4.Text = " 冬季" End Select End Sub Private Sub Command3_Click() Dim x As Integer, y As Integer Text1.Text = InputBox("请输入年份") x = Val(Text1.Text) 3 临木川斫护 VB操作题 Text3.Text = (x Mod 4) = 0 And (x Mod 100 <> 0) _ Or (x Mod 4) = 0 And (x Mod 400 = 0) Text2.Text = InputBox("请输入月份") y = Val(Text2.Text) Select Case y Case 1, 3, 5, 7, 8, 10, 11 Text5.Text = "31天" Case 4, 6, 9, 12 Text5.Text = "30天" Case 2 If Text1.Text = 0 Then Text5.Text = "29天" Else Text5.Text = "28天" End If End Select End Sub 6. 编写程序，输入学生的姓名、学号和成绩(高数、英语和专业课)，判断该学生能获得 几等奖学金，并输出结果。获奖条件是:一等奖学金要求所有成绩在95分以上;二等奖学 金要求所有成绩在90分以上;三等奖学金要求所有成绩在88分以上。 6 Private Sub Command1_Click() Dim m%, n%, d%, sun%, no$, name$ no = InputBox("输入学号") name = InputBox("输入姓名") m = Val(Text1.Text) n = Val(Text2.Text) d = Val(Text3.Text) sun = m + n + d If m > 95 And n > 95 And d > 95 Then Label5.Caption = name & "获一等奖学金" ElseIf m >= 90 And n >= 90 And d >= 90 Then Label5.Caption = name & "获二等奖学金" ElseIf m >= 88 And n >= 88 And d >= 88 Then Label5.Caption = name & "获三等奖学金" Else Label5.Caption = name & "没有奖学金""" End If End Sub Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" 4 临木川斫护 VB操作题 Label5.Caption = " " End Sub 8 当任意输入x值时求f(x)的值。请编制程序完成。 8 Private Sub Command1_Click() Dim x!, f! x = Val(InputBox("请输入x的值")) If (x < 0 And x <> -3) Then f = x ^ 2 + x - 6 ElseIf (x >= 0 And x < 10 And x <> 2 And x <> 3) Then f = x ^ 2 - 5 * x + 6 Else f = x ^ 2 - x - 1 End If MsgBox "f(x)的值是" & f End Sub 9. 编写一个程序输入某人的身高(cm)和体重(kg)，按下式确定其体重是否为标准、过胖 或过瘦: (1)标准体重=身高-110;(2)超过标准体重5kg为过胖;(3)低于标准体重5kg为瘦。 9 Private Sub Command1_Click() Dim m!, n%, d! m = Val(Text1.Text) n = Val(Text2.Text) d = n - 110 Label5.Caption = " 按你的身高，标准体重为:" & d & "公斤" If m - d > 5 Then Label6.Caption = "你比较胖，请注意瘦身" ElseIf m = d Then Label6.Caption = "你是标准体重" Else Label6.Caption = "你比较瘦，请注意锻炼" End If End Sub Private Sub Command2_Click() Text1.Text = " " Text2.Text = " " Label5.Caption = " " Label6.Caption = " " End Sub Private Sub Command3_Click() 5 临木川斫护 VB操作题 End End Sub 10. 征兵的条件是:男性(sex)年龄(age)在18~20之间，身高(size)在1.65米以上; 或者女性(sex)年龄(age)在16~18之间，身高(size)在1.60米以上。 用三个文本框控件分别输入性别、年龄、身高信息，根据这些信息判断是否符合征兵 条件，用标签控件输出结果。 10 Private Sub Command1_Click() Dim m$, n%, d! m = Text1.Text n = Val(Text2.Text) d = Val(Text3.Text) If m = "男" And n >= 18 And n <= 20 And d > 1.63 Then Label5.Caption = "符合征兵条件" ElseIf m = "女" And n >= 16 And n <= 18 And d > 1.6 Then Label5.Caption = "符合征兵条件" Else Label5.Caption = "不符合征兵条件" End If End Sub Private Sub Command2_Click() End End Sub 11. 夏季到了，超市对水果进行促销，具体活动如下: 早市 9:00~ 12:00 所有水果打九折; 午市 12:00 ~ 16:00 所有水果打8折; 晚市 16:00 ~ 21:00 所有水果打7折; 小明今天要去超市买些荔枝，请根据他去的时间段，编程输入荔枝的价格并计算总价。 (请注意，他买的水果可能不止1斤) 11 Private Sub Command1_Click() Dim m!, n, r%, dj! m = Val(Text1.Text) n = Val(Text2.Text) dj = Val(Text3.Text) Select Case m Case 9 To 12 r = 90 Case 12 To 16 r = 80 Case 16 To 21 6 临木川斫护 VB操作题 r = 70 End Select Label5.Caption = "打折率为:" & Str(r) & "%" Label6.Caption = "共收款" & r * dj * n / 100 & "元" End Sub Private Sub Command2_Click() End End Sub Private Sub Form_Load() Text1.Text = Time() End Sub 12. 为某航空公司设计一售机票程序，能根据月份和订票数决定优惠率，计算票 价。假设优惠折扣规定如下: ? 在旅游的旺季7,9 月份，如果订票数超过20 张，票价 优惠15%;20 张以下，票价 优惠5%。 ? 在旅游的淡季1,5 月份、10 月份和11 月份， 如果订票数超过20 张，票价优惠30%， 20 张以下，票价优惠20%。 ? 其他情况，一律 优惠20%。 12 Private Sub Command1_Click() Dim m%, n%, r%, dj! m = Val(Text1.Text) n = Val(Text2.Text) dj = Val(Text3.Text) Select Case m Case 1 To 5 If n <= 20 Then r = 20 Else r = 30 Case 7 To 9 If n <= 20 Then r = 5 Else r = 15 Case Else r = 20 End Select Label4.Caption = "所订机票的优惠率为:" & Str(r) & "%" Label6.Caption = "单张票价为" & (100 - r) * dj / 100 & "元" & "，共收款" & (100 - r) * dj * n / 100 & "元" End Sub Private Sub Command2_Click() End End Sub 7 临木川斫护 VB操作题 Private Sub Form_Load() Text1.Text = Month(Date) End Sub 13. 输入4 个大小不同的数，将它们从大到小排序。 13 Private Sub Command1_Click() i = Val(Text1.Text) j = Val(Text2.Text) k = Val(Text3.Text) m = Val(Text4.Text) If (i < j) Then c = i: i = j: j = c If (i < k) Then c = i: i = k: k = c If (i < m) Then c = i: i = m: m = c If (j < k) Then c = j: j = k: k = c If (j < m) Then c = j: j = m: m = c If (k < m) Then c = k: k = m: m = c Text5.Text = i Text6.Text = j Text7.Text = k Text8.Text = m End Sub Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" Text7.Text = "" Text8.Text = "" End Sub Private Sub Command3_Click() End End Sub 14. 利用if 语句求三个数x，y，z 中的最大值，并将其放入Max 变量中显示输出。 14 Private Sub Command1_Click() i = Val(Text1.Text) j = Val(Text2.Text) k = Val(Text3.Text) m = i 8 临木川斫护 VB操作题 If (i < j) Then m = j If (m < k) Then m = k Text4.Text = m End Sub Private Sub Command3_Click() End End Sub 15. 编一段程序，从键盘输入3 个整数，找出其中绝对值最小的数。 15 Private Sub Command1_Click() i = Val(Text1.Text) j = Val(Text2.Text) k = Val(Text3.Text) m = Abs(i) If (m < Abs(j)) Then m = Abs(j) If (m < Abs(k)) Then m = Abs(k) Text4.Text = m End Sub Private Sub Command3_Click() End End Sub 16. 税务部门征收所得税，规定如下: (1) 收入在1000内的，免征。 (2) 收入在1000~1500元内，超过1000元的部分征税2% 。 (3) 收入超过1500元的部分，纳税3%。 (4) 当收入达到或者超过5000元时，将3%税金改为4%。 编程实现上述条件的税金，利用InputBox函数进行输入某人的收入，然后根据条件计算所 交税金及交税金之后的实际收入，将所交税金及实际收入通过文本框输出 16 Private Sub Command1_Click() Dim m!, n!, r%, dj! Text1.Text = InputBox("请输入你的收入") m = Val(Text1.Text) Select Case m Case 1000 To 1500 r = 2: n = (m - 1000) * r / 100: dj = m - n Case 1501 To 5000 9 临木川斫护 VB操作题 r = 3: n = (m - 1500) * r / 100: dj = m - n Case Is > 5000 r = 4: n = (m - 1500) * r / 100: dj = m - n Case Else r = 0: n = 0: dj = m End Select Text2.Text = n & "元" Text3.Text = dj & "元" End Sub Private Sub Command2_Click() End End Sub 17. 求一个一元二次方程ax^2+bx+c=0 的根 17 Private Sub Command1_Click() End Sub Private Sub Form_Click() Dim a As Single, b As Single, c As Single Dim D As Single, x1 As Single, x2 As Single a = Val(InputBox("请输入一元二次方程的系数a")) b = Val(InputBox("请输入一元二次方程的系数b")) c = Val(InputBox("请输入一元二次方程的系数c")) If a = 0 Then a = InputBox("请重新输入系数a") End If D = b * b - 4 * a * c If D >= 0 Then x1 = (-b + Sqr(D)) / (2 * a) x2 = (-b - Sqr(D)) / (2 * a) Print "x1="; Format(x1, "0. ####") Print "x2="; Format(x2, "0. ####") Else Print "此方程在实数范围内无解" End If End Sub 18. 任意输入5个学生的成绩，当成绩大于等于60小于等于100时，输出该生成绩“合格”，当成绩大于等于0小于60时，输出该生成绩“不合格”，其他情况输出“成绩不合法”，并统计这5个人的平均分。 18 Private Sub Command1_Click() Dim str As String, s!, n% 10 临木川斫护 VB操作题 n = 0 Print Tab(5); "成绩"; Tab(20); "等级" Print For i = 1 To 5 Text1.Text = InputBox("请输入学生的成绩") If Val(Text1) < 0 Or Val(Text1) > 100 Then str = "数据不合法" n = n + 1 Else If Val(Text1) >= 60 Then str = "合格" Else str = "不合格" End If s = s + Val(Text1.Text) End If Print Tab(5); Val(Text1); Tab(20); str Next i Print Print Tab(10); "平均成绩为: " & s / (5 - n) End Sub 19. 用两种循环结构输出101~500之间的所有奇数并输出它们的和。 19 Private Sub Command2_Click() Dim i%, n%, sum! sum = 0: n = 0 For i = 101 To 500 Step 2 sum = sum + i n = n + 1 Next i Text1.Text = sum Text2.Text = n End Sub Private Sub Command1_Click() Dim i%, n%, sum! i = 101: sum = 0: n = 0 Do Until i > 500 sum = sum + i n = n + 1 i = i + 2 Loop Text1.Text = sum 11 临木川斫护 VB操作题 Text2.Text = n End Sub 20. 输入两个正整数m 和n，求其最大公约数a 20 Private Sub Form_Click() n1 = InputBox("输入n") m1 = InputBox("输入m") If m1 > n1 Then ' m>n m = m1: n = n1 Else m = n1: n = m1 End If Do r = m Mod n If r = 0 Then Exit Do m = n n = r Loop Print Print Tab(5); m1; " , "; n1; " 的最大公约数为: "; n End Sub 21. 求:1^2/1+1....... 要求:用InputBox或文本框进行n值的输入，用MsgBox函数输出结果 21 Private Sub Command1_Click() Dim s!, f!, n% n = InputBox("请输入n的值") s = 0: f = 1 For i = 1 To n f = i * i / (i + 1) s = s + f Next i MsgBox "s=1*1/(1+1)+2*2/(2+1)+...=" & s End Sub 22. 利用下述公式计算 的值(直到最后一项小于为止)。 e^x=... 22Private Sub Command1_Click() Dim i%, n#, t#, e#, x!, t1# e = 0 ' 存放累加和结果 i = 0 ' 计数器 n = 1 ' 存放阶乘的值 t = 1 ' 级数第i项值 12 临木川斫护 VB操作题 t1 = 1 ' 存放x的幂 x = InputBox("输入x的值:") Do While t > 0.00001 e = e + t i = i + 1 n = n * i t1 = t1 * x t = t1 / n Loop Print "计算了 "; i; " 项"; "e的^x的值是 "; e End Sub 23. 百鸡问题 公鸡每只5元，母鸡每只3元，小鸡3只1元。现有100元，要求买100只鸡，问:公鸡、 母鸡、小鸡各多少只,(所有可能的结果均放在列表框中显示出来) 23Private Sub Command2_Click() ' Dim x%, y%, z% For x = 1 To 33 For y = 1 To 20 z = 100 - x - y If 9 * x + 15 * y + z = 300 Then Picture2.Print x, y, z End If Next y Next x End Sub Private Sub Command1_Click() ' Dim x%, y%, z% For x = 1 To 33 For y = 1 To 20 For z = 3 To 99 Step 3 If (3 * x + 5 * y + z \ 3 = 100) And (x + y + z = 100) Then Picture1.Print x, y, z End If Next z Next y Next x End Sub 24. 设计程序，求s=1*(1+2)*(1+2+3)*„.*(1+2+3+4+„+n)的值，编程求s不大于 20000时最大的n值。 13 临木川斫护 VB操作题 24Private Sub Command1_Click() Dim i!, n!, sum! i = 1: sum = 1: n = 1 Do Until sum > 20000 sum = sum * i n = n + 1 i = i + n Loop Text1.Text = sum Text2.Text = n - 1 End Sub 25. 求300~400之间(包括300和400)所有能被3整除的数之和s，并在窗体上打印出s 的值。 25Private Sub Command1_Click() s = 0 For i = 300 To 400 If i Mod 3 = 0 Then num7 = num7 + 1 s = s + i End If Next i Print "100-400之间能被3整除的数字和为:"; s End Sub 26. 已知S=... 编程实现:任意输入n的值，求S的值 26Private Sub Command1_Click() Dim s!, f!, n% n = InputBox("请输入n的值") s = 0: f = 1 For i = 1 To n s = s + 1 / f f = f * i Next i Print "s=1+1/2!+1/3!+...="; s End Sub 27. 编程求1到100自然数中被7整除的数据的个数及它们的和。 27Private Sub Command1_Click() num = 0 num7 = 0 For i = 1 To 100 If i Mod 7 = 0 Then num7 = num7 + 1 14 临木川斫护 VB操作题 num = num + i End If Next i Text1.Text = Str(num) Text2.Text = Str(num7) & "个" End Sub 28. 求S=1!/2 + 2!/3 + 3!/4 + ... + n!/(n+1)，n是从键盘输入的正整数n 。 28Private Sub Command1_Click() Dim s!, f!, n% n = InputBox("请输入n的值") s = 0: f = 1 For i = 1 To n f = f * i s = s + f / (i + 1) Next i Print "s=1!/2+2!/3+3!/4+...="; s End Sub 29 求s，直到最后一项的值小于10^(-6) 29 Private Sub Command1_Click() Dim i!, n!, sum!, f! i = 1: sum = 1: n = 1: f = 1 Do Until f < 0.000001 i = i * (n + 1) f = 1 / (i - 1) sum = sum + f n = n + 1 Loop Text1.Text = sum Text2.Text = n - 1 End Sub 30 s=....r任意输入一个n值，求S 30Private Sub Command1_Click() Dim s!, f!, n% n = InputBox("请输入n的值") s = 0: f = 1 For i = 1 To n f = 2 * i - 1 s = s + 1 / f Next i Print "s=1+1/3+1/5+1/7+...="; s End Sub 15 临木川斫护 VB操作题 31. 某单位制定生产计划，未来五年的生产量年递增率为5%，从第六年起年递 增率调整到8%，试计算产量翻一翻(基数的2 倍)所需的最少年数。 31Private Sub Form_Click() Dim p As Single Dim r As Single Dim n As Integer p = 15000 r = 0.05: r1 = 0.08 n = 0 Do p = p * (1 + r) n = n + 1 Loop Until n = 5 Do p = p * (1 + r1) n = n + 1 Loop Until p > 30000 Print n; "年后", "产值="; p; " 是原来的两倍以上" End Sub 32. 编写一个求4个数中最大数的Sub过程，并调用以验证其正确性。 32Option Base 1 Private Sub max1(ByVal m1%, ByVal m2%, ByVal m3%, ByVal m4%) Max = m1 If m2 > Max Then Max = m2 If m3 > Max Then Max = m3 If m4 > Max Then Max = m4 Text5.Text = Max End Sub Private Sub Command1_Click() m1 = Val(Text1.Text) m2 = Val(Text2.Text) m3 = Val(Text3.Text) m4 = Val(Text4.Text) Call max1(m1, m2, m3, m4) End Sub 33. 编写一个求4个数的最小值的函数，在窗体上设计4个文本框输入数据，一个命令按钮 “求最小值“，点击该按钮既可调用函数求出4个文本框中的数值的最小值。 33Option Base 1 Private Function min(ByVal m1%, ByVal m2%, ByVal m3%, ByVal m4%) As Integer min = m1 If m2 < min Then min = m2 16 临木川斫护 VB操作题 If m3 < min Then min = m3 If m4 < min Then min = m4 End Function Private Sub Command1_Click() m1 = Val(Text1.Text) m2 = Val(Text2.Text) m3 = Val(Text3.Text) m4 = Val(Text4.Text) mn = min(m1, m2, m3, m4) Text5.Text = mn End Sub 34. 编写一个计算圆的面积的函数过程或子过程。要求输入一个半径值，就能够 通过该子过程或函数过程求得以该值为半径的圆的面积 34 Private Sub Form_Click() Dim r! r = Val(InputBox("请输入圆的半径:")) CirArea r End Sub Public Sub CirArea(r) Const PI = 3.1415926 Dim area! area = PI * r * r MsgBox "圆的面积为:" & area End Sub 35. S=1/1+1....，编写一个求的Function过程。 35Option Base 1 Private Function f!(ByVal n%) Dim i%, s! If n = 1 Then f = 0.5 Else f = 0: s = 1 For i = 2 To n s = s + i Next i f = 1 / s End If End Function 17 临木川斫护 VB操作题 Private Sub Command1_Click() Dim s!, i%, n% s = 0 n = Val(InputBox("请输入项数n")) Text1.Text = n For i = 1 To n s = s + f(i) Text2.Text = s Next i End Sub 36. 编写n^2/n+1 的Function函数，用该函数实现以下表达式求和，n为任意输入的数值。 .... 36Option Base 1 Private Function f!(ByVal n%) f = n * n / (n + 1) End Function Private Sub Command1_Click() Dim s!, i%, n% s = 0 n = Val(InputBox("请输入项数n")) Text1.Text = n For i = 1 To n s = s + f(i) Print f(i) Text2.Text = s Next i End Sub 37. 在列表框中输入100~200之间不能被3整除的数。窗体上有两个命令按钮和一个列表框， 一个命令按钮的标题为“开始”，一个命令按钮的标题为“清除“;点击”开始“按钮后在 列表框中列出所有满足条件的数据，点击”清除“按钮后清除列表框中的数据。 37 Private Sub Command1_Click() For I = 100 To 200 If I Mod 3 <> 0 Then List1.AddItem I End If Next I End Sub Private Sub Command2_Click() 18 临木川斫护 VB操作题 List1.Clear End Sub 38. 已知数组A=array(7,9,5,12,24,32,45)，编写一程序，删除数组中值为x (例如 为9)的 第一个元素。要求用户可以输入x 。 38 Private Sub Form_Click() Dim a(), i%, k%, x%, n% a = Array(1, 4, 7, 9, 12, 14, 23, 56) n = UBound(a) x = Val(Text1) For k = 0 To n If x = a(k) Then Exit For Next k If k > n Then MsgBox "找不到此数": Exit Sub For i = k + 1 To n a(i - 1) = a(i) Next i n = n - 1 ReDim Preserve a(n) For i = 0 To n Print a(i); Next i End Sub 39. 随机产生n 个(n 由用户输入)[10,20]范围内的无序整数，存放到数组中， 显示结果，并将数组中相同的数只保留一个，其余的删除，最后输出删除后的结果。 39 Private Sub Form_Click() Dim a() As Integer, n%, i%, b() As Integer n = Val(InputBox("请输入数组元素的个数:")) ReDim a(n) Print "原数组如下:" For i = 1 To n a(i) = Int(Rnd * 11 + 10) Print a(i); Next i For i = 1 To n - 1 For j = i + 1 To n If a(j) = a(i) Then a(j) = 0 Next j Next i k = 0 '用k来统计非零元素的个数 19 临木川斫护 VB操作题 For i = 1 To n If a(i) <> 0 Then k = k + 1 Next i ReDim b(k) '存放删除相同元素后的数组元素 j = 1 For i = 1 To n If a(i) <> 0 Then b(j) = a(i): j = j + 1 Next i Print Print "删除后:" For i = 1 To k Print b(i); Next i End Sub 40. 利用一维数组统计一班15 个学生0~9、10~19、20~29、„„、90~99 及100 各分数段的人数，并将统计结果在列表框中显示出来 40Private Sub Command1_Click() Const NUM = 45 Dim a(1 To NUM) As Integer, i%, n% Dim b(0 To 10) As Integer, k% n = Val(InputBox("请输入学生人数N", , "15")) For i = 1 To n a(i) = Val(InputBox("请输入第" & i & "个成绩")) Do While a(i) < 0 Or a(i) > 100 MsgBox ("请输入0-100的分数") a(i) = Val(InputBox("请输入第" & i & "个成绩")) Loop List1.AddItem a(i) k = Int(a(i) / 10) b(k) = b(k) + 1 Next i For i = 0 To 9 List2.AddItem Str(i * 10) & "---" & Str(i * 10 + 9) & "分数段的人数是:" & b(i) Next i List2.AddItem "100分的学生人数是:" & b(10) End Sub Private Sub Command2_Click() List1.Clear List2.Clear End Sub 20 临木川斫护 VB操作题 Private Sub Command3_Click() End End Sub 41. 有10 个数据，请用冒泡法排序将其按照由小到大的顺排列出来 41Private Sub Command1_Click() Const N = 10 Dim a%(1 To N), i%, j%, imin%, t% Randomize For i = 1 To N '产生N个[1,100]之间的随机整数 a(i) = Int(Rnd * 100 + 1) Next i Picture1.Print "排序前:" '打印输出排序前的数据 For i = 1 To N Picture1.Print a(i); If i Mod 10 = 0 Then Picture1.Print Next i For i = 1 To N - 1 '用冒泡法进行排序 For j = 1 To N - i If a(j) > a(j + 1) Then t = a(j): a(j) = a(j + 1): a(j + 1) = t Next j Next i Picture1.Print "排序后:" '打印输出排序后的数据 For i = 1 To N Picture1.Print a(i); If i Mod 10 = 0 Then Picture1.Print Next i End Sub 42. 把两个按升序(即从小到大)排序的数列a(1),a(2),a(3),„„,a(10)和b(15) 合并成一个仍为升序排列的新数列 42 Private Sub Form_Click() Const N = 5, m = 6 Dim a%(1 To N), b%(1 To m), c%(1 To m + N), i%, j% Randomize For i = 1 To N '产生a数组的元素 a(i) = Int(Rnd * 100 + 1) Next i Call maopao(a) Print "输出a数组" For i = 1 To N 21 临木川斫护 VB操作题 Print a(i); " "; Next i Print For i = 1 To m '产生b数组的元素 b(i) = Int(Rnd * 100 + 1) Next i Call maopao(b()) Print "输出b数组" For i = 1 To m Print b(i); " "; Next i Print i = 1: j = 1: k = 1 Do While (i <= N And j <= m) If (a(i) < b(j)) Then c(k) = a(i): k = k + 1: i = i + 1 Else c(k) = b(j): k = k + 1: j = j + 1 End If Loop Do While (i <= N And k <= m + N) c(k) = a(i) k = k + 1 i = i + 1 Loop Do While (j <= m And k <= m + N) c(k) = b(j) k = k + 1 j = j + 1 Loop Print "输出c数组" For k = 1 To m + N Print c(k); " "; If k Mod 5 = 0 Then Print Next k Print End Sub Public Sub maopao(aa%()) For i = 1 To UBound(aa) - 1 '用冒泡法进行排序 For j = 1 To UBound(aa) - i If aa(j) > aa(j + 1) Then t = aa(j) aa(j) = aa(j + 1) 22 临木川斫护 VB操作题 aa(j + 1) = t End If Next j Next i End Sub 43. 利用随机函数产生20 个50~100 范围内的随机数，显示他们的最大值、最小值和 平均值。 43Private Sub Command1_Click() Max = 50: Min = 100 ave = 0 Randomize For i = 1 To 20 a = Int(Rnd() * 50 + 50) List1.AddItem a ave = ave + a If a > Max Then Max = a If a < Min Then Min = a Next i ave = ave / 20 List2.AddItem "最大数是" & Str(Max) List2.AddItem "最小数是" & Str(Min) List2.AddItem "平均数是" & Str(ave) End Sub Private Sub Command2_Click() List1.Clear List2.Clear End Sub 44. 编写一个在数组中查找最大值的函数过程。要求给定或由机器产生一系列随机数构 成一个一维数组，然后调用该过程，就可以找到并显示数组中的最大值。 44Public Sub sort(a%()) Dim i%, max% n = Val(InputBox("请输入数组的上界")) Randomize Print "原数组:" For i = LBound(a) To n '给数组赋值并显示 a(i) = Int(Rnd * 100) Print a(i); Next i max = a(LBound(a)) For i = LBound(a) To n 23 临木川斫护 VB操作题 If a(i) > max Then max = a(i) Next i Print Print Print "数组中的最大数是:"; max End Sub Private Sub Form_Click() Dim ar(1 To 50) As Integer '数组最大只有50个元素 Call sort(ar()) End Sub 45. (96)任意输入n 值，编程求n! 45 Private Sub Command1_Click() Dim i%, n%, s! i = 1: s = 1 Text1.Text = InputBox("请输入n") n = Val(Text1.Text) For i = 1 To n s = s * i Next i Text2.Text = s End Sub 46( (80)已知铁路货运的费用与路程s的关系如下表所示图略:设计窗体界面如下图所 示，程序运行后，用户输入路程和货物重量，单击命令按钮，显示总共需要的费用。 46Private Sub Command1_Click() Dim m%, n%, r%, dj! m = Val(Text1.Text) n = Val(Text2.Text) Select Case m Case Is < 50 r = n * 1# Case 50 To 200 r = n * 0.8 Case 200 To 500 r = n * 0.7 Case Is > 500 r = n * 0.65 End Select Text3.Text = r End Sub 24 临木川斫护 VB操作题 Private Sub Command2_Click() End End Sub 47.在“神州号”程序中，需要判断飞船飞行状况。当飞船速度继续加大时，飞船将达到第 二宇宙、第三宇宙速度(见下表)试编写程序，输入不同的飞船速度V，判断它的各种飞行 状况，显示出来。 47Private Sub Command1_Click() Dim v! v = Val(Text1.Text) If (v > 7.91 And v < 11.19) Then Text2.Text = "飞船绕地球做匀速圆周运动" ElseIf (v >= 11.19 And v < 16.67) Then Text2.Text = "飞船离开地球的控制 ,围绕太阳转" ElseIf (v >= 16.67) Then Text2.Text = "飞船挣脱太阳引力飞出太阳系" End If End Sub Private Sub Command2_Click() End End Sub 48. s=1+(1+2)+...，编写一个求的1+2+3+...+n的sub过程，对于任意给定的n值，调用该过 程求出相应的s值 48 Private Sub Form_Click() Dim n%, s!, i%, f! n = Val(InputBox("请输入n:")) s = 0 For i = 1 To n Call sf(i, f) Print f s = s + f Next i Text1.Text = "1+(1+2)...=" & s End Sub Public Sub sf(n%, f!) Dim i% f = 0 For i = 1 To n f = f + i Next i End Sub 25 临木川斫护 VB操作题 下面是赠送的企业管理名句100，欢迎欣赏!!!!!! 关于企业管理的名言名句 5、对产品质量来说，不是100分就是0分。——日本经营之神松下幸之助 6、全世界没一个质量差、光靠价格便宜的产品能够长久地存活下来。——华硕总经理徐世明 7、把我们顶尖的20个人才挖走，那么我告诉你，微软会变成一家无足轻重的公司。——世界首富比尔?盖茨 8、将合适的人请上车，不合适的人请下车。——管理学者詹姆斯?柯林斯 9、人才是利润最高的商品，能够经营好人才的企业才是最终的大赢家。——联想集团总裁柳传志 26 临木川斫护 VB操作题 10、20世纪是生产率的世纪，21世纪是质量的世纪，质量是和平占领市场最有效的武器。——美国著名质量管理学家约瑟夫?朱兰博士 11、质量是维护顾客忠诚的最好保证。——通用电气公司总裁杰克?韦尔奇 12、多想一下竞争对手。——世界首富比尔?盖茨 13、一个伟大的企业，对待成就永远都要战战兢兢，如覆薄冰。——海尔集团总裁张瑞敏 14、企业即人。——日本经营之神松下幸之助 15、企业最大的资产是人。 ——日本经营之神松下幸之助 16、用人不在于如何减少人的短处，而在于如何发挥人的长处。——著名管理学家彼得?杜拉克 17、卓有成效的管理者善于用人之长。——著名管理学家彼得?杜拉克 18、造人先于造物。 ——日本经营之神松下幸之助 19、员工 培训 焊锡培训资料ppt免费下载焊接培训教程 ppt 下载特设培训下载班长管理培训下载培训时间表下载 是企业风险最小，收益最大的战略性投资。——著名的企业管理学教授沃伦?贝尼斯 20、合作是一切团队繁荣的根本。——美国自由党领袖大卫?史提尔 21、最好的CEO是构建他们的团队来达成梦想，即便是迈克尔?乔丹也需要队友来一起打比赛。——通用电话电子公司董事长查尔斯?李 22、大成功靠团队，小成功靠个人。——世界首富比尔?盖茨 23、不创新，就灭亡。——福特公司创始人亨利?福特 24、可持续竞争的惟一优势来自于超过竞争对手的创新能力。——著名管理顾问詹姆斯?莫尔斯 25、企业管理过去是沟通，现在是沟通，未来还是沟通。——松下幸之助 26、管理就是沟通、沟通再沟通。——通用电气公司总裁杰克?韦尔奇 27 临木川斫护 VB操作题 27、沟通是管理的浓缩。——沃尔玛公司总裁山姆?沃尔顿 28、质量等于利润。——管理思想家汤姆?彼得斯 29、将良品率预定为85%，那么便表示容许15%的错误存在。——质量管理大师菲利普?克劳斯比 30、产品质量是生产出来的，不是检验出来的。——美国质量管理大师威廉?戴明博士 31、企业的成功靠团队，而不是靠个人。——管理大师罗伯特?凯利 32、千方百计请一个高招的专家医生，还不如请一个随叫随到且价格便宜的江湖郎中。——管理学者詹姆斯?柯林斯 33、一个公司要发展迅速得力于聘用好的人才，尤其是需要聪明的人才。——世界首富比尔?盖茨 34、管理者的最基本能力:有效沟通。——英国管理学家L?威尔德 35、不善于倾听不同的声音，是管理者最大的疏忽。——美国女企业家玛丽?凯 36、企业管理过去是沟通，现在是沟通，未来还是沟通。——日本经营之神松下幸之助 37、管理就是决策。——美国著名管理学家赫伯特?西蒙 38、世界上每100家破产倒闭的大企业中，85%是因为企业管理者的决策不慎造成的。——世界著名的咨询公司美国兰德公司 39、正确的决策来自众人的智慧。——美国社会学家T?戴伊 40、一个成功的决策，等于90%的信息加上10%的直觉。——美国企业家S?M?沃尔森 41、犹豫不决固然可以免去一些做错事的可能，但也失去了成功的机会。——美籍华裔企业家王安博士 42、在没出现不同意见之前，不做出任何决策。——美国通用汽车公司总裁艾尔弗雷德?斯隆 43、不要把所有的鸡蛋放在同一个篮子里。——美国经济学家托宾 44、一次良好的撤退，应和一次伟大的胜利一样受到奖赏。——瑞士军事理论家菲米尼 45、抓住时机并快速决策是现代企业成功的关键。——美国斯坦福大学教授艾森哈特 46、决不能在没有选择的情况下，作出重大决策。——美国克莱斯勒汽车公司总裁李?艾柯卡 47、如果有一个项目，首先要考虑有没有人来做。如果没有人做，就要放弃，这是一个必要条件。——联想集团总裁柳传志 28 临木川斫护 VB操作题 48、爱你的员工吧，他会百倍地爱你的企业。——法国企业界名言 49、创新是做大公司的惟一之路。——管理大师杰弗里 50、顾客是重要的创新来源。——管理学家汤姆?彼得斯 51、创新是惟一的出路，淘汰自己，否则竞争将淘汰我们。——英特尔公司总裁安迪?格罗夫 52、创造性模仿不是人云亦云，而是超越和再创造。——哈佛大学教授西奥多?莱维特 53、创新就是创造一种资源。——管理大师彼得?杜拉克 54、把你的竞争对手视为对手而非敌人，将会更有益。——哈佛商学院教授罗莎贝斯?莫斯?坎特 55、21世纪，没有危机感是最大的危机。——哈佛商学院教授理查德?帕斯卡尔 56、奖励什么，就会得到什么。——管理专家米契尔?拉伯福 57、惟一持久的竞争优势，就是比你的竞争对手学习得更快的能力。——壳牌石油公司德格 58、我今天就要打败你，我不睡觉也要打败你，这是我们的文化。——甲骨文中国公司总理胡伯林 59、管理是一种严肃的爱。——美国国际农机商用公司董事长西洛斯?梅考克 29 临木川斫护 VB操作题 60、以爱为凝聚力的公司比靠畏惧维系的公司要稳固得多。——美国西南航空公司总裁赫伯?凯莱赫 61、感情投资是在所有投资中，花费最少，回报率最高的投资。——日本麦当劳董事长藤田田 63、信任固然好，监控更重要。——前苏联国家领导人列宁 64、授权就像放风筝，部属能力弱线就要收一收，部属能力强了就要放一放。——国际战略管理顾问林正大 65、授权并信任才是有效的授权之道。——管理专家柯维 66、用他，就要信任他;不信任他，就不要用他。——经营之神松下幸之助 68、管理就是把复杂的问题简单化，混乱的事情规划化。——通用电气公司总裁杰克?韦尔奇 69、在企业内部，只有成本。——美国管理大师彼得?杜拉克 70、自始自终把人放在第一位，尊重员工是成功的关键。——IBM创始人托马斯?沃森 71、是员工养活了公司。——亚州首富李嘉诚 72、管得少，就是管得好。——通用电气公司总裁杰克?韦尔奇 73、能用他人智慧去完成自己工作的人是伟大的。——管理专家旦恩?皮阿特 74、成功的企业领导不仅是授权高手，更是控权的高手。——管理专家彼特?史坦普 75、多挣钱的方法只有两个:不是多卖，就是降低管理费。——克莱斯勒汽车公司总裁李?艾柯卡 76、省钱就是挣钱。——美国石油大王约翰?洛克菲勒 77、经营管理，成本 分析 定性数据统计分析pdf销售业绩分析模板建筑结构震害分析销售进度分析表京东商城竞争战略分析 ，要追根究底，分析到最后一点。——台塑集团董事长王永庆 78、为顾客节省每一分钱。——沃尔玛创始人山姆?沃尔顿 79、不只奖励成功，而且奖励失败。——通用电气公司总裁杰克?韦尔奇 80、无法评估，就无法管理。——管理学家琼?玛格丽塔 83、三流的点子加一流的执行力，永远比一流的点子加三流的执行力更好。——日本软银公司董事长孙正义 84、让流程说话，流程是将说转化为做的惟一出路。——战略专家姜汝祥 85、企业的执行力靠的就是纪律。——中国台湾华建公司总裁卢正昕 30 临木川斫护 VB操作题 86、竞争对手就像磨刀石一样，它把我们磨得非常的锋利，然后我们就手起刀落，把竞争对手给砍掉了。——3721网站总裁周鸿祎 87、细节的不等式意味着1%的错误会导致100%的错误。——《细节决定成败》作者汪中求 88、管理就是做好无数小的细节工作。——国际战略管理顾问林正大 89、制定正确的战略固然重要，但更重要的是战略的执行。——联想集团总裁兼CEO杨元庆 90、战略越精炼，就越容易被彻底地执行。——花旗银行董事长约翰?里德 91、如果通用公司不能在某一个领域坐到第一或者第二把交椅，通用公司就会把它在这个领域的生意买掉或退出这个领域。——通用电气公司总裁杰克?韦尔奇 92、如果你不能战胜对手，就加入到他们中间。——美国企业界名言 93、速度就是一切，它是竞争不可或缺的因素。——通用电气公司总裁杰克?韦尔奇 94、新经济时代，不是大鱼吃小鱼，而是快鱼吃慢鱼。——美国思科公司总裁钱伯斯 95、魔鬼存在于细节之中。——国际建筑大师密斯?凡?德罗 96、不放过任何细节。——日本经营之神松下幸之助 97、差错发生在细节，成功取决于系统。——全球最大的连锁饭店马瑞特总裁比尔?马瑞特 98、把一件简单的事做好就不简单，把每一件平凡的事做好就不平凡。——海尔公司总裁张瑞敏 99、企业未来的竞争，就是细节的竞争。——商业教皇布鲁诺?蒂茨 100、我们宣布讲究实绩、注重实效，却往往奖励了那些专会做表面文章、投机取巧的人。——管理专家米契尔?拉伯福 31 临木川斫护