Visaul Basic程序设计.doc

Visaul Basic程序设计（上机编程题） A类（每题8分） 说明：A类题以顺序结构的解析算法为主，解决学生在数学、物理和生活中遇到的简单计算问题。用到的控件有：标签框、文本框、命令按钮等。 计算球的体积。要求：在“半径”框中输入半径，单击“计算”按钮在“体积”框中显示球的体积；单击“退出”按钮退出程序；建立名为“球的体积”的文件夹，并将有关文件保存至该文件夹中。 Private Sub Command1_Click() r = Val(Text1.Text) v = 4 / 3 * 3.14 * r ^ 3 Label4.Caption = v End Sub Private Sub Command2_Click() Text1.Text = Text2.Text = Label4.Caption = End Sub（提示：V球=πR3 ，π取3.14） 2．求并联电阻R的值。要求：在两个文本框中分别输入电阻R1，R2的值，单击“计算”按钮在“R”框中显示并联电阻R的值；单击“退出”按钮退出程序；建立名为“并联电阻”的文件夹，并将有关文件保存至该文件夹中。 （提示：）Private Sub Command1_Click() r1 = Val(Text1.Text) r2 = Val(Text2.Text) r = r1 * r2 / (r1 + r2) Text3.Text = r End Sub 3．一个物体从一座塔高为h（米）的塔顶上自由落下，求落地所需的时间t（秒）。要求：在文本框中输入塔高h，单击“计算”按钮在“t”框中显示落地所需时间t的值；单击“退出”按钮退出程序；建立名为“自由落体”的文件夹，并将有关文件保存至该文件夹中。 （提示： ，其中g=9.8 ）。 Private Sub Command1_Click() h = Val(Text1.Text) g = 9.8 t = (2 * h / g) ^ (1 / 2) Label3.Caption = t End Sub Private Sub Command2_Click() End End Sub 4．已知y= x2－|x＋2|＋5， 编程求y的值 。要求：在文本框中输入x的值，单击“计算”按钮在“y”框中显示y的值；单击“退出”按钮退出程序；建立名为“求函数值”的文件夹，并将有关文件保存至该文件夹中。 Private Sub Command1_Click() r = Val(Text1.Text) y = x ^ 2 - Abs(x + 2) + 5 Label3.Caption = y End Sub Private Sub Command2_Click() End End Sub 5．一个水果店在卖苹果和梨，苹果3元/千克，梨2.5元/千克，编一个程序帮助售货员计算货款。要求：在“苹果”框和“梨”框中分别输入其千克数，点击“计算”按钮，在“收款”框里显示应收的货款；单击“结束”按钮结束程序；建立名为“计算货款”的文件夹，并将有关文件保存至该文件夹中。 Private Sub Command1_Click() a = Val(Text1.Text) b = Val(Text2.Text) s = 3 * a + 2.5 * b Label4.Caption = s End Sub Private Sub Command2_Click() End End Sub B类（每题8分） 说明：B类题以画图语句的应用、简单动画效果、随机函数、截断函数、时间函数及逻辑运算的简单应用为主。用到的控件还有：图片框、滚动条、计时器等。 1、在窗口任意位置单击鼠标时，在单击处画出一个半径随机（半径小于500缇）、颜色随机的圆。 请建立名为“单击画随机圆”的文件夹，并将有关文件保存至该文件夹中。 Private Sub Form_Load() Randomize End Sub Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) r = Fix(Rnd * 500) red = Fix(Rnd * 256) blue = Fix(Rnd * 256) green = Fix(Rnd * 256) c = RGB(red, blue, green) Circle (X, Y), r, c End Sub 2、单击‘画图’按钮时在屏幕上以（1000,200）为左上角，（1400，600）为右下角画一颜色随机的矩形, 单击‘退出’按钮时程序退出运行。 请建立名为“画矩形”的文件夹，并将有关文件保存至该文件夹中。 Privat