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

admin2019-03-14  24

问题 (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
0

最新回复(0)