vb实验答案

分为“及格”,60分以下为“不及格”。Р【步骤】Р(1)设计应用程序的界面:mand1,两个标签Label1和Label2,两个文本框Text1和Text2,如图3-3所示。Р(2)设置对象的属性Р对象名称Р属性名称Р属性值РCommand1РCaptionР成绩等级РLabel1РCaptionР请输入成绩РLabel2РCaptionР成绩等级为РText1、Text2РTextР Р Р(3)编写事件代码:РPrivate mand1_Click()Р  Dim cj!, dj As StringР  cj = Val(Text1.Text)Р  Select Case Val(Text1) \ 10Р    Case 9, 10Р      Text2 = "优秀"Р    Case 8Р      Text2 = "良好"Р    Case 7Р      Text2 = "中等"Р    Case 6Р      Text2 = "及格"Р    Case ElseР      Text2 = "不及格"Р   End SelectРEnd SubР(4)程序的运行及保存。Р Р实验四  循环结构程序设计Р Р一、实验目的Р1.掌握循环的基本概念。Р2.掌握For循环。Р3.掌握Do ... While循环和Do While ... Loop循环,注意区分两种循环。Р4.了解Do ... Loop Until循环和Do Until ... Loop循环。Р5.掌握如何利用循环条件来控制循环,防止死循环的出现。Р二、实验内容Р1 编写一个程序,当程序运行时,单击窗体后,用单循环在窗体上输出规则字符图形,如图4-1所示。Р【步骤】Р(1)编写事件代码:РPrivate Sub Form_Click()Р  Dim i%Р  ClsР  For i = 1 To 10