VB实验报告4VB实验报告4.docVIP

台州学院 《VB程序设计》实验报告 实验四：循环结构程序设计 班级：14生科2 学号：1431210045 姓名：茅佳慧 实验日期一、实验目的和要求 1．掌握For语句的使用； 2．掌握Do{While|Until}…Loop与Do…Loop{While|Until}两种形式的使用； 3．掌握如何控制循环条件，防止死循环或不循环； 4．熟练掌握循环条件设置及循环的控制方法。 二、实验主要仪器和设备 计算机一台，Windows XP操作系统，Visual Basic环境。 三、实验内容 实验4.1 编写过程Commandl_Click，显示对话框输入n（n0），循环n次，每次随机产生一个两位数，求出其中的偶数之和，并在标签框Label1上显示。 实验4.2 编写过程Commandl_Click，用InputBox函数输入10个学生的成绩，统计后依次用标签控件Labell～Labe13显示优秀（85-100）、通过（60-84）和未通过（小于60）的人数。 实验4.3 编制事件程序 Command1_Click，执行该过程时输入n，并计算下列表达式的值，然后将计算结果在文本框控件Text1中显示。 实验4.4 打印出所有的水仙花数，所谓水仙花数是指一个三位数，其各位数字立方和等于该数。例如，153是一水仙花数，因为。 实验4.5 用近似公式求值，当时不再累加。 实验4.6（选做）一个两位数的正整数，如果将其个位数与十位数对调所生成的数称为对调数，如28是82的对调数。现给定一个两位的正整数，请找到另一个两位的正整数，使这两个数之和等于它们各自的对调数之和，如56+32=65+23。 四、实验原始纪录 实验4.1 程序的界面设计。 程序代码。 Private Sub Command1_Click() Dim n As Integer, i As Integer, a As Integer, s As Integer Randomize 初始化随机数 n = InputBox(请输入n：) For i = 1 To n a = Int(Rnd * 90) + 10 随机生成一个两位数存于变量a中 Print a; 显示在屏幕上，以便校对（实际编程可以省略） If a Mod 2 = 0 Then s = s + a 判断是否为偶数 Next i Label1.Caption = s End Sub 实验4.2 程序的界面设计。 程序代码。 Private Sub Command1_Click() Dim n1 As Integer, n2 As Integer, n3 As Integer, CJ As Integer For i = 1 To 10 CJ = InputBox(请输入成绩(一共10个成绩)：) If CJ = 85 And CJ = 100 Then n1 = n1 + 1 ElseIf CJ = 60 And CJ = 84 Then n2 = n2 + 1 ElseIf CJ 60 Then n3 = n3 + 1 End If Next i Label1.Caption = n1 Label2.Caption = n2 Label3.Caption = n3 End Sub 实验4.3 程序的界面设计。 程序代码。 Private Sub Command1_Click() Dim n As Integer, i As Integer, s As Single n = InputBox(请输入n：) s = 1 For i = 2 To n s = s + i / ((i + 1) * (i + 2)) Next i Text1.Text = s End Sub 实验4.4 程序的界面设计。 程序代码。 Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer a代表百位数字，b十位，c各位 Dim s As Integer s存放组合成的三位数 For a = 1 To 9 百位数字取值范围是1-9 For b = 0 To 9 十位数字取值范围是0-9 For c = 0 To 9 个位数字取值范围是0-9