编程题题目及答案

  • 格式:doc
  • 大小:605.50 KB
  • 文档页数:34

编程题目及答案第二章1.在窗体上添加3 个命令按钮(“显示”、“清除”与“结束”)。

单击“显示”按钮时,将在窗体上显示唐诗“静夜思”,如图2-1 所示,单击“清除”按钮时,将清除所显示的内容,单击“结束”按钮时,结束程序的运行。

2.在窗体上添加5 个标签、4 个文本框和2 个命令按钮。

程序运行时,通过文本框输入一个总秒数,单击“计算”按钮,总秒数将传换成小时、分钟和秒数并在文本框中输出(运行界面如图2-2 所示)图2-1图2-23.在窗体上添加3 个标签,3 个文本框和2 个命令按钮。

程序运行时,在第1 个文本框中输入文字时,在另外两个文本框中显示相同的内容,但显示的字号和字体不同。

单击“清除”按钮则可清除3 个文本框中的内容(运行界面如图2-3 所示)。

4.设计计算语文、数学、英语这三门课程总成绩和平均分的程序,利用文本框做数据的输入和输出(运行界面如图2-4)所示。

图2-3图2-45.单击窗体,弹出一个输入框,用户输入一个两位数(如36),交换个位数和十位数的位置,并把处理后的数(63)用消息框显示给用户。

6.在窗体上添加2 个文本框(它们的初始值均为0)、4 个命令按钮(标题分别为“+”“-”“*”“/”)和1 个标签(初始标题为空)。

要求在2 个文本框内输入2 个数字,单击“+”(或“-”、“*”、“/”)按钮时,标签将显示两数相加(或减、乘、除)的结果。

7.某门课程的考试成绩分为笔试和机试成绩,其中笔试占60%,机试占40%,利用输入框分别输入该课程的笔试和机试成绩,用消息框输出其总成绩。

8.设计一个电子计时器,以秒为单位计时,单击“计时开始”按钮计时开始。

此时“计时开始”按钮变灰,“停止计时”按钮可用,在标签内显示经过的秒数。

单击“停止计时”按钮,计时结束,弹出消息框提示“您的记录是?秒”(这里的?代表标签最后显示的秒数值)。

答案四、编程题1.编写的3 个按钮的Click 事件过程代码如下:Private Sub Command1_Click()BackColor=RGB(255,255,255)ForeColor=RGB(0,0,255)FontName="楷体_GB2312"FontSize=20CurrentX=1200CurrentY=350Print "静夜思(唐诗)"FontName="幼圆"PrintFontSize=13Print Spc(6);"床前明月光,疑是地上霜"PrintPrint Spc(6);"举头望明月,低头思故乡"End SubPrivate Sub Command2_Click()ClsEnd SubPrivate Sub Command3_Click()EndEnd Sub2.编写的命令按钮单击事件过程代码如下:Private Sub Command1_Click()Dim h As Integer, m As Integer,s As Integer,t As Integer t=Val(Text1.Text)h=t\3600t=t-h*3600m=t\60s=t-m*60Text2.Text=hText3.Text=mText4.Text=sEnd SubPrivate Sub Command1_Click()EndEnd Sub3.Private Sub Form_Load()Text2.FontName="隶书"Text2.FontSize=16Text3.FontName="楷体_GB2312"Text3.FontSize=20End SubPrivate Sub Text1_Change()Text2.Text=Text1.TextText3.Text=Text1.TextEnd SubPrivate Sub Command1_Click() '“清除”按钮Text1.Text="" '清除文本框Text1 的内容Text2.Text="" '清除文本框Text2 的内容Text3.Text="" '清除文本框Text3 的内容Text1.SetFocus '设置焦点End SubPrivate Sub Command2_Click()EndEnd Sub4.Private Sub Command1_Click()Dim s As Single,ave As SingleDim sx As Single,yw As Single,wy As Single sx=Val(Text1.Text)yw=Val(Text2.Text)wy=Val(Text3.Text)s=sx+yw+wyave=s/3Text4.Text="总成绩为" & sText5.Text=aveEnd SubPrivate Sub Command2_Click()EndEnd Sub5.编写的窗体单击事件过程代码如下:Private Sub Form_Click()Dim x As Integer,a As IntegerDim b As Integer,c As Integerx=Val(InputBox(“请输入一个两位数”))a=Int(x/10) '求十位数b=x Mod 10 '求个位数c=b*10+a '生成新的数MsgBox(“处理后的数为”& c )End Sub6.Private Sub Command1_Click()Dim a as integer,b as integer,c as integer a=Text1.Textb=Text2.Textc=a+bLabel1.Caption=cEnd SubPrivate Sub Command2_Click()Dim a as integer,b as integer,c as integera=Text1.Textb=Text2.Textc=a-bLabel1.Caption=cEnd SubPrivate Sub Command3_Click()Dim a as integer,b as integer,c as integera=Text1.Textb=Text2.Textc=a*bLabel1.Caption=cEnd SubPrivate Sub Command4_Click()Dim a as integer,b as integer,c as singlea=Text1.Textb=Text2.Textc=a/bLabel1.Caption=cEnd Sub7.Private Sub Form_Click()Dim s1 As Single,s2 As Single,s As Singles1=Val(InputBox("请输入笔试成绩"))s2=Val(InputBox("请输入机试成绩"))s=s1 * 0.6+s2*0.4MsgBox ("您的成绩为" & s)End Sub8.Private Sub Form_Load()Label1.Caption=0Timer1.Enabled=FalseEnd SubPrivate Sub Command1_Click()Command1.Enabled=FalseCommand2.Enabled=TrueTimer1.Enabled=TrueEnd SubPrivate Sub Command2_Click()Command1.Enabled=TrueCommand2.Enabled=FalseTimer1.Enabled=FalseMsgBox ("您的记录为" & Label1.Caption & "秒")End SubPrivate Sub Timer1_Timer()Label1.Caption=Label1.Caption+1End Sub第三章三、编程题1.输入a,b,c 三个数,按从大到小的次序显示。

