您现在的位置:首页 >> 实验指导 >> 内容

实验四 顺序结构

时间:2009-11-16 11:21:43 点击:1451

 

一、实验目的

 1.了解顺序结构程序的结构;

2.掌握赋值语句等基本语句的使用;

3.掌握InputBoxMsgBox的使用。

二、实验内容

实验4.1  编写程序,在窗体上打印出下列信息。

****************************

姓名    性别    总成绩

王小小         425

李平           416

张丽           470

[提示]

1.新建工程文件“实验4.1.vbp”,在其中新建窗体form1,并在上面添加一个按钮控件command1,其caption属性内容为“显示”,界面如图13所示:

13 程序界面

2.在单击command1按钮的事件过程中添加代码。

Private Sub Command1_Click()

Cls

Print

Print

Print "*****************************************"

Print "姓名"; Tab(10); "性别"; Tab(20); "总成绩"

Print

Print "王小小"; Tab(10); ""; Tab(20); "425"

Print "李平"; Tab(10); ""; Tab(20); "416"

Print "张丽"; Tab(10); ""; Tab(20); "470"

End Sub

实验4.2  编写程序,请用inputbox函数输入一个同学的名字及各门课程的考试成绩,计算总成绩并显示出来。

[提示]

1. 新建工程文件“实验4.2.vbp”,在其中新建窗体form1,并在上面添加一个按钮控件command1,其caption属性内容为“输入并显示”,再添加一个标签label1,界面如图14所示:

14 程序界面

2.在单击command1按钮的事件过程中添加代码。

Private Sub Command1_Click()

msg1 = "请输入姓名"

msg2 = "请输入英语成绩:"

msg3 = "请输入语文成绩:"

msg4 = "请输入计算机成绩:"

ent1 = InputBox(msg1, "输入")

ent2 = InputBox(msg2, "输入")

ent3 = InputBox(msg3, "输入")

ent4 = InputBox(msg4, "输入")

Label1.Caption = ent1 & "的英语成绩是" & ent2 & ",语文成绩是" _

 & ent3 & ",计算机成绩是" & ent4 & Chr(13) & Chr(10) _

& "总成绩是" & Val(ent2) + Val(ent3) + Val(ent4)

End Sub

实验4.3 编写一程序,退出时进行询问确认。

[提示]

1. 新建工程文件“实验4.3.vbp”,在其中新建窗体form1,并在上面添加一个按钮控件command1,其caption属性内容为“退出”,界面如图15所示:

15 程序界面

2.在单击command1按钮的事件过程中添加代码。

Private Sub Command1_Click()

Dim Msg, Style, Title, Help, Ctxt, Response, MyString

Msg = "你是否真的要退出程序吗?"     '定义消息文本

Style = vbYesNo + vbCritical + vbDefaultButton2 + vbMsgBoxHelpButton     '上述代码定义按钮

Title = "退出"       ' 定义标题文本

Help = "DEMO.HLP"       ' 定义帮助文件

Ctxt = 1000       ' 定义帮助主题

Response = MsgBox(Msg, Style, Title, Help, Ctxt)

If Response = vbYes Then       ' 用户按下""

      End       ' 中止程序运行

End If

End Sub

消息框的运行界面如图16所示:

16 “退出”消息框


作者:Admin  
  • VB程序设计学习网站(赣南师范学院) © 2008 版权所有 All Rights Reserved.
  • 地址:江西省赣州市经济技术开发区 赣南师范学院数学与计算机科学学院 邮政编码:341000
    Email:ZQ188@163.com 技术支持QQ:87319633 移ICP备10086号
  • GnsySjxy! V2.4