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

admin2020-02-27  21

问题 (1)考生文件夹中有工程文件sjt3.vbp。在窗体卜有名称为Combo1的组合框,请设置该组合框的属性,使该组合框只能用于选择操作,不能输入文本。窗体上还有两个标题分别为“输入正整数”、“判断”的命令按钮。程序运行时在组合框中选中一项,如图5(A)所示,单击“输入正整数”按钮,通过输入对话框输入一个正整数,再单击“判断”按钮,则按照选定的选项内容,将判断结果显示在信息框中。如图5(b)所示的是输入56且选中的组合框选项为“判奇偶数”时显示的信息框。

在给出的窗体文件中已经有了全部控件,但程序不完整,要求:按照题目要求设置组合框的有关属性,去掉程序中的注释符,把程序中的?改为正确的内容。
注意:考生不得修改窗体文件中已经存在的程序。最后程序按原文件名存盘。
(2)在考生目录下有一个工程文件sjt4.vbp。窗体上有一大一小两个名称分别为Shape2、Shape1的Shape控件。请在属性窗口中将Shapel控件设置为圆形,并将其颜色设置为红色(,颜色值为&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 Ifx MoD 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.LeR=Shape2.LeR+Shape2.WiDth-Shape1.WiDth 步骤3:按要求将文件保存至考生文件夹中。

解析 (1)本题源代码中给出了两个函数,f1函数的作用是判断参数的奇偶性并返回判断结果,其返回值为字符型;f2函数的作用是判断参数能否被7整除,其返回值也为字符型。
在“判断”命令按钮的单击事件中,首先根据组合框的ListInDex值判断选中的是组合框中的哪一项,如果List 1nDex值为0则调用f1函数,否则调用f2函数。
(2)本题原程序中,在窗体的单击事件中,要求实现圆形在左上角和右下角之间来回切换,需要设置一个全局布尔型变量flag,每次单击窗体之后将其取反,通过flag的值来判断是需要将圆形移动到哪个位置。要移动到矩形的右下角,需要令其Top属性等于Shape2.Top+Shape2.Height-Shape1.Height,LeR属性等于Shape2.LeR+Shape2.wiDthShape1.WiDth。
转载请注明原文地址:https://kaotiyun.com/show/sRTp777K
0

最新回复(0)