运行界面如图3-2 所示。

图3-22.任意输入一个整数,判定该整数的奇偶性。

运行界面如图3-3 所示。

图3-33.编制程序,计算某个学生奖学金的等级,以语文a、数学b、英语c 三门功课的成绩为评奖依据。

奖学金分为一、二、三等,其评奖标准如下。

(1)符合下列条件之一的可得一等奖。

①三门功课总分在285 分以上。

②有两门功课成绩是100 分,且第三门功课成绩不低于80 分者。

(2)符合下列条件之一的可得二等奖:①三门功课总分在270 分以上。

②有一门功课成绩是l00 分,且其他功课成绩不低于75 分者。

(3)各门功课成绩不低于70 分者,获三等奖。

(4)符合条件者就高不就低,只能获得高的那一项奖学金。

要求显示获奖的等级。

运行界面如图3-4 所示。

图3-44.编制程序,根据用户输入的考试成绩,按表3-1 分数与等级的对照标准,输出相应的等级,运行界面如图3-5 所示。

图3-55.计算分段函数:的值。

运行界面如图3-6 所示。

图3-66.公用电话收费标谁如下:通话时间在3 分钟以内,收费0.2 元;3 分钟以上,则每超过1 分钟加收0.1 元。

编写一段程序,计算某人通话X 分钟,应缴多少电话费? 运行界面如图3-7 所示。

图3-7答案:三、编程题1.方法1:Private Sub Command1_Click()a=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text)If b>a Then t=a:a=b:b=tIf b>c ThenLabel4.Caption=aLabel5.Caption=bLabel6.Caption=cElseIf c > a ThenLabel4.Caption=cLabel5.Caption=aLabel6.Caption=bElseLabel4.Caption=aLabel5.Caption=cLabel6.Caption=bEnd IfEnd SubPrivate Sub Command2_Click()EndEnd Sub方法2:Private Sub Command1_Click()a = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text)If a < b Then t = a: a = b: b = t If a < c Then t = a: a = c: c = t If b < c Then t = b: b = c: c = t Label4.Caption = aLabel5.Caption = bLabel6.Caption = cEnd SubPrivate Sub Command2_Click()EndEnd Sub2.Private Sub Command1_Click() x = Val(Text1.Text)If x Mod 2=0 ThenLabel2.Caption="是偶数"ElseLabel2.Caption="是奇数"End IfEnd SubPrivate Sub Command2_Click()EndEnd Sub3.Private Sub Command1_Click()a=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text)If a+b+c>=285 Or (a=100 And b=100 And c>=80) Or (b=100 And c=100 And a>=80) Or (a=100 And c=100 And b>=80) ThenLabel5.Caption="一等奖"ElseIf a+b+c>=270 Or (a=100 And b>=75 And c>=75) Or (b=100 And a>=75 And c>=75) Or (c=100 And a>=75 And b>=75) Then Label5.Caption="二等奖"ElseIf a>=70 And b>=70 And c>=70 ThenLabel5.Caption="三等奖"ElseLabel5.Caption="无"End IfEnd SubPrivate Sub Command2_Click()EndEnd Sub4.Private Sub Command1_Click()x=Val(Text1.Text)Select Case xCase Is>=90Label3.Caption="优秀"Case 80 To 89Label3.Caption="良好"Case 70 To 79Label3.Caption="中"Case 60 To 69Label3.Caption="及格"Case ElseLabel3.Caption = "不及格"End SelectEnd SubPrivate Sub Command2_Click()EndEnd Sub5.Private Sub Command1_Click()x=Val(Text1.Text)Select Case xCase Is<0Label3.Caption=x*x+1Case Is>=1Label3.Caption=3*x^3Case ElseLabel3.Caption=2*x+1End SelectEnd SubPrivate Sub Command2_Click()EndEnd Sub6.方法1:Private Sub Command1_Click()x=Val(Text1.Text)If x<=3 ThenLabel3.Caption="0.2 元"Elsey=(x-3)*0.1+0.2If y<1 ThenLabel3.Caption="0." & y & "元"ElseLabel3.Caption=Str(y) & "元"End IfEnd IfEnd SubPrivate Sub Command2_Click()EndEnd Sub方法2:Private Sub Command1_Click()x=Val(Text1.Text)If x<=3 ThenLabel3.Caption="0.2 元"Elsey=(x-3)*0.1+0.2Label3.Caption= Format(y, "0.0") & "元"End SubPrivate Sub Command2_Click()EndEnd Sub第四章三、编程题1.建立一个“求和程序”窗体,运行界面如图4-3 所示。