2. 计算机
  3. (1)在考生文件夹下有工程文件sj3．vbp及窗体文件sj3．frm，该程序是不完整的。在窗体上有一个标签数组，名称为Labell，该数组有4个控件元素，标题分别是“文本编辑”“程序运行”“移动窗体”和“双向箭头”。运行界面如图63—3所示。在程序运行后，

(1)在考生文件夹下有工程文件sj3．vbp及窗体文件sj3．frm，该程序是不完整的。在窗体上有一个标签数组，名称为Labell，该数组有4个控件元素，标题分别是“文本编辑”“程序运行”“移动窗体”和“双向箭头”。运行界面如图63—3所示。在程序运行后，

admin2010-07-13  22
问题 (1)在考生文件夹下有工程文件sj3．vbp及窗体文件sj3．frm，该程序是不完整的。在窗体上有一个标签数组，名称为Labell，该数组有4个控件元素，标题分别是“文本编辑”“程序运行”“移动窗体”和“双向箭头”。运行界面如图63—3所示。在程序运行后，将鼠标移动到各控件元素上，则鼠标的形状将变成各控件元素的标题所代表的鼠标形状，离开控件元素，则又变成正常情况下的箭头形状。
    注意：请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“’”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。
    (2)在考生文件夹下有工程文件sj4．vbp，窗体文件sj4．frm，该程序是不完整的。在窗体上有一个名为Textl的文本框，有两个命令按钮，名称分别是Commandl和Command2、标题分别是“读人数据”和“计算保存”，如图63—4所示。要求程序运行后，单击Commandl按钮，将文本文件in4．txt中的所有数字读到数组a中，并在文本框内显示出来。随后Commandl按钮变为无效。然后单击Command2按钮，求出数组a中的各元素的立方并赋值回相应的元素，例如，a(1)=2，则新a(1)=a(1)*a(1)*a(1)=8。把计算后的数组的值全部写入考生文件夹下的文本文件out4．txt中，并在文本框中显示出来，最后Command2按钮也变为无效。

    注意：请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“’”号)，但不能修改其他部分。修改后的工程及窗体文件，均以原名保存在考生文件夹下。
选项
答案(1)本题主要考查控件数组的创建及属性设置。控件数组是由一组相同类型的控件组成，建立控件数组时，系统给每个元素赋一个唯一的索引号(Index)。鼠标的形状由其MousePointer属性设置，该属性值为3时对应文本编辑时的鼠标形状、为11时对应程序运行时的鼠标形状、为5时对应移动窗体时的鼠标形状、为7时对应双向箭头的鼠标形状。根据题意，在窗体中添加一个含有4个控件数组的标签控件，将其Caption属性分别设置为“文本编辑”、“程序运行”、“移动窗体”和“双向箭头”，并编写如下代码： Private Sub Form_MouseMove(Button As Integer，Shift As Integer，X As Single，Y As Single) Forml．MousePointer=0 End Sub Private Sub Labell_MouseMove(Index As Integer，Button As Integer，Shift As Integer，X As Single，Y As Single) Select Case Index Case 0 Forml．MousePointer=3 Case 1 Forml．MousePointer=11 Case 2 Forml．MousePointer=5 Case 3 Forml．MousePointer=7 End Select End Sub 单击[*]按钮运行程序，并按要求保存。 (2)根据题意，将一个文本框控件和两个命令按钮添加到窗体中，文本框的名称为Textl，命令按钮的名称分别为Commandl和Command2，Caption属性分别为“读人数据”和“计算保存”，由于不知道读取数据的个数，所以要用到动态数组，动态数组的用法如下： Dim a()as Long ReDim a(n)as Long 具体代码如下： Dim temp As Long Dim num As Integer Dim a()As Long Dim i As Integer Dim str As String Dim trap As String Private Sub Commandl_Click() num=0 str="" Open"App．Path&＼in4．txt"For Input As#l’打开文件 While EOF(1)=False’EOF判断是否读到文件末尾 Input#1，temp’如果没读到文件末尾则继续读取 num=num+l ’计数加1，以确定要分配的数组个数 Wend Close#1 ReDim a(num)As Long Open"App．Pathl&＼in4．txt"For Input As#2’打开文件 For i=1 To num’利用For循环读取数据 Input#2，a(i)’读取数据 tmp=a(i) ’将数值赋给字符串 str=str+tmp+"" ’写入字符串，显示在Textl里面 Next i Close#2 Textl．Text=str’将Text里显示字符串 End Sub Private Sub Command2_Click() str="" For i=1 To num ’利用for循环进行计算 a(i)=a(i)*a(i)*a(i) ’计算立方 Next i Open"App．Path&＼out4．txt"For Append As#3’打开文件 For i=1 To num’利用循环写入文件 Print#3，a(i) tmp=a(i) str=str+trap+"" Next i Close#3 Textl.Text=str End Sub 单击[*]按钮运行程序，并按要求保存。
解析
转载请注明原文地址:https://jikaoti.com/ti/2Jg0FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)