实验七 数组.docVIP

实验七 数组 一、实验目的 1. 掌握一维数组、二维数组和可调（动态）数组的建立和使用。 2. 掌握控件数组的建立和使用。 二、实验内容 1. 制作一个将十进制整数转换为二进制、八进制和十六进制数的程序。 2. 用含有16个元素的单选按钮控件数组设置文本框的字体颜色和背景色。 3. 综合运用一维数组、二维数组、动态数组和控件数组的有关知识编写程序，要求能输入学生的学号、姓名、性别、年龄等个人简况，输入的学生人数不限，并可按学号或姓名查询。 三、实验步骤及指导 1. 数制转换 制作一个将十进制整数转换为二进制、八进制和十六进制数的程序。十进制整数转换为其他（N）进制数的基本方法是“N除取余，逆排序”，即用N去除十进制整数，取其余数，再用N去除商，取余数，如此反复，直至商为零。将每次所得余数逆序排列，即为要转换的N进制数。在十六进制数中有“A”～“F”6个特殊数码，与十进制数10～15相对应，为了便于转换，可将“0”～“F”16个数码存入一个下界为0，上界为15的静态字符型数组中。转换时按照数组元素的下标取出对应的字符即可。该数组同样适用于向二进制和八进制的转换。 （1）设计界面及设置属性 在窗体上放置两个文本框，用于输入十进制数和显示转换结果，名称分别为txtInput和txtResult，将Text属性均设为空。添加一个组合框，将名称改为cboSelect。如图7-1所示，选择该控件属性窗口的List属性，单击右侧的下拉按钮，在弹出的下拉框中输入三项内容：“二进制”、“十进制”和“十六进制”（每项输入完成后按Ctrl+Enter组合键换行）；再选择属性窗口的ItemData属性，单击右侧的下拉按钮，在弹出的下拉框中输入三项内容：“2”、“8”和“16”，分别与List属性中各项相对应。再添加两个命令按钮，Caption属性分别为“转换”和“结束”。 说明：组合框的ItemData属性是一个长整型数的数组，它的项目数（元素个数）与控件的List属性（本质是字符串数组）的项目数相等。ItemData属性中的各项与List属性中的各项一一对应。在本程序中，当用户选择待转换的数制（如“二进制”）时，可以直接利用ItemData属性中对应的数值进行计算。 (a) 设置List属性 (b) 设置ItemData属性 图7-1 设置组合框属性 （2）编写代码 定义一个模块级的字符串型静态数组Char(15)，默认下界为0。在窗体的Form_Load事件中将字符0～9、A～F赋予该数组各元素，以备调用。 在组合框的单击事件中，将用户选择的进制通过组合框的ItemData属性获取进制基数存入变量以备计算。 在“转换”按钮的单击事件中，通过循环进行“N除取余，逆排序”，将用户输入的十进制数转换为其他进制。在循环中，根据每次所得余数，取Char数组中对应位置的“0～F”字符，即转换为特定进制的数码字符。将每次所得数码字符按以下方式存入字符串变量即可实现“逆排序”： 字符串变量 = 数码字符 字符串变量 注意：数码字符应在“”连接符之前。 程序运行效果如图7-2所示。 (a) 十进制转二进制 (b) 十进制转八进制 (c) 十进制转十六进制 图7-2 数制转换 程序代码如下： Option Explicit Dim n As Integer 存数制 Dim Char(15) As String 静态字符串数组存0～F数字字符 Private Sub cboSelect_Click() cboSelect为数制组合框 ItemData为组合框中项目的代号，分别为2,8,16 ListIndex为组合框中项目的索引，代表当前被选中的项目 单击时将所选数制存入n n = cboSelect.ItemData(cboSelect.ListIndex) End Sub Private Sub cmdEnd_Click() 结束按钮 Unload Me End Sub Private Sub cmdStart_Click() 转换按钮 On Error GoTo ErrInfo 出错时(如数字太大，溢出)转向 ErrInfo 语句 Dim strResult As String 存转换结果 Dim lngNum As Long 存待转换数字 Dim r As Integer 存余数 lngNum = Val(txtInput) 将输入框中的十进制数存入lngNum