高中计算机会考 VB题 A档次到D档次 习题及答案参考模板

1、 Visaul Basic程序设计（编程题）A类题说明：A类题以顺序结构的解析算法为主，解决学生在数学、物理和生活中遇到的简单计算问题。用到的控件有：标签框、文本框、命令按钮等。A01、制作一个加法器，在文本框中输入两个数值后，单击“计算”按钮可以计算出两数之和并显示在标签中；单击“清除”按钮可以清除各项数值。Private Sub Command1_Click()a = Val(Text1.Text)b = Val(Text2.Text)text3.text = a + bEnd SubPrivate Sub Command2_Click()Text1.Text = ""

2、Text2.Text = ""Text3.text = ""End SubA02、已知y= x3|x10|4， 编程求y的值 。要求：在文本框中输入x的值，单击“计算”按钮后在“y”框中显示y的值；单击“退出”按钮退出程序。Private Sub Command1_Click() X= Val(Text1.Text)Text2.text = x 3 + Abs(x - 10) + 4End SubPrivate Sub Command2_Click()EndEnd SubA03、编程实现：在“半径”框中输入圆的半径，单击“确定”按钮时，“周长”、“面积”

3、框中显示圆的周长和面积。Private Sub Command1_Click()r=val(text1.text)text2.text=2*3.14*rtext3.text =3.14*r*rEnd SubA04、编程计算圆锥的体积。要求：输入圆锥的半径与高度，单击“计算”按钮可以计算出圆锥的体积并显示出来；单击“清除”按钮可以清除各项数值。提示：V =hr2 ，取3.14Private Sub Command1_Click()r= Val(Text1.Text)h= Val(Text2.Text)text3.text = 1 / 3 * 3.14 * h * r 2End SubPrivat

4、e Sub Command2_Click()Text3.text = ""Text2.Text = ""Text1.Text = ""1 / 12End SubA05、华氏温度（F）与摄氏温度（C）之间的转换关系为： 。编程实现：若用户在文本框中输入一个摄氏温度，单击“转换”按钮可以换算成华氏温度，并显示出来；单击“清除”按钮可以清除各温度值。Private Sub Command1_Click() C= Val(Text1.Text)text2.text = 9 / 5 *c + 32End SubPrivate Sub Comma

5、nd2_Click()Text1.Text = ""text2.text = ""End SubA06、求并联电阻R的值。要求：在两个文本框中分别输入电阻R1、R2的值，单击“计算”按钮在“R”框中显示并联电阻R的值；单击“清除”按钮清除数据；单击“退出”按钮退出程序。 （提示：）Private Sub Command1_Click()r1=val(text1.text)r2=val(text2.text)text3.text =r1*r2/(r1+r2)End SubPrivate Sub Command2_Click()Text1.Text = &q

6、uot;"Text2.Text = ""Text3.text = ""End SubA07、一个物体从一座塔高为h（米）的塔顶上自由落下，求落地所需的时间t（秒）。要求：在文本框中输入塔高h，单击“计算”按钮，在“时间”框中显示落地所需时间t的值；单击“退出”按钮退出程序（提示： ，其中g=9.8 ）。Private Sub Command1_Click()h=val(text1.text)text2.text =sqr(2*h/9.8)End SubPrivate Sub Command2_Click()endEnd Sub A08、一架雪橇

7、沿一斜坡滑下，它在时间t（秒）滑下的距离s（米）由以下公式给出：s=10t+2t2。编程实现：若用户在文本框中输入一个时间值，单击“计算”按钮可以计算出下滑的距离，并将其显示出来；单击“刷新”按钮可以清除各项数值。Private Sub Command1_Click()t=val(text1.text)text2.text =10*t+2*t*tEnd SubPrivate Sub Command1_Click()text1.text= ""text2.text = ""End SubA09、编程完成美元兑换人民币的计算，假设美元兑换人民币，100美元=

8、620人民币，输入美元数，输出兑换的人民币数。B类题说明：B类题以选择结构为主，并涉及平方根，绝对值等函数的应用。B01、在文本框中任意输入两个数，单击“比较”按钮后，将其中的最大值显示在下方标签中；单击“清除”按钮清除各项数值。Private Sub Command1_Click() a = Val(Text1.Text) b = Val(Text2.Text) If a > b Then Text3.text = a Else Text3.text = b End IfEnd SubPrivate Sub Command2_Click() Text1.text = "&qu

