niusouti.com
下面出现的“考生文件夹”均为c:\wexam\25160001。在考生文件夹中有工程文件sjt5.vbp及其窗体文件sjt5.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即'号)但不能修改其他部分。存盘时不得改变文件名和文件夹。本题描述如下：在名称为Form1的窗体上有一个文本框，名称为Text1，MuitiLine属性为True，ScrollBars属性为2，两个命令按钮，名称分别为Cmd1和Cmd2，标题分别为“读入数据”和“排序显示保存”，如图4-6所示。程序运行
题目
下面出现的“考生文件夹”均为c:\wexam\25160001。
在考生文件夹中有工程文件sjt5.vbp及其窗体文件sjt5.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即'号)但不能修改其他部分。存盘时不得改变文件名和文件夹。
本题描述如下：
在名称为Form1的窗体上有一个文本框，名称为Text1，MuitiLine属性为True，ScrollBars属性为2，两个命令按钮，名称分别为Cmd1和Cmd2，标题分别为“读入数据”和“排序显示保存”，如图4-6所示。程序运行后，如果单击“读入数据”按钮，则读入“in.txt”文件中的100个整数，放入一个数组中(数组下界为1)：如果单击“排序显示保存”按钮，则对这100个整数按从小到大进行排序，把排序后的全部数据在文本框Text1中显示出来，然后存入考生文件夹中的文件“result.txt”中(在程序中的标准模块prog.bas过程可以把指定个数的数组元素存入result.txt文件)。
注意：文件必须存放在考生文件夹下，窗体文件名为sjt5.frm，工程文件名为sjt5.vbp，排序结果存入 result.txt文件，否则没有成绩。
相似考题
更多“ 下面出现的“考生文件夹”均为c:\wexam\25160001。在考生文件夹中有工程文件sjt5.vbp及其窗体文件sjt5.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即'号”相关问题
-
第1题：
在考生文件夹下有工程文件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
单击
按钮运行程序，并按要求保存。
-
第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，该程序是不完整的。在窗体上建立一个名称为Command1，标题为“计算”的命令按钮，再建立一个名称为Text1的文本框。运行界面如图6-4所示。要求程序运行后，若单击“计算”按钮，将计算200～350 之间所有素数的和，在文本框中显示结果，同时把结果存人文件out．txt中。(在考生文件夹中有标准模块mode．bas，其中的writedata过程可以把结果存入文件，而isprimenum函数可以判断整数x是否为素数，如果是素数，则函数返回True，否则返回False，考生可以把该模块义件添加到自己的工程中。)
注意：请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“b’号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。
正确答案：
先按要求将一个文本框控件和一个命令按钮添加到窗体中，文本框的名称为Textl，命令按钮的名称为Command1、Caption属性为计算。然后将mode．bas模板加入到工程当中，模板的代码如下：
Function isPrimeNum(num As Integer)As Boolean判断输入是否为素数
isPrimeNum=True
Dim i As Integer
For i=2 To num-1
If num Mod i=0 Then
isPrimeNum=False
Exit For
End If
Next i
End Function
Function writeData(total As Long)
将结果写入out．txt文件中
Open App．Path&"＼out．txt"For Output As#1
Write#1，total
Close#1
End Function
然后单击Command1，进入代码窗口，编写以下代码：
Private Sub Command1 Click
Dim n As Integer
Dim total As Long
total=0
For n=200 To 350
If isPrimeNurn(n)=True Then
如果是素数则累加到total中
total=total+n
End If
Next n
Text1．Text=total
writeData(total) 将结果写入out．txt文件中
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.按要求保存文件即完成本题。