2. 计算机
  3. 注意：下面出现的“考生文件夹”均为c：\wexam\25160001。 (1) 在考生文件夹下有工程文件sjt3.vbp及窗体文件sjt3.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即’号)，但不能修改其他部分。

注意：下面出现的“考生文件夹”均为c：\wexam\25160001。 (1) 在考生文件夹下有工程文件sjt3.vbp及窗体文件sjt3.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即’号)，但不能修改其他部分。

admin2009-02-25  17
问题 注意：下面出现的“考生文件夹”均为c：\wexam\25160001。
   (1) 在考生文件夹下有工程文件sjt3.vbp及窗体文件sjt3.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即’号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。如图17-3所示。
   本题描述如下：
   在窗体上有一个标签数组，名为Label1，该数组有4个控件元素，标题分别是“程序运行”、“文本编辑”、“双向箭头”和“移动窗体”。在程序运行后，将鼠标移动到各控件元素上，则鼠标的形状将变成各控件元素的标题所代表的鼠标形状，离开控件元素，则又变成正常情况下的箭头形状。
   (2) 在考生文件夹下有工程文件sjt4.vbp，窗体文件sjt4.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即’号)，但不能修改其他部分。修改后的工程及窗体文件，均以原名保存在考生文件夹下。如图17-4所示。
   本题描述如下：
   在窗体上有一个名为Text1的文本框，有两个命令按钮，名称分别是C1和C2，标题分别是“读入”和“计算并保存”。要求程序运行后，点击C1按钮，将文本文件in6.txt中的所有数字读到数组arr中，并在文本框内显示出来。随后C1按钮变为无效；然后点击C2按钮，求出数组arr中的各元素的平方并赋值回相应的元素，例如，arr(2)=2，则令arr(2)=arr(2)*arr(2)=4。把计算后的数组的值全部写入考生文件夹下的文本文件out6.txt中，并在文本框中显示出来，最后C2按钮也变为无效。
选项
答案控件数组是由一组相同类型的控件组成，建立控件数组时系统给每个元素赋一个惟一的索引号(Indcx)，例如，控件数组cmdName(3)表示控件数组名为cmdName的第4个元素；鼠标的形状由属性MousePointer来设置，该属性值为11时对应程序运行时的鼠标形状，该属性值为3时对应文本编辑时的鼠标形状，该属性值为7时对应双向箭头的鼠标形状，该属性值为5时对应移动窗体时的鼠标形状。解题步骤： 第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表17-3。 [*] 　　第二步：编写程序代码。 　　程序提供的代码： 　　　　Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 　　　　　　’Form1.?=0 　　　　End Sub 　　　　Private Sub Label1_MouseMove(Index As Integer, Button As Integer, Shift _ 　　　　　　　　　　　　　　　As Integer, X As Single, Y As Single) 　　　　　　’Select Case ? 　　　　　　　Case 0 　　　　　　　　　Form1.MousePointer=11 　　　　　　　Case 1 　　　　　　　　　Form1.MousePointer=3 　　　　　　　Case 2 　　　　　　　　　Form1.MousePointer=7 　　　　　　　Case 3 　　　　　　　　　Form1.MousePointer=5 　　　　　　　End Select 　　　　End Sub 　　参考代码： 　　　　Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 　　　　　　Form1.MousePointer=0 　　　　End Sub 　　　　Private Sub Label1_MouseMove(Index As Integer, Button As Integer, 　　　　　　　　　　　　　　　　　　　Shift As Integer, X As Single, Y As Single) 　　　　　　Select Case Index 　　　　　　　　Case 0 　　　　　　　　　Form1.MousePointer=11 　　　　　　　　Case 1 　　　　　　　　　Form1.MousePointer=3 　　　　　　　　Case 2 　　　　　　　　　Form1.MousePointer=7 　　　　　　　　Case 3 　　　　　　　　　Form1.MousePointer=5 　　　　　　End Select 　　　　End Sub 　　第三步：调试并运行程序。 　　第四步：按题目要求存盘。 　　(2)打开文件的命令是Open，其常用形式为：Open“文件名”For模式As[#]文件号[Len=记录长度]，对文件的写操作所用的命令是Write#或Print#命令，其形式分别为：Print#文件号，[输出列表]；Write#文件号，[输出列表]，二者区别是Write#是以紧凑格式存放，即在数据项之间插入逗号，并给字符串加上双引号。解题步骤： 　　第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表17-4。 [*] 第二步：编写程序代码。 程序提供的代码： Dim arr(1 To 9) As Integer Private Sub C1_Click() Dim i As Integer ’? "in6.txt" For Input As 1 For i=1 To 9 Input #1, arr(i) Text1.Text=Text1.Text+Str(arr(i) ) Next Close #1 C1.Enabled=False End Sub Private Sub C2_Click() Dim i As Integer Text1.Text="" Open "out6.txt" For Output As 1 For i = 1 To 9 arr(i)=arr(i) * arr(i) ’Print #1, ?, Text1.Text=Text1.Text+Str(arr(i) ) Next Close #1 C2.Enabled=False End Sub 参考代码： Dim arr(1 To 9) As Integer Private Sub C1_Click() Dim i As Integer Open "in6.txt" For Input As 1 For i=1 To 9 Input #1, arr(i) Text1.Text=Text1.Text+str(arr(i) ) Next Close #1 C1.Enabled=False End Sub Private Sub C2_Click() Dim i As Integer Text1.Text="" Open "out6.txt" For Output As 1 For i=1 To 9 arr(i)=arr(i) * arr(i) Print #1, arr(i), Text1.Text=Text1.Text+Str(arr(i) ) Next Close #1 C2.Enabled=False End Sub 第三步：调试并运行程序。 第四步：按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/HQ1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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