注意：下面出现的“考生文件夹”均为c：\wexam\25160001。在考生文件夹下有工程文件sjt5.vbp及窗体文件sjt5.frm，该程序是不完整的，请在有?号的地方填入正确的程序代码，然后删除?及所有注释符号(即'号)，但不能修改其他部分。修改后的程序文件都保存，存盘时不得修改文件夹和文件名。本题描述如下：在窗体上有一个名称为Text1的文本框，三个命令按钮，名称分别是C1、C2和C3，标题分别是“读入”、“加密”和“存盘”。要求程序运行后，点击“读入”按钮，将文本文件in7.txt(该文件在考生
题目
注意：下面出现的“考生文件夹”均为c：\wexam\25160001。
在考生文件夹下有工程文件sjt5.vbp及窗体文件sjt5.frm，该程序是不完整的，请在有?号的地方填入正确的程序代码，然后删除?及所有注释符号(即'号)，但不能修改其他部分。修改后的程序文件都保存，存盘时不得修改文件夹和文件名。
本题描述如下：
在窗体上有一个名称为Text1的文本框，三个命令按钮，名称分别是C1、C2和C3，标题分别是“读入”、“加密”和“存盘”。要求程序运行后，点击“读入”按钮，将文本文件in7.txt(该文件在考生文件夹下)中的文本信息读入文本框Text1中；点击“加密”按钮将Text1中的英文字母加密转换，并将转换后的结果显示到Text1中。转换方式为转换成该字母对应字母表中后两个位置的字母。例如，转换前的字母是“a”，则转换后的是“c”；点击“存盘”按钮，则将转换后的文本框中的文本保存到out7.txt文件中(该文件保存到考生文件夹下)。程序设计界面如图12-8所示。
相似考题
更多“ 注意：下面出现的“考生文件夹”均为c：\wexam\25160001。在考生文件夹下有工程文件sjt5.vbp及窗体文件sjt5.frm，该程序是不完整的，请在有?号的地方填入正确的程序代码，然后删除?及所有注释”相关问题
-
第1题：
在名称为Form1的窗体上有两个命令按钮(名称分别为Command1和Command2、标题分别为“读取”和“保存”)和一个文本框(名称为Text1、MultiLine属性为True、ScrollBars 属性为2)。要求程序运行后，如果单击“读取”按钮，则读入in．txt文件中的50个整数，放入一个数组中(数组下界为1)，并在文本框Text1中显示出来，运行界面如图6-5所示。如果单击“保存”按钮，则把数组中的前30个数据在文本框Textl中显示出来，并存入考生文 件夹中的文件result．txt中。(考生文件夹中有标准模块mode5．bas，其中的writeData过程可以把指定个数的数组元素存人result．txt文件。)
注意：在考生乏件夹中有工程文件si5．vbp及其窗体文件sj5．frm，该程序是不完整的，请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“b”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。文件必须存放在考生文件夹下，窗体文件名为sis．frm，工程文件名为sj5．vbp，结果存入result．txt文件，否则没有成绩。 在考生文件夹中有工程文件sis．vbp及其窗体文件sis．frm，该程序是不完整的，请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。
正确答案：
根据题意要求将一个文本框控件和两个命令按钮，其中文本框的名称为Name1，MultiLine属性为True，滚动属性为2；命令按钮的名称分别为Command1和Command2，Caption的属性分别为读取和保存。然后将mode5．has模板加入到工程中(右键单击工程名，然后选择加入modules(模板)，选择mode5．bas)。
模板代码如下：
Function isPrimeNum(num As Integer)As Boolean 判断输入的数是否为素数
isPrimeNum=1 rue
Dim i As Integc r
For i=2 To num-1
If hum Mod i=0 Then
isPrimeNum=False
Exit For
End If
Next i
End FunctionFunction writeData(total As Long)
Open App．Path＆"＼result．txt"For Output As#1
Write#1，total
Close#1
End Function
单击Command1进入代码窗口，补充后的代码如下：
Dim a(50)As Long全局变量
Dim str(50)As String 全局变量
Private Sub Command1 Click
Text1．Text=""
Open App．Path＆"＼in．txt"For Input As#1
打开“in．txt”文件
Dim i As Integer
Dim temp As Integer
For i=0 To 49
Input#1，temp
a(i)=temp 按顺序读入到数组中
str(i)=a(i)
Text1．Text=Text1．Text+str(i)+vbCrLf
将数组中的数放入Text中显示
Next i
Close#1
End Sub
Private Sub Command2 Click
Dim i As Integer
Text1．Text=""
total=0
For i=0 To 29
str(i)=a(i)
Text1．Text=Text1．Text+str(i)+vbCrLf
将数组中的前30个数放入Text中显示
writeData(str(i)) 将结果保存到result．txt中
Next i
End Sub
单击
按钮运行程序，并按要求保存。
-
第2题：
在考生文件夹下有工程文件execise50.vbp及窗体文件execise50.frm。在名为Form1的窗体上有3个Labe1控件和2个名称分别为Cmd1和Cmd2、标题分别为Begin和Quit的命令按钮。编写函数ITEM(A，N)，其功能是由数字A组成的不多于N位数的整数，利用该函数求55555-5555-555-55-5的值并把结果写入考生文件夹下的out50.dat文件中。执行完毕，Begin按钮变成“完成”按钮，且无效。如下图所示。
要求：
该程序不完整，请在有问号“?”的地方填入正确内容，然后删除问号“?”及所有注释符“'”，但不能修改其他部分。存盘时不得改变文件名和文件夹，相应的数据文件也保存到考生文件夹下，否则没有成绩。
正确答案：
-
第3题：
注意：下面出现的“考生文件夹”均为c：\wexam\25160001。
(1) 在考生文件夹下有工程文件sjt3.vbp及窗体文件sjt3.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即'号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。
本题描述如下：
在窗口中有一个RichText文本框控件和一个文本框控件，名称分别为rtx1和Text1，两个命令按钮，名称分别为Command1和Command2，标题分别为“加入SJT01.TXT”、“统计字符个数”。要求程序运行后，单击command1将考生文件夹下的sjt01.txt的内容显示到rtx1中；单击“统计字符个数”按钮统计 rtx1中有多少个字符，将结果显示在Text1中。程序运行结果如图13-4所示。
(2) 在考生文件夹下有工程文件sjt4.vbp及窗体文件sjt4.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即'号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。
本题描述如下：
在窗体上有一个名为Image1的图像框，要求程序运行后，鼠标左键点击图像框，则图像框变大；鼠标右键点击图像框，图像框变小。设计界面如图13-5所示。
正确答案：在窗体上建立好控件后先设置控件属性再编写事件过程 RichTextBox控件可以用LoadFile和SaveFile方法可以方便的为RichTextBox控件打开或保存文件LoadFile方法能将 RTF文件或文本文件装入控件其形 式如：对象.LoadFile 文件标志符[文件类型]；统计字符的个数可用Len(要统计的内容)函数。解题步骤： 第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表13-3。
程序提供的代码：
Option Explicit
Private Sub Command1_Click()
'rtx1.? App.Path+"\sjt01.txt"
End Sub
Private Sub Command2_Click()
If rtx1.Text ＞ "" Then
' Text1.Text=?
End If
End Sub
参考代码：
Option Explicit
Private Sub Commandl_Click()
rtx1.LoadFile App. Path+"\sjt01.txt"
End Sub
Private Sub Command2_Click()
If rtx1.Text ＞ "" Then
Text1.Text=Len(rtx1.Text)
End If
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。
(2)在窗体上建立好控件后先设置控件属性再编写事件过程
图像框的图片由Picture属性设置。判断鼠标左键还是右键可以通过图像框的MouseUp事件的Button参数来判断。
MouseUp事件再释放鼠标按钮时发生。其语法格式为：
PrivateSubobject_MouseUp([indexAsInteger]buttonAsIntegershiftAsIntegerxAsSingleyAsSingle)
Object一个对象表达式。
Index一个整数用来惟一地标识一个在控件数组中的控件。
Button返回一个整数用来标识该事件的产生是按下(MouseDown)或者释放(MouseUp)按钮引起的。button参数是具有相应于左按钮(位0)右按钮(位1)以及中间按钮(位2)的一个位字段。这些位的值分别等于12和4。其中仅有一位被设置指示出引起该事件的那个按钮Shift返回一个整数在button参数
指定的按钮被按下或者被释放的情况下该整数相应于SHIFTCTRL和ALT键的状态。某键被按下使得一个二进制位被设置。
shift参数是具有相应于SHIFT键(位0)CTRL键(位”以及ALT键(位2)最少二进制位的一个位字段。这些位的值分别等于12和4。shift参数指示这些键的状态。这些位中可能有一些、全部或者一个也没有被设置指示这些键中的一些、全部或者一个也没有被按下。解题步骤：
第一步：建立界面并设置控件属性。
第二步：编写程序代码。
程序提供的代码：
Private Sub Image1_MouseUp(Button As Integer Shift As Integer X As Single Y As Single)
If Button=1 Then
If Image1.Height4000 Or Image1.Width4000 Then
Imagel.Height=Imagel.Height+500
' Imagel.Width=Imagel.Width ? 500
End If
End If
'If Button=? Then
If Image1.Height＞1000 Or Image1.Width＞1000 Then
Image1.Height=Image1.Height-500
Image1.Width=Image1.Width-500
End If
End If
End Sub
参考代码：
Private Sub Image1_MouseUp(Button As Integer Shift As Integer XAs Single Y As Single)
If Button=1 Then
If Image1.Height4000 Or Image1.Width4000 Then
Image1.Height=Image1.Height+500
Image1.Width=Image1.Width+500
End If
End If
If Button=2 Then
If Image1.Height＞1000 Or Image1.Width＞1000 Then
Image1.Height=Image1.Height-500
Image1.Width=Image1.Width-500
End If
End If
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。
在窗体上建立好控件后，先设置控件属性，再编写事件过程 RichTextBox控件可以用LoadFile和SaveFile方法可以方便的为RichTextBox控件打开或保存文件，LoadFile方法能将 RTF文件或文本文件装入控件，其形 式如：对象.LoadFile 文件标志符[，文件类型]；统计字符的个数可用Len(要统计的内容)函数。解题步骤： 第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表13-3。
程序提供的代码：
Option Explicit
Private Sub Command1_Click()
'rtx1.? App.Path+"\sjt01.txt"
End Sub
Private Sub Command2_Click()
If rtx1.Text ＞ "" Then
' Text1.Text=?
End If
End Sub
参考代码：
Option Explicit
Private Sub Commandl_Click()
rtx1.LoadFile App. Path+"\sjt01.txt"
End Sub
Private Sub Command2_Click()
If rtx1.Text ＞ "" Then
Text1.Text=Len(rtx1.Text)
End If
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。
(2)在窗体上建立好控件后，先设置控件属性，再编写事件过程
图像框的图片由Picture属性设置。判断鼠标左键还是右键可以通过图像框的MouseUp事件的Button参数来判断。
MouseUp事件再释放鼠标按钮时发生。其语法格式为：
PrivateSubobject_MouseUp([indexAsInteger,]buttonAsInteger,shiftAsInteger,xAsSingle,yAsSingle)
Object一个对象表达式。
Index一个整数，用来惟一地标识一个在控件数组中的控件。
Button返回一个整数，用来标识该事件的产生是按下(MouseDown)或者释放(MouseUp)按钮引起的。button参数是具有相应于左按钮(位0)，右按钮(位1)，以及中间按钮(位2)的一个位字段。这些位的值分别等于1，2，和4。其中仅有一位被设置，指示出引起该事件的那个按钮Shift返回一个整数，在button参数
指定的按钮被按下或者被释放的情况下，该整数相应于SHIFT，CTRL和ALT键的状态。某键被按下使得一个二进制位被设置。
shift参数是具有相应于SHIFT键(位0)，CTRL键(位”，以及ALT键(位2)最少二进制位的一个位字段。这些位的值分别等于1，2，和4。shift参数指示这些键的状态。这些位中可能有一些、全部或者一个也没有被设置，指示这些键中的一些、全部或者一个也没有被按下。解题步骤：
第一步：建立界面并设置控件属性。
第二步：编写程序代码。
程序提供的代码：
Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button=1 Then
If Image1.Height4000 Or Image1.Width4000 Then
Imagel.Height=Imagel.Height+500
' Imagel.Width=Imagel.Width ? 500
End If
End If
'If Button=? Then
If Image1.Height＞1000 Or Image1.Width＞1000 Then
Image1.Height=Image1.Height-500
Image1.Width=Image1.Width-500
End If
End If
End Sub
参考代码：
Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, XAs Single, Y As Single)
If Button=1 Then
If Image1.Height4000 Or Image1.Width4000 Then
Image1.Height=Image1.Height+500
Image1.Width=Image1.Width+500
End If
End If
If Button=2 Then
If Image1.Height＞1000 Or Image1.Width＞1000 Then
Image1.Height=Image1.Height-500
Image1.Width=Image1.Width-500
End If
End If
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。
-
第4题：
在考生文件夹下有工程文件sj4．vbp及窗体文件sj4．frm，该程序是不完整的。本程序的功能为当用户单击窗体上的命令按钮“输入”时，可以输入6个数值，随后程序对这6 个数值进行斗序排序，单击按钮“输出”则把大于平均值的数显示出来，程序运行时的窗体如图7—4所示。
注意：请在有“?”号的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“¨’号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。正确答案：
根据题意，在窗体上添加一个Text控件和两个Command控件，Text的名称为Text1、Text属性为空，Command的名称分别为Command1和Command2，Caption属性分别为“输入”和“输出”。双击Command1命令按钮，编写如下代码：
Dim a(6)As Integer
Private Sub Command1_Click
Dim i As Integer
Dimj As Integer
Dim k As Integer
Dim trap As Integer
For i=1 To 6
a(i)=Val(InputBoK("请输入"))
Next i
For i=1 To 6 升序序排列
temp=a(i)
For j=1 To i
If a(j)>temp Then读取的数据比原位置的数据大则偏移
For k=i To J…1 Step-1上下限
a(k)=a(k-1) 数据向后偏移一个
Next k
a(j)=temp
Exit For
End If
Next j
Next i
End SubPrival e Sub Command2 Click
Dim arg As Integer
Dim str As String
Dimj As Integer
arg=0
Dim i As Integer
str=""
For i=1 To 6
arg=arg+a(i) 求总和
Next i
arg=arg＼6求平均值．
Fm i=1 To 6
If a(i)>arg Then
当大于平均值时则写入字符串
str=str+CStr(a(i))+""
End If
Next i
Text1．Text=str将结果显示在Text1中
End Sub
单击
按钮运行程序，并按要求保存。
-
第5题：
在考生文件夹下有工程文件sj5.vbp及窗体文件sj5.frm。在名为Form1的窗体上有5个Label控件和2个命令按钮，数据文件in13.dat存放学生的编号、姓名、性别和体重，如图635所示。
（图见书本）
图635
程序运行后，按Begin按钮后，能从考生文件夹下的in13.dat中读出数据并把体重大于平均体重的学生的所有数据写入考生文件夹下的out13.dat文件中。执行完毕，Begin按钮变成"完成"按钮，且无效。
要求：该程序不完整，请在有问号"？"的地方填入正确内容，然后删除问号"？"及所有注释符"′"，但不能修改其他部分。存盘时不得改变文件名和文件夹，相应的数据文件也保存到考生文件夹下，否则没有成绩。
正确答案：
根据题目1.打开题目所给工程文件；2.打开代码窗口输入如下代码：PrivateSubCmd1_Click()DimiAsIntegerDimtotalAsIntegerDimaverAsSingleDimnum(10)，namstring(10)，sexstring(10)，wages(10)MyFile=App.Path&"\"&"in13.dat"MyFile2=App.Path&"\"&"out13.dat"OpenMyFile1ForInputAs#1OpenMyFile2ForOutputAs#2Fori=1To10Input#1，num(i)，namstring(i)，sexstring(i)，wages(i)total=total+wages(i)Nextiaver=total/10Fori=1To10Ifwages(i)>averThenWrite#2，num(i)，namstring(i)，sexstring(i)，wages(i)NextiCmd1.Caption="完成"Cmd1.Enabled=FalseEndSub3.按要求保存文件即完成本题。