1、(A)二级 VISUAL+BASIC 笔试-3 及答案解析(总分：100.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：40.00)1.在名称为 Form1，标题为“图片”的窗体上添加 1 个名称为 Imagel 的图像框，其高为 2500，宽为2000。请通过属性窗口设置适当属性，将考生文件夹下的图片文件 pic1.jpg 插入图像框，并使图片自动适应图像框的大小(如图所示)。注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt1.vbp，窗体文件名保存为 sjt1.frm。（分数：20.00）_2.在名称为 Form1 的窗体上添加一个名称为 Iabel1，标题为“
2、口令”的标签；添加一个名称为 Text1 的文本框；再添加三个命令按钮，名称分别为 Command1、Command2、Command3，标题分别为“显示口令”、“隐藏口令”、“重新输入”。程序运行时，在 Text1 中输入若干字符，单击“隐藏口令”按钮，则只显示与字符同样数量的“*”(如图2 所示)；单击“显示口令”按钮，则正常显示输入的字符(如图 1 所示)，单击“重新输入”按钮，则清除 Text1 中的内容，并把光标定位到 Text1 中。要求：请按要求添加所有控件，编写命令按钮的 Click 事件过程，程序中不得使用变量，在“显示口令”、“隐藏口令”按钮的事件过程中只能写 1 条语句。
3、存盘时必须存放在考生文件夹下，工程文件名为sja.vbp, 窗体文件名为 sjt2.frm.（分数：20.00）_二、简单应用题(总题数：2，分数：40.00)3.在考生文件夹下有一个工程文件 sjt3.vbp，在程序运行时，单击“输入整数”按钮，输入一个整数，并在窗体上显示此整数的所有不同因子和因子个数。图 1 是输入 53 后的结果，图 2 是输入 100 后的结果。已经给出了全部控件和程序，但程序不完整。要求：请去掉程序中的注释符，把程序中的?改为正确的内容。不能修改程序中的其他部分，也不能修改控件的属性。最后用原来的文件名保存工程文件和窗体文件。（分数：20.00）_4.在考生文件夹下
4、有一个工程文件 sjt4.vbp。在其窗体中“待选城市”下的 List1 列表框中有若干个城市名称。程序运行时，选中 List1 中若干个列表项(如图 1 所示)，单击“选中”按钮则把选中的项目移到List2 中，单击“显示”，则在 Text1 文本框中显示这些选巾的城市(如图 2 所示)。已经给出了所有控件和程序，但程序不完整。要求：请去掉程序中的注释符，把程序中的?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。（分数：20.00）_三、综合应用题(总题数：1，分数：20.00)5.在考生文件夹下有一个工程文件 sjt5.vb
5、p，在其窗体中有一个实心圆。程序运行时，当用鼠标左键单击窗体任何空白位置时，实心圆则向单击位置直线移动；若用鼠标右键单击窗体，则实心圆停止移动。窗体文件中已经给出了全部控件，但程序不完整。要求：请去掉程序中的注释符，把程序中的?改为正确的内容，使其能正确运行，不能修改程序的其他部分和控件属性。最后将修改后的文件按原文件名存盘。（分数：20.00）_(A)二级 VISUAL+BASIC 笔试-3 答案解析(总分：100.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：40.00)1.在名称为 Form1，标题为“图片”的窗体上添加 1 个名称为 Imagel 的图像框，其高为 25
6、00，宽为2000。请通过属性窗口设置适当属性，将考生文件夹下的图片文件 pic1.jpg 插入图像框，并使图片自动适应图像框的大小(如图所示)。注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt1.vbp，窗体文件名保存为 sjt1.frm。（分数：20.00）_正确答案：(操作步骤步骤 1：新建一个窗体，按照题目要求建立控件并设置其属性，如表所示。控件 图像框 窗体属性 Name Picture StretchHeightWidthCaotion设置值 Image1pic1.jPgTrue 2500 2000 图片步骤 2：调试并运行程序，关闭程序后按题目要求存盘。)解析：考点
7、本题考点有：图像框的 Name、Picture、Stretch、Height 和 Width 属性以及窗体的Caption 属性。图像框(Image)的 Picture 属性用于在设计阶段设置图像框中显示的图片，它的 Stretch(自动伸缩)属性返回/设置一个值，决定是否调整图形的大小以适应图像框控件。图像框的宽和高分别由其 Width 属性和 Height 属性设置。2.在名称为 Form1 的窗体上添加一个名称为 Iabel1，标题为“口令”的标签；添加一个名称为 Text1 的文本框；再添加三个命令按钮，名称分别为 Command1、Command2、Command3，标题分别为“显示
8、口令”、“隐藏口令”、“重新输入”。程序运行时，在 Text1 中输入若干字符，单击“隐藏口令”按钮，则只显示与字符同样数量的“*”(如图2 所示)；单击“显示口令”按钮，则正常显示输入的字符(如图 1 所示)，单击“重新输入”按钮，则清除 Text1 中的内容，并把光标定位到 Text1 中。要求：请按要求添加所有控件，编写命令按钮的 Click 事件过程，程序中不得使用变量，在“显示口令”、“隐藏口令”按钮的事件过程中只能写 1 条语句。存盘时必须存放在考生文件夹下，工程文件名为sja.vbp, 窗体文件名为 sjt2.frm.（分数：20.00）_正确答案：(操作步骤步骤 1：新建一个窗
9、体，按照题目要求建立标控件，程序中用到的控件及属性见表 34 和表 35。表 34控件 文本框 命令按钮 1 命令按钮 2属性 Name TextName Caption Name Caption设置值 Text1 Command1显示口令 Command2隐藏口令表 35 控件 命令按钮 3 标签属性 Name Caption Name Caption设置值 Command3重新输入 Label1口今步骤 2：打开代码编辑窗口，去掉程序中的注释符“”，将问号改为正确的内容。参考答案(阴影部分是需考生填入的内容)Private Sub Command1_Click()Text1.Passwor
10、dChar=“ 当 PasswordChar 属性设置为空时,Text1 文本框显示内容End SubPrivate Sub Command2_Click()Text1.PasswordChar=“*“ 当 PasswordChar 属性设置为*时,用*代替 Text1 文本框中的字符显示End SubPrivate Sub Command3_Click()Text1=“清空文本框Text1.SetFocus Text1 获得焦点End Sub步骤 4：调试并运行程序，关闭程序后按题目要求存盘。)解析：考点 本题考点有：文本框的 Name、Text 和 PasswordChar 属性，命令按钮
11、的 Name 和 Caption 属性，标签的 Name 和 Caption 属性以及文本框的 SetFocus 方法。PasswordChar 属性用来设置是否在控件中显示用户输入的字符。如果该属性设置为某一字符，那么无论Text 属性值是什么，在文本框中都只显示该字符。另外，MultiLine 属性必须设置为 False。运用SetFocus 方法使文本框获得焦点。二、简单应用题(总题数：2，分数：40.00)3.在考生文件夹下有一个工程文件 sjt3.vbp，在程序运行时，单击“输入整数”按钮，输入一个整数，并在窗体上显示此整数的所有不同因子和因子个数。图 1 是输入 53 后的结果，图
12、 2 是输入 100 后的结果。已经给出了全部控件和程序，但程序不完整。要求：请去掉程序中的注释符，把程序中的?改为正确的内容。不能修改程序中的其他部分，也不能修改控件的属性。最后用原来的文件名保存工程文件和窗体文件。（分数：20.00）_正确答案：(操作步骤步骤 1：打开本题工程文件。步骤 2：打开代码编辑窗口，去掉程序中的注释符，将问号改为正确的内容。参考答案(阴影部分是需考生填入的内容)Private Sub Command1_Click()Dim n As IntegerCls清空窗体n=InputBox(“请输入一个整数“) InputBox 返回值赋给 nPrint“因子数=“;
13、fun(n) 调用 fun 函数并打印结果End SubFunction fun(m As Integer)Dim s As Integers=0For k=1 To Abs(m)/2If m Mod k=0 Then当整除余数为 0 时则一定是它的因子s=s+1Print kEnd IfNext kfun=s返回因子总数End Function程序结束步骤 3：调试并运行程序，关闭程序后按题目要求存盘。)解析：考点 本题考点有：InputBox()函数、Functionfun()过程函数、Abs()函数、Mod()函数、For 循环语句、If 判断语句以及 Print 方法。通过 Input
14、Box()函数实现对话框中显示提示，等待用户输入正文或按下按钮，并返回包含文本框内容的String。通过 Function fun()过程函数，实现对因子数的确定和查找，Mod()函数用来判断是否能够整除，即判断是否为因子数。在进行循环的时候注意变量 k 的上限为 Abs(m)/2，这样可以节省循环的次数。4.在考生文件夹下有一个工程文件 sjt4.vbp。在其窗体中“待选城市”下的 List1 列表框中有若干个城市名称。程序运行时，选中 List1 中若干个列表项(如图 1 所示)，单击“选中”按钮则把选中的项目移到List2 中，单击“显示”，则在 Text1 文本框中显示这些选巾的城市(
15、如图 2 所示)。已经给出了所有控件和程序，但程序不完整。要求：请去掉程序中的注释符，把程序中的?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。（分数：20.00）_正确答案：(操作步骤步骤 1：打开本题工程文件。步骤 2：打开代码编辑窗口，去掉程序中的注释符，将问号改为正确的内容。参考答案(阴影部分是需考生填入的内容)Private Sub Command1_Click()Dim k%For k=List1.ListCount-1 To 0 Step-1k 从最大到 0,则步长应为-1If List1.Selected(k)=
16、True ThenList2.AddItem List1.List(k)添加项到 List2 中List1.RemoveItem k通过下标删除 List1 中的项目End IfNext kEnd SubPrivate Sub Command2_Click()Dim k%Text1=“已经选中的城市有:“For k=0 To List2.ListCount-1 Step 1Text1=Text1.Text“List2.List(k)将 List2 中的项目连接在 Text1 中的内容之后Next kEnd Sub步骤 3：调试并运行程序，关闭程序后按题目要求存盘。)解析：考点 本题考点有：列表
17、框的 ListCount、Selected 和 List 属性，“”连接符，列表框的Addhem 和 Removehem 方法，For 循环语句以及 If 判断语句。Selected 属性是一个与 List 数组中的各个元素相对应的一维数组，记录 List 数组中每个项目是否被选取。例如，如果 List(1)被选取，则 Selected(1)的值为 True，如果 List(1)未被选取，则 Selected(1)的值为 False。List 属性是一个一维数组，数组中元素的值就是在执行时看到的列表项。设计时可以在属性窗口中通过 List 属性来建立列表项，运行时对 List 数组从 0 到
18、ListCount-1 依次取值，可以获得列表的所有项目。通过对 Selected 属性返回值的判断，可以得知列表项是否被选中，从而进行删除和添加操作。循环下限大于循环上限，因此循环语句步长 Step 为-1。三、综合应用题(总题数：1，分数：20.00)5.在考生文件夹下有一个工程文件 sjt5.vbp，在其窗体中有一个实心圆。程序运行时，当用鼠标左键单击窗体任何空白位置时，实心圆则向单击位置直线移动；若用鼠标右键单击窗体，则实心圆停止移动。窗体文件中已经给出了全部控件，但程序不完整。要求：请去掉程序中的注释符，把程序中的?改为正确的内容，使其能正确运行，不能修改程序的其他部分和控件属性。最
19、后将修改后的文件按原文件名存盘。（分数：20.00）_正确答案：(操作步骤步骤 1：打开本题工程文件。步骤 2：打开代码编辑窗口，去掉程序中的注释符，将问号改为正确的内容。参考答案(阴影部分是需考生填入的内容)Dim stepy As Integer 纵向移动增量Dim Stepx As Integer 横向移动增量Const LEFT_BUTTON=1Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)Dim x0 As Integer, y0 As Integer,
20、 a As Single, radius As_Integerradius=Shape1.Width/2 圆的半径If Button=LEFT_BUTTON Then单击鼠标左键移动x0=Shape1.Left+radius 圆心的 x 坐标y0=Shape1.Top+radius 圆心的 y 坐标If x=x0 Then垂直移动stepy=Sgn(y-y0)*50Stepx=0Else倾斜移动a=(y-y0)/(x-x0) 斜率Stepx=Sgn(x-x0)*50Stepy=a*stepx通过 stepx 确定 stepy 的值If Abs(stepy)Abs(stepx)Thenstepy
21、=Sgn(y-y0)*50stepx=stepy/aEnd IfEnd IfTimer1.Enabled=True 单击鼠标左键则触发 Timer 事件ElseTimer1.Enabled=False 单击鼠标右键则停止 Timer 事件End IfEnd SubPrivate Sub Timer1_Timer()Shape1.Move Shape1.Left+stepx, Shape1.Top+stepy 移动 shape1End Sub步骤 3：调试并运行程序，关闭程序后按题目要求存盘。)解析：考点 本题考点有：形状控件的 Width、Left 和 Top 属性，形状控件的 Move 方法，Abs()函数，sgn()函数以及坐标变量。通过鼠标左键单击位置的坐标及圆心的坐标确定一条直线，并沿着这条直线移动，通过计算这条直线的斜率，得知水平位移和竖直位移，再通过形状控件的 Move 方法、Left 和 Top 属性实现形状控件位置的移动。sgn(x)函数返回 x 的正负号，如果 x 为正数，返回 1；如果为负数，返回-1；如果为 0，则返回 0。语句比较复杂，要耐心地读懂程序，然后再做就很简单了。