9、ot; Text2.Text = "" Text3.Text = ""End SubB02、买水果。10斤以上（含10斤）每斤3元，10斤以下每斤3.5元。用户输入购买的斤数，单击“计算”按钮显示总价钱；单击“清除”按钮清除各项数值；单击“结束”按钮结束程序。Private Sub Command1_Click()x = Val(Text1.Text)If x >= 10 Thentext2.text = x*3Else text2.text = x * 3.5End IfEnd SubPrivate Sub Command2_Click() Te

10、xt1.Text = ""text2.text = ""End SubPrivate Sub Command3_Click() EndEnd SubB03、由铁路托运行李，从甲地到乙地，行李不超过50 kg 时，运费为 1.50 元 /kg ，如果超过 50kg, 超过部分的运费为 2.00 元 /kg 。请编写程序，当输入行李重量后，单击“计算”按钮计算运费，单击“清除”按钮可以清除各项数值。Private Sub Command1_Click()w = Val(Text1.Text)If w <= 50 Then a = 1.5 * welse

11、 a = 50 * 1.5 + (w - 50) * 2end iftext2.text = aEnd SubPrivate Sub Command2_Click()Text1.Text = ""text2.text = ""End SubB04、输入a, b的值 , 当a×b>0时计算表达式y的值，否则弹出消息“wrong”。Private Sub Command1_Click()a=val(text1.text)b=val(text2.text)if a*b>0 then text3.text =(a+b)/sqr(4*a*b)

12、 else text3.text =“wrong”end ifEnd SubPrivate Sub Command2_Click() Text1.Text = "" Text2.Text = "" Text3.text = ""End SubB05、输入a,b,c 三个数，若b2-4ac³0 则显示“有实根”，否则显示“无实根”。 Private Sub Command1_Click()a=val(text1.text)b=val(text2.text)c= val(text3.text)if b*b-4*a*c>=0

13、 then text4.text =“有实根” else text4.text =“无实根”end ifEnd SubPrivate Sub Command2_Click() Text1.Text = "" Text2.Text = "" Text3.Text = ""Text4.text = ""End SubB06、由键盘输入三条边ABC，判断是否构成三角形，构成三角形的显示“此三边能构成三角形”，否则显示“此三边不能构成三角形”。（构成三角形的条件为：任意两边之和大于第三边，任意两边之差小于第三边。）Priv

14、ate Sub Command1_Click() a=val(text1.text)b=val(text2.text)c= val(text3.text)if a+b>c and a+c>b and b+c>a thentext4.text =“此三边能构成三角形” else text4.text =“此三边不能构成三角形”end ifEnd SubPrivate Sub Command2_Click() EndEnd SubB07任意输入一个数，若这个数大于零则输出这个数的平方根，若这个数小于或等于零则输出这个数的绝对值。Private Sub Command1_Click

15、() a = Val(Text1.Text) If a > 0 Then text2.text = Sqr(a) Else text2.text = Abs(a)End SubPrivate Sub Command2_Click()EndEnd Sub C类题说明：C类题以循环结构的应用为主，并涉及累加、累乘、随机函数、分离数字、判断整除的应用等。C01、在11000区间中的所有整数中，分别计算能被3整除的数的个数及能被7整除的数的个数，结果显示如题所示。要求：必须使用循环语句实现。Private Sub Command1_Click()s1 = 0s2 = 0For i = 1 To

16、1000 Step 1If i mod 3=0 Then s1 = s1 + 1If i mod 7=0 Then s2 = s2 + 1Next iText1.text = s1text2.text = s2End SubPrivate Sub Command2_Click()EndEnd SubC02、输出所有的水仙花数。即水仙花数是三位数，并且满足每位数字立方之和等于这个数。如：153=13+53+33 （用循环完成）Private Sub Command1_Click()ClsFor i = 100 To 999a = i 100b = i 10 mod 10c = i mod 10I

17、f i = a *a*a+b*b*b+c*c*c Then Print iNext iEnd SubPrivate Sub Command2_Click()EndEnd SubC03、求1到1000之间的偶数和、奇数和Private Sub Command1_Click() s1 = 0 s2 = 0 For i = 1 To 1000 If i Mod 2 = 0 Then s1 = s1 + i Else s2 = s2 + i End If Next i Text1.text = s1 text2.text = s2End SubPrivate Sub Command2_Click()

18、EndEnd SubC04、 编程计算 S=1+2+3+4+N,找一个最大整数,使得S<30000Private Sub Command1_Click() s = 0 n = 0 Do While s < 30000 n = n + 1 s = s + n Loop Text1.text = n - 1 text2.text = s - nEnd SubPrivate Sub Command2_Click() EndEnd SubC05、求N!=1*2*3*N，N值由键盘输入（N应在5-10之间，否则输出“N值不符合要求”）。Private Sub Command1_Click()

