VB实验及答案 下载本文

内容发布更新时间 : 2024/12/25 21:07:00星期一 下面是文章的全部内容请认真阅读。

(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时