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

《高级语言程序设计（VB）》实验 班级： 土木4 座号：28 姓名：陈新鹏 指导教师： 徐涛 成绩： 实验时间实验6· 循环结构程序设计（2学时） 一、实验目的： 1）使用For循环结构语句； 2）使用While循环结构语句和Do循环结构语句； 3）使用循环结构的嵌套； 4）循环条件的控制和使用强制通常循环语句Exit； 二、实验内容： 1、上机指导书：教材：p91-97 的练习 实验指导书：p73-77各页的练习； 2、 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 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 Next End Sub 四、实验小节 循环语句有难度。