岩石单轴抗压强度概念:vb循环结构试验报告
《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)运行结果
五、实验总结
通过本次实验使我更加熟悉循环结构程序设计的一些常用语句,掌握了一些编程方法和技巧。