2. 计算机
  3. (1)在考生文件夹下有一个工程文件sjt3．vbp，其功能如下： ①单击“读数据”按钮，则将考生文件夹下in3．dat文件中的20个整数读人数组a中，同时在Text1文本框中显示。 ②单击“变换”按钮，则数组a中元素的位置自动对调(第一个数组元

(1)在考生文件夹下有一个工程文件sjt3．vbp，其功能如下： ①单击“读数据”按钮，则将考生文件夹下in3．dat文件中的20个整数读人数组a中，同时在Text1文本框中显示。 ②单击“变换”按钮，则数组a中元素的位置自动对调(第一个数组元

admin2020-02-27  76
问题  (1)在考生文件夹下有一个工程文件sjt3．vbp，其功能如下：
  ①单击“读数据”按钮，则将考生文件夹下in3．dat文件中的20个整数读人数组a中，同时在Text1文本框中显示。
    ②单击“变换”按钮，则数组a中元素的位置自动对调(第一个数组元素与最后一个数组元素对调，第二个数组元素与倒数第二个数组元素对调……)，并将位置调整后的数组显示在文本框Text2中。
    在窗体文件中已经给出了全部控件(如图所示)，但程序不完整。
  要求：将程序补充完整使其实现上述功能。
  注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行前，必须执行“变换”操作，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。

    (2)在考生文件夹下有一个工程文件sjt4．vbp，窗体上有两个名称分别为Text1和Text2，初始文本为空的文本框，两个标题分别为“读数据”和“统计”的命令按钮，如图所示。
  程序功能如下：
  ①单击“读数据”按钮，则将考生文件夹下的in4．dat文件的内容(该文件中仅含有字母和空格)显示在Text1文本框中。
  ②在Text1文本框中选中文本后，单击“统计”按钮，则自动统计选中文本中没有出现过的字母(统计过程中不区分大小写)，并将这些字母以大写形式显示在Text2文本框内。
    请将“统计”按钮Click事件过程中的注释符去掉，把“?”改为正确内容，以实现上述程序功能。
    注意：考生不得修改窗体文件中已经存在的控件和程序。最后将修改后的文件按原文件名存盘。
选项
答案(1)【操作步骤】 步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 程序提供代码 Dim a(20) As Integer Private Sub Command1_Click() Dim k As Integer Open App.Path & "\in3.dat" For Input As #1 For k = 1 To 20 　　　　Input #1, a(k) 　　　　Text1 = Text1 + Str(a(k)) + Space(2) Next k Close #1 End Sub Private Sub Command2_Click() ’考生编写 ’以下程序段将已变换的数组元素显示在Text2文本框中 　For k = 1 To 20 　　　Text2 = Text2 + Str(a(k)) + Space(2) Next k End Sub Private Sub Form_Unload(Cancel As Integer) Open App.Path & "\out3.dat" For Output As #1 Print #1, Text2.Text Close #1 End Sub 程序结束 参考答案 Private Sub Command2_Click() ’考生编写 Dim i As Integer For i = 1 To 10 b = a(i) a(i) = a(21 - i) a(21 - i) = b Next i ’以下程序段将已变换的数组元素显示在Text2文本框中 For k = 1 To 20 Text2 = Text2 + Str(a(k)) + Space(2) Next k End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 程序提供代码 Option Base 1 Dim x As String, max n As Integer Private Sub Command1_Click() Open App.Path & "\in4.dat" For Input As #1 s = Input(LOF(1), #1) Close #1 Text1.Text = s End Sub Private Sub Command2_Click() Dim a(26) As Integer sl= Text1.SelLength st = Text1.SelText Text2.Text = "" ’ If ? Then 　　 MsgBox "请先选择文本！" Else ’　 For i = 1 To ? 　　　　 c = Mid(st, i, 1) 　　　　 If c <> " " Then 　　　　　　n = Asc(UCase(c)) - Asc("A") + 1 ’　a(n) = ? 　　　　 End If 　　 Next ’　 For i = 1 To ? 　　　　 If a(i) = 0 Then 　　　　　　Text2.Text = Text2.Text + " " + Chr(Asc("A") + i - 1) 　　　　 End If 　　　Next End If End Sub 程序结束 参考答案 第1个？处填入：Text1.SelLength = 0 第2个？处填入：sl 第3个？处填入：a(n)+1 第4个？处填入：26 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://www.kaotiyun.com/show/qkTp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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