《2021年高中计算机会考 VB题 A档次到D档次 习题及答案》由会员分享，可在线阅读，更多相关《2021年高中计算机会考 VB题 A档次到D档次 习题及答案（13页珍藏版）》请在金锄头文库上搜索。
1、. Visaul Basic程序设计（编程题）A类题说明：A类题以次序结构的解析算法为主，解决同学在数学、物理和生活中遇到的简洁运算问题；用到的控件有：标签框、文本框、命令按钮等；A01、制作一个加法器，在文本框中输入两个数值后，单击“运算”按钮可以运算出两数之和并显示在标签中；单击“清除”按钮可以清除各项数值；Private Sub Command1_Clicka = ValText1.Textb = ValText2.Texttext3.text = a + bEnd SubPrivate Sub Command2_ClickText1.Text = Text2.Text = Text3.
2、text = End SubA02、已知y= x3|x10|4， 编程求y的值 ；要求：在文本框中输入x的值，单击“运算”按钮后在“y”框中显示y的值；单击“退出”按钮退出程序；Private Sub Command1_Click X= ValText1.TextText2.text = x 3 + Absx - 10 + 4End SubPrivate Sub Command2_ClickEndEnd SubA03、编程实现：在“半径”框中输入圆的半径，单击“确定”按钮时，“周长”、“面积”框中显示圆的周长和面积；Private Sub Command1_Clickr=valtext1.te
3、xttext2.text=2*3.14*rtext3.text =3.14*r*rEnd SubA04、编程运算圆锥的体积；要求：输入圆锥的半径与高度，单击“运算”按钮可以运算出圆锥的体积并显示出来；单击“清除”按钮可以清除各项数值；提示：V =hr2 ，取3.14Private Sub Command1_Clickr= ValText1.Texth= ValText2.Texttext3.text = 1 / 3 * 3.14 * h * r 2End SubPrivate Sub Command2_ClickText3.text = Text2.Text = 精品.Text1.Text =
4、 End SubA05、华氏温度（F）与摄氏温度（C）之间的转换关系为： ；编程实现：如用户在文本框中输入一个摄氏温度，单击“转换”按钮可以换算成华氏温度，并显示出来；单击“清除”按钮可以清除各温度值；Private Sub Command1_Click C= ValText1.Texttext2.text = 9 / 5 *c + 32End SubPrivate Sub Command2_ClickText1.Text = text2.text = End SubA06、求并联电阻R的值；要求：在两个文本框中分别输入电阻R1、R2的值，单击“运算”按钮在“R”框中显示并联电阻R的值；单击“
5、清除”按钮清除数据；单击“退出”按钮退出程序； （提示：）Private Sub Command1_Clickr1=valtext1.textr2=valtext2.texttext3.text =r1*r2/r1+r2End SubPrivate Sub Command2_ClickText1.Text = Text2.Text = Text3.text = End SubA07、一个物体从一座塔高为h（米）的塔顶上自由落下，求落地所需的时间t（秒）；要求：在文本框中输入塔高h，单击“运算”按钮，在“时间”框中显示落地所需时间t的值；单击“退出”按钮退出程序（提示： ，其中g=9.8 ）；P
6、rivate Sub Command1_Clickh=valtext1.texttext2.text =sqr2*h/9.8End SubPrivate Sub Command2_ClickendEnd Sub A08、一架雪橇沿一斜坡滑下，它在时间t（秒）滑下的距离s（米）由以下公式给出：s=10t+2t2；编程实现：如用户在文本框中输入一个时间值，单击“运算”按钮可以运算出下滑的距离，并将其显示出来；单击“刷新”按钮可以清除各项数值；Private Sub Command1_Clickt=valtext1.texttext2.text =10*t+2*t*t精品.End SubPrivat
7、e Sub Command1_Clicktext1.text= text2.text = End SubA09、编程完成美元兑换人民币的运算，假设美元兑换人民币，100美元=620人民币，输入美元数，输出兑换的人民币数；B类题说明：B类题以挑选结构为主，并涉及平方根，肯定值等函数的应用；B01、在文本框中任意输入两个数，单击“比较”按钮后，将其中的最大值显示在下方标签中；单击“清除”按钮清除各项数值；Private Sub Command1_Click a = ValText1.Text b = ValText2.Text If a b Then Text3.text = a Else Tex
8、t3.text = b End IfEnd SubPrivate Sub Command2_Click Text1.text = Text2.Text = Text3.Text = End SubB02、买水果；10斤以上（含10斤）每斤3元，10斤以下每斤3.5元；用户输入购买的斤数，单击“运算”按钮显示总价钱；单击“清除”按钮清除各项数值；单击“终止”按钮终止程序；Private Sub Command1_Clickx = ValText1.TextIf x = 10 Thentext2.text = x*3Else精品. text2.text = x * 3.5End IfEnd Sub
9、Private Sub Command2_Click Text1.Text = text2.text = End SubPrivate Sub Command3_Click EndEnd SubB03、由铁路托运行李，从甲地到乙地，行李不超过50 kg 时，运费为 1.50 元 /kg ，假如超过 50kg, 超过部分的运费为 2.00 元 /kg ；请编写程序，当输入行李重量后，单击“运算”按钮运算运费，单击“清除”按钮可以清除各项数值；Private Sub Command1_Clickw = ValText1.TextIf w 0时运算表达式y的值，否就弹出消息“wrong”；Priva
10、te Sub Command1_Clicka=valtext1.textb=valtext2.textif a*b0 then text3.text =a+b/sqr4*a*b else text3.text =“wrong”end ifEnd SubPrivate Sub Command2_Click Text1.Text = Text2.Text = Text3.text = End SubB05、输入a,b,c 三个数，如b2-4ac0 就显示“有实根”，否就显示“无实根”； Private Sub Command1_Click精品.a=valtext1.textb=valtext2.t
11、extc= valtext3.textif b*b-4*a*c=0 then text4.text =“有实根” else text4.text =“无实根”end ifEnd SubPrivate Sub Command2_Click Text1.Text = Text2.Text = Text3.Text = Text4.text = End SubB06、由键盘输入三条边ABC，判定是否构成三角形，构成三角形的显示“此三边能构成三角形”，否就显示“此三边不能构成三角形”；（构成三角形的条件为：任意两边之和大于第三边，任意两边之差小于第三边；）Private Sub Command1_Cl
12、ick a=valtext1.textb=valtext2.textc= valtext3.textif a+bc and a+cb and b+ca thentext4.text =“此三边能构成三角形” else text4.text =“此三边不能构成三角形”end ifEnd SubPrivate Sub Command2_Click EndEnd SubB07任意输入一个数，如这个数大于零就输出这个数的平方根，如这个数小于或等于零就输出这个数的肯定值；Private Sub Command1_Click a = ValText1.Text If a 0 Then text2.text
13、 = Sqra Else text2.text = AbsaEnd SubPrivate Sub Command2_ClickEndEnd Sub C类题说明：C类题以循环结构的应用为主，并涉及累加、累乘、随机函数、分别数字、判定整除的应用等；C01、在11000区间中的全部整数中，分别运算能被3整除的数的个数及能被7整除的数的个数，精品.结果显示如题所示；要求：必需使用循环语句实现；Private Sub Command1_Clicks1 = 0s2 = 0For i = 1 To 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_ClickEndEnd SubC02、输出全部的水仙花数；即水仙花数是三位数，并且满意每位数字立方之和等于这个数；如：153=13+53+33 （用循环完成）Private Sub Command1_ClickCl
