银符考试题库-在线练习-二级VISUAL BASIC分类模拟145

二级VISUAL BASIC分类模拟145

一、基本操作题
考生文件夹
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。

1. 在名称为Form1的窗体上画一个名称为Picture1的图片框(PictureBox)，高、宽均为1000。在图片框内再画一个有边框的名称为Image1的图像框(Image)。并通过属性窗口把考生目录下的图标文件POINTl1(香蕉图标)装入图像框Image1中，如下图所示。

注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。

[操作步骤]
步骤1：新建一个“标准EXE”工程，按要求画出控件并设置属性。
步骤2：按要求将文件保存至考生文件夹中。
答案考生文件夹

[考点] 控件基本操作、图形控件。
[解析] 本题只需按照要求画出控件并设置属性即可，注意图像框要画在图片框内部。

2. 在名称为Form1的窗体上画一个名称为Command1、标题为“保存文件”的命令按钮，再画一个名称为CommonDialog1的通用对话框。
要求：①通过属性窗口设置适当的属性，使得运行时对话框的标题为“保存文件”，且默认文件名为out2；
②运行时单击“保存文件”按钮，则以“保存对话框”方式打开该通用对话框。如下图所示。

注意：要求程序中不能使用变量，每个事件过程中只能写一条语句。保存时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。

[操作步骤]
步骤1：新建一个“标准EXE”工程，选择【工程】→【部件】命令，在弹出的“部件”对话框的列表中选中“MicroSoft Common Dialog Control6.0”项目，单击“确定”按钮。
步骤2：在窗体Form1上画一个通用对话框和一个命令按钮并设置相关属性。
步骤3：打开的代码编辑窗口中，编写命令按钮的单击事件过程。
Private Sub Command1_Click()
CommonDialog1.Action=2
'或CommonDialog1.ShowSave
End Sub
步骤4：按要求将文件保存至考生文件夹中。

[考点] 通用对话框。
[解析] 通用对话框的默认文件名由FileName属性设置，标题由DialogTitle属性设置。本题可在“保存文件”的单击事件过程中，用语句通过调用通用对话框的ShowSave方法或通过设置其Action属性值为2，使其以“保存对话框”方式打开。

二、简单应用题
考生文件夹

1. 在考生目录下有一个工程文件sjt3.vbp。窗体上有个钟表图案，其中代表指针的直线的名称是Line1，还有一个名称为Label1的标签，和其他一些控件，如下图(a)所示。
在运行时，若用鼠标左键单击圆的边线，则指针指向鼠标单击的位置，如下图(b)所示；若用鼠标右键单击圆的边线，则指针恢复到起始位置，如下图(a)所示；若鼠标左键或右键单击其他位置，则在标签上显示“鼠标位置不对”。文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的“?”改为正确的内容。

程序中的oncircle函数的作用是判断鼠标单击的位置是否在圆的边线上(判断结果略有误差)，是则返回True，否则返回False。符号常量x0、y0是圆心距窗体左上角的距离；符号常量radius是圆的半径。
注意：不能修改程序中的其他部分和各控件的属性。最后把修改后的文件按原文件名存盘。

[操作步骤]
步骤1：打开本题工程文件sjt3.vbp，在代码编辑窗口，去掉程序中的注释符“'”，将问号“?”改为正确的内容。参考代码：
Line1.Y2=Y
Line1.X2=Line1.X1
Line1.Y2=y0-750
Label1.CaDtion="鼠标位置不对"
步骤2：按要求将文件保存至考生文件夹中。
答案考生文件夹

[考点] 图形控件、键盘和鼠标事件。
[解析] 本题源程序在Form_MouseDown事件过程中，先通过调用函数oncircle(X,Y)以判断鼠标单击的位置是否在圆的边线上，若在边线上，则接着判断当前按下的是否为鼠标左键，若为左键，则将直线Line1的终点位置设置为当前鼠标单击的位置，故第一个?处应改为：Y；若当前按下的不是左键，则直线Line1的终点位置设置为其原始位置，即Line1.X2=Line1.X1、Line1.Y2=y0-750。若鼠标单击的位置不在圆的边线上，则在标签上显示相关信息，故第4个?处应改为：Label1.Caption。

2. 在考生目录下有一个工程文件sjt4.vbp，窗体如下图所示。

