信息会考VB操作题.doc

信息会考VB操作题A类需界面设计A01、制作一个减法器，在文本框中输入两个数值后，单击“计算”按钮可以计算出两数之差并显示在标签中；单击“清除”按钮可以清除各项数值。Private Sub Command1_Click()label1.caption =Val(Text1.Text) - Val(Text2.Text)End SubPrivate Sub Command2_Click()Text1.Text = Text2.Text = Label1.caption = End SubA02、已知y= x2|x15|6， 编程求y的值 。要求：在文本框中输入x的值，单击“计算”按钮后在“y”框中显示y的值；单击“退出”按钮退出程序。Private Sub Command1_Click()Dim x As Singlex = Text1.Textlabel1.caption = x * x + Abs(x - 15) + 6End SubPrivate Sub Command2_Click()EndEnd SubA03、编程计算圆锥的体积。要求：输入圆锥的半径与高度，单击“计算”按钮可以计算出圆锥的体积并显示出来；单击“清除”按钮可以清除各项数值。提示：V = hr2 ，取3.14Private Sub Command1_Click()Dim h As Single, r As Singler = Text1.Texth = Text2.Textlabel1.caption = 1 / 3 * 3.14 * h * r * rEnd SubPrivate Sub Command2_Click()Text1.Text = Text2.Text = Label1.Text = End SubA04、华氏温度（F）与摄氏温度（C）之间的转换关系为： 。编程实现：若用户在文本框中输入一个摄氏温度，单击“转换”按钮可以换算成华氏温度，并显示出来；单击“清除”按钮可以清除各温度值。Private Sub Command1_Click()label3.caption = Val(Text1.Text) * 9 / 5 + 32End SubPrivate Sub Command2_Click()Text1.Text = Label3.caption = End SubA05、一个物体从一座塔高为h（米）的塔顶上自由落下，求落地所需的时间t（秒）。要求：在文本框中输入塔高h，单击“计算”按钮，在“时间”框中显示落地所需时间t的值；单击“退出”按钮退出程序。 （提示： ，其中g=9.8 ）。Private Sub Command1_Click()Dim h As singleh =Text1.TextText2.Text = Sqr(2 * h / 9.8)End SubPrivate Sub Command2_Click()EndEnd SubB类 需界面设计B01、在文本框中任意输入两个数，单击“比较”按钮后，将其中的最大值显示在下方标签中；单击“清除”按钮清除各项数值。Private Sub Command1_Click()a = Val(Text1.Text)b = Val(Text2.Text)If a b ThenLabel4.caption =aElseLabel4.caption = bEnd IfEnd SubPrivate Sub Command2_Click()Text1.Text = Text2.Text = Label4.caption= End SubB02、卖葡萄。10斤以上（含10斤）每斤3元，10斤以下每斤3.5元。用户输入购买的斤数，单击“计算”按钮显示总价钱；单击“清除”按钮清除各项数值；单击“结束”按钮结束程序。 Private Sub Command1_Click()Dim a as integera = Val(Text1.Text)If a = 10 ThenLabel3.caption = a * 3ElseLabel3.caption = a * 3.5End IfEnd SubPrivate Sub Command2_Click()Text1.Text = Label3.caption = End SubPrivate Sub Command3_Click()EndEnd SubB03、某公司卖光盘，50片以上（含50片），每片2元。50片以下，每片3元。编程在“光盘数量”框中输入购买的光盘数，单击“计算”按钮后在“应收金额”框中显示应收钱数。单击“结束”按钮结束程序。Private Sub Command1_Click()Dim a as integera = Val(Text1.Text)If a = 50 ThenText2.Text = a * 2ElseText2.Text = a * 3End IfEnd SubPrivate Sub Command2_Click()EndEnd SubB04、由铁路托运行李，从甲地到乙地，行李不超过50 kg 时，运费为 1.50 元 /kg ，如果超过 50kg, 超过部分的运费为 2.00 元 /kg 。请编写程序，当输入行李重量后，单击“计算”按钮计算运费，单击“清除”按钮可以清除各项数值。Private Sub Command1_Click()Dim a as integera = Val(Text1.Text)If a 0时计算表达式y 的值，否则输出“wrong”。Private Sub Command1_Click()Dim a as integer , b as integera = Val(Text1.Text)b = Val(Text2.Text)If a * b 0 ThenLabel4.caption = (a + b) / Sqr(4 * a * b)ElseLabel4.caption = wrongEnd IfEnd SubPrivate Sub Command2_Click()Text1.Text = Text2.Text = Label4.caption = End SubC类C01、在11000区间中的所有整数中，分别计算能被3整除的数的个数及能被7整除的数的个数，结果显示如题所示。要求：必须使用循环语句实现。Private Sub Command1_Click()Dim a As Integer, b As Integer, i as integera = 0b = 0For i = 1 To 1000If i Mod 3 = 0 Then a = a + 1If i Mod 7 = 0 Then b = b + 1Next iLabel3.caption =aLabel4.caption =bEnd SubPrivate Sub Command2_Click()EndEnd SubC02、输出所有的水仙花数。即水仙花数是三位数，并且满足每位数字立方之和等于这个数。如：153=13+53+33 （用循环完成） Private Sub Command1_Click()Dim i as integer, a as integer, b as integer, c as integerFor i = 100 To 999a = i 100b = i 10 Mod 10c = i Mod 10If i = a 3 + b 3 + c 3 Then Print iNext iEnd SubPrivate Sub Command3_Click()EndEnd Sub界面自主设计C03、求1到1000之间的偶数和、奇数和Private Sub Command1_Click()Dim i as integer,oushuhe as long, jishuhe as longFor i = 1 To 1000Oushuhe=0Jishuhe=0If i Mod 2 = 0 Thenoushuhe = oushuhe + iElsejishuhe = jishuhe + iEnd IfNext iPrint 偶数和为: & oushuhePrint 奇数和为: & jishuheEnd SubC04、 编程计算 S=1+2+3+4+N,找一个最大整数,使得S30000Private Sub Command1_Click()i = 0Do While s = 5