VB实验四(循环结构).PPT

循环结构 实验要求 ? 要求完成实验任务 ? 利用循环语句完成各种操作 实验任务 For-Next循环的练习；熟悉列表框、组合框的属性、事件和方法；While-Wend循环的练习，D0-Loop循环的练习，多重循环的练习，常用算法的练习，编写程序,完成课后作业。 (1) 存在问题的程序(VB等级考试24_1_1) Option Explicit Private Sub Form_Load() Text1.Text = Text2.Text = Text1.Locked = True Text2.Locked = True End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) Dim i As Integer Dim k As Integer If KeyAscii = 13 Then k = Len(Text1.Text) Text2.Text = For i = 1 To k Text2.Text = Mid(Text1.Text, i, 1)  Text2.Text Next i End If End Sub 2.编程:（60分） (程序存盘文件名 TEST12.VBP TEST12.FRM) 编写一个高速公路收费程序。已知收费标准和收费办法如下： 讲课内容、方法、步骤 If swit = 0 Then d = d + 1 If d Mod 5 = 0 Then Print n; ; Print Else Print n; ; End If End If Next n End Sub Private Sub Command2_Click() End End Sub 该例的外层循环使用的是For-Next循环，内层循环使用的是当循环。在输出素数时，按5个数一行输出。 讲课内容、方法、步骤 输出结果 讲课内容、方法、步骤 七、二级(VISUAL BASIC)上机考试试卷 （四川第二十四次等级考试，第一套） 1.调试程序：(40分) (程序存盘文件名TEST11.FRM、TEST11.VBP) 在磁盘上有一名为“TEST11.VBP”的文件 （程序界面如下图所示）。 其功能为：先在文本框Text1中输入一个字符串，按下回车键时，该字符串逆序在文本框Text2中显示。其中，文本框Text2不接受键盘输入，文本框Text1可接受的字符数不超过20。 讲课内容、方法、步骤 程序中有若干错误，请调试通过（在不删除整条语句的前提下，可修改或补充语句，添加的语句不能超过两条。调试通过后仍以文件名TEST11.VBP存盘） 讲课内容、方法、步骤 (1) 存在问题的程序 Option Explicit Private Sub Form_Load() Text1.Text = Text2.Text = Text1.Locked = True Text2.Locked = True End Sub 讲课内容、方法、步骤 Private Sub Text1_KeyPress(KeyAscii As  Integer) Dim i As Integer Dim k As Integer If KeyAscii = 13 Then k = Len(Text1.Text) Text2.Text = For i = 1 To k Text2.Text = Mid(Text1.Text, i, 1) Next i End If End Sub 讲课内容、方法、步骤 Private Sub Text1_KeyPress(KeyAscii As Integer) Dim i As Integer Dim k As Integer If KeyAscii = 13 Then