1、高中计算机会考题档次到档次习题及答案 Visaul Basic程序设计(编程题)A类题说明:A类题以顺序结构的解析算法为主,解决学生在数学、物理和生活中遇到的简单计算问题。用到的控件有:标签框、文本框、命令按钮等。A01、制作一个加法器,在文本框中输入两个数值后,单击“计算”按钮可以计算出两数之和并显示在标签中;单击“清除”按钮可以清除各项数值。Private Sub Command1_Click()a = Valb = Val = a + bEnd SubPrivate Sub Command2_Click() = = = End SubA02、已知y= x3|x10|4, 编程求y的值 。
2、要求:在文本框中输入x的值,单击“计算”按钮后在“y”框中显示y的值;单击“退出”按钮退出程序。Private Sub Command1_Click() X= Val = x 3 + Abs(x - 10) + 4End SubPrivate Sub Command2_Click()EndEnd SubA03、编程实现:在“半径”框中输入圆的半径,单击“确定”按钮时,“周长”、“面积”框中显示圆的周长和面积。Private Sub Command1_Click()r=val=2*r =*r*rEnd SubA04、编程计算圆锥的体积。要求:输入圆锥的半径与高度,单击“计算”按钮可以计算出圆锥的
3、体积并显示出来;单击“清除”按钮可以清除各项数值。提示:V =hr2 ,取Private Sub Command1_Click()r= Valh= Val = 1 / 3 * * h * r 2End SubPrivate Sub Command2_Click() = = = End SubA05、华氏温度(F)与摄氏温度(C)之间的转换关系为: 。编程实现:若用户在文本框中输入一个摄氏温度,单击“转换”按钮可以换算成华氏温度,并显示出来;单击“清除”按钮可以清除各温度值。Private Sub Command1_Click() C= Val = 9 / 5 *c + 32End SubPri
4、vate Sub Command2_Click() = = End SubA06、求并联电阻R的值。要求:在两个文本框中分别输入电阻R1、R2的值,单击“计算”按钮在“R”框中显示并联电阻R的值;单击“清除”按钮清除数据;单击“退出”按钮退出程序。 (提示:)Private Sub Command1_Click()r1=valr2=val =r1*r2/(r1+r2)End SubPrivate Sub Command2_Click() = = = End SubA07、一个物体从一座塔高为h(米)的塔顶上自由落下,求落地所需的时间t(秒)。要求:在文本框中输入塔高h,单击“计算”按钮,在“时
5、间”框中显示落地所需时间t的值;单击“退出”按钮退出程序(提示: ,其中g= )。Private Sub Command1_Click()h=val =sqr(2*h/End SubPrivate Sub Command2_Click()endEnd Sub A08、一架雪橇沿一斜坡滑下,它在时间t(秒)滑下的距离s(米)由以下公式给出:s=10t+2t2。编程实现:若用户在文本框中输入一个时间值,单击“计算”按钮可以计算出下滑的距离,并将其显示出来;单击“刷新”按钮可以清除各项数值。Private Sub Command1_Click()t=val =10*t+2*t*tEnd SubPri
6、vate Sub Command1_Click()= = End SubA09、编程完成美元兑换人民币的计算,假设美元兑换人民币,100美元=620人民币,输入美元数,输出兑换的人民币数。B类题说明:B类题以选择结构为主,并涉及平方根,绝对值等函数的应用。B01、在文本框中任意输入两个数,单击“比较”按钮后,将其中的最大值显示在下方标签中;单击“清除”按钮清除各项数值。Private Sub Command1_Click() a = Val b = Val If a b Then = a Else = b End IfEnd SubPrivate Sub Command2_Click() =
7、= = End SubB02、买水果。10斤以上(含10斤)每斤3元,10斤以下每斤元。用户输入购买的斤数,单击“计算”按钮显示总价钱;单击“清除”按钮清除各项数值;单击“结束”按钮结束程序。Private Sub Command1_Click()x = ValIf x = 10 Then = x*3Else = x * End IfEnd SubPrivate Sub Command2_Click() = = End SubPrivate Sub Command3_Click() EndEnd SubB03、由铁路托运行李,从甲地到乙地,行李不超过50 kg 时,运费为 元 /kg ,如果超
8、过 50kg, 超过部分的运费为 元 /kg 。请编写程序,当输入行李重量后,单击“计算”按钮计算运费,单击“清除”按钮可以清除各项数值。Private Sub Command1_Click()w = ValIf w 0时计算表达式y的值,否则弹出消息“wrong”。Private Sub Command1_Click()a=valb=valif a*b0 then =(a+b)/sqr(4*a*b) else =“wrong”end ifEnd SubPrivate Sub Command2_Click() = = = End SubB05、输入a,b,c 三个数,若b2-4ac?0 则显示
9、“有实根”,否则显示“无实根”。 Private Sub Command1_Click()a=valb=valc= valif b*b-4*a*c=0 then =“有实根” else =“无实根”end ifEnd SubPrivate Sub Command2_Click() = = = = End SubB06、由键盘输入三条边ABC,判断是否构成三角形,构成三角形的显示“此三边能构成三角形”,否则显示“此三边不能构成三角形”。(构成三角形的条件为:任意两边之和大于第三边,任意两边之差小于第三边。)Private Sub Command1_Click() a=valb=valc= val
10、if a+bc and a+cb and b+ca then =“此三边能构成三角形” else =“此三边不能构成三角形”end ifEnd SubPrivate Sub Command2_Click() EndEnd SubB07任意输入一个数,若这个数大于零则输出这个数的平方根,若这个数小于或等于零则输出这个数的绝对值。Private Sub Command1_Click() a = Val If a 0 Then = Sqr(a) Else = Abs(a)End SubPrivate Sub Command2_Click()EndEnd Sub C类题说明:C类题以循环结构的应用为主
11、,并涉及累加、累乘、随机函数、分离数字、判断整除的应用等。C01、在11000区间中的所有整数中,分别计算能被3整除的数的个数及能被7整除的数的个数,结果显示如题所示。要求:必须使用循环语句实现。Private Sub Command1_Click()s1 = 0s2 = 0For i = 1 To 1000 Step 1If i mod 3=0 Then s1 = s1 + 1If i mod 7=0 Then s2 = s2 + 1Next i = s1 = s2End SubPrivate Sub Command2_Click()EndEnd SubC02、输出所有的水仙花数。即水仙花数
12、是三位数,并且满足每位数字立方之和等于这个数。如:153=13+53+33 (用循环完成)Private Sub Command1_Click()ClsFor i = 100 To 999a = i 100b = i 10 mod 10c = i mod 10If 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
13、 If i Mod 2 = 0 Then s1 = s1 + i Else s2 = s2 + i End If Next i = s1 = s2End SubPrivate Sub Command2_Click() EndEnd SubC04、 编程计算 S=1+2+3+4+N,找一个最大整数,使得S30000Private Sub Command1_Click() s = 0 n = 0 Do While s = 5 and n 5 Then Print xNext iEnd SubC07生成10个10,99 范围内的随机整数,显示并求平均值。Private Sub Command1_Cl
14、ick() 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 Command3_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 = sEnd SubPrivate
15、Sub Command2_Click() EndEnd SubC09本金1万元,年利率%,利滚利(即每年结息后,将利息转成本金继续存入)几年后本利可达到2万元1年的本利值=本利金+本利金年利率Private Sub Command1_Click() s = 1 Do while s2 d = d + 1 s = s + s * Loop = dEnd SubPrivate Sub Command2_Click() EndEnd SubD类题(综合应用)D01、编程实现:单击“计算”按钮,求100个两位数的随机整数之和,并显示出来。单击“清除”按钮,清除相应数据。要求必须使用循环语句实现。Pri
16、vate Sub Command1_Click()For i = 1 To 100a = Fix(Rnd * 90) + 10s = s + aNext i = sEnd SubPrivate Sub Command2_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(
17、)For i = 1 To 5 Print Tab(6 - i); For j = 1 To 2 * i - 1 Print *; 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 +
18、 C) Then print a;b;c;d Next D, C, B, AEnd SubPrivate 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(
19、j) a(i) Then t = a(j): a(j) = a(i): a(i) = 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
20、= 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 33 z = 100 - x - y If 5 * x + 3 * y + z / 3 = 100 Then Print x, y, z Next yNext xEnd SubD08、有一道写于纸上的
21、数学题被雨水淋湿,其中有两个数字已模糊不清(342)647 你能找出这两个数吗 Private Sub Form_Click()ClsFor a = 0 To 9For b = 0 To 9If (30 + a + 42) * 6 = (470 + b) Then Print a; ; bNext bNext aEnd SubD09、有一数列的前四项是: 3,9,27,81. 请找出数列的规律,打印输出这个数列的前10项,并计算该数列前10项的和。(请用数组完成)Private Sub Form_Click()ClsDim a(1 To 10) As Longa(1) = 3S = a(1)P
22、rint a(1)For i = 2 To 10a(i) = a(i - 1) * 3S = S + a(i)Print a(i)Next iPrint 总和=; SEnd SubD10、显示出100-200以内的所有素数。Private Sub Form_Click()ClsFor i = 100 To 200For j = 2 To i - 1 If i Mod j = 0 Then s = 1Next jIf s = 0 Then Print i;s = 0Next iEnd SubD11、2- 1000以内的完全数(因子之和等于它本身的数为完全数),例:6=1+2+3, 28=1+2+4+7+14, 那么6和28是完全数。Private Sub Form_Click()ClsFor i = 2 To 1000 For j = 1 To i - 1 If i Mod j = 0 Then s = s + j Next j If s = i Then Print i s = 0 Next iEnd Sub
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1