VB程序设计实验报告.docxVIP

VB程序设计实验报告 实验三选择结构程序设计 一、实验目的 掌握逻辑表达式的正确书写形式。 掌握单分支与双分支条件语句的使用。 掌握多分支条件语句的使用。 掌握情况语句的使用及与多分支条件语句的区别 、实验内容 编制程序，计算某个学生奖学金的等级（假定只考虑一等奖），以三门功课成绩ml, m2，m3为评奖依据。奖学金一等奖评定标准如下： （1）平均分大于95分者。（2）有两门 成绩是100分，且第三门功课成绩不低于 80分者。 编一模拟袖珍计算器的完整程序，界面如图 2.3.1所示。要求：输入两个操作数和一 个操作符，根据操作符决定所做的运算。 6 ?输入一个数字（1?7）,用英文显示对应的星期一?星期日。 提示：用Select语句来实现。 三、实验步骤 打开VB后，建立一个命令按钮，输入 奖学金评定”，编辑代码如下 Private Sub comma nd1_Click（） Dim m1!, m2!, m3! m1 = InputBox（输入 m1 的值） m2 = InputBox（输入 m2 的值） m3 = InputBox（输入 m3 的值） If （m1 + m2 + m3） / 3 95 Or _ （m1 = 100 And m2 = 100 And m3 = 85 Or _ m1 = 100 And m3 = 100 And m2 = 85 Or m3 = 100 And m2 = 100 And m1 = 85) Then MsgBox 一等奖学金 Else MsgBox 不是一等奖学金 End If End Sub 打开VB后，建立4个Lebel标签，4个Text文本框，2个Comman按钮，如上图。编辑 代码如下： Private Sub Command1_Click() Select Case Trim(Text3) Case + Text4.Text = Val(Text1.Text) + Val(Text2.Text) Case - Text4.Text = Val(Text1.Text) - Val(Text2.Text) Case * Text4.Text = Val(Text1.Text) * Val(Text2.Text) Case / Text4.Text = Val(Text1.Text) / Val(Text2.Text) End Select End Sub Private Sub Command2_Click() End End Sub 打开VB后，建立1个Text文本框，1个Comman按钮。代码如下： Private Sub Command1_Click() a = Text1.Text Select Case a Case 1 Print Monday Case 2 Print Tuesday Case 3 Print Wednesday Case 4 Print Thursday Case 5 Print Friday Case 6 Print Saturday Case 7 Print Sunday End Select End Sub 四、实验总结 1从此此实验中掌握了 IF语句的使用?掌握情况语句的使用，以及情况语句与多分支语句的 使用区别? 写在不同行的条件代码要用空格加下划线分开， 有关m1,m2,m3的三个条件要用 AND隔 开 使用Select语句时，Case后的条件是字符型。 实验四循环结构程序设计 一、 实验目的 掌握For语句的使用。 掌握Do语句的各种形式的使用。 掌握如何控制循环条件，防止死循环或不循环。 二、 实验内容 3?用单循环显示有规律图形，如图 4.1。 提示： 循环体内显示用String函数来实现，找出循环控制变量与String函数内个数的关系， 即：String(i,Trim(Str(i)))。 Trim函数是去除字符串两边的空格。因为将数值 i转换成字符，系统自动在数字前 加符号位，正数为空格，负数为 -”而String函数只取字符串中的第一个字符，本例中为空 格，因此要利用Trim函数去除空格。 为了使得最后一行的0显示，如按照上面公式为 1，则要对公式修改为： Foral Stri ng(i,Right( (Str(i),1))i Stri ng(i,Right( (Str(i),1)) i 222 33333 4444444 555555555666666666667777777777777 99999999999999999ODOOOODOOOOOOODOOOO 图4.1实验4.3运行界面之一 4?计算291221161111714121S当第i项的值＜10 4 4?计算 律，第i项的分母是前一项的分