编程题题目及答案.docVIP

编程题目及答案 第二章 1．在窗体上添加3 个命令按钮（“显示”、“清除”与“结束”）。单击“显示”按钮时，将在窗体上显示唐诗“静夜思”，如图2-1 所示，单击“清除”按钮时，将清除所显示的内容，单击“结束”按钮时，结束程序的运行。 2．在窗体上添加5 个标签、4 个文本框和2 个命令按钮。程序运行时，通过文本框输入一个总秒数，单击“计算”按钮，总秒数将传换成小时、分钟和秒数并在文本框中输出（运行界面如图2-2 所示） 图2-1 图2-2 3．在窗体上添加3 个标签，3 个文本框和2 个命令按钮。程序运行时，在第1 个文本框中输入文字时，在另外两个文本框中显示相同的内容，但显示的字号和字体不同。单击“清除”按钮则可清除3 个文本框中的内容（运行界面如图2-3 所示）。 4．设计计算语文、数学、英语这三门课程总成绩和平均分的程序，利用文本框做数据的输入和输出（运行界面如图2-4）所示。 图2-3 图2-4 5．单击窗体，弹出一个输入框，用户输入一个两位数（如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=20 CurrentX=1200 CurrentY=350 Print 静夜思(唐诗) FontName=幼圆 Print FontSize=13 Print Spc(6);床前明月光，疑是地上霜 Print Print Spc(6);举头望明月，低头思故乡 End Sub Private Sub Command2_Click() Cls End Sub Private Sub Command3_Click() End End Sub 2．编写的命令按钮单击事件过程代码如下： Private Sub Command1_Click() Dim h As Integer, m As Integer,s As Integer,t As Integer t=Val(Text1.Text) h=t\3600 t=t-h*3600 m=t\60 s=t-m*60 Text2.Text=h Text3.Text=m Text4.Text=s End Sub Private Sub Command1_Click() End End Sub 3．Private Sub Form_Load() Text2.FontName=隶书 Text2.FontSize=16 Text3.FontName=楷体_GB2312 Text3.FontSize=20 End Sub Private Sub Text1_Change() Text2.Text=Text1.Text Text3.Text=Text1.Text End Sub Private Sub Command1_Click() “清除”按钮 Text1.Text= 清除文本框Text1 的内容 Text2.Text= 清除文本框Text2 的内容 Text3.Text= 清除文本框Text3 的内容 Text1.SetFocus 设置焦点 End Sub Private Sub Command2_Click() End End Sub 4．Private Sub Command1_Click() Dim s As Single,ave As Single Dim sx As Single,yw As Single,wy As Single sx=Val(Text1.Text) yw=Val(Text2.Text) wy=Val(Text3.Text) s=sx+yw+wy ave=s/3 Text4.Text=总成绩为 s Text5.Text=