VB编程题答案.doc

文档介绍：第五章数据输入/输出试题类型: CH 题号: 1文件名: CH0507 试题内容:输入 a=5 , b= , c= ,编程计算: bca ab y???将计算结果输出在窗体上。数据描述:变量为变体类型工程描述:在“ Command1 ”按钮单击事件中编程实现,输入用 InputBox 函数,输出用 Print 方法。新建 Form1 窗体,将窗体保存为 ,工程保存为 ,提交作业时仅将这两个文件上传。输入: 5 输出: Private mand1_Click() Dim a As Variant Dim b As Variant Dim c As Variant Dim d As Variant Pi= a= Val(InputBox(" 请输入 a 的值")) b= Val(InputBox(" 请输入 b 的值")) c= Val(InputBox(" 请输入 c 的值")) d=a*b* Pi/ (a+b* c) Print d End Sub 试题类型: CH 题号: 2文件名: CH0508 试题内容:设计一个时间转换程序,实现秒到时、分、秒的转换, 将结果输出在窗体上。数据描述:输出格式: *时*分*秒工程描述:在“ Command1 ”按钮单击事件中编程实现,用 InputBox 函数输入以秒为单位表示的时间,用 Print 方法输出转换后的时、分、秒形式的结果。新建 Form1 窗体,将窗体保存为 ,工程保存为 ,提交作业时仅将这两个文件上传。输入: 32451 输出: 9小时 0分钟 51秒(减少一组数) Private mand1_Click() Dim a As Single Dim b As Single Dim c As Single Dim d As Single a= Val(InputBox(" 输入时间")) b=a\ 3600 c= (a-b* 3600) \ 60 d=a-b* 3600 -c* 60 Print b&" 小时"&c&" 分钟"&d&"秒" End Sub 试题类型: EX 题号: 3文件名: EX0501 试题内容:利用 InputBox 函数输入某学生 3门功课的分数,计算平均分数并在窗体上显示。数据描述:变量为变体类型工程描述:在“ Command1 ”按钮单击事件中编程实现,用 InputBox 函数输入 3 门功课的分数,用 Print 方法输出平均分数。新建 Form1 窗体,将窗体保存为 ,工程保存为 ,提交作业时仅将这两个文件上传。输入: 90 82 76输出: Private mand1_Click() Dim a As Variant Dim b As Variant Dim c As Variant Dim X As Variant a= Val(InputBox(" 请输入第一门功课分数")) b= Val(InputBox(" 请输入第二门功课分数")) c= Val(InputBox(" 请输入第三门功课分数")) X= (a+b+ c)/3 Print X End Sub 试题类型: EX 题号: 4文件名: EX0503 (IE01) 试题内容:编程把时间“ 13:54:11 ”转换为秒( 24 小时制), 将转换结果输出在窗体上。数据描述:变量为变体类型工程描述:在“ Command1 ”按钮单击事件中编程实现,用 Print 方法将秒值输出。新建 Form1 窗体,将窗体保存为 IE01 .FRM ,工程保存为 IE01 .VBP ,提交作业时仅将这两个文件上传。输入:输出: 50051 Private mand1_Click() Dim a As Variant Dim b As Variant Dim c As Variant Dim d As Variant a= Val(InputBox(" 请输入小时值")) b= Val(InputBox(" 请输入分钟值")) c= Val(InputBox(" 请输入秒值")) d=a* 3600 +b* 60+c Print d End Sub 试题类型: EX 题号: 5 文件名: EX0504 (IE02) 试题内容: 编写一个温度转换程序, 输入一个摄氏温度 c, 将其转换成华氏温度 f ,将结果输出在窗体上。数据描述:变量为变体类型工程描述:在“ Command1 ”按钮单击事件中编程实现,用 InputBo x函数输入摄氏温度 c,用 Pr