注意：下面出现的“考生文件夹”均为c：\wexam\25160001。在考生文件夹下有一个工程文件sjt5.vbp，其窗体上有两个标签L1和L2，标题分别为“口令”和“允许次数”；一个命令按钮C1，标题为“确定”：两个文本框名称分别为为Text1和Text2，其中Text1用来输入口令(输入时，显示“*”)，无初始内容；Text2的初始内容为3。程序给出了C1的事件过程，但不完整，要求去掉程序中的注释符，把程序中的?改为正确内容，使得在运行时，在Text1中输入口令后，单击“确定”按钮，如果输入的是“12
题目
注意：下面出现的“考生文件夹”均为c：\wexam\25160001。
在考生文件夹下有一个工程文件sjt5.vbp，其窗体上有两个标签L1和L2，标题分别为“口令”和“允许次数”；一个命令按钮C1，标题为“确定”：两个文本框名称分别为为Text1和Text2，其中Text1用来输入口令(输入时，显示“*”)，无初始内容；Text2的初始内容为3。
程序给出了C1的事件过程，但不完整，要求去掉程序中的注释符，把程序中的?改为正确内容，使得在运行时，在Text1中输入口令后，单击“确定”按钮，如果输入的是“123456”则在Text1中显示“口令正确”；如果输入其他内容，单击“确定”后，弹出如图19-5所示的错误提示对话框，并且Text2中的数字减1。最多可输入3次口令，若3次都输入错误，则禁止再次输入。
注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
相似考题
更多“ 注意：下面出现的“考生文件夹”均为c：\wexam\25160001。在考生文件夹下有一个工程文件sjt5.vbp，其窗体上有两个标签L1和L2，标题分别为“口令”和“允许次数”；一个命令按钮C1，标题为“确定””相关问题
-
第1题：
注意：下面出现的“考生文件夹”均为c：\wexam\25160001。
在考生文件夹下有工程文件sjt5.vbp及窗体文件sjt5.frm，该程序是不完整的，请在有?号的地方填入正确的程序代码，然后删除?及所有注释符号(即'号)，但不能修改其他部分。修改后的程序文件都保存，存盘时不得修改文件夹和文件名。
本题描述如下：
在窗体上有一个名称为Text1的文本框，三个命令按钮，名称分别是C1、C2和C3，标题分别是“读入”、“加密”和“存盘”。要求程序运行后，点击“读入”按钮，将文本文件in7.txt(该文件在考生文件夹下)中的文本信息读入文本框Text1中；点击“加密”按钮将Text1中的英文字母加密转换，并将转换后的结果显示到Text1中。转换方式为转换成该字母对应字母表中后两个位置的字母。例如，转换前的字母是“a”，则转换后的是“c”；点击“存盘”按钮，则将转换后的文本框中的文本保存到out7.txt文件中(该文件保存到考生文件夹下)。程序设计界面如图12-8所示。
正确答案：文本框中显示的内容由Text属性设置。单击命令按钮触发Click事件命令按钮的标题由Caption属性设置。 题目要求加密原理是：在原来字符的ASCII码加上一个整数(题目要求为2)转换为其他的字符然后再将加密后的字符显示在文本框中。这样就用到了Chr函数和Asc函数。 Chr函数返回String其中包含有与指定的字符代码相关的字符。其语法格式为： Chr(charcode) charcode必要参数是一个用来识别某字符的Long。 Asc函数返回一个Integer代表字符串中首字母的字符代码。其语法格式为： Asc(string) string必要的参数可以是任何有效的字符串表达式。解题步骤： 第一步：编写程序代码。 程序提供的代码： Private Sub C1_Click() Dim strinfo As String '? "in7.txt" For Input As 1 Input #1 strinfo Close #1 Text1.Text=strinfo End Sub Private Sub Command2_Click() Dim strchange As String Dim i As Integer For i=1 To Len(Text1.Text) ' strchange=strchange+?(Asc(Mid(Text1.Text i 1) ) +2) Next Text1.Text=strchange End Sub Private Sub Command3_Click() Open "out7.txt" For Output As 1 'Print #1 ? Close #1 End Sub 参考代码： Private Sub C1_Click() Dim strinfo As String Open "in7.txt" For Input As 1 Input #1 strinfo Close #1 Text1.Text=strinfo End Sub Private Sub C2_Click() Dim strchange As String Dim i As Integer For i=1 To Len(Text1.Text) strchange=strchange+Chr(Asc(Mid(Text1.Text i 1) ) +2) Next Text1.Text=strchange End Sub Private Sub C3_Click() Open "out7.txt" For Output As 1 Print #1 Text1.Text Close #1 End Sub 第二步：调试并运行程序 第三步：按题目要求存盘
文本框中显示的内容由Text属性设置。单击命令按钮触发Click事件，命令按钮的标题由Caption属性设置。 题目要求加密原理是：在原来字符的ASCII码加上一个整数(题目要求为2)转换为其他的字符，然后再将加密后的字符显示在文本框中。这样就用到了Chr函数和Asc函数。 Chr函数返回String，其中包含有与指定的字符代码相关的字符。其语法格式为： Chr(charcode) charcode必要参数，是一个用来识别某字符的Long。 Asc函数返回一个Integer，代表字符串中首字母的字符代码。其语法格式为： Asc(string) string必要的参数，可以是任何有效的字符串表达式。解题步骤： 第一步：编写程序代码。 程序提供的代码： Private Sub C1_Click() Dim strinfo As String '? "in7.txt" For Input As 1 Input #1, strinfo Close #1 Text1.Text=strinfo End Sub Private Sub Command2_Click() Dim strchange As String Dim i As Integer For i=1 To Len(Text1.Text) ' strchange=strchange+?(Asc(Mid(Text1.Text, i, 1) ) +2) Next Text1.Text=strchange End Sub Private Sub Command3_Click() Open "out7.txt" For Output As 1 'Print #1, ? Close #1 End Sub 参考代码： Private Sub C1_Click() Dim strinfo As String Open "in7.txt" For Input As 1 Input #1, strinfo Close #1 Text1.Text=strinfo End Sub Private Sub C2_Click() Dim strchange As String Dim i As Integer For i=1 To Len(Text1.Text) strchange=strchange+Chr(Asc(Mid(Text1.Text, i, 1) ) +2) Next Text1.Text=strchange End Sub Private Sub C3_Click() Open "out7.txt" For Output As 1 Print #1, Text1.Text Close #1 End Sub 第二步：调试并运行程序 第三步：按题目要求存盘 -
第2题：
注意：下面出现的“考生文件夹”均为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
第三步：调试并运行程序。
第四步：按题目要求存盘。
-
第3题：
在名为Form1的窗体上绘制一个标签，其名称为Lab1，标题为“计算机等级考试”， Borderstyle属性为1，可以根据标题自动调整大小：再绘制一个命令按钮，其名称和标题均为Cmd1。编写适当的事件过程，使程序运行后，如果单击命令按钮，则标签消失，同时用标签的标题作为命令按钮的标题。程序运行情况如下图所示。
注意：
文件必须存放在考生文件夹中，工程文件名为execise111.vbp，窗体文件名为 execise111.frm。
正确答案：
-
第4题：
注意：下面出现的“考生文件夹”均为c:\wexam\25160001。
(1)在考生文件夹中有工程文件sjt3.vbp及其窗体文件sjt3.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即'号)但不能修改其他部分。存盘时不得改变文件名和文件夹。
本题描述如下：
在窗体上有一个名称为Text1的文本框，一个名称为C1，标题为“校验”的命令按钮。其中文本框用来输入口令，如图5-3所示，要求在文本框中输入的内容都必须以“”显示(请考生通过属性窗口设置)。要求程序运行后，输入口令，单击命令按钮后，对口令进行校验。如果输入的内容是“ABC”这3个大写字母，则用MsgBox信息框输出“正确”，否则输出“错误”，如图5-4所示。
(2)在考生文件夹中有工程文件sjt4.vbp及其窗体文件sjt4.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即'号)但不能修改其他部分。存盘时不得改变文件名和文件夹。
本题描述如下：
在窗体上有3个名称分别为Ch1、Ch2和Ch3的复选框，标题依次为“程序设计”、“数据库原理”和“计算机网络”，还有一个名称为C1，标题为“选课”的命令按钮，如图5-5所示。要求程序运行后，如果选择某个复选框，当单击命令按钮时在窗体上输出相应的信息。例如：如果选择“程序设计”和“数据库原理”复选框，单击命令按钮后，将在窗体上显示“我选的课程是程序设计数据库原理”。
正确答案：(1)在窗体上建立好控件后先设置控件属性再编写事件过程。 单击命令按钮或窗体触发的是Click事件因此程序中应该编写命令按钮的Click事件过程按钮的标题通过Caption属性设置；要使文本框的内容在输入时显示为“*”则应该将PasswordChar属性设置为“*”。解题步骤： 第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表5-3。
第二步：编写程序代码。
程序提供的代码：
Option Explicit
Private Sub C1_Click()
' If Text1.Text = "?" Then MsgBox "?" Else MsgBox “错误”
End Sub
参考代码：
Option Explicit
Private Sub C1_Click()
If Text1.Text = "ABC" Then MsgBox “正确” Else MsgBox "错误"
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。
(2)建立好控件后先设置控件属性再编写事件过程。
复选框用来表示状态在程序运行期间可以改变其状态。复选框的标题由Caption属性来设置复选框的Value属性用来表示复选框的状态。其取值有如下几种：
0：表示复选框未被选中；
1：表示选中该复选框；
2：表示该复选框被禁止(灰色)。
在窗体上打印信息用Print方法单击命令按钮触发的是Click事件。解题步骤：
第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表5-4。
第二步：编写程序代码。
程序提供的代码：
Option Explicit
Private Sub C1_Click()
Dim s As String
s=“我选的课程是”
If Ch1.Value = 1 Then
s=s &“程序设计”
End If
If Ch2.Value = 1 Then
s=s &“数据库原理”
End If
If Ch3.Value = 1 Then
's = s & Ch3.?
End If
' Print ?
End Sub
参考代码：
Option Explicit
Private Sub C1_Click()
Dim s As String
s=“我选的课程是”
If Ch1.Value = 1 Then
s= s &“程序设计”
End If
If Ch2.Value=1 Then
s=s &“数据库原理”
End If
If Ch3.Value=1 Then
s=s & Ch3.Caption
End If
Print s
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。
(1)在窗体上建立好控件后，先设置控件属性，再编写事件过程。 单击命令按钮或窗体触发的是Click事件，因此，程序中应该编写命令按钮的Click事件过程，按钮的标题通过Caption属性设置；要使文本框的内容在输入时显示为“*”，则应该将PasswordChar属性设置为“*”。解题步骤： 第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表5-3。
第二步：编写程序代码。
程序提供的代码：
Option Explicit
Private Sub C1_Click()
' If Text1.Text = "?" Then MsgBox "?" Else MsgBox “错误”
End Sub
参考代码：
Option Explicit
Private Sub C1_Click()
If Text1.Text = "ABC" Then MsgBox “正确” Else MsgBox "错误"
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。
(2)建立好控件后，先设置控件属性，再编写事件过程。
复选框用来表示状态，在程序运行期间可以改变其状态。复选框的标题由Caption属性来设置，复选框的Value属性用来表示复选框的状态。其取值有如下几种：
0：表示复选框未被选中；
1：表示选中该复选框；
2：表示该复选框被禁止(灰色)。
在窗体上打印信息用Print方法，单击命令按钮触发的是Click事件。解题步骤：
第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表5-4。
第二步：编写程序代码。
程序提供的代码：
Option Explicit
Private Sub C1_Click()
Dim s As String
s=“我选的课程是”
If Ch1.Value = 1 Then
s=s &“程序设计”
End If
If Ch2.Value = 1 Then
s=s &“数据库原理”
End If
If Ch3.Value = 1 Then
's = s & Ch3.?
End If
' Print ?
End Sub
参考代码：
Option Explicit
Private Sub C1_Click()
Dim s As String
s=“我选的课程是”
If Ch1.Value = 1 Then
s= s &“程序设计”
End If
If Ch2.Value=1 Then
s=s &“数据库原理”
End If
If Ch3.Value=1 Then
s=s & Ch3.Caption
End If
Print s
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。
-
第5题：
注意：下面出现的“考生文件夹”均为c:\wexam\25160001。
(1)在名称为Form1的窗体上建立两个主菜单，其标题分别为“文件”和“帮助”，名称分别为vbFile和vbHelp，在“文件”菜单下有3个子菜单项，标题分别为“新建”、“打开”和“存盘”，名称分别为 vbNew、vbOpen和vbSave。要求程序运行后，如果选中“文件”下的某个菜单项，则通过MsgBox对话框显示该菜单项的标题，如图3-3所示。
注意：保存时必须存放在考生文件夹下，窗体文件名为sjt3.frm，工程文件名为sjt3.vbp。
(2)在窗体上建立一个名称为Text1的文本框，再建立一个名称为Cmd1，标题为“计算”的命令按钮，如图3-4所示。要求程序运行后，单击命令按钮，将计算100-200之间所有素数之和，在文本框中显示结果，同时把结果存入文件out.txt中。 (在考生文件夹中有标准模块mode.bas,其中的putdata过程可以把结果存入文件，而isprime函数可以判断整数x是否为素数，如果是素数，则函数返回True，否则返回 False，考生可以把该模块文件添加到自己的工程中。)
注意：保存时必须存放在考生文件夹下，窗体文件名为sjt4.frm，工程文件名为sjt4.vbp，结果存入out.txt文件。
正确答案：(1)在Visual Basic中菜单项通过菜单编辑器来建立；选择菜单则是触发其Click事件。 MsgBox函数在对话框中显示消息等待用户单击按钮并返回1个Integer告诉用户单击哪一个按钮。 语法：MsgBox(prompt[buttons][title][helpfilecontext]) MsgBox函数的语法具有以下几个命名参数： Prompt必需的。字符串表达式作为显示在对话框中的消息。 Buttons可选的。数值表达式是值的总和指定显示按钮的数目及形式。 Title可选的。在对话框标题栏中显示的字符串表达式。如果省略title则将应用程序名放在标题栏中。 Helpfile可选的。字符串表达式识别用来向对话框提供上下文相关帮助的帮助文件。 Context可选的。数值表达式由帮助文件的作者指定给适当的帮助主题的帮助上下文编号。解题步骤： 第一步：建立菜单项。程序中用到的菜单项及其属性见表3-2。
第二步：编写程序代码。
参考代码：
Private Sub vbNew_Click()
MsgBox“新建”vbOKOnly
End Sub
Private Sub vbOpen_Click()
MsgBox“打开”vbOKOnly
End Sub
Private Sub vbSave_Click()
MsgBox“存盘”vbOKOnly
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。
(2)在窗体上建立好控件后先设置控件的属性值再编写事件过程。
文本框中显示的内容由Text属性设置命令按钮的标题由Caption属性设置单击命令按钮触发Click事件。解题步骤：第一步：建立菜单项。程序中用到的控件及其属性见表3-3。
第二步：编写程序代码。
参考代码：
Private Sub Cmd1_Click()
Dim i As Integer
Dim temp As Long
temp = 0
For i = 100 To 200
If isprime(i) Then
temp = temp + i
End If
Next
Text1.Text = temp
putdata "out.txt"temp
End Sub
标准模块代码：
Option Explicit
Sub putdata(t_FileName As StringT Str As Variant)
Dim sFile As String
sFile = "\" & t FileName
Open App.Path & sFile For Output As # 1
Print #1T_Str
Close #1
End Sub
Function isprime(t_I As Integer) As Boolean
Dim J As Integer
isprime = False
For J=2 To t I / 2
If t I Mod J = 0 Then Exit For
Next J
If J＞t I/2 Then isprime = True
End Function
第三步：调试并运行程序。
第四步：按题目要求存盘。
(1)在Visual Basic中，菜单项通过菜单编辑器来建立；选择菜单则是触发其Click事件。 MsgBox函数在对话框中显示消息，等待用户单击按钮，并返回1个Integer告诉用户单击哪一个按钮。 语法：MsgBox(prompt[，buttons][，title][，helpfile，context]) MsgBox函数的语法具有以下几个命名参数： Prompt必需的。字符串表达式，作为显示在对话框中的消息。 Buttons可选的。数值表达式是值的总和，指定显示按钮的数目及形式。 Title可选的。在对话框标题栏中显示的字符串表达式。如果省略title，则将应用程序名放在标题栏中。 Helpfile可选的。字符串表达式，识别用来向对话框提供上下文相关帮助的帮助文件。 Context可选的。数值表达式，由帮助文件的作者指定给适当的帮助主题的帮助上下文编号。解题步骤： 第一步：建立菜单项。程序中用到的菜单项及其属性见表3-2。
第二步：编写程序代码。
参考代码：
Private Sub vbNew_Click()
MsgBox“新建”，vbOKOnly
End Sub
Private Sub vbOpen_Click()
MsgBox“打开”，vbOKOnly
End Sub
Private Sub vbSave_Click()
MsgBox“存盘”，vbOKOnly
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。
(2)在窗体上建立好控件后，先设置控件的属性值，再编写事件过程。
文本框中显示的内容由Text属性设置，命令按钮的标题由Caption属性设置，单击命令按钮触发Click事件。解题步骤：第一步：建立菜单项。程序中用到的控件及其属性见表3-3。
第二步：编写程序代码。
参考代码：
Private Sub Cmd1_Click()
Dim i As Integer
Dim temp As Long
temp = 0
For i = 100 To 200
If isprime(i) Then
temp = temp + i
End If
Next
Text1.Text = temp
putdata "out.txt"，temp
End Sub
标准模块代码：
Option Explicit
Sub putdata(t_FileName As String，T Str As Variant)
Dim sFile As String
sFile = "\" & t FileName
Open App.Path & sFile For Output As # 1
Print #1，T_Str
Close #1
End Sub
Function isprime(t_I As Integer) As Boolean
Dim J As Integer
isprime = False
For J=2 To t I / 2
If t I Mod J = 0 Then Exit For
Next J
If J＞t I/2 Then isprime = True
End Function
第三步：调试并运行程序。
第四步：按题目要求存盘。