实验6 循环结构程序设计1

VB使用

《高级语言程序设计（VB）》实验

班级： 土木4 座号：28 姓名：陈新鹏 指导教师： 徐涛 成绩：

实验时间：20120320

实验6· 循环结构程序设计（2学时）

一、实验目的：

1）使用For循环结构语句；

2）使用While循环结构语句和Do循环结构语句；

3）使用循环结构的嵌套；

4）循环条件的控制和使用强制通常循环语句Exit；

二、实验内容：

1、上机指导书：教材：p91-97 的练习 实验指导书：p73-77各页的练习； 2、

VB使用

3、完成实验报告：教材：p102操作题5、6、8

三、实验步骤：（事件代码编写）

1 Private Sub Command1_Click()

Dim s!, i!, n%

s = 0

For i = o To Val(Text1.Text) Step 2

s = s + i

Next i

Text2.Text = s

End Sub

2 Private Sub Command1_Click()

Dim i!, s1%, s2$, n%

n = Val(Text1.Text)

Label2.Caption = ""

For i = 1 To n

s1 = Int(Rnd * 2 + 1)

If s1 = 1 Then

s2 = Chr(Int(Rnd * 27 + 65))

Else

s2 = Chr(Int(Rnd * 27 + 97))

End If

VB使用

Label2.Caption = Label2.Caption & s2

Next

End Sub

3 Private Sub Command1_Click()

Dim s$, t$, i%, a$

s = Text1.Text

t = Len(s)

For i = 1 To t

a = Mid(s, i, 1) & a

Next

Text2.Text = a

End Sud

4 Private Sub Command1_Click()

Dim m%, n%, p%

For m = 1 To 9

For n = 1 To 9

For p = 1 To 9

If m * 100 + n * 10 + p = m ^ 3 + n ^ 3 + p ^ 3 Then Print m, n, p

End If

Next

Next

VB使用

Next

End Sub

四、实验小节

循环语句有难度。