其功能是单击“输入数据”按钮，则可输入一个整数n(要求：8≤n≤12)；单击“计算”按钮，则计算1!+2!+3!+…+n!，并将计算结果显示在文本框中；单击“存盘”按钮，则把文本框中的结果保存到考生目录下的out4.dat文件中。
文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的“?”改为正确的内容，并编写“计算”按钮的Click事件过程。
注意：不得修改已经存在的内容和控件属性，在结束程序运行之前，必须用“存盘”按钮存储计算结果，否则无成绩。最后把修改后的文件按原文件名存盘。

[操作步骤]
步骤1：打开考生文件夹中的本题工程文件sjt4.vbp，在代码编辑窗口，去掉程序中的注释符“'”，将问号“?”改为正确的内容。参考代码：
s=1
f=s
步骤2：双击“计算”按钮，编写该按钮的单击事件过程。参考代码：
Private Sub Command2_Click()
Dim S As Long, k As Integer
'考生应编写的程序
s=0
For k=1 To n
s=s+f(k)
Next
Text1=s
End Sub
步骤3：按＜F5＞键运行程序，单击“输入数据”按钮，通过输入框输入一个8～12之间的整数，然后单击“计算”按钮计算结果，最后单击“存盘”按钮保存结果。
步骤4：按要求将文件保存至考生文件夹中。

[考点] For循环结构、Sub过程和函数过程。
[解析] 本题源程序中，自定义函数f的功能是进行n!阶乘运算，它通过For循环连续n次将循环变量k的值乘以累积变量s(第一个?处s初值应为1)来实现，作为函数返回值第二个?处应改为：s。
在“计算”按钮的单击事件过程中，根据程序所要计算表达式的特点，源程序利用一个For循环依次计算表达式中各项的值并将其累加入变量s，计算表达式中各项的值通过调用自定义函数f(k)来实现的，最终计算结果显示在文本框中。

三、综合应用题

1. 考生文件夹
在考生文件夹下有一个工程文件sjt5.vbp，含三个窗体，标题分别为“启动”、“注册”、“登录”，运行时显示“启动”窗体，单击其上按钮时弹出对应窗体进行注册或登录。
注册信息放在全局数组users中，注册用户数(最多10个)放在全局变量n中(均己在标准模块中定义)。
注册时用户名不能重复，且“口令”与“验证口令”须相同，注册成功则在“启动”窗体的标签中显示“注册成功”，否则显示相应错误信息。登录时，检验用户名和口令，若正确，则在“启动”窗体的标签上显示“登录成功”，否则显示相应错误信息。
标准模块中函数finduser的功能是：在users数组中搜索用户名(即参数ch)，找到则返回该用户名在users中的位置，否则返回0。
已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把Form2、Form3窗体文件中的“?”改为正确的内容。
注意：不得修改已经存在的程序和控件的属性，最后程序按原文件名存盘。

[操作步骤]
步骤1：打开考生文件夹中的本题工程文件sjt5.vbp，在代码编辑窗口，去掉程序中的注释符“'”，将问号“?”改为正确的内容。参考代码：
"---注册窗体Form2-
n=n+1
ElseIf finduser(Trim$(Text1))＞0 Then
Form1.Label1.Caption="注册成功!"
'---登录窗体Form3-
If k=0 Then
E1seIf Trims(Text2)＜＞users(k,2)Then
步骤2：按要求将文件保存至考生文件夹中。
答案考生文件夹

[考点] 多窗体、Sub过程和函数过程。
[解析] 本题源程序在“注册”窗体的“确定”按钮的单击事件过程中，先判断是否输入用户名，若没有输入则弹出提示信息，否则通过调用标准模块中的finduser函数，检查输入用户是否存在于users数组中(条件表达式为：finduser(Trim$(Text1))＞0)，若该用户存在则弹出提示信息，否则进一步检查前后两次输入的密码是否一致，若前后不一致则弹出提示信息，否则通过调用过程writeusers将该用户名及密码写入数组users中，并在“启动”窗体的标签(Form1.Label1)中显示“注册成功”。每调用一次过程writeusers，全局变量n将记录新增一个用户，即n=n+1。
在“登录”窗体的“登录”按钮的单击事件过程中，通过调用标准模块中的finduser函数，检查输入用户是否存在于users数组中，若不存在(条件表达式为：k=0)则弹出提示信息，否则进一步检查该用户的密码输入是否正确(条件表达式为：Trim$(Text2)＜＞users(k,2))，若不正确则弹出提示信息，否则在“启动”窗体的标签(Form1.Label1)中显示“登录成功”。

一、基本操作题

1 2

二、简单应用题

1 2

三、综合应用题

深色：已答题浅色：未答题