编程题题目及答案

《编程题题目及答案》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、编程题目及答案第二章1．在窗体上添加3个命令按钮（“显示”、“清除”与“结束”）。单击“显示”按钮时，将在窗体上显示唐诗“静夜思”，如图2-1所示，单击“清除”按钮时，将清除所显示的内容，单击“结束”按钮时，结束程序的运行。2．在窗体上添加5个标签、4个文本框和2个命令按钮。程序运行时，通过文本框输入一个总秒数，单击“计算”按钮，总秒数将传换成小时、分钟和秒数并在文本框中输出（运行界面如图2-2所示）图2-1图2-23．在窗体上添加3个标签，3个文本框和2个命令按钮。程序运行时，在第1个文本框中输入文字时，在另外两个文本框中显示相同的内容，但显示的字号和字体不同。单击“清除”按钮则

2、可清除3个文本框中的内容（运行界面如图2-3所示）。4．设计计算语文、数学、英语这三门课程总成绩和平均分的程序，利用文本框做数据的输入和输出（运行界面如图2-4）所示。34图2-3图2-45．单击窗体，弹出一个输入框，用户输入一个两位数（如36），交换个位数和十位数的位置，并把处理后的数（63）用消息框显示给用户。6．在窗体上添加2个文本框（它们的初始值均为0）、4个命令按钮（标题分别为“+”“-”“*”“/”）和1个标签（初始标题为空）。要求在2个文本框内输入2个数字，单击“+”（或“-”、“*”、“/”）按钮时，标签将显示两数相加（或减、乘、除）的结果。7．某门课程的考试成绩分

3、为笔试和机试成绩，其中笔试占60％，机试占40％，利用输入框分别输入该课程的笔试和机试成绩，用消息框输出其总成绩。8．设计一个电子计时器，以秒为单位计时，单击“计时开始”按钮计时开始。此时“计时开始”按钮变灰，“停止计时”按钮可用，在标签内显示经过的秒数。单击“停止计时”按钮，计时结束，弹出消息框提示“您的记录是？秒”（这里的？代表标签最后显示的秒数值）。34答案四、编程题1．编写的3个按钮的Click事件过程代码如下：PrivateSubCommand1_Click()BackColor=RGB(255,255,255)ForeColor=RGB(0,0,255)FontName

4、="楷体_GB2312"FontSize=20CurrentX=1200CurrentY=350Print"静夜思(唐诗)"FontName="幼圆"PrintFontSize=13PrintSpc(6);"床前明月光，疑是地上霜"PrintPrintSpc(6);"举头望明月，低头思故乡"EndSubPrivateSubCommand2_Click()ClsEndSubPrivateSubCommand3_Click()EndEndSub2．编写的命令按钮单击事件过程代码如下：PrivateSubCommand1_Click()DimhAsInteger,mAsInteger,s

5、AsInteger,tAsIntegert=Val(Text1.Text)h=t3600t=t-h*3600m=t60s=t-m*60Text2.Text=hText3.Text=mText4.Text=sEndSubPrivateSubCommand1_Click()EndEndSub3．PrivateSubForm_Load()Text2.FontName="隶书"Text2.FontSize=16Text3.FontName="楷体_GB2312"34Text3.FontSize=20EndSubPrivateSubText1_Change()Text2.Text=Tex

6、t1.TextText3.Text=Text1.TextEndSubPrivateSubCommand1_Click()'“清除”按钮Text1.Text=""'清除文本框Text1的内容Text2.Text=""'清除文本框Text2的内容Text3.Text=""'清除文本框Text3的内容Text1.SetFocus'设置焦点EndSubPrivateSubCommand2_Click()EndEndSub4．PrivateSubCommand1_Click()DimsAsSingle,aveAsSingleDimsxAsSingle,ywAsSingle,wyAsSingl

7、esx=Val(Text1.Text)yw=Val(Text2.Text)wy=Val(Text3.Text)s=sx+yw+wyave=s/3Text4.Text="总成绩为"&sText5.Text=aveEndSubPrivateSubCommand2_Click()EndEndSub5．编写的窗体单击事件过程代码如下：PrivateSubForm_Click()DimxAsInteger,aAsIntegerDimbAsInteger,cAsIntegerx=