VB程序設计实验报告.doc

VB程序设计实验报告 实验三 选择结构程序设计 一、实验目的 1. 掌握逻辑表达式的正确书写形式。 2. 掌握单分支与双分支条件语句的使用。 3. 掌握多分支条件语句的使用。 4. 掌握情况语句的使用及与多分支条件语句的区别。 二﹑实验内容 4. 编制程序，计算某个学生奖学金的等级（假定只考虑一等奖），以三门功课成绩m1，m2，m3为评奖依据。奖学金一等奖评定标准如下： (1) 平均分大于95分者。(2) 有两门成绩是100分，且第三门功课成绩不低于80分者。 5. 编一模拟袖珍计算器的完整程序，界面如图2.3.1所示。要求：输入两个操作数和一个操作符，根据操作符决定所做的运算。 6．输入一个数字（1～7），用英文显示对应的星期一～星期日。 提示：用Select语句来实现。 三﹑实验步骤 4，打开VB后，建立一个命令按钮，输入奖学金评定，编辑代码如下:Private Sub command1_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 IfEnd Sub 5，打开VB后，建立4个Lebel标签，4个Text文本框，2个Command按钮，如上图。编辑代码如下：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 6, 打开VB后，建立1个Text文本框，1个Command按钮。代码如下： 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语句的使用.掌握情况语句的使用,以及情况语句与多分支语句的使用区别. 2，写在不同行的条件代码要用空格加下划线分开有关m1,m2,m3的三个条件要用AND隔开1. 掌握For语句的使用。 2. 掌握Do语句的各种形式的使用。 3. 掌握如何控制循环条件，防止死循环或不循环。 二﹑实验内容 3．用单循环显示有规律图形，如图4.1。 提示： （1）循环体内显示用String函数来实现，找出循环控制变量与String函数内个数的关系，即：String(i,Trim(Str(i)))。 （2）Trim函数是去除字符串两边的空格。因为将数值i转换成字符，系统自动在数字前加符号位，正数为空格，负数为“-”；而String函数只取字符串中的第一个字符，本例中为空格，因此要利用Trim函数去除空格。 （3）为了使得最后一行的0显示，如按照上面公式为1，则要对公式修改为： String(i,Right( (Str(i),1)) 图4.1 实验4.3运行界面之一 4．计算??????????2912211611117141211S当第i项的值10-4时结束。提示：找出规律，第i项的分母是前一项的分母加上表示有分母项开始的计数项 8．求Sn=a+aa+aaa+aaa+?aa?aaa(n个a)，其中a是一个由随机数产生的1~9(包括1，9)中的一个正整数，n是一个由随机数产生的5~10(包括5，10)中