VB道简单设计题

1、1在窗体上建立命令按钮“command1”（显示）和“command2”（退出）。运行时， “command2”按钮始终显示“退出”；单击“显示”按钮后窗体上显示“欢迎使用VB!”，同时命令按钮1的标题改为“清除”，再单击“清除”按钮后，界面恢复窗体装入时的初始状态。Private Sub Command1_Click()If Command1.Caption = "显示" Then Print "欢迎使用VB!" Command1.Caption = "清除" Else Cls Command1.Caption = "显示

2、" End IfEnd SubPrivate Sub Command2_Click()EndEnd Sub2.用InputBox函数输入一个学生成绩，评定其等级。方法是：90100分为"优秀"，8089分为"良好"，7079分为"中等"，6069分为"及格"，60分以下为"不及格"。Private Sub Command1_Click()Dim s!c1 = Chr(13) + Chr(10)msg1 = "请输入学生成绩"msg2 = "输入后按回车键&

3、quot;msg3 = "或者单击“确定”按钮"msg = msg1 + c1 + msg2 + c1 + msg3s = Val(InputBox(msg, "inputbox function demo", 0)Select Case s Case 90 To 100 Label2.Caption = "该学生成绩等级为：优秀" Case 80 To 89 Label2.Caption = "该学生成绩等级为：良好" Case 70 To 79 Label2.Caption = "该学生成绩等级为：中

4、等" Case 60 To 69 Label2.Caption = "该学生成绩等级为：及格" Case 0 To 59 Label2.Caption = "该学生成绩等级为：不及格" Case Else Label2.Caption = "输入成绩无效" End SelectEnd SubPrivate Sub Command2_Click()EndEnd Sub3. 设计一个求解一元二次方程的程序，只要求考虑实根的情况。图3Private Sub Command1_Click()Dim a, b, c, x1, x2,

5、d!a = Val(Text1.Text)b = Val(Text2.Text)c = Val(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 = Str(x1) Text5.Text = Str(x2)Else: Text4.Text = "方程无实根" Text5.Text = "方程无实根"End IfEnd Sub4. 从键盘上输入一个数A，完成以下判断：当A &

6、gt; 100时，B = 1；A < 100时，B = -1；当A = 100时，B = 0，界面自定。Private Sub Command1_Click()Dim a, b!a = Val(Text1.Text)If a > 100 Then b = 1Else If a < 100 Then b = -1 Else b = 0 End IfEnd IfLabel2.Caption = "B=" & Str(b)End Sub5. 编写程序：输入x、y、z三个数，按从小到大的次序显示。Private Sub Command1_Click()Di

7、m i, x, y, z, temp!c1 = Chr(13) + Chr(10)msg1 = "随机输入一个数字"msg2 = "输入后按回车键"msg3 = "或者单击“确定”按钮"msg = msg1 + c1 + msg2 + c1 + msg3x = Val(InputBox(msg, "inputbox function demo", 0)y = Val(InputBox(msg, "inputbox function demo", 0)z = Val(InputBox(msg, &

8、quot;inputbox function demo", 0)If x > y Then temp = x: x = y: y = tempIf x > z Then temp = x: x = z: z = tempIf y > z Then temp = y: y = z: z = tempLabel2.Caption = "结果是：" & x & "<" & y & "<" & zEnd Sub6. 顾客在商场购物时，若所选物品的总金额x在下述范围

9、内，则实付款y可按对应折扣支付，请编程计算某顾客的实付款，总金额由键盘输入。x x < 1000y =0.9x 1000 <= x < 20000.8x 2000 <= x < 30000.7x x >= 3000Private Sub Command1_Click()Dim x, y!c1 = Chr(13) + Chr(10)msg1 = "请输入购买金额"msg2 = "输入后按回车键"msg3 = "或者单击“确定”按钮"msg = msg1 + c1 + msg2 + c1 + msg3x

10、 = Val(InputBox(msg, "inputbox function demo", 0)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 * xEnd SelectLabel2.Caption = "折后应付款为：" & Str(y) & "元"End Sub7. 输入一个年份，判断该年是否为闰年，程序运行效果参考如图所示，界面自

11、定。Private Sub Command1_Click()Dim x%x = Val(Text1.Text)If x Mod 4 = 0 And x Mod 100 <> 0 Or x Mod 400 = 0 ThenLabel2.Caption = "是闰年"ElseLabel2.Caption = "不是闰年"End IfEnd Sub3x2+2x-1 x<-5y=5x+2x -5x5 x3/4 x>58. 编程，输入x，求下列分段函数y的值。用InputBox函数输入x，计算结果输出到Text控件。Private Sub

12、Command1_Click()Dim x, y!c1 = Chr(13) + Chr(10)msg1 = "请输入x的值"msg2 = "输入后按回车键"msg3 = "或者单击“确定”按钮"msg = msg1 + c1 + msg2 + c1 + msg3x = Val(InputBox(msg, "inputbox function demo", 0)If x < -5 Then y = 3 * x 2 + 2 * x - 1Else If x > 5 Then y = x (3 / 4) El

13、se y = 5 * x + 2 x End IfEnd IfText1.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, p!c1 = Chr(13) + Chr(10)msg1 = "请输入x的值"msg2 = "请输入n的值"msg3 = "输入后按回车键"msg4 = "或者单击“确定”

14、按钮"msg5 = msg1 + c1 + msg3 + c1 + msg4msg6 = msg2 + c1 + msg3 + c1 + msg4x = Val(InputBox(msg5, "inputbox function demo", 0)n = Val(InputBox(msg6, "inputbox function demo", 0)If n = 1 Then p = xElse If n = 2 Then p = (3 * x 2 - 1) / 2 Else If n = 3 Then p = (5 * x 2 - 3) * x

15、 / 2 End If End IfEnd IfText1.Text = Str(p)End Sub10. 编程，当x < y，交换x、y的值，然后输出x、y的值（在Text控件输入，输出到Label控件）。Private Sub Command1_Click()Dim x, y, temp!x = Val(Text1.Text)y = Val(Text2.Text)If x < y Then temp = x: x = y: y = tempLabel4.Caption = "x=" & x & " y=" & yE

16、nd Sub11. 编程，输入x值，按下式计算并输出y值，计算结果f(x)输出到Text控件。Private Sub Command1_Click()Dim x, y!c1 = Chr(13) + Chr(10)msg1 = "请输入x的值"msg2 = "输入后按回车键"msg3 = "或者单击“确定”按钮"msg = msg1 + c1 + msg2 + c1 + msg3x = Val(InputBox(msg, "inputbox function demo", 0)Select Case x Case I

17、s > 3 y = x + 3 Case 1 To 3 y = x 2 Case Is <= 0 y = 0 Case Else y = Sqr(x)End SelectText1.Text = Str(y)End Sub12. 用Inputbox函数输入3个任意整数，从大到小按序输出。Private Sub Command1_Click()Dim x, y, z, temp%c1 = Chr(13) + Chr(10)msg1 = "请随机输入一个整数"msg2 = "输入后按回车键"msg3 = "或者单击“确定”按钮"

18、;msg = msg1 + c1 + msg2 + c1 + msg3x = Val(InputBox(msg, "inputbox function demo", 0)y = Val(InputBox(msg, "inputbox function demo", 0)z = Val(InputBox(msg, "inputbox function demo", 0)If x < y Then temp = x: x = y: y = tempIf x < z Then temp = x: x = z: z = tempI

19、f y < z Then temp = y: y = z: z = tempLabel2.Caption = Str(x) & ">" & Str(y) & ">" & Str(z)End Sub13. 求10个三位正整数中的偶数之和。正整数用随机函数Rnd产生，或由用户通过InputBox函数输入。Private Sub Command1_Click()Dim i, n, m%For i = 1 To 10 c1 = Chr(13) + Chr(10) msg1 = "请输入一个三位正整数&q

20、uot; msg2 = "输入后按回车键" msg3 = "或者单击“确定”按钮" msg = msg1 + c1 + msg2 + c1 + msg3 m = Val(InputBox(msg, "inputbox function demo", 0) If m >= 100 And m <= 999 And m Mod 2 = 1 Then n = n + m End IfNext iLabel2.Caption = "总合为：" & Str(n)End SubPrivate Sub Com

21、mand2_Click()For i = 1 To 10 m = Int(Rnd * (999 - 100 + 1) - 100) If m >= 100 And m <= 999 And m Mod 2 = 1 Then n = n + m End IfNext iLabel2.Caption = "总合为：" & Str(n)End Sub14. 求10个三位正整数中的奇数之和。正整数用随机函数Rnd产生，或由用户通过InputBox函数输入。Private Sub Command1_Click()Dim i, n, m%For i = 1 To 1

22、0 c1 = Chr(13) + Chr(10) msg1 = "请输入一个三位正整数" msg2 = "输入后按回车键" msg3 = "或者单击“确定”按钮" msg = msg1 + c1 + msg2 + c1 + msg3 m = Val(InputBox(msg, "inputbox function demo", 0) If m >= 100 And m <= 999 And m Mod 2 = 1 Then n = n + m End IfNext iLabel2.Caption = &

23、quot;总合为：" & Str(n)End SubPrivate Sub Command2_Click()For i = 1 To 10 m = Int(Rnd * (999 - 100 + 1) - 100) If m >= 100 And m <= 999 And m Mod 2 = 1 Then n = n + m End IfNext iLabel2.Caption = "总合为：" & Str(n)End Sub15. 编写程序，打印如下图形。图15Private Sub Form_Click()Dim i%, j%For

24、i = 1 To 5 Print Tab(15 - i); For j = 1 To (2 * i - 1) Print "*" Next j PrintNext iEnd Sub16. 编写程序，显示出所有的水仙花数。所谓水仙花数，是指一个3位数，其各位数字立方和等于该数字本身。例如：153是水仙花数，因为153 = 13 + 53 + 33。Private Sub Form_Click()Dim a, b, c, i%For i = 100 To 999 a = i 100 b = (i - a * 100) 10 c = i - (a * 100 + b * 10)I

25、f i = a 3 + b 3 + c 3 Then Print i & "为水仙花数"Next iEnd Sub17. 有1分、2分、5分硬币若干枚，从中取出20枚硬币使其总值为60分，求出取法的数量以及每一种取法的1分、2分、5分硬币个数。Private Sub Command1_Click()Dim a%, b%, c%, d%For a = 0 To 20 For b = 0 To 20 c = 20 - a - b If a + 2 * b + 5 * c = 60 Then d = d + 1 Print a; b; c End If Next bNex

26、t aLabel2.Caption = "共有" & d & "种取法"End Sub18. 求1+2+3+N的自然数之和，界面自定。Private Sub Command1_Click()Dim i, s, n&n = Val(Text1.Text)For i = 1 To n s = s + iNext iLabel2.Caption = "总和为：" & Str(s)End Sub19. 找出在11000中同时满足被7除余5、被5除余3、被3除余2条件的数，界面自定。Private Sub For

27、m_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 Command1_Click()Dim n, i%, s!c1 = Chr(13) + Chr(10)msg1 = "请输入n的值"msg2 = "输入后按回车键"msg3 =

28、 "或者单击“确定”按钮"msg = msg1 + c1 + msg2 + c1 + msg3n = Val(InputBox(msg, "inputbox function demo", 0)s = 0For i = 1 To n Step 1 s = s + 1 / iNext iText1.Text = Str(s)End Sub21. 百钱买百鸡问题：用100元买100只鸡，母鸡3元1只，小鸡1元3只，问应各买多少只？界面自定。Private Sub Form_Click()Dim x%, y%For x = 1 To 100y = 100 -

29、xIf 3 * x + y 3 = 100 ThenPrint "母鸡只数为：" & xPrint "小鸡只数为：" & yEnd IfNext xEnd Sub22. 编写程序，打印如下图形。图22Private Sub Form_Click()For i = 1 To 5 Print Tab(2 + i); For j = 1 To 10 - (2 * i - 1) Print "*" Next jNext iEnd Sub23编一程序，程序运行的初始界面如图2-1所示，当用户在文本框中输入姓名，例如输入“张三”，

30、单击“确定”按钮，则程序的运行情况如图2-2所示，如果单击“结束”按钮，即结束程序运行。 图2-1 程序运行后初始界面 图2-2 单击“确定”按钮后的程序界面Private Sub Command1_Click()Label1.Caption = Text1.Text + ": 欢迎使用我的第一个程序 "Command1.Enabled = FalseCommand2.Enabled = TrueLabel2.Visible = FalseText1.Visible = FalseEnd SubPrivate Sub Command2_Click()EndEnd SubPr

31、ivate Sub Form_Load()Command2.Enabled = FalseEnd Sub24 设计一个函数计算器，其功能设计要求如下。1）运行的初始界面如图所示。2）Sin、Cos、Sqr、Int、Chr、Asc等函数将文本框中的数据作为函数的输入参数，单击这些函数命令按钮，则在文本框中显示其函数值。3）单击“Rnd”按钮，将把文本框中的内容转换为数值，作为系统随机发生器的种子数，再用RND函数产生一随机数，并显示在文本框中。4）单击“Date”按钮在文本框中显示系统日期；单击“Time”按钮在文本框中显示系统的时间。Private Sub Command10_Click()T

32、ext1.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 rndx!Text1.Text = Rndrndx = Val(Text1.Text)Randomize rndxText1.Text = RndEnd SubPrivate Sub Command4_Click()Dim x!x = Val(Text

33、1.Text)Text1.Text = Sqr(x)End SubPrivate Sub Command5_Click()Dim x!x = Val(Text1.Text)Text1.Text = Int(x)End SubPrivate Sub Command6_Click()Dim x!x = Val(Text1.Text)Text1.Text = Chr(x)End SubPrivate Sub Command7_Click()Text1.Text = Asc(Text1.Text)End SubPrivate Sub Command8_Click()Text1.Text = Day(N

34、ow)End SubPrivate Sub Command9_Click()Text1.Text = TimeEnd Sub25. 在文本框里输入任意字符串，例如“美丽的西湖”，对字符串进行字体放大或缩小，界面设计如图2所示，图3是经过放大操作后的界面状态。图2 图3要求：(1)单击“放大“按钮，将文本框中的字符串放大（字体放大），放大的倍数大小通过随机函数产生（Rnd），范围在15倍内，倍数表达式为：Int(Rnd*5+1)，为了使每次运行时产生不同的放大倍数，程序初始时应执行Radomize语句。(2)同样，单击“缩小”按钮，进行缩小，缩小的倍数也通过上述方式产生。(3)在做放大和缩小时，

35、为了防止程序运行时错误（字体过大或过小），不应连续进行放大或缩小操作。也就是在执行放大操作后，“放大”命令按钮应呈暗淡色(不可操作)，同样在执行缩小操作后，“缩小”操作后，“缩小”命令按钮应呈暗淡色(不可操作)，而”放大”按钮有效。(4)单击“还原”按钮，字体大小恢复成初始状态，“放大”、“缩小”按钮也改变成可操作状态。Private Sub Command1_Click()Text1.FontSize = Text1.FontSize * (Int(Rnd * 5) + 1)Command1.Enabled = FalseCommand2.Enabled = TrueEnd SubPriva

36、te Sub Command2_Click()Text1.FontSize = Text1.FontSize / (Int(Rnd * 5) + 1)Command1.Enabled = TrueCommand2.Enabled = FalseEnd SubPrivate Sub Command3_Click()Text1.FontSize = 9End Sub26.用InputBox函数输入两个整数a和b，然后用Rnd函数产生两个a, b区间上的随机整数，最后用MsgBox函数输出a、b 的值和两个随机数。Private Sub Command1_Click()a = Val(InputBo

37、x("请输入第一个整数", a的值)b = Val(InputBox("请输入第二个整数", b的值)Dim x, y%If a < b Then x = a y = bEnd IfIf b < a Then x = b y = aEnd Ifc1$ = Chr$(13) + Chr$(10)msg1$ = "a=" & amsg2$ = "b=" & bmsg3$ = "第一个随机数为" & Int(Rnd * (y - x + 1) + x)msg4$ = "第一个随机数为" & Int(Rnd * (y - x + 1) + x)msg$ = msg1$ + c1$ + msg2$ + c1$ + msg3$ + c1$ + msg4$n = MsgBox(msg$)End Sub27. 输入时间（小时、分和秒）然后使用输出消息框输出总计多少秒。使用文本框输入数据，使用消息框输出计算结果，程序运行界面如下图所示。 图4 图5提示:用变量hh代表小时，mm代表分钟，ss代表秒，Totals代表总的秒数值。则