二、简单应用题

　　3(1)在考生文件夹中有工程文件sj3.vbp及其窗体文件sj3.frm，该程序是不完整的，请在有"?"的地方填入正确内容，然后删除"?"及代码前的所有注释符(即'号)但不能修改其他部分。存盘时不得改变文件名和文件夹。

　　本题描述如下：

　　在窗体上有两个名称分别为Text1和Text2的文本框，一个名称为Command1，标题为"登录"的命令按钮。其中Text1文本框用来输入用户名，Text2文本框用来输入口令，要求在Text2文本框中输入的内容都必须以"*"显示(请考生通过属性窗口设置)，初始运行时两个文本框均为空。要求程序运行后，输入用户名口令，单击命令按钮后，对口令进行校验。如果输入的内容都是"ABC"这3个大写字母，则用MsgBox信息框输出"正确"，否则输出"错误"，如图52-3所示。

　　图52-3

　　(2)在考生文件夹中有工程文件sj4.vbp及其窗体文件sj4.frm，该程序是不完整的，请在有"?"的地方填入正确内容，然后删除"?"及代码前的所有注释符(即'号)但不能修改其他部分。存盘时不得改变文件名和文件夹。

　　本题描述如下：

　　在窗体上有3个名称分别为Check1、Check2和Check3的复选框，标题依次为"C++"、"Basic"和"JAVA";有一个名称为Label1，标题为"编程语言"的标签，还有一个名称为Command1，标题为"显示"的命令按钮。要求程序运行后，如果选择某个复选框，当单击命令按钮时在窗体上输出相应的信息。例如：如果选择"C++"和"JAVA"复选框，单击显示按钮后，将在窗体上显示"我会的编程语言是C++JAVA"，如图52-4所示。

　　图52-4

　　参考解析：

　　(1)根据题意，将两个文本框控件和命令按钮添加到窗体中，两个文本框的名称为Text1和Text2，Text2的PasswordChar属性为“*”，命令按钮的名称为Command1，Caption属性为“登录”。双击Command1进入代码编辑窗口，编写如下代码：

　　Private Sub Command1_Click()

　　If Text1.Text = "ABC" And Text2.Text = "ABC" Then '判断是否都为ABC

　　MsgBox ("正确") '是则弹出J“正确”对话框

　　Else

　　MsgBox ("错误") '否则弹出“错误”对话框

　　End If

　　End Sub

　　单击按钮运行程序，并按要求保存。

　　(2) 根据题意，将3个复选按钮控件、一个标签和一个命令按钮添加到窗体中，标签的Caption属性为“编程语言”，命令按钮的名称为Command1，Caption属性为“显示”，3个复选按钮控件的名称分别为Check1、Check2和Check3，Caption属性分别为“C++”、“Basic”和“JAVA”。双击命令按钮进入代码编写窗口，编写如下代码：

　　Private Sub Command1_Click()

　　Dim str As String

　　str = "我会的编程语言是"

　　If Check1.Value = 1 Then 'Check1被选中

　　str = str + Check1.Caption

　　End If

　　If Check2.Value = 1 Then 'Check2被选中

　　str = str + Check2.Caption

　　End If

　　If Check3.Value = 1 Then 'Check3被选中

　　str = str + Check3.Caption

　　End If

　　Print str

　　End Sub

　　单击按钮运行程序，并按要求保存。

　　4(1)在考生文件夹中有一个工程文件sj3.vbp，相应的窗体文件为sj3.frm。在在名为Form1的窗体上有一个命令按钮，其名称为Cmd1，标题为"输入";还有一个文本框，其名称为Text1，初始内容为空白。程序运行后，单击"输入"命令按钮，显示"输入"对话框。在对话框中输入某个月份的数值(1～12)，然后单击"确定"按钮，即可在文本框中输出该月份所在的季节。

　　该程序不完整，请补充完整。

　　要求：去掉程序中的注释符"'"，把程序中的问号"?"改为正确的内容，使其能正确运行，但不得修改程序的其他部分。最后用原名保存工程文件和窗体文件。

　　(2)在考生文件夹中有一个工程文件sj4.vbp，相应的窗体文件为sj4.frm。在名为Form1的窗体上有一个名称为Cmd1、标题为"计算"的命令按钮;两个水平滚动条，名称分别为HS1和HS2，其Max属性均为100，Min属性均为1;4个标签，名称分别为Lab1、Lab2、Lab3和Lab4，标题分别为"运算数1"、"运算数2"、"运算结果"和空白;此外，还有一个包含4个单选按钮的控件数组，名为Opt1，标题分别为"+"、"-"、"*"和"/"。程序运行后，移动两个滚动条中的滚动框，用滚动条的当前值作为运算数，如果选中一个单选钮，然后单击命令按钮，相应的计算结果将显示在Lab4中。

　　本程序不完整，请补充完整，并能正确运行。

　　要求：去掉程序中的注释符"'"，把程序中的问号"?"改为正确的内容，使其能正确运行，但不得修改程序的其他部分，也不得修改控件的属性。最后用原名保存工程文件和窗体文件。

　　参考解析：

　　(1)①打开题目所给工程文件;

　　②将注释语句改为：

　　Loop　Until　n>0Andn<13、Select　Case n和Select　Case　m，

　　③按要求保存文件即完成本题。

　　(2)①打开题目所给工程文件;

　　②将注释语句改为：

　　IfOpt1(i).Value=TrueThen

　　SelectCase opt

　　Lab4=Str(HS1.Value)&""&

　　opt&Str(HS2.Value)&"="&Str(Result)，

　　③按要求保存文件即完成本题。

　　相关推荐：

　　2015年计算机等级考试时间安排(各地略有不同)

　　2015年计算机二级考试《VB》考前预测试卷汇总

　　2015年9月计算机等级考试各科目考前必做试题

　　考试吧首发2015年9月计算机二级VB真题答案通知