《VB语言程序设计》实验报告 实验名称:循环结构程序设计 姓 名: xxxx 学 号: 3090511075 同 组 者:_________________ 专业班号: 管093 实验日期:_________________ 教师签字:_________________ 一、实验目的及要求 通过本实验使学生:要求学生掌握For…Next语句的使用方法;掌握前测型和后测型Do…Loop语句的使用方法;掌握循环嵌套的规则和使用方法;掌握列表框与组合框的使用方法。 二、实验设备及环境 Windowsp vb6.0 三、实验内容 1. 设s=1*2*3*…*n,求s不大于400000时最大的n。 2. 某4位数ABCD能够被78整除,它的前两位数字相同,后两位数字也相同,求这个数。 3. 指定一个初始值,从该数值开始,找出100个不能被7整除的自然数。要求通过文本框来接受这个初始值,找出的自然数显示在列表框中。 四、实验步骤 1. 题1 (1)用户界面设计 (2)关键程序代码(指明针对哪一对象的什么事件,可用截图) Private Sub Form_Load() Show Dim n As Integer, S As Long n = 1: S = 1 Do While S <= 400000 n = n + 1 S = S * n Text1.Text = n End Sub (3)运行结果(界面图) 2.题2(内容同上) (1)用户界面设计 (2)关键程序代码 Private Sub Form_Load() Dim A As Integer, B As Integer Dim S As Integer For A = 1 To 9 For B = 0 To 9 S = A * 1000 + A * 100 + B * 10 + B If S Mod 78 = 0 Then Text1.Text = S End If Next Next End Sub (3)运行结果 3.题3 (1)用户界面设计 (2)关键程序代码 Private Sub Command1_Click() Dim n As Integer, k As Integer n = Val(Text1.Text) k = 0 Do While k <= 100 If n Mod 7 <> 0 Then k = k + 1 List1.AddItem Str(n) End If n = n + 1 End Sub (3)运行结果 五、实验总结 通过本次实验使我更加熟悉循环结构程序设计的一些常用语句,掌握了一些编程方法和技巧。 |
|