niusouti.com
在考生文件夹下有一个工程文件sjt5．vbp，含三个窗体，标题分别为“启动”、“注册”、“登录”，运行时显示“启动”窗体，单击其上按钮时弹出对应窗体进行注册或登录。注册信息放在全局数组users中，注册用户数(最多10个)放在全局变量n中(均已在标准模块中定义)。 注册时用户名不能重复，且“口令”与“验证口令”须相同，注册成功则在“启动”窗体的标签中显示“注册成功”，否则显示相应错误信息。登录时，检验用户名和口令，若正确，则在“启动”窗体的标签上显示“登录成功”，否则显示相应错误信息。标准模块中函数fin
题目
在考生文件夹下有一个工程文件sjt5．vbp，含三个窗体，标题分别为“启动”、“注册”、“登录”，运行时显示“启动”窗体，单击其上按钮时弹出对应窗体进行注册或登录。注册信息放在全局数组users中，注册用户数(最多10个)放在全局变量n中(均已在标准模块中定义)。 注册时用户名不能重复，且“口令”与“验证口令”须相同，注册成功则在“启动”窗体的标签中显示“注册成功”，否则显示相应错误信息。登录时，检验用户名和口令，若正确，则在“启动”窗体的标签上显示“登录成功”，否则显示相应错误信息。标准模块中函数finduser的功能是：在users数组中搜索用户名(即参数ch)，找到则返回该用户名在users中的位置，否则返回0。已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把Form2、Form3 窗体文件中的?改为正确的内容。 注意：不得修改已经存在的程序和控件的属性，最后程序按原文件名存盘。
相似考题
更多“在考生文件夹下有一个工程文件sjt5.vbp,含三个窗体,标题分别为“启动”、“注册”、“登录”,运行时显示“ ”相关问题
-
第1题：
注意：下面出现的“考生文件夹”均为c：\wexam\25160001。
在窗体上有三个菜单，名称分别为Read、Calc和Save，标题分别为“读入数据”、“计算并输出”和“存盘”，一个文本框，名称为Text1，MultiLine属性设置为Tree，ScrollBars属性设置为2，如图21-7所示。
程序运行后，如果执行“读入数据”命令，则读入datain1.txt文件中的100个整数，放入一个数组中，数组的下界为1；如果单击“计算并输出”按钮，则把该数组中下标为奇数的元素在文本框中显示出来，求出它们的和，并把所求得的和在窗体上显示出来；如果单击“存盘”按钮，则把所求得的和存入考生文件夹下的dataout.txt文件中。
在考生文件夹下有一个工程文件sjt5.vbp，窗体文件中的ReadData过程可以把datain1.txt文件中的100个整数读入Air数组中；而WriteData过程可以把指定的整数值写到考生文件夹下指定的文件中(整数值通过计算求得，文件名为dataout.txt)。请将程序中有问号的地方用相应的代码补完整，将注释号(')去掉。
注意：考生不得修改窗体文件中已经存在的程序。存盘时，工程文件名仍为sjt5.vbp，窗体文件名仍为sjt5.frm。
正确答案：使用Open方法和Close方法打开和关闭文件使用循环语句把整数赋给数组。在计算输出时先定义一个变量用来保存奇数的和；计算时找出数组中下标为奇数的数进行累加将结果在文本框中显示出来。在窗体上打印内容可以用 Print方法来实现。解题步骤： 第一步：建立菜单项、建立界面并设置控件属性。程序中用到的菜单项及其控件属性见表21-5。
第二步：编写程序代码。
程序提供的代码：
Option Base 1
Dim Arr(100) As Integer
Dim temp As Integer
Sub ReadData()
Open App.Path & "\" & "datain1.txt" For Input As #1
For i=1 To 100
Input #1 Arr(i)
Next i
'? #1
End Sub
Sub WriteData(Filename As String Num As Integer)
Open App.Path & "\" & Filename For Output As #1
Print #1 Num
Close #1
End Sub
Private Sub Calc_Click()
'Text1.?=""
For i=1 To 100 Step 2
Text1.Text=Text1.Text & Arr(i) & Space(5)
temp=temp+Arr(i)
Next i
'Print ?
End Sub
Private Sub Read_Click()
ReadData
End Sub
Private Sub Save_Click()
WriteData "dataout.txt" temp
End Sub
参考代码：
Option Base 1
Dim Arr(100) As Integer
Dim temp As Integer
Sub ReadData()
Open App.Path & "\" & "datain1.txt" For Input As #1
For i=1 To 100
Input #1 Arr(i)
Next i
Close #1
End Sub
Sub WriteData(Filename As String Num As Integer)
Open App.Path & "\" & Filename For Output As #1
Print #1 Num
Close #1
End Sub
Private Sub Calc_Click()
Text1.Text=""
For i=1 To 100 Step 2
Text1.Text=Text1.Text & Arr(i) & Space(5)
temp=temp+Arr(i)
Next i
Print temp
End Sub
Private Sub Read_Click()
ReadData
End Sub
Private Sub Save_Click()
WriteData "dataout.txt" temp
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。
使用Open方法和Close方法打开和关闭文件，使用循环语句把整数赋给数组。在计算输出时，先定义一个变量，用来保存奇数的和；计算时找出数组中下标为奇数的数进行累加，将结果在文本框中显示出来。在窗体上打印内容可以用 Print方法来实现。解题步骤： 第一步：建立菜单项、建立界面并设置控件属性。程序中用到的菜单项及其控件属性见表21-5。
第二步：编写程序代码。
程序提供的代码：
Option Base 1
Dim Arr(100) As Integer
Dim temp As Integer
Sub ReadData()
Open App.Path & "\" & "datain1.txt" For Input As #1
For i=1 To 100
Input #1, Arr(i)
Next i
'? #1
End Sub
Sub WriteData(Filename As String, Num As Integer)
Open App.Path & "\" & Filename For Output As #1
Print #1, Num
Close #1
End Sub
Private Sub Calc_Click()
'Text1.?=""
For i=1 To 100 Step 2
Text1.Text=Text1.Text & Arr(i) & Space(5)
temp=temp+Arr(i)
Next i
'Print ?
End Sub
Private Sub Read_Click()
ReadData
End Sub
Private Sub Save_Click()
WriteData "dataout.txt", temp
End Sub
参考代码：
Option Base 1
Dim Arr(100) As Integer
Dim temp As Integer
Sub ReadData()
Open App.Path & "\" & "datain1.txt" For Input As #1
For i=1 To 100
Input #1, Arr(i)
Next i
Close #1
End Sub
Sub WriteData(Filename As String, Num As Integer)
Open App.Path & "\" & Filename For Output As #1
Print #1, Num
Close #1
End Sub
Private Sub Calc_Click()
Text1.Text=""
For i=1 To 100 Step 2
Text1.Text=Text1.Text & Arr(i) & Space(5)
temp=temp+Arr(i)
Next i
Print temp
End Sub
Private Sub Read_Click()
ReadData
End Sub
Private Sub Save_Click()
WriteData "dataout.txt", temp
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。
-
第2题：
在名为Form1的窗体中建立一个弹出式菜单(程序运行时不显示)，名为file，含两个菜单项，其名称分别为save、open，标题分别为“保存”、“打开”。编写适当的事件过程，使程序运行后，若用鼠标右键单击窗体，则弹出此菜单(如下图所示)。
注意：
程序中不能使用变量；文件必须存放在考生文件夹中，工程文件名为execise60.vbp，窗体文件名为exeGise60.frm。
正确答案：
-
第3题：
在名称为Forml的窗体上建立两个主菜单，其标题分别为“文件”和“编辑”，名称分别为vbFile和VbEdit，在“文件”菜单下有三个子菜单项，标题分别为“打开”、“保存”和“关闭”，名称分别为vbOpen、vbSave和vbClose。要求程序运行后，如果选中“文件”下的某个菜单项，则通过MsgBox对话框显示该菜单项的标题，如图6-3所示。
注意：保存时必须存放在考生文件夹下，窗体文件名为sj3．frm，工程文件名为sja．vbp。正确答案：
本题主要考查MsgBox函数的使用。MsgBox函数用于在对话框中显示消息，等待用户单击按钮，并返回一个Integer告诉用户单击哪一个按钮。其格式为：MsgBox(prompt[，buttons][，title] [，helpfile，conText])。Prompt参数是必选的，是字符串表达式，作为显示在对话框中的消息；Buttons是可选的，是数值表达式值的总和，指定显示按钮的数目及形式；Title是可选的，是在对话框标题栏中显示的字符串表达式。如果省略title，则将应用程序名放在标题栏中；Helpfile是可选的，是字符串表达式，识别用来向对话框提供上下文相关帮助的帮助文件；ConText是可选的，是数值表达式，由帮助文件的作者指定给适当的帮助主题的帮助上下文编号。
在窗体空白处单击右键，按“Ctrl+E”组合键打开菜单编辑器，添加菜单项如下：
标签名 称
内缩
文件
vbFile
无
打开
vbOpen
一位
保存
vbSave
一位
关闭
vbClose
一位
编辑
vbEdit
无
单击“确定”按钮，菜单建立完成后，进入代码窗口编写以下代码：
Private Sub vbClose_Click关闭命令调用的函数
MsgBox("关闭")
End SubPrivate Sub vbOpen—Click 打开命令调用的函数
MsgBox("打开")
End SubPrivate Sub vbSave_Click 保存命令调用的函数
MsgBox("保存")
End Sub
单击
按钮运行程序，并按要求保存。
-
第4题：
注意：下面出现的“考生文件夹”均为c：\wexam\25160001。
去掉程序中的注释符，把程序中的?改为正确的内容，使其实现下述功能，但不能修改程序中的其他部分。
在窗体上有三个菜单(名称分别为Read、Calc和Save，标题分别为“读入数据”、“计算并输出”和“存盘”)，还有一个文本框(名称为Text1，MultiLine属性设置为True，ScrollBars属性设置为2)，如图22-8所示。
程序运行后，如果执行“读入数据”命令，则读入datain1.txt文件中的100个整数，放入一个数组中，数组的下界为1；如果单击“计算并输出”按钮，则把该数组中可以被3整除的元素在文本框中显示出来，求出它们的和，并把所求得的和在窗体上显示出来；如果单击“存盘”按钮，则把所求得的和存入考生文件夹下的dataout.txt文件中。
在考生文件夹下有一个工程文件sjt5.vbp，窗体文件中的ReadData过程可以把datain1.txt文件中的100个整数读入Arr数组中；而WriteData过程可以把指定的整数值写到考生文件夹下指定的文件中(整数值通过计算求得，文件名为dataout.txt)。
注意：考生不得修改窗体文件中已经存在的程序。存盘时，工程文件名仍为sjt5.vbp，窗体文件名仍为sjt5.frm。
正确答案：在Visual Basic中菜单项通过菜单编辑器来建立。 程序中用到的Mod是取模的运算符如：N Mod 3=0则说明余数为0N能被3整除否则N不能被3整除。对文件的操作都有3个步骤：打开(Open)、读写、关闭(Close)。解题步骤： 第一步：建立菜单项、建立界面并设置控件属性。程序中用到的菜单项及其控件属性见表22-5。
第二步：编写程序代码。
程序提供的代码：
Option Base 1
Dim Arr(100) As Integer
Dim temp As Integer
Sub ReadData()
Open App.Path & "\" & "datain1.txt" For Input As #1
For i=1 To 100
Input #1 Arr(i)
Next i
Close #1
End Sub
Sub WriteData(Filename As String Num As Integer)
Open App.Path & "\" & Filename For Output As #1
Print #1 Num
'?#1
End Sub
Private Sub Calc_Click()
'Text1.?=""
For i=1 To 100
If Arr(i) Mod 3=0 Then
Text1.Text=Text1.Text & Arr(i) & Space(5)
'temp=temp+9
End If
Next i
Print temp
End Sub
Private Sub Read_Click()
ReadData
End Sub
Private Sub Save_Click()
WriteData "dataout.txt" temp
End Sub
参考代码：
Option Base 1
Dim Arr(100) As Integer
Dim temp As Integer
Sub ReadData()
Open App.Path & "\" & "datain1.txt" For Input As #1
For i=1 To 100
Input #1 Arr(i)
Next i
Close #1
End Sub
Sub WriteData(Filename As String Num As Integer)
Open App.Path & "\" & Filename For Output As #1
Print #1 Num
Close #1
End Sub
Private Sub Calc_Click()
Text1.Text=""
For i=1 To 100
If Art(i) Mod 3=0 Then
Text1.Text=Text1.Text & Arr(i) & Space(5)
temp=temp+Arr(i)
End If
Next i
Print temp
End Sub
Private Sub Read_Click()
ReadData
End Sub
Private Sub Save_Click()
WriteData "dataout.txt" temp
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。
在Visual Basic中，菜单项通过菜单编辑器来建立。 程序中用到的Mod是取模的运算符，如：N Mod 3=0则说明余数为0，N能被3整除，否则N不能被3整除。对文件的操作都有3个步骤：打开(Open)、读写、关闭(Close)。解题步骤： 第一步：建立菜单项、建立界面并设置控件属性。程序中用到的菜单项及其控件属性见表22-5。
第二步：编写程序代码。
程序提供的代码：
Option Base 1
Dim Arr(100) As Integer
Dim temp As Integer
Sub ReadData()
Open App.Path & "\" & "datain1.txt" For Input As #1
For i=1 To 100
Input #1, Arr(i)
Next i
Close #1
End Sub
Sub WriteData(Filename As String, Num As Integer)
Open App.Path & "\" & Filename For Output As #1
Print #1, Num
'?#1
End Sub
Private Sub Calc_Click()
'Text1.?=""
For i=1 To 100
If Arr(i) Mod 3=0 Then
Text1.Text=Text1.Text & Arr(i) & Space(5)
'temp=temp+9
End If
Next i
Print temp
End Sub
Private Sub Read_Click()
ReadData
End Sub
Private Sub Save_Click()
WriteData "dataout.txt", temp
End Sub
参考代码：
Option Base 1
Dim Arr(100) As Integer
Dim temp As Integer
Sub ReadData()
Open App.Path & "\" & "datain1.txt" For Input As #1
For i=1 To 100
Input #1, Arr(i)
Next i
Close #1
End Sub
Sub WriteData(Filename As String, Num As Integer)
Open App.Path & "\" & Filename For Output As #1
Print #1, Num
Close #1
End Sub
Private Sub Calc_Click()
Text1.Text=""
For i=1 To 100
If Art(i) Mod 3=0 Then
Text1.Text=Text1.Text & Arr(i) & Space(5)
temp=temp+Arr(i)
End If
Next i
Print temp
End Sub
Private Sub Read_Click()
ReadData
End Sub
Private Sub Save_Click()
WriteData "dataout.txt", temp
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。
-
第5题：
在考生文件夹下有一个工程文件sit5．vbp，含三个窗体，标题分别为“启动”、“注册”、“登录”，程序运行时显示“启动”窗体，单击窗体上按钮时弹出对应窗体进行注册或登录。
注册信息放在全局数组llseYs中，注册用户数（小于或等于10个）放在全局变量n中（均已在标准模块中定义）。注册时用户名不能重复，且“El令”与“验证口令”必须相同，注册成功则在“启动”窗体的标签中提示“注册成功”，否则提示相应错误信息。登录时，检验用户名和口令，若正确，则在“启动”窗体的标签上提示“登录成功”，否则提示相应错误信息。
标准模块中函数finduser的功能是：在users数组中搜索用户名（参数ch），找到则返回该用户名在users中的位置，否则返回0。
文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把Form2、Form3窗体文件中的?改为正确的内容。
注意：不得修改已经存在的程序和控件的属性；最后，程序按原文件名存盘。
正确答案：【考点分析】本题考点有：窗体Show和Hide方法、标签的Caption属性、MsgBox()函数、Trim()函数以及文本框Set-Focus方法。
【解题思路】因为本题的窗体比较多，含有一个模块，所以首先要理清思路，了解每一个窗体的功能。窗体l是启动界面，可以选择登录或者注册，窗体2是注册窗口实现用户的注册，窗体3是登录窗口实现用户的登录，模块中函数的功能是在数组中寻找用户名，并返回其所在的位置。理清了各个窗体和模块的关系，就可以开始分析并编写代码了。
【操作步骤】
步骤1：打开本题工程文件。
步骤2：打开代码编辑窗口，去掉程序中的注释符“′”，将问号改为正确的内容。
参考答案(阴影部分是需考生填入的内容)
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
