内容发布更新时间 : 2024/12/27 12:03:45星期一 下面是文章的全部内容请认真阅读。
图1-5 Welcome程序的运行效果
（9）选择“运行／启动”菜单，在开发环境下运行该程序，运行效果如图1-5所示。 （10）选择“文件／保存工程”菜单，或单击工具栏上的“保存工程”按钮，保存窗体文件Form l .frm和工程文件Welcome.vbp。
（11）选择“文件／生存”菜单，创建该程序的可执行文件。
1.3.2. 按所示界面设计一个加法器。
在窗体上添加三个标签控件Label1~label3,将其caption属性分别改为“加数”，“被加数”和“和”，三个文本框控件Text1~Text3，和三个命令按钮Command1~Command3，将其caption属性分别改为“相加”，“清除”和“退出”
代码提示：
Private Sub Command1_Click()
Text3.Text = Val(Text1.Text) + Val(Text2.Text) End Sub
Private Sub Command2_Click() Text1.Text = \Text2.Text = \Text3.Text = \End Sub
Private Sub Command3_Click() End End Sub
1.3.3计算两个随便输入数据的和、差、积。
代码提示：
Dim a As String Dim b As String
Private Sub Form_Click()
a = InputBox$(\输入A的值\ b = InputBox$(\输入B的值\ x = Val(a)
6
y = Val(b) Print Print
Print \两数之和=\ Print \两数之差=\ Print \两数之积=\End Sub
1.3.4求水仙花数
算法分析：
设有1个3位数abc，若这个数等于3位数的立方和，则这个数被称为“水仙花数”，既符合条件100 * a + 10 * b + c = a ^ 3 + b ^ 3 + c ^ 3的三位数abc称为“水仙花数”。用3个变量a，b，c分别表示3位数的百位、十位和个位数，分别采用3个循环语句For/Next、Do While/Loop和Do Until/Loop进行判断，若符合条件，则在窗体上打印该数。
代码提示：
Private Sub Command1_Click() Dim a%, b%, c As Integer For a = 1 To 9 b = 0
Do While b <= 9 c = 0 Do Until c > 9
If a ^ 3 + b ^ 3 + c ^ 3 = 100 * a + 10 * b + c Then Print \水仙花数\ End If c = c + 1 Loop b = b + 1 Loop Next a End Sub
1.3.5模拟袖珍计算器的
按照下图设计界面
在窗体上添加4个标签控件Label1~Label4，其Caption属性分别为“操作数1”，“运算符”，“操作数2”“结果”，4个文本框Text1~Text4，将其name（名称）属性分别设置成“TxtOp1”, “TxtCalculate”, “TxtOp2”和“TxtResult”，三个命令按钮Command1~Command3，将其name（名称）属性分别改成“CmdOperation”，“CmdClear” 和“CmdExit” ，caption属性分别改为“计算”，“清除”和“退出”
代码提示：
7
Private Sub CmdClear_Click()
TxtOp1.Text = \ TxtOp2 = \ TxtCalculate = \ TxtResult = \ TxtOp1.SetFocus End Sub
Private Sub CmdExit_Click() End End Sub
Private Sub CmdOperation_Click() Dim op1, op2, result
'判断操作数1输入是否合法 If (IsNumeric(TxtOp1.Text)) Then op1 = Val(TxtOp1.Text) Else
MsgBox \操作数1必须为数值\ TxtOp1.SetFocus End If
'判断操作数2输入是否合法 If (IsNumeric(TxtOp2.Text)) Then op2 = Val(TxtOp2.Text) Else
MsgBox \操作数2必须为数值\ TxtOp2.SetFocus End If
Select Case Trim(TxtCalculate.Text) Case \
result = op1 + op2 Case \
result = op1 - op2 Case \
result = op1 * op2 Case \
If op2 = 0 Then
MsgBox \分母不能为零，请重新输入\ TxtOp2.Text = \ TxtOp2.SetFocus Else
result = op1 / op2 End If Case Else
MsgBox \运算符输入不正确，请重新输入\ TxtCalculate.Text = \ TxtCalculate.SetFocus End Select
TxtResult = result End Sub
1.4思考题
1.VB提供了哪些标准数据类型？
2.VB中输入数据和输出数据有哪几种方式？
3.试分析If — Then — Else结构和Select Case结构的异同点。
8
实验2 数组与过程
2.1 实验目的
掌握数组的概念及基本操作；掌握控件数组的概念和使用方法；掌握Sub过程和Function过程的定义及其调用方法；掌握参数传递的两种方式：传值调用和传址调用。
2.2 相关知识
数组：数组的概念(数组与数组元素、数组的类型、数组的维数、数组的形式)：固定大小的数组(数组的声明、数组的使用)：动态数组(创建动态数组、保留动态数组的内容)；控件数组(件数组的概念、控件数组的建立、控件数组的使用)。
过程：Sub过程(事件过程与通用过程、通用过程的创建、通用过程的调用)：Function 过程(Function 过程的定义、Function 过程的调用、查看过程)；向过程传递参数(形式参数与实际参数、按值传递与按地址传递、使用参数、传递数组)；过程的嵌套与递归调用(过程的嵌套、过程的递归)。
2.3实验项目
2.3.1求矩阵元素的平均值，以及高于平均值的元素及其行列号。
按照下图设计界面，在窗体中添加一个图片框Picture1和一个框架Frame1，选中Frame1，在其中增加一个标签Label1和两个命令按钮command1和command2，将其caption属性改为输入和计算。
参考代码：
Dim a(6, 6) As Integer, av As Single Private Sub Command1_Click() Dim n As Integer, m As Integer For n = 1 To 6 For m = 1 To 6
a(n, m) = Int(Rnd * 90 + 10) Next Next
Picture1.Cls
Picture1.CurrentY = 80 For n = 1 To 6 For m = 1 To 6
Picture1.Print Format(a(n, m), \ Next
Picture1.Print Picture1.Print Next End Sub
Private Sub Command2_Click() s = 0
For n = 1 To 6 For m = 1 To 6 s = s + a(n, m)
9
Next Next
av = s / (6 * 6)
Label1.Caption = \平均值= \ p = \
For n = 1 To 6 For m = 1 To 6
If a(n, m) > av Then
p = p & \ End If Next Next
MsgBox p, 0, \大于平均值的元素是\End Sub
2.3.2 设计一个简易计算器，如图2-1所示。
分析：程序中的按钮分为两类：数字类和运算符类，可以分别使用命令按钮控件数组。 设计步骤如下：
（1）建立应用程序用户界面与设置对象属性。
选择新建工程，进入窗体设计器，首先增加一个框架控件Frame1，选中Frame1后，在其中增加一个文本框控件Text1、两个命令按钮控件数组Command1 (0)～Command1(10) 和Command2(0)～Command2(4）。并设置属性如表2-1所示。
图2-1简易计算器 表2-1属性设置
对象 Textl 属性 Caption Alignment Locked Command l(0)-Commandl(10) Command2(0)-Command2(4) （2） 实验参考源代码
首先在模块的“通用”段声明变量：
Dim v As Boolean ’是否第1次按运算符
10
属性值 1－Rigth Justify True 依次为0,1,2,3,4,5,6,7,8,9和小数点 依次为 +, - , * , /, = Caption Caption