3.编写一个程序和界面输入某学生的语文、数学英语三门课程的成绩,单击计算可以得出该学生的平均分和总分
解答问题3.
编写一个程序和界面,输入某学生的语文、数学、英语三门课程的成绩,单击计算可以得出该学生的平均分和总分。
第1步.在窗体form1 中添加控件并设置其属性:
控件 控件名 Caption text 说明
----------------------------------------------------------
标签 labl_1 语文
标签 labl_2 数学
标签 labl_3 英语
标签 labl_4 总分
标签 labl_5 平均分
文本框 text1 空 留待输入语文分数
文本框 text2 空 留待输入数学分数
文本框 text3 空 留待输入英语分数
文本框 text4 空 留待显示总分
文本框 text5 空 留待显示平均分
命令按钮 command1 计算
第2步.在窗体中双击命令按钮,键入或贴入以下代码:
Private Sub Command1_Click()
Dim s1%, s2%, s3%, su%, av% '简单些,各科成绩及平均分取整数
s1 = CInt(Text1.Text) ' 语文分
s2 = CInt(Text2.Text) ' 数学分
s3 = CInt(Text3.Text) ' 英语分
su = s1 + s2 + s3 ' 计算总分
av = su / 3 ' 计算平均分
Text4.Text = CStr(su) ' 显示总分
Text5.Text = CStr(av) ’显示平均分
End Sub
第3步.运行(运行情况如以下截图所示:)
2014-06-12