信息技术会考VB上机编程模拟题.doc

2009信息技术会考VB上机编程模拟题说明：下列练习题是模拟系统中的一部分，要求学生平时练习时为每道题建一个专用文件夹，文件夹的名称可与窗体的Caption属性相同。会考时共有四道编程题，其中A类题、B类题、C类题、D类题各一题。A类（每题8分）说明：A类题以顺序结构的解析算法为主，解决学生在数学、物理和生活中遇到的简单计算问题。用到的控件有：标签框、文本框、滚动条、命令按钮等。A01、编写加法器，在文本框中输入两个数，单击“计算”求和并显示结果；单击“清除”清除各项数值。Private Sub Command1_Click() a = Val(Text1.Text) b = Val(Text2.Text) c = a + b Label4.Caption = cEnd SubPrivate Sub Command2_Click() Text1.Text = Text2.Text = Label4.Caption = End SubA02、编写计算水果价钱的程序。在文本框中输入水果的购买量。单击“一级”时按2.5元/kg计价，单击“二级”按2元/kg计价，并在价钱框中显示价钱。单击“清除”清除各框数据；单击“退出”退出程序。Private Sub Command1_Click() Text1.Text = Label3.Caption = End SubPrivate Sub Command2_Click() EndEnd SubPrivate Sub Option1_Click() a = Val(Text1.Text) b = a * 2.5 Label3.Caption = bEnd SubPrivate Sub Option2_Click() a = Val(Text1.Text) b = a * 2 Label3.Caption = bEnd SubA03、已知y= x3|x10|4， 编程求y的值 。要求：在文本框中输入x的值，单击“计算”按钮后在“y”框中显示y的值；单击“退出”按钮退出程序。Private Sub Command1_Click() x = Val(Text1.Text) y = x 3 + Abs(x - 10) + 4 Label3.Caption = yEnd SubPrivate Sub Command2_Click() EndEnd SubA04、编程实现：在“半径”框中输入圆的半径，单击“确定”按钮时，“周长”、“面积”框中显示圆的周长和面积。Private Sub Command1_Click() r = Val(Text1.Text) c = 2 * 3.14 * r s = 3.14 * r 2 Label4.Caption = c Label5.Caption = sEnd SubA05、编程计算圆锥的体积。要求：输入圆锥的半径与高度，单击“计算”按钮可以计算出圆锥的体积并显示出来；单击“清除”按钮可以清除各项数值。提示：V =hr2 ，取3.14Private Sub Command1_Click() r = Val(Text1.Text) h = Val(Text2.Text) v = 1 / 3 * r 2 * h Label4.Caption = vEnd SubPrivate Sub Command2_Click() Text1.Text = Text2.Text = Label4.Caption = End SubA06、华氏温度（F）与摄氏温度（C）之间的转换关系为：。编程实现：若用户在文本框中输入一个摄氏温度，单击“转换”按钮可以换算成华氏温度，并显示出来；单击“清除”按钮可以清除各温度值。Private Sub Command1_Click() a = Val(Text1.Text) b = a * 9 / 5 + 32 Label3.Caption = bEnd SubPrivate Sub Command2_Click() Text1.Text = Label3.Caption = End SubA07、某市近20年的生产总值情况如下：第1年是1000亿元，以后平均每年以5%的速度增长，通过滚动条求各年份该市生产总值是多少？提示：某年生产总值Private Sub HScroll1_Change() n = HScroll1.Value z = 1000 * (1 + 0.05) (n - 1) Label2.Caption = n Label4.Caption = zEnd SubPrivate Sub Form_Load() HScroll1.Min = 1 HScroll1.Max = 20End SubA08、已知计算人口增长的公式是：，其中pl为所求人口数，p为人口基数，r为年增长率，n为经过的年头。已知2000年我国有13.25亿人口，若年增长率固定为千分之1.5，请使用滚动条表示100年内我国的人口状况。Private Sub HScroll1_Change() n = HScroll1.Value p = 13.25 * (1 + 0.0015) (n - 2000) Label1.Caption = n Label3.Caption = pEnd SubPrivate Sub Form_Load() HScroll1.Min = 2000 HScroll1.Max = 2100End SubA09、一个物体从一座塔高为h（米）的塔顶上自由落下，求落地所需的时间t（秒）。要求：在文本框中输入塔高h，单击“计算”按钮，在“时间”框中显示落地所需时间t的值；单击“退出”按钮退出程序。 （提示： ，其中g=9.8 ）。Private Sub Command1_Click() h = Val(Text1.Text) g = 9.8 t = Sqr(2 * h / g) Label3.Caption = tEnd SubPrivate Sub Command2_Click() EndEnd SubA10、一架雪橇沿一斜坡滑下，它在时间t（秒）滑下的距离s（米）由以下公式给出：s=10t+2t2。编程实现：若用户在文本框中输入一个时间值，单击“计算”按钮可以计算出下滑的距离，并将其显示出来；单击“刷新”按钮可以清除各项数值。Private Sub Command1_Click() t = Val(Text1.Text) s = 10 * t + 2 * t 2 Label3.Caption = sEnd SubPrivate Sub Command2_Click() Text1.Text = Label3.Caption = End SubA11：已知某日外汇牌价：1美元8.27元人民币，1欧元10.46元人民币。设计程序，使之能根据用户输入的人民币数额，计算出其相对应的外币数额。Private Sub Command1_Click() r = Val(Text1.Text) w = r / 8.27 Label3.Caption = wEnd SubPrivate Sub Command2_Click() r = Val(Text1.Text) w = r / 10.46 Label3.Caption = wEnd SubPrivate Sub Command3_Click() Text1.Text = Label3.Caption = End SubA12：求并联电阻R的值。要求：在两个文本框中分别输入电阻R1、R2的值，单击“计算”按钮在“R”框中显示并联电阻R的值；单击“清除”按钮清除数据；单击“退出”按钮退出程序。（提示：）Private Sub Command1_Click() r1 = Val(Text1.Text) r2 = Val(Text2.Text) r = (r1 * r2) / (r1 + r2) Label3.Caption = rEnd SubPrivate Sub Command2_Click() Text1.Text = Text2.Text = Label3.Caption = End SubPrivate Sub Command3_Click() EndEnd SubA13：两个同心圆构成一个圆环，编程求圆环的面积S。公式：其中=3.14，R1R2Private Sub Command1_Click() r1 = Val(Text1.Text) r2 = Val(Text2.Text) s = 3.14 * (r1 2 - r2 2) Label3.Caption = sEnd SubPrivate Sub Command2_Click() Text1.Text = Text2.Text = Label3.Caption = End SubA14：按复利计算利息的一种储蓄，若年利率固定是2.25%，编程实现：若用户在文本框中输入本金额和存期，单击“计算”按钮可以计算出存款到期后的本利和，并显示在如题所示的标签中；单击“清除”按钮可以清除各项数值。提示：计算本利和的公式是：;Private Sub Command1_Click() a = Val(Text1.Text) b = Val(Text2.Text) s = a * (1 + 0.0225) b Label3.Caption = sEnd SubPrivate Sub Command2_Click() Text1.Text = Text2.Text = Label3.Caption = End SubA15：在窗体上放置一个标签“新北京新奥运”，单击单选按钮“红色”时，“新北京新奥运”变为红色字，单击单选按钮“蓝色”时，“新北京新奥运”变为蓝色字。Private Sub Option1_Click() Label1.ForeColor = vbRedEnd SubPrivate Sub Option2_Click() Label1.ForeColor = vbBlueEnd SubA16：编写减法器，在文本框中输入两个数，单击“计算”求差并显示结果；单击“清除”清除各项数值。 Private Sub Command1_Click() a = Val(Text1.Text) b = Val(Text2.Text) c = a - b Label4.Caption = cEnd SubPrivate Sub Command2_Click() Text1.Text = Text2.Text = Label4.Caption = End SubB类（每题8分）说明：B类题以画图语句的应用、简单动画效果、随机函数、截断函数、时间函数及逻辑运算的简单应用为主。用到的控件还有：命令按钮、图片框、滚动条、计时器等。B01、编程实现：在文本框中输入文字，单击“粗体”、“下划线”复选框可以选择或取消粗体、下划线。Private Sub Check1_Click() If Check1.Value = 1 Then Text1.FontBold = True Else Text1.FontBold = False End IfEnd SubPrivate Sub Check2_Click() If Check2.Value = 1 Then Text1.FontUnderline = True Else Text1.FontUnderline = False End IfEnd SubB02、编程实现：程序运行后，窗体背景色每隔0.1秒自动改变一次，颜色随机；单击“结束”按钮，结束程序。Private Sub Command1_Click()EndEnd SubPrivate Sub Timer1_Timer() Form1.BackColor = RGB(256 * Rnd, 256 * Rnd, 256 * Rnd)End SubPrivate Sub Form_Load() RandomizeEnd SubB03、制作一个“改变窗口背景色”程序。要求：单击“变色”按钮，窗口背景色随机改变一次；单击“结束”按钮，结束程序。Private Sub Command1_Click() Form1.BackColor = RGB(256 * Rnd, 256 * Rnd, 256 * Rnd)End SubPrivate Sub Command2_Click() EndEnd SubPrivate Sub Form_Load() RandomizeEnd SubB04、编程实现：程序运行后，在图片上每单击一次，图片在窗体中的位置就随机变化一次。Private Sub Form_Load() RandomizeEnd SubPrivate Sub Image1_Click() Image1.Top = Rnd * Form1.ScaleHeight Image1.Left = Rnd * Form1.ScaleWidthEnd SubB05、编一个移动图片程序，每间隔0.1秒使图片从窗口左边向右边水平移动100个单位。 Private Sub Timer1_Timer() Image1.Left = Image1.Left + 100End SubB06、单击“开始”按钮一只小鸟每隔0.5秒钟在窗体范围内随机移动一次，“单击“停止”按钮停止移动。最初在属性窗口中设置Timer1的Enabled为FalsePrivate Sub Command1_Click() Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click() Timer1.Enabled = FalseEnd SubPrivate Sub Form_Load() RandomizeEnd SubPrivate Sub Timer1_Timer() Image1.Left = Rnd * Form1.ScaleWidth Image1.Top = Rnd * Form1.ScaleHeightEnd SubB07、编程实现：程序运行后，单击“变大”按钮，图片尺寸变大；单击“变小”按钮，图片尺寸变小。最初在属性窗口中设置Image1的Stretch为 TruePrivate Sub Command1_Click() Image1.Height = Image1.Height * 2 Image1.Width = Image1.Width * 2 End SubPrivate Sub Command2_Click() Image1.Height = Image1.Height/ 2 Image1.Width = Image1.Width / 2End SubB08、制作一个图片显示器，程序运行界面如图所示。要求：程序运行开始，屏幕出现“显示/隐藏”按钮和“退出”按钮。单击“显示/隐藏”按钮窗体中显示或隐藏图片，单击“退出”按钮结束程序。Private Sub Command1_Click() Image1.Visible = Not Image1.VisibleEnd SubPrivate Sub Command2_Click() EndEnd Sub最初在属性窗口中设置Image1的Stretch为 TrueB09、制作一个拖动水平滚动条设置年龄的程序，如图所示。要求：程序运行开始，年龄框为空；当拖动水平滚动条时，年龄框中显示水平滚动条当前值。Private Sub Form_Load() HScroll1.Min = 10 HScroll1.Max = 18End SubPrivate Sub HScroll1_Change() Text1.Text = HScroll1.ValueEnd SubPrivate Sub Command1_Click() EndEnd SubB10、编程实现：用垂直滚动条表示字号大小（1-48，单位：磅），通过拖动滑块改变文本框中文字的大小，并通过恰当的控件显示出字号。Private Sub Form_Load() VScroll1.Max = 48 VScroll1.Min = 1 Text1.Text = 字号End SubPrivate Sub VScroll1_Change() Text1.FontSize = VScroll1.Value Label2.Caption = VScroll1.ValueEnd SubB11、制作一个能够显示当前系统日期和时间的程序。要求：单击“日期”按钮显示当前系统日期；单击“时间”按钮显示当前系统时间；单击“退出”按钮退出程序；窗体的背景色为黄色；标签背景为透明，显示的文字为蓝色，字号为“二号”字。Private Sub Form_Load() Label1.ForeColor = vbBlueEnd SubPrivate Sub Command1_Click() Label1.Caption = DateEnd SubPrivate Sub Command2_Click() Label1.Caption = TimeEnd SubPrivate Sub Command3_Click() EndEnd SubB12、在窗体的任意位置单击鼠标左键时，连接鼠标所在位置与点（500，500）画一条颜色随机的线段。Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then Line (500, 500)-(X, Y), RGB(256 * Rnd, 256 * Rnd, 256 * Rnd) End IfEnd SubB13、在窗体的任意位置单击鼠标左键时，在窗体上以（800,200）为左上角，以鼠标单击位置为右下角，画一个颜色随机的矩形。Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Cls If Button = 1 Then Line (800, 200)-(X, Y), RGB(256 * Rnd, 256 * Rnd, 256 * Rnd), B End IfEnd SubB14、在窗体中任意移动鼠标时，在鼠标所在位置画一个半径为500的绿色圆。Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Circle (X, Y), 500, vbGreenEnd SubB15、在窗口任意位置单击鼠标时，在单击处画出一个半径随机（50半径500缇）、颜色随机的圆。Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) r = 50 + Fix(Rnd * 451) c = RGB(256 * Rnd, 256 * Rnd, 256 * Rnd) Circle (X, Y), r, cEnd SubB16、编程实现：在窗体中每隔0.1秒钟随机画出一颗颜色随机的星星，画笔的宽度为5。Private Sub Form_Load()Form1.DrawWidth = 5RandomizeEnd SubPrivate Sub Timer1_Timer() x = Rnd * Form1.ScaleWidth y = Rnd * Form1.ScaleHeight c = RGB(256 * Rnd, 256 * Rnd, 256 * Rnd) PSet (x, y), cEnd SubB17：每单击一次“垂直移动”按钮使图片从窗口上边向下边垂直移动100个单位，单击“结束”按钮结束程序。Private Sub Command1_Click() Image1.Top = Image1.Top + 100End SubPrivate Sub Command2_Click() EndEnd SubB18：在窗体的任意位置单击鼠标时，在窗体上以（800,200）为左上角，以鼠标单击位置为右下角，画一个颜色随机的矩形。Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Cls c = RGB(256 * Rnd, 256 * Rnd, 256 * Rnd) Line (800, 200)-(X, Y), c, BEnd SubB19：编一个移动图片程序，单击“移动”按钮使图片向右水平移动100个单位。Private Sub Command1_Click() Image1.Left = Image1.Left + 100End SubB20：制作一个拖动水平滚动条设置年份的程序。要求：程序运行开始，“出生年份”框为空；当拖动水平滚动条时，“出生年份”框中显示水平滚动条的当前值；单击“结束”按钮退出程序。Private Sub Form_Load() HScroll1.Max = 2000 HScroll1.Min = 1970End SubPrivate Sub HScroll1_Change() Label2.Caption = HScroll1.ValueEnd SubPrivate Sub Command1_Click() EndEnd SubB21：程序运行后，单击“显示”按钮，窗体中显示图片，同时“显示”按钮变成不可用，“隐藏”按钮变成可用；单击“隐藏”按钮，窗体中不显示图片，同时“显示”按钮变成可用，“隐藏”按钮变成不可用。Private Sub Command1_Click() Image1.Visible = True Command1.Enabled = False Command2.Enabled = TrueEnd SubPrivate Sub Command2_Click() Image1.Visible = False Command1.Enabled = True Command2.Enabled = FalseEnd SubPrivate Sub Form_Load() Image1.Visible = False Command2.Enabled = FalseEnd SubB22：单击“红”或“绿”按钮时窗体的背景色分别改为红色或绿色，单击“结束”按钮时结束程序。Private Sub Command1_Click() Form1.BackColor = vbRedEnd SubPrivate Sub Command2_Click() Form1.BackColor = vbGreenEnd SubPrivate Sub Command3_Click() EndEnd SubB23：制作一个显示系统当前日期的数字日历。要求：程序一开始运行，日期框为空；单击“显示”按钮，在日期框中显示系统当前日期；单击“退出”按钮，退出程序。Private Sub Command1_Click() Label1.Caption = DateEnd SubPrivate Sub Command2_Click() EndEnd SubB24：单击画图按钮时在屏幕上以（1000,200）为左上角，（1400，600）为右下角画一颜色随机的矩形,单击退出按钮时程序退出运行。Private Sub Command1_Click() c = RGB(256 * Rnd, 256 * Rnd, 256 * Rnd) Line (1000, 200)-(1400, 600), c, BEnd SubPrivate Sub Command2_Click() EndEnd SubPrivate Sub Form_Load() RandomizeEnd SubB25：编写电子钟程序。单击“开始”按钮，电子表开始走时；单击“停止”按钮，电子表停止。程序一开始运行，电子表框为空。Private Sub Command1_Click() Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click() Timer1.Enabled = FalseEnd SubPrivate Sub Form_Load() Timer1.Enabled = FalseEnd SubPrivate Sub Timer1_Timer() Label1.Caption = TimeEnd SubB26：某公司卖光盘，50片以上（含50片），每片2元。50片以下，每片3元。编程在“光盘数量”框中输入购买的光盘数，单击“计算”按钮后在“应收金额”框中显示应收钱数。单击“结束”按钮结束程序。Private Sub Command1_Click() a = Val(Text1.Text) If a = 50 Then b = 2 * a Else b = 3 * a End If Label3.Caption = bEnd SubPrivate Sub Command2_Click() EndEnd SubB27：余额查询:假设银行存有1000元，设计一个程序，先在文本框中输入要取或存的款数，单击“取款”或“存款”按钮时，可以显示余额，单击“退出”按钮结束程序。Dim sPrivate Sub Command1_Click() a = Val(Text1.Text) s = s - a Label2.Caption = sEnd SubPrivate Sub Command2_Click() a = Val(Text1.Text) s = s + a Label2.Caption = sEnd SubPrivate Sub Command3_Click() EndEnd SubPrivate Sub Form_Load() s = 1000End SubC类（每题10分）说明：C类题以选择结构、循环结构的应用为主，并涉及累加、累乘、函数的应用等。C01、在文本框中任意输入两个数，单击“比较”按钮后，将其中的最大值显示在下方标签中；单击“清除”按钮清除各项数值。Private Sub Command1_Click() a = Val(Text1.Text) b = Val(Text2.Text) If a b Then Label4.Caption = a Else Label4.Caption = b End IfEnd SubPrivate Sub Command2_Click() Text1.Text = Text2.Text = Label4.Caption = End SubC02、卖葡萄。10斤以上（含10斤）每斤3元，10斤以下每斤3.5元。用户输入购买的斤数，单击“计算”按钮显示总价钱；单击“清除”按钮清除各项数值；单击“结束”按钮结束程序。Private Sub Command1_Click() L = Val(Text1.Text) If l =10 Then s = 3 *L Else s = 3.5 *L End IfLabel3.Caption = sEnd SubPrivate Sub Command2_Click() Text1.Text = Label3.Caption = End SubPrivate Sub Command3_Click() EndEnd SubC03、设计一个密码判断程序。要求：用户输入密码时，输入的密码在文本框中以“*”显示，用“确定”按钮核实密码是否正确，并弹出一个信息框告知结果；用“取消”按钮放弃输入的密码。提示：密码值可定为“123456”，为了简单起见，设定的密码值可以直接出现在程序代码中。Private Sub Command1_Click() If Text1.Text = 123456 Then MsgBox 密码正确，请继续 Else MsgBox 密码不正确，请重新输入 Text1.Text = End IfEnd SubPrivate Sub Command2_Click() Text1.Text = End SubC04、编程：一只小鱼从左向右移动。当小鱼到达窗体右边时，停止移动；单击“重新开始”按钮，小鱼回到初始位置，然后再向右移动。Private Sub Command1_Click() Image1.Left = 0 Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer() Image1.Left = Image1.Left + 50 If Image1.Left = Form1.Width Image1.Width Then Timer1.Enabled = False End IfEnd SubC05、编程实现：在窗体上单击鼠标左键，在鼠标位置画一个颜色随机半径为500的圆；单击鼠标右键在鼠标位置画一个边长为800、颜色随机正方形；画图前先清除窗体中的图形。Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) ClsIf Button = 1 Then Circle (X, Y), 500, RGB(256 * Rnd, 256 * Rnd, 256 * Rnd) End If If Button = 2 Then Line (X - 400, Y - 400)-(X + 400, Y + 400), RGB(256 * Rnd, 256 * Rnd, 256 * Rnd), B End IfEnd SubC06、制作一个画同心圆的程序，每隔0.5秒钟在窗体中央画20个颜色随机的同心圆（两圆间距为50），当有鼠标按下时结束程序。Private Sub Form_Click() EndEnd SubPrivate Sub Timer1_Timer() For i = 1 To 20 Circle (Form1.ScaleWidth / 2, Form1.ScaleHeight / 2), i * 50, RGB(256 * Rnd, 256 * Rnd, 256 * Rnd) Next iEnd SubPrivate Sub Form_Load() RandomizeEnd SubC07、在窗体上单击鼠标，画出200个颜色随机的星星（画笔的宽度为5），画图前先清除窗体中的图形。Private Sub Form_Click() For i = 1 To 200 PSet (Rnd * Form1.Width, Rnd * Form1.Height), RGB(256 * Rnd, 256 * Rnd, 256 * Rnd) Next iEnd SubPrivate Sub Form_Load() Randomize Form1.DrawWidth = 5End SubC08、如图所示，编程求1*2*3*X (1X20)。X的值由水平滚动条的当前值所确定。移动水平滚动条可以改变X的值，累乘结果显示在“结果”框中。Private Sub Form_Load() HScroll1.Max = 20 HScroll1.Min = 1End SubPrivate Sub HScroll1_Change() Text1.Text = HScroll1.Value f = 1 For i = 1 To HScroll1.Value f = f * i Next i Text2.Text = fEnd SubC09、编程求累加1+2+3+X (1X100)。X的值由水平滚动条的当前值所确定。移动水平滚动条可以改变X的值，累加结果显示在“结果”框中。Private Sub HScroll1_Change() Text1.Text = HScroll1.Value s = 0 For i = 1 To HScroll1.Value s = s + i Next i Text2.Text = sEnd SubC10、编一个“幸运开奖”程序。单击“开始”按钮时，屏幕滚动产生五个幸运号码0，9,单击“停止”按钮后，得到最后的幸运号码。Private Sub Command1_Click() Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click() Timer1.Enabled = FalseEnd SubPrivate Sub Form_Load() RandomizeTimer1.Enabled = FalseEnd SubPrivate Sub Timer1_Timer() Label1.Caption = Fix(Rnd * 10) Label2.Caption = Fix(Rnd * 10) Label3.Caption = Fix(Rnd * 10) Label4.Caption = Fix(Rnd * 10) Label5.Caption = Fix(Rnd * 10)End SubC11、编一个“不好点的按钮”程序，程序运行后，一个“单击我！”的按钮在屏幕上随机出现。用鼠标单击该按钮，每击中一次计1分，屏幕上显示出得分。如图所示。Dim sPrivate Sub Command1_Click() s = s + 1 Label2.Caption = sEnd SubPrivate Sub Timer1_Timer() Command1.Left = Rnd * Form1.ScaleWidth Command1.Top = Rnd * Form1.ScaleHeightEnd SubPrivate Sub Form_Load() RandomizeEnd SubC12、输入a, b的值 , 当ab0时计算表达式y的值，否则弹出消息“wrong”。Private Sub Command1_Click() a = Val(Text1.Text) b = Val(Text2.Text) If a * b 0 Then y = (a + b) / Sqr(4 * a * b) Label4.Caption = y Else MsgBox wrong End IfEnd SubPrivate Sub Command2_Click() Text1.Text = Text2.Text = Label4.Caption = End SubC13：猜一台照相机的价钱。该照相机的价钱为4000，如果用户输入数值为4000，单击“判断”按钮后显示“正确”；如果输入数值少于4000，单击“判断”按钮后显示“少了”；如果输入数值多于4000，单击“判断”按钮后显示“多了”。Private Sub Command1_Click() a = Val(Text1.Text) If a = 4000 Then Label2.Caption = 正确 End If If a 4