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

admin2010-09-02  38

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

(2)在考生目录下有一个工程文件sjt4.vbp。窗体上有一大一小两个名称分别为Shape2、Shapel的Shape控件。请在属性窗口中将Shapel控件设置为圆形,并将其颜色设置为红色(颜色值为&H000000FF&),如图1-33所示。
要求:当单击窗体时,Shapel移动到矩形(即Shape2)左上角,再次单击窗体,则Shapcl移动到矩形的右下角。在给出的窗体文件中已经有了全部控件,但程序不完整。
要求:在属性窗口中设置有关的属性值,去掉程序中的注释符,把程序中的?改为正确的内容。
注意:不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。

选项

答案第1小题 【操作步骤】 步骤l:打开考生文件中的本题工程文件sjt3.vbp,将组合框的Style属性设置为2。 步骤2:在代码编辑窗口,去掉程序中的注释符们”,将问号“?”改为正确的内容。 参考代码: Select Case Comb01.ListIndex MsgBox Str(x)&fl(x) MsgBox Str(x)&f2(x) Private Funct ion f2(ByVal x As Integer)As String If x Mod 7=0 Then 步骤3:按要求将文件保存至考生文件夹中。 第2小题 【操作步骤】 步骤1:打开考生文件中的本题工程文件sjt4.vbp,将Shapel控件的Shape属性设置为3,BackColor属性设置为&H000000FF&。 步骤2:在代码编辑窗口,去掉程序中的注释符“’”,将问号“?”改为正确的内容。 参考代码: Private Flag As Boolean Shapel.Top=Shape2.Top+Shape2.Height- Shapel.Height Shapel.Left=Shape2.Left+Shape2.Width -Shapel.Width 步骤3:按要求将文件保存至考生文件夹中。

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

最新回复(0)