首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下包含一个工程文件Sjt=;.vbp,请在名称为Forml的窗体上添加一个名称为Textl的文本框和一个名称为c1、标题为“转换”的命令按钮,如图所示。在程序运行时,单击“转换”按钮,可以把Textl中的小写字母转换为大写,把大写字母转换
(1)在考生文件夹下包含一个工程文件Sjt=;.vbp,请在名称为Forml的窗体上添加一个名称为Textl的文本框和一个名称为c1、标题为“转换”的命令按钮,如图所示。在程序运行时,单击“转换”按钮,可以把Textl中的小写字母转换为大写,把大写字母转换
admin
2019-03-14
16
问题
(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://kaotiyun.com/show/ZEUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyUp事件过程如下:PrivateSubText1KeyUp(KeyCodeAsInteger,ShiftAsInteger)DimCAsStringC=UC
在窗体上画一个文本框,名称为Text1,然后编写如下程序:PrivateSubFormLoad()PrivateSubFormClick()Text1.Text=””:Te:xtl.SetFocusDimaAsString.SAs
窗体上有一个名称为Textl的文本框,一个名称为Commandl的命令按钮。窗体文件的程序如下:PrivateTypeXPrivateSubCommandlClick()aAsInteger:bAsIntegerDimYAsx
在窗体上画两个文本框,其名称分别为Text1和Text2,然后编写如下程序:PrivateSubForm_Load()Textl.Text=“”:Text2.Text=“”:Textl.SetFocusEndSubPrivateS
设有以下过程:PrivateSUbproc(xAsInteger,OptionalYAsInteger)Printx,yEndSub针对此过程,下面正确的过程调用语句是
表达式4+5\6*7/8Mod9的值是()。
满足下列条件乏_的年份是闰年:1)年份能被4整除但不能被100整除2)年份能被400整除若y代表年份,下面判断闰年的正确表达式是
以下能对正实数d的第3位小数四舍五入的表达式是
随机试题
Thereare35applicantsapplyingfortheposition.20ofthemhaveexperience,13ofthemareolderthan25yearsold,and5hav
简述会计凭证的含义及其在会计核算中的意义。
下列属于癌前期病变的是()
近年来新时期城乡工作的主轴是()
在剩余财产的清算和股利分配时,()的索取权排在最后。[2015年12月真题]
国家税务总局对税务规章的解释与税务规章具有同等效力,属于( )。
柏拉图认为教育应该是国家的()。
意识形态与非意识形态的社会意识形式的本质区别中,正确的是( )
当前第四代生成语言是在原型化定义策略中哪项假设中
ThenewcarsofFordMotorCompanyarenowbeing______attherateof120,000everyweek.
最新回复
(
0
)