推荐-vb程序设计实验报告 精品
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
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 mand1_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
5，打开VB后，建立4个Lebel标签，4个Text文本框，2个mand按钮，如上图。编辑代码如下：Private Sub mand1_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 mand2_Click()
End
End Sub
6, 打开VB后，建立1个Text文本框，1个mand按钮。代码如下：
Private Sub mand1_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隔开
3，使用Select语句时，Case后的条件是字符型。
实验四循环结构程序设计
一﹑实验目的
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项的分母是前一项的分母加上表示有分母项开始的计数项
=a+aa+aaa+aaa+⋯aa⋯aaa(n个a)，其中a是一个由随机数产生的1~9(包括1，9)中的一8．求S
n
个正整数，n是一个由随机数产生的5~10(包括5，10)中的一个数。
=2+22+222+2222+22222。
例如：当a=2，n=5时，S
n
提示：为了得到不断重复的数Temp，可在循环体利用下面通项：
Temp=Temp*10+a
Temp的初值为0。
三﹑实验步骤