信息会考VB操作题_信息会考vb操作题

信息会考VB操作题由刀豆文库小编整理，希望给你工作、学习、生活带来方便，猜你可能喜欢“信息会考vb操作题”。

信息会考VB操作题

A类

需界面设计

A01、制作一个减法器，在文本框中输入两个数值后，单击“计算”按钮可以计算出两数之差并显示在标签中；单击“清除”按钮可以清除各项数值。Private Sub Command1_Click()label1.caption =Val(Text1.Text)15)+ 6 End Sub

Private Sub Command2_Click()End End Sub A03、编程计算圆锥的体积。要求：输入圆锥的半径与高度，单击“计算”按钮可以计算出圆锥的体积并显示出来；单击“清除”按钮可以清除各项数值。提示：V = πhr2，π取3.14 Private Sub Command1_Click()Dim h As Single, r As Single r = Text1.Text h = Text2.Text label1.caption = 1 / 3 * 3.14 * h * r * r End Sub

Private Sub Command2_Click()Text1.Text = “” Text2.Text = “” Label1.Text = “” End Sub

A04、华氏温度（F）与摄氏温度（C）之间的转换关系为：

。编程实现：若用户在文本框中输入一个摄氏温度，单击“转换”按钮可以换算成华氏温度，并显示出来；单击“清除”按钮可以清除各温度值。Private Sub Command1_Click()label3.caption = Val(Text1.Text)* 9 / 5 + 32 End Sub

Private Sub Command2_Click()Text1.Text = “” Label3.caption = “” End Sub A05、一个物体从一座塔高为h（米）的塔顶上自由落下，求落地所需的时间t（秒）。要求：在文本框中输入塔高h，单击“计算”按钮，在“时间”框中显示落地所需时间t的值；单击“退出”按钮退出程序。

（提示：，其中g=9.8）。Private Sub Command1_Click()Dim h As single h =Text1.Text Text2.Text = Sqr(2 * h / 9.8)End Sub

Private Sub Command2_Click()End End Sub

B类

需界面设计

B01、在文本框中任意输入两个数，单击“比较”按钮后，将其中的最大值显示在下方标签中；单击“清除”按钮清除各项数值。Private Sub Command1_Click()a = Val(Text1.Text)b = Val(Text2.Text)If a > b Then Label4.caption =a Else Label4.caption = b End If End Sub

Private Sub Command2_Click()Text1.Text = “” Text2.Text = “” Label4.caption= “” End SubB02、卖葡萄。10斤以上（含10斤）每斤3元，10斤以下每斤3.5元。用户输入购买的斤数，单击“计算”按钮显示总价钱；单击“清除”按钮清除各项数值；单击“结束”按钮结束程序。

Private Sub Command1_Click()Dim a as integer a = Val(Text1.Text)If a >= 10 Then Label3.caption = a * 3 Else Label3.caption = a * 3.5 End If End Sub

Private Sub Command2_Click()Text1.Text = “” Label3.caption = “” End Sub

Private Sub Command3_Click()End End SubB03、某公司卖光盘，50片以上（含50片），每片2元。50片以下，每片3元。编程在“光盘数量”框中输入购买的光盘数，单击“计算”按钮后在“应收金额”框中显示应收钱数。单击“结束”按钮结束程序。Private Sub Command1_Click()Dim a as integer a = Val(Text1.Text)If a >= 50 Then Text2.Text = a * 2 Else Text2.Text = a * 3 End If End Sub

Private Sub Command2_Click()End End SubB04、由铁路托运行李，从甲地到乙地，行李不超过50 kg 时，运费为 1.50 元 /kg，如果超过 50kg, 超过部分的运费为 2.00 元 /kg。请编写程序，当输入行李重量后，单击“计算”按钮计算运费，单击“清除”按钮可以清除各项数值。Private Sub Command1_Click()Dim a as integer a = Val(Text1.Text)If a

C05、求N!=1*2*3*…*N，N值由键盘输入（N应在5---10之间，否则输出“N值不符合要求”）。

Private Sub Command1_Click()Dim S As integer, i As integer n = InputBox(“请输入5-10之间的整数”)If(n >= 5)And(n

D类

需界面设计

D01、编程实现：单击“计算”按钮，求100个两位数的随机整数之和，并显示出来。单击“清除”按钮，清除相应数据。要求必须使用循环语句实现。Private Sub Command1_Click()Dim sum As Integer, i As Integer Randomize sum = 0 For i = 1 To 100 sum = sum + Int(Rnd *(99(c * 100 + d * 10 + c)=(a * 100 + b * 10 + c)Then Print “A=” & a, “B=” & b, “C=” & c, “D=” & d End If Next d Next c Next b Next a End SubD04、编程完成打印图案，点击“输入行数”按钮，弹出输入框输入行数（行数不可超过10），点击“打印图案”按钮，则在窗体上打印三角形图案。例：输入5，则打印图案为： * *** ***** ******* ********* Dim n As Integer „n定义为全局变量

Private Sub Command1_Click()n = InputBox(“请输入行数(行数不可超过10)”)End Sub

Private Sub Command2_Click()Dim sum As Integer, i As Integer, j as integer For i = 1 To n Print Space(n1)Print ”*“;Next j Print Next i End SubD0

5、产生10个两位的整数并打印输出，编程将它们按从小到大的顺序打印输出。Private Sub Command1_Click()Dim a(1 To 10)As Integer, i as integer, j as integer Randomize For i = 1 To 10 a(i)= Int(Rnd *(99i If a(j)> a(j + 1)Then t = a(j): a(j)= a(j + 1): a(j + 1)= t End If Next j Next i For i = 1 To 10 Print a(i);Next i End Sub 请注意：

1）界面的对象名称要与程序中的对象名称一致； 2）数据的定义：integer;long;single;double 不要求输