2. 计算机
  3. (1)在考生文件夹下包含一个工程文件sjt3．vbp，请在名称为Form1的窗体上添加一个名称为Text1的文本框和一个名称为C1、标题为“转换”的命令按钮，如图所示。在程序运行时，单击“转换”按钮，可以把Text1中的小写字母转换为大写，把大写字母转换为

(1)在考生文件夹下包含一个工程文件sjt3．vbp，请在名称为Form1的窗体上添加一个名称为Text1的文本框和一个名称为C1、标题为“转换”的命令按钮，如图所示。在程序运行时，单击“转换”按钮，可以把Text1中的小写字母转换为大写，把大写字母转换为

admin2015-06-30  65
问题  (1)在考生文件夹下包含一个工程文件sjt3．vbp，请在名称为Form1的窗体上添加一个名称为Text1的文本框和一个名称为C1、标题为“转换”的命令按钮，如图所示。在程序运行时，单击“转换”按钮，可以把Text1中的小写字母转换为大写，把大写字母转换为小写。窗体文件中已经给出了“转换”按钮的Click事件过程，但不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。
注意：不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。

    (2)在考生文件夹下有一个工程文件sjt4．vbp，功能如下：
    ①单击“读数据”命令按钮，把考生文件夹下in4．dat文件中已按升序排列的60个数读人数组a，并在Text1中显示。
    ②单击“输入”按钮，弹出一个输入对话框，接收用户输入的任意一个整数。
    ③单击“插入”按钮，将输入的数插人数组a中，使其仍能保持数组a从小到大排列，最后将数组a的内容重新在Text1中显示。
    在窗体文件中已经给出了全部控件(如图所示)和程序，但程序不完整，要求去掉程序中的注释符，把程序中的?改为正确的内容。本程序只考虑插入一个整数的情况。
    注意：不得修改已经存在的内容和控件属性，最后将修改后的文件按原文件名存盘。
选项
答案(1)【操作步骤】 步骤1：打开本题工程文件，并设置控件的属性。程序中用到的控件及属性见表3.123。 [*] 步骤2：分析并编写程序代码。 程序提供代码 Private Sub C1_Click() Dim a$, b$, k%, n% a$ = "" ’n% = Asc("a") - Asc( ? ) For k% = 1 To Len(Text1.Text) b$ = Mid(Text1.Text, k%, 1) If b$ >= "a" And b$ <= "z" Then 　　　　b$ = String(1, Asc(b$) - n%) 　　　　Else 　　　　If b$ >="A" And b$ <="Z" Then ’b$ =String(1, Asc(b$) ? ) 　　　　End If 　　　　End If 　　　　a$ =a$ +b$ Next k% ’ Text1.Text =? End Sub程序结束 参考答案 第1个？处填入："A" 第2个？处填入：+n% 第3个？处填入：a 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 程序提供代码 Dim a(100) As Integer, num As Integer Private Sub Command1_Click() Dim k As Integer Open App.Path & "\in4.dat" For Input As #1 For k =1 To 60 　　　　Input #1, a(k) 　　　　Text1 =Text1 +Str(a(k)) +Space(2) Next k Close #1 End Sub Private Sub Command2_Click() num =InputBox("请输入一个数") End Sub Private Sub Command3_Click() For i =1 To 60 ’If num < a(i) Then ? Next i ’For j =60 To i ? ’a(j +1) = Next j ’？=num Text1 ="" ’以下程序段将插入后的数组A重新显示在Text1中 ’For k =1 To ? 　　　　Text1 =Text1 +Str(a(k)) +Space(2) Next k End Sub 程序结束 参考答案 第1个？处填入：Exit For 第2个？处填入：Step -1 第3个？处填入：a(j) 第4个？处填入：a(i) 第5个？处填入：61 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://www.kaotiyun.com/show/U0Qp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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