2. 计算机
  3. (1)考生文件夹中有工程文件sjt3．vbp。在窗体上有名称为Combol的组合框，请设置该组合框的属性，使该组合框只能用于选择操作，不能输入文本。窗体上还有两个标题分别为“输入正整数”、“判断”的命令按钮。程序运行时在组合框中选中一项，如图5(a)所示，

(1)考生文件夹中有工程文件sjt3．vbp。在窗体上有名称为Combol的组合框，请设置该组合框的属性，使该组合框只能用于选择操作，不能输入文本。窗体上还有两个标题分别为“输入正整数”、“判断”的命令按钮。程序运行时在组合框中选中一项，如图5(a)所示，

admin2020-02-27  55
问题 (1)考生文件夹中有工程文件sjt3．vbp。在窗体上有名称为Combol的组合框，请设置该组合框的属性，使该组合框只能用于选择操作，不能输入文本。窗体上还有两个标题分别为“输入正整数”、“判断”的命令按钮。程序运行时在组合框中选中一项，如图5(a)所示，单击“输入正整数”按钮，通过输入对话框输入一个正整数，再单击“判断”按钮，则按照选定的选项内容，将判断结果显示在信息框中。如图5(b)所示的是输入56且选中的组合框选项为“判奇偶数”时显示的信息框。
在给出的窗体文件中已经有了全部控件，但程序不完整，要求：按照题目要求设置组合框的有关属性，去掉程序中的注释符，把程序中的?改为正确的内容。
注意：考生不得修改窗体文件中已经存在的程序。最后程序按原文件名存盘。

(2)在考生目录下有一个工程文件sjt4．vbp。窗体上有一大一小两个名称分别为Shape2、Shape1的Shape控件。请在属性窗口中将Shape1控件设置为圆形，并将其颜色设置为红色(颜色值为&H000000FF&)，如图6所示。
要求：当单击窗体时，Shape1移动到矩形(即Shape2)左上角，再次单击窗体，则Shape1移动到矩形的右下角。在给出的窗体文件中已经有了全部控件，但程序不完整。要求：在属性窗口中设置有关的属性值，去掉程序中的注释符，把程序中的?改为正确的内容。
注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。
选项
答案(1)步骤1：打开考生文件中的本题工程文件sjt3．vbp，将组合框的Style属性设置为2。 步骤2：在代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。 参考代码： Select Case Combol．ListIndex MsgBox Str(x) & f1(x) MsgBox Str(x) & f2(x) Private Function f2(ByVal x As Integer)As String IfxMod 7=0 Then 步骤3；按要求将文件保存至考生文件夹中。 (2)步骤1：打开考生文件中的本题工程文件sjt4．vbp，将Shape1控件的Shape属性设置为3，BackColor属性设置为&H000000FF&。 步骤2：在代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。 参考代码 Private Flag AS Boolean Shape1．Top=Shape2．Top+Shape2．Height-Shape1．Height Shape1．Left=Shape2．Left+Shape2．Width-Shape1．Width 步骤3：按要求将文件保存至考生文件夹中。
解析 (1)本题源代码中给出了两个函数，f1函数的作用是判断参数的奇偶性并返回判断结果，其返回值为字符型；f2函数的作用是判断参数能否被7整除，其返回值也为字符型。在“判断”命令按钮的单击事件中，首先根据组合框的ListIndex值判断选中的是组合框中的哪一项，如果ListIndex值为0则调用f1函数，否则调用f2函数。
(2)本题原程序中，在窗体的单击事件中，要求实现圆形在左上角和右下角之间来回切换，需要设置一个全局布尔型变量flag，每次单击窗体之后将其取反，通过flag的值来判断是需要将圆形移动到哪个位置。要移动到矩形的右下角，需要令其Top属性等于Shape2．Top+Shape2．Height-Shape1．Height，Left属性等于Shape2．Left+Shape2．Width-Shape1．Width。
转载请注明原文地址:https://www.kaotiyun.com/show/UkTp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)