偶看新闻岩石单轴抗压强度概念:vb循环结构试验报告
来源：百度文库 编辑：偶看新闻 时间：2024/04/28 04:43:02
《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）运行结果
五、实验总结
通过本次实验使我更加熟悉循环结构程序设计的一些常用语句，掌握了一些编程方法和技巧。