内容发布更新时间 : 2024/5/17 14:12:34星期一 下面是文章的全部内容请认真阅读。

（2）设置对象的属性 对象名称 Command1 Label1 Label2 Text1、Text2 （3）编写事件代码： Private Sub Command1_Click() Dim cj!, dj As String cj = Val(Text1.Text) Select Case Val(Text1) \\ 10 Case 9, 10 Text2 = \优秀\ Case 8 Text2 = \良好\ Case 7 Text2 = \中等\ Case 6 Text2 = \及格\ Case Else 属性名称 Caption Caption Caption Text 属性值 成绩等级 请输入成绩 成绩等级为

Text2 = \不及格\ End Select End Sub （4）程序的运行及保存。 实验四 循环结构程序设计 一、实验目的 1．掌握循环的基本概念。 2．掌握For循环。 3．掌握Do ... While循环和Do While ... Loop循环，注意区分两种循环。 4．了解Do ... Loop Until循环和Do Until ... Loop循环。 5．掌握如何利用循环条件来控制循环，防止死循环的出现。 二、实验内容 1 编写一个程序，当程序运行时，单击窗体后，用单循环在窗体上输出规则字符图形，如图4-1所示。

【步骤】 （1）编写事件代码： Private Sub Form_Click() Dim i% Cls For i = 1 To 10 Print String(i, \ Next i End Sub （2）程序的运行及保存。 【提示】 使用String（）函数，String（）函数可以重复显示某个字符串。例如，String（4，\）可以生成4个连续的“*”，即“****”。 2 编写程序，用单循环在窗体上实现如图4-2所示的图形。

【步骤】 （1）编写事件代码： Private Sub Form_Click() Dim i% Cls For i = 9 To 0 Step -1 Print Spc(10 - i); String(2 * i + 1, Trim(Str(i))) Next i End Sub （2）程序的运行及保存。 【提示】 （1）注意观察图形的规律：第I行在输出时是m个空格＋n个字符x，其中m、n、x均和I有关系。 （2）配合Print方法使用Spc（n）函数，其作用是产生n个连续的空格。

（3）使用Str（）函数和Trim（）函数。Str（f）函数是将数值f转换为相同形式的字符串；Trim（s）函数可将字符串s的最前和最后的空格（称为前导和后导空格，可为多个空格）剪切掉，字符串中的空格不受影响。当I为7时，Trim（Str（I））则是字符串\。 （4）结合（3），当I为1时， String（2*I+1，Trim（Str（I）））则生成字符串\。 3 编写程序，求1+2+3+...+100的和，将结果打印在窗体上。 4 编写程序，计算Sum=1+2+3+...，的值，直到Sum > 6000为止。 5 计算结束。 6 已知工厂去年的年产值为300万元，年增长率为15%。试问经过多少年后，该工厂的年产值可以翻一番？翻一番后的实际产值是多少？ 【步骤】 （1）设计应用程序的界面：在窗体上创建一个命令按钮Command1，八个标签Label1～Label8，四个文本框Text1～Text4，如图4-3。 S?1?122?132?142???1n2的值，当第i项1i2?10?5时