19、 n = val(InputBox("n=") If n>= 5 and n <= 10 Then s = 1 For i = 1 To n s = s * i Next i Print "1*2*3*.*" n ; "="s ElsePrint “N值不符合要求”End ifEnd SubPrivate Sub Command2_Click() EndEnd SubC06、单击窗体时生成20个0,9 范围内的随机整数，在窗体上显示出其中大于5的随机整数。Private Sub Form_Click()ClsRandomi

20、ze TimerFor i = 1 To 20x = Fix(Rnd * 10)If x > 5 Then Print xNext iEnd SubC07生成10个10,99 范围内的随机整数，显示并求平均值。Private Sub Command1_Click() Randomize Timer Cls For i = 1 To 10 x = Fix(Rnd * 90) + 10 Print x, If i Mod 5 = 0 Then Print s = s + x Next i Print "平均值为:" s / 10End SubPrivate Sub Com

21、mand3_Click() EndEnd SubC08计算1*2+2*3+3*4+9*10的值Private Sub Command1_Click() s = 0 For i = 1 To 9 s = s + i * (i + 1) Next i Text1.text = sEnd SubPrivate Sub Command2_Click() EndEnd SubC09本金1万元，年利率7.5%，利滚利（即每年结息后，将利息转成本金继续存入）几年后本利可达到2万元？1年的本利值=本利金+本利金×年利率Private Sub Command1_Click() s = 1 Do whi

22、le s<2 d = d + 1 s = s + s * 0.075LoopText1.text = dEnd SubPrivate Sub Command2_Click() EndEnd SubD类题(综合应用)D01、编程实现：单击“计算”按钮，求100个两位数的随机整数之和，并显示出来。单击“清除”按钮，清除相应数据。要求必须使用循环语句实现。Private Sub Command1_Click()For i = 1 To 100a = Fix(Rnd * 90) + 10s = s + aNext iText1.text = sEnd SubPrivate Sub Command

23、2_Click()Label2 = ""End SubD02、点击窗体输出九九乘法表Private Sub Form_Click()Print " 九九乘法表"For a = 1 To 9For b = 1 To aPrint a ； "*" ； b ；"="； a * b ；Next bPrintNext aEnd SubD03、点击窗体打印如下图形：Private Sub Form_Click()For i = 1 To 5 Print Tab(6 - i); For j = 1 To 2 * i - 1 Pr

24、int "*" Next j PrintNext iEnd SubD04、有一数学灯谜，求A、B、C、D(其中A、B、C、D都为一位数字)的值Private Sub Command1_Click()For A = 1 To 9 For B = 0 To 9 For C = 1 To 9 For D = 0 To 9 If (1000 * A + 100 * B + 10 * C + D) - (100 * C + 10 * D + C) = (100 * A + 10 * B + C) Then print a;b;c;d Next D, C, B, AEnd SubPri

25、vate Sub Command2_Click()EndEnd SubD05、产生10个两位的随机整数并打印输出，点击“排序”按钮将它们按从小到大的顺序排序并在下一行打印输出。点击“结束”按钮退出程序。 Private Sub Command1_Click()ClsDim a(10)Randomize TimerFor i = 1 To 10a(i) = Fix(Rnd * 90) + 10Print a(i);Next iFor i = 1 To 9For j = i + 1 To 10If a(j) < a(i) Then t = a(j): a(j) = a(i): a(i) =

26、tNext jNext iPrintFor i = 1 To 10Print a(i);Next iEnd SubPrivate Sub Command2_Click()EndEnd SubD06、36块砖，36人搬。男搬4，女搬3，两个小孩抬一块砖。要求一次全搬完。问需男、女、小孩各若干？Private Sub Form_Click()ClsPrint "男", "女", "小孩"For i = 0 To 9 For j = 0 To 12 m = 36 - i - j If 4 * i + 3 * j + m / 2 = 36 Then Print i, j, m Next jNext iEnd SubD07、我国古代数学家张丘建在算经中出了一道“百钱百鸡”题，题意是：公鸡五元一只，母鸡三元一只，小鸡一元三只。用100元钱买100只鸡，问公、母、小鸡各买多少只？编程输出所有满足Private Sub Form_Click()Print "公鸡", "母鸡", "小鸡"For x = 0 To 20 For y = 0 To