VB程序设计.doc

11-12-2程序设计基础（VB）上半学期练习题（专科）1在窗体上建立命令按钮“command1”（显示）和“command2”（退出）。运行时， “command2”按钮始终显示“退出”；单击“显示”按钮后窗体上显示“欢迎使用VB!”，同时命令按钮1的标题改为“清除”，再单击“清除”按钮后，界面恢复窗体装入时的初始状态。Private Sub Command1_Click() If Command1.Caption = 显示 Then Print 欢迎使用VB! Command1.Caption = 清除 Else Cls Command1.Caption = 显示 End IfEnd SubPrivate Sub Command2_Click() EndEnd Sub2.用InputBox函数输入一个学生成绩，评定其等级。方法是：90100分为优秀，8089分为良好，7079分为中等，6069分为及格，60分以下为不及格。Private Sub Command1_Click() Dim score！ score = Val(Text1.Text) Select Case score Case 90 To 100 Text2.Text = “优秀” 不同结果每个条件及时输出 Case 80 To 89 Text2.Text = 良好 Case 70 To 79 Text2.Text = “中等” Case 60 To 69 Text2.Text = 及格 Case 0 To 59 Text2.Text = “不合格 Case Else Text2.Text = 输入成绩无效 End SelectEnd Sub 3. 设计一个求解一元二次方程的程序，只要求考虑实根的情况。图3Private Sub Command1_Click()Dim a!, b!, c! Dim Xl!, X2!, d! a = Val(Text1.Text) b = Val(Text2.Text) c = Text3.Text d = b * b - 4 * a * cIf d = 0 Then X1 = (-b + Sqr(d) / (2 * a) X2 = (-b - Sqr(d) / (2 * a) Text4.Text = X1= & Str(X1) Text5.Text = X2= & X2 Else Text4.Text = 方程无实根 End IfEnd Sub4. 从键盘上输入一个数A，完成以下判断：当A 100时，B = 1；A 100 Then b = 1 Else If a y Thentemp = xx = yy = tempEnd IfIf x z Thentemp = zz = xx = tempEnd IfIf y z Thentemp = zz = yy = tempEnd IfLabel4.Caption = x & & y & & zEnd SubPrivate Sub Command2_Click()Text1.Text = Text2.Text = Text3.Text = Label4.Caption = End Sub6. 顾客在商场购物时，若所选物品的总金额x在下述范围内，则实付款y可按对应折扣支付，请编程计算某顾客的实付款，总金额由键盘输入。x x 1000y =0.9x 1000 = x 20000.8x 2000 = x = 3000Private Sub Command1_Click()Dim x!, y! x = InputBox(请输入x的值) Select Case x Case Is 1000 y = x Case Is 2000 y = 0.9 * x Case Is 3000 y = 0.8 * x Case Else y = 0.7 * x End Select MsgBox y= & yEnd Sub7. 输入一个年份，判断该年是否为闰年，程序运行效果参考如图所示，界面自定。Private Sub Command1_Click()Dim y!y = Val(Text1.Text)If y Mod 4 = 0 And y Mod 100 0 Or y Mod 400 = 0 Then Label1.Caption = 是闰年Else Label1.Caption = 不是闰年 End IfEnd Sub3x2+2x-1 x58. 编程，输入x，求下列分段函数y的值。用InputBox函数输入x，计算结果输出到Text控件。 Private Sub Command1_Click() Dim x!, y! x = Val(Text1.Text) If x 5 Then y = x (3 / 4) Else y = 5 * x + 2 x End If End IfText2.Text = yEnd Sub9. 数入x、n，根据下列公式计算多项式p（n，x）的值，计算结果输出到Text控件。x n = 1p(n,x)= (3x2-1)/2 n = 2(5x2-3)x/2 n = 3Private Sub Command1_Click() Dim x!, n! x = InputBox(请输入x的值) n = InputBox(请输入n的值) If n = 1 Then x = x Else If n = 2 Then x = (3 * x 2 - 1) / 2 Else If n = 3 Then x = (5 * x 2 - 3) * x 2 End If End If End IfMsgBox x= & xEnd Sub10. 编程，当x y，交换x、y的值，然后输出x、y的值（在Text控件输入，输出到Label控件）。Private Sub Command1_Click() Dim x!, y!, temp! x = Val(Text1.Text) y = Val(Text2) If x 3 Then y = x + 3 Else If x = 1 Then y = x 2 Else If x 0 Then y = Sqr(x) Else y = 0 End If End If End IfText2.Text = y End Sub12. 用Inputbox函数输入3个任意整数，从大到小按序输出。Private Sub Form_Click() Dim x%, y%, z%, temp% x = InputBox(请输入X的值) y = InputBox(请输入Y的值) z = InputBox(请输入Z的值) If x y Then temp = y: y = x: x = temp If x z Then temp = z: z = x: x = temp If y & y: & y & & z: & zEnd Sub13. 求10个三位正整数中的偶数之和。正整数用随机函数Rnd产生，或由用户通过InputBox函数输入。Private Sub Form_click()S = 0For i = 1 To 10x = Int(900 * Rnd) + 100 If x Mod 2 = 0 Then S = S + x Next i Print S=; SEnd Sub14. 求10个三位正整数中的奇数之和。正整数用随机函数Rnd产生，或由用户通过InputBox函数输入。Private Sub Form_click()S = 0For i = 1 To 10x = Int(900 * Rnd) + 100 If x Mod 2 = 1 Then S = S + x Next i Print S=; SEnd Sub15. 编写程序，打印如下图形。图15Private Sub Command1_Click() Dim i%, j%For i = 1 To 6 Print Tab(12 - i); For j = 1 To 2 * i - 1 Print *; Next Print NextEnd Sub16. 编写程序，显示出所有的水仙花数。所谓水仙花数，是指一个3位数，其各位数字立方和等于该数字本身。例如：153是水仙花数，因为153 = 13 + 53 + 33。Private Sub Command1_Click()For i = 100 To 999a = i 100b = (i - a * 100) 10c = i - a * 100 - b * 10If i = a 3 + b 3 + c 3 Then Print 水仙花数为： & iNext iEnd Sub17. 有1分、2分、5分硬币若干枚，从中取出20枚硬币使其总值为60分，求出取法的数量以及每一种取法的1分、2分、5分硬币个数。Private Sub Command1_Click()Dim a%, b%, c%, d%For a = 0 To 20For b = 0 To 20c = 20 - a - bIf a + 2 * b + 5 * c = 60 Thend = d + 1Print a; b; cEnd IfNextNextMsgBox 共有 & d & 种取法End Sub18. 求1+2+3+N的自然数之和，界面自定。Private Sub Form_click()Dim n%, i%, s!n = InputBox(n)s = 0For i = 1 To n Step 1 s = s + i Next i MsgBox S= & sEnd Sub19. 找出在11000中同时满足被7除余5、被5除余3、被3除余2条件的数，界面自定。Private Sub Command1_Click()Dim i%For i = 1 To 1000If i Mod 7 = 5 And i Mod 5 = 3 And i Mod 3 = 2 ThenPrint iEnd IfNext iEnd Sub20. 求下列表达式的值1 + 1/2 + 1/3 + 1/4 + + 1/n（n通过InputBox函数输入），计算结果输出到Text控件。Private Sub Form_click()Dim n%, i%, s!n = InputBox(n)s = 0For i = 1 To n Step 1 s = s + 1 / i Next i MsgBox S= & sEnd Sub21. 百钱买百鸡问题：用100元买100只鸡，母鸡3元1只，小鸡1元3只，问应各买多少只？界面自定。Private Sub Command1_Click()Dim x%, y%For x = 1 To 100y = 100 - xIf 3 * x + y 3 = 100 ThenPrint 母鸡只数为： & xPrint 小鸡只数为： & yEnd IfNext xEnd Sub22. 编写程序，打印如下图形。图22Private Sub Command1_Click()Dim i%, j%For i = 5 To 1 Step -1Print Tab(12 - i);For j = 1 To 2 * i - 1Print *;NextNextEnd Sub23编一程序，程序运行的初始界面如图2-1所示，当用户在文本框中输入姓名，例如输入“张三”，单击“确定”按钮，则程序的运行情况如图2-2所示，如果单击“结束”按钮，即结束程序运行。 图2-1 程序运行后初始界面 图2-2 单击“确定”按钮后的程序界面Private Sub Command1_Click()Label1.Caption = Text1.Text & 张三：欢迎使用我的第一个vb实验Command1.Enabled = FalseCommand2.Enabled = TrueEnd SubPrivate Sub Command2_Click()Command2.Enabled = FalseCommand1.Enabled = TrueEnd Sub24 设计一个函数计算器，其功能设计要求如下。1）运行的初始界面如图所示。2）Sin、Cos、Sqr、Int、Chr、Asc等函数将文本框中的数据作为函数的输入参数，单击这些函数命令按钮，则在文本框中显示其函数值。3）单击“Rnd”按钮，将把文本框中的内容转换为数值，作为系统随机发生器的种子数，再用RND函数产生一随机数，并显示在文本框中。4）单击“Date”按钮在文本框中显示系统日期；单击“Time”按钮在文本框中显示系统的时间。Private Sub Command1_Click()Dim x!, y!x = Val(Text1.Text)y = Sin(x * 3.1415926 / 180)Text1.Text = Str(y)End SubPrivate Sub Command10_Click()Text1.Text = End SubPrivate Sub Command2_Click()Dim x!, y!x = Val(Text1.Text)y = Cos(x * 3.1415926 / 180)Text1.Text = Str(y)End SubPrivate Sub Command3_Click()Dim x!Text1.Text = Rndx = Val(Text1.Text)Randomize xText1.Text = RndEnd SubPrivate Sub Command4_Click()Text1.Text = Sqr(Text1.Text)End SubPrivate Sub Command5_Click()Text1.Text = Int(Text1.Text)End SubPrivate Sub Command6_Click()Text1.Text = Chr(Text1.Text)End SubPrivate Sub Command7_Click()Text1.Text = Asc(Text1.Text)End SubPrivate Sub Command8_Click()Text1.Text = DateEnd SubPrivate Sub Command9_Click()Text1.Text = TimeEnd Sub25. 在文本框里输入任意字符串，例如“美丽的西湖”，对字符串进行字体放大或缩小，界面设计如图2所示，图3是经过放大操作后的界面状态。图2 图3要求：(1)单击“放大“按钮，将文本框中的字符串放大（字体放大），放大的倍数大小通过随机函数产生（Rnd），范围在15倍内，倍数表达式为：Int(Rnd*5+1)，为了使每次运行时产生不同的放大倍数，程序初始时应执行Radomize语句。(2)同样，单击“缩小”按钮，进行缩小，缩小的倍数也通过上述方式产生。(3)在做放大和缩小时，为了防止程序运行时错误（字体过大或过小），不应连续进行放大或缩小操作。也就是在执行放大操作后，“放大”命令按钮应呈暗淡色(不可操作)，同样在执行缩小操作后，“缩小”操作后，“缩小”命令按钮应呈暗淡色(不可操作)，而”放大”按钮有效。(4)单击“还原”按钮，字体大小恢复成初始状态，“放大”、“缩小”按钮也改变成可操作状态。Private Sub Command1_Click()Text1.FontSize = Text1.FontSize * (Int(Rnd * 5) + 1)Command1.Enabled = FalseCommand2.Enabled = TrueEnd SubPrivate Sub Command2_Click()Text1.FontSize = Text1.FontSize / (Int(Rnd * 5) + 1)Command1.Enabled = TrueCommand2.Enabled = FalseEnd SubPrivate Sub Command3_Click()Command1.Enabled = TrueCommand2.Enabled = TrueText1.FontSize = 9End Sub26.用InputBox函数输入两个整数a和b，然后用Rnd函数产生两个a, b区间上的随机整数，最后用MsgBox函数输出a、b 的值和两个随机数。27. 输入时间（小时、分和秒）然后使用输出消息框输出总计多少