当前位置:首页 >> 其它课程 >> 信息会考VB操作题

信息会考VB操作题


信息会考 VB 操作题 A类
需界面设计 A01、制作一个减法器,在文本框中输入两个数值后,单击“计算”按钮可以计算出两数之 差并显示在标签中;单击“清除”按钮可以清除各项数值。 Private Sub Command1_Click() label1.caption =Val(Text1.Text) - Val(Text2.Text) End Sub

/>Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" Label1.caption = "" End Sub

A02、已知 y= x2+|x-15|+6, 编程求 y 的值 。要求:在文本框中输入 x 的值,单 击“计算”按钮后在“y”框中显示 y 的值;单击“退出”按钮退出程序。 Private Sub Command1_Click() Dim x As Single x = Text1.Text label1.caption = x * x + Abs(x - 15) + 6 End Sub

Private Sub Command2_Click() End End Sub

1

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

2

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

3

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 Sub

4

B02、卖葡萄。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 Sub

5

B03、某公司卖光盘,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 Sub

6

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

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

7

B05、输入 a, b 的值 , 当 a× b>0 时计算表达式 y= 的值,否则输出“wrong”。 Private Sub Command1_Click() Dim a as integer , b as integer a = Val(Text1.Text) b = Val(Text2.Text) If a * b > 0 Then Label4.caption = (a + b) / Sqr(4 * a * b) Else Label4.caption = "wrong" End If End Sub

Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" Label4.caption = "" End Sub

8

C类
C01、在[1~1000]区间中的所有整数中,分别计算能被 3 整除的数的个数及能被 7 整除 的数的个数,结果显示如题所示。要求:必须使用循环语句实现。 Private Sub Command1_Click() Dim a As Integer, b As Integer, i as integer a = 0 b = 0 For i = 1 To 1000 If i Mod 3 = 0 Then a = a + 1 If i Mod 7 = 0 Then b = b + 1 Next i Label3.caption =a Label4.caption =b End Sub

Private Sub Command2_Click() End End Sub

9

C02、 输出所有的水仙花数。 即水仙花数是三位数, 并且满足每位数字立方之和等于这个数。 如:153=1^3+5^3+3^3 (用循环完成) Private Sub Command1_Click() Dim i as integer, a as integer, b as integer, c as integer

For i = 100 To 999 a = i \ 100 b = i \ 10 Mod 10 c = i Mod 10 If i = a ^ 3 + b ^ 3 + c ^ 3 Then Print i Next i End Sub

Private Sub Command3_Click() End End Sub 界面自主设计

10

C03、求 1 到 1000 之间的偶数和、奇数和 Private Sub Command1_Click() Dim i as integer,oushuhe as long, jishuhe as long For i = 1 To 1000 Oushuhe=0 Jishuhe=0 If i Mod 2 = 0 Then oushuhe = oushuhe + i Else jishuhe = jishuhe + i End If Next i Print "偶数和为:" & oushuhe Print "奇数和为:" & jishuhe End Sub

C04、 编程计算 S=1+2+3+4+……N,找一个最大整数,使得 S<30000 Private Sub Command1_Click() i = 0 Do While s < 30000 i = i + 1 s = s + i Loop Print "最大整数是:" & i - 1 End Sub

11

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 <= 10) Then S = 1 For i = 1 To n S = S * i Next i Print "N!是" & S Else Print "N 值不符合要求!" End If End Sub

12

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 - 10 + 1) + 10) Next i Label2.caption = sum End Sub

Private Sub Command2_Click() Label2.caption = "" End Sub D02 界面自主定义 '要注意屏幕大小的设计,以显示全部内容 Private Sub Form_Click () Dim sum As Integer, i As Integer, j as integer Print “ 九九乘法表”

For i = 1 To 9 For j = 1 To i Print i & "*" & j & "=" & i * j, Next j Print Next i End Sub
13

D03、有一数学灯谜,求 A、B、C、D(其中 A、B、C、D 都为一位数字)的值 Private Sub Form _Click() Dim a As Integer, b As Integer, c As Integer, d As Integer For a = 1 To 9 For b = 0 To 9 For c = 1 To 9 For d = 0 To 9 If (a * 1000 + b * 100 + c * 10 + d) - (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 Sub

14

D04、 编程完成打印图案, 点击“输入行数”按钮, 弹出输入框输入行数 (行数不可超过 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(n - i); For j = 1 To (2 * i - 1) Print "*"; Next j Print Next i End Sub

15

D05、产生 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 * (99 - 10 + 1) + 10) Print a(i); Next i print For i = 1 To 9 For j = 1 To 10 - i 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 不要求输

16


更多相关文档:

信息会考VB操作题

信息会考VB操作题_其它课程_高中教育_教育专区。信息会考 VB 操作题 A类需界面设计 A01、制作一个减法器,在文本框中输入两个数值后,单击“计算”按钮可以计算出两...

信息技术会考操作题大全

信息技术会考操作题大全_其它课程_高中教育_教育专区。信息技术高中会考操作题WORD、 EXCEL、VB、PS等并有傻瓜操作指南 信息技术会考操作题大全 临近会考,大部分同学...

高中信息技术会考(VB部分)

高中信息技术会考 VB 复习题一、单选题 B B A D D C D A B A B C ...在 VB 应用程序中,修改控制代码,使 Command1 按钮显示“end”,正确的 设置是...

高中信息技术会考(VB部分)练习

高中信息技术会考 VB 复习题一、单选题 1. 计算机程序的三种结构是顺序结构、 ...在 VB 应用程序中,修改控制代码,使 Command1 按钮显示“end”,正确的 设置是...

信息技术会考知识梳理(含VB)

2009年信息技术会考VB复习... 6页 2财富值 2009年信息技术会考VB复习... 5页 免费 信息技术会考VB上机编程模... 72页 免费 高一信息技术会考vb操作题... ...

信息技术会考模拟练习vb操作题答案

信息技术会考模拟练习vb操作题答案_其它_工作范文_实用文档。信息技术会考模拟练习vb操作题答案 06 信息技术会考模拟练习 vb 操作题答案 此处插入 a=1;方法:将光 ...

2015年信息技术会考复习提纲

9 信息技术会考提纲 26、建立一个 VB 应用程序一般的四个步骤: (1)建立应用程序界面 (2)设置对象的属性(3)编写应用程序的代码(4)保存和运行程序 【注意】...

信息会考vb上机模拟题1

2011年高一信息会考vb上机模拟题1 第1题: 在Visual Basic中,下列不合法的变量名是 A.c4a1 B.MP3 C.a_2 D.2a1b 第2题: 在Visual Basic中,下列 ...

信息会考vb上机模拟题1

信息会考vb上机模拟题1_其它课程_高中教育_教育专区。2011年高一信息会考vb上机...13题: 编写程序: 打开"Z:\VB\509"文件夹中的文件:"k2.vbp" 进行以下操作...

信息会考vb上机模拟题1

2011年高一信息会考vb上机模拟题1 第1题: 在Visual Basic中,下列不合法的变量名是 A.c4a1 B.MP3 C.a_2 D.2a1b 第2题: 在Visual Basic中,下列 ...
更多相关标签:
信息技术会考操作题vb | vb会考操作题 | 信息技术会考操作题 | 信息会考操作题 | 高中信息会考操作题 | 信息会考操作题视频 | 河南信息会考操作题 | 高一信息会考操作题 |
网站地图

文档资料共享网 nexoncn.com copyright ©right 2010-2020。
文档资料共享网内容来自网络,如有侵犯请联系客服。email:zhit325@126.com