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

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

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

(2)在考生文件夹下有一个工程文件sjt4．vbp，其功能如下：
    ①单击“读数据”命令按钮，把考生文件夹下in4．dat文件中已按升序排列的60个数读入数组A，并在Textl中显示；
    ②单击“输入”按钮，弹出一个输入对话框，接收用户输入的任意一个整数；
    ③单击“插入”按钮，将输入的数插入到A数组中，使其仍能保持A数组从小到大排列，最后将A数组的内容重新在Textl中显示。在窗体文件中已经给出了全部控件(如图所示)和程序，但程序不  完整，要求去掉程序中的注释符，把程序中的?改为正确的内容。本程序只考虑插入一个整数的情况。
    注意：不得修改已经存在的内容和控件属性，最后将修改后的文件按原文件名存盘。
选项
答案(1)String(个数，字符)函数用于返回含指定个数7符的字符串，其中的字符可以是字符码或字符；ASC(字符串)函数用于返回字符串首字符的ASCII码值。本题关键是计算同一字母大小写ASCII码值的差值，由于小写字母的ASCII码值大于大写字母的ASCII码值，差值表达式应为：n％=ASC(”a”)-ASC(“ A”)。对于小写字母的ASCII码应减去这个差值以获得其大写字母；对于大写宇母的ASCII码则应加上这个差值以获得其小字母。 步骤l：打开本题工程文件，并设置控件的属性。程序中用到的控件及属性见表1。 [*] 步骤2：分析并编写程序代码。 程序提代码 Private Sub CI＿CIick() Dim a$，b$．k％．n％ a$=“” ‘n％=Asc(’a”)＿Asc(?) For k％=1 TO Len(TextI．Text) b$=Mid(Texll．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$+h$ Next k％ Textl．Text=? End Sub程序结束 第1个?处填入：”AIt 第2个?处填入：+n％ 第3个?处填入：a 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 (2)根据题意通过文件操作和For循环语句，把考生文件夹下in4．dat文件中已按升序方式排列的60个数读入数组A，并运用“+”连接符将其显示在Textl中；在Com-mand2 Click事件过程中，InputBox函数弹出一个输入对话框，接收用户输入的任意一个整数，赋值给变量n；在Command3 Click事件过程中，将输入的数与数组中的数值进行比较，把n插入到A数组中合适的位置，并通过F0r循环语句将插入后的数组A重新娃示在Textl 中，使其仍保持A数组的升序排列。 步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 程序提供代码 Dim a(100)As Integer，nuln As Integer Private Sub Commandl＿Click() Dim k As Integer Open App．Path&”＼in4．dat”For Input As#l For k=l To 60 Input＃1，a(k) TextI=Textl+Str(a(k))+Space(2) Next k Close#l End Sub Private Sub Command2＿Click() flum=InputBox(“请输入一个数”) End Sub Prirate Sub Command3＿Click() For j=1 To 60 ‘lf num＜n
解析
转载请注明原文地址:https://www.kaotiyun.com/show/ZEUp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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