(1)在考生文件夹下有一个工程文件sj3.vbp,窗体上有两个单选按钮,标题为“Iteml”和“Item2”;两个标题分别为“按钮1”和“按钮2”的命令按钮,如图70-3所示。程序的功能是:运行时.如果选中单选按钮“Iteml”后,“按钮1”可用,“按钮2

admin2010-07-13  22

问题     (1)在考生文件夹下有一个工程文件sj3.vbp,窗体上有两个单选按钮,标题为“Iteml”和“Item2”;两个标题分别为“按钮1”和“按钮2”的命令按钮,如图70-3所示。程序的功能是:运行时.如果选中单选按钮“Iteml”后,“按钮1”可用,“按钮2”不可用;如果选中单选按钮Item2后,则相反,单击可用按钮,在窗口上打印该按钮的标题。
    注意:设初始选中的是“Iteml”;去掉程序中的注释符“’”,把程序中的“?”改为正确的内容,使其实现上述功能,但不能修改程序中的其他部分,也不能修改控件的其他属性。最后把修改后的文件按原文件名存盘。
    (2)在考生文件夹下有一个工程文件sj4.vbp,相应的窗体文件为sj4.frm,在窗体上有一个命令按钮和两个文本框。程序运行后,单击计算按钮,即可计算出大于Text1中输入的数且能被3、5和7同时整除的最小整数.并在文本框Text2中显示出来,如图70一4所示。在窗体的代码窗口中,已给出了部分程序。

    注意:去掉程序中的注释符“’”,把程序中的“?”改为正确的内容,使其实现上述功能,但不能修改程序中的其他部分,也不能修改控件的其他属性。最后把修改后的文件按原文件名存盘。

选项

答案(1)本题主要考查命令按钮的属性设置及单选按钮的单击事件,补充后的代码如下: Private Sub Commandl_Click() CIs Print"按钮1" ’显示"按钮1" End Sub Private Sub Command2_Click() Cls Print"按钮2"’显示"按钮2" End Sub Private Sub Form_Load() Commandl.Enabled=True’按钮1可用 Command2.Enabled=False’按钮2不可用 End Sub Private Sub Optionl Click() Commandl.Enabled=True Command2.Enabled=False End Sub Private Sub Option2_Click() Commandl.Enabled=False’按钮1不可用 Command2.Enabled=True’按钮2可用 End Sub 单击[*]按钮运行程序,并按要求保存。 (2))要判断一个数能否被另一个数整除,要用到Mod函数,当余数为0表示能被整除,否则不能被整除。本题使用了While—Wend循环,且条件中要使三个条件都满足,要用And运算符。补充后的代码如下: Private Sub Commandl_Click() Dim a As Integer a=Val(Textl.Text) While Not(a Mod 3=0 And a Mod 5=0 And a Mod 7=0) ’当a不能同时被3、5、7整除时进入While循环 a=a+1 ’a逐渐加1 Wend Text2.Text=a’在Text2中显示结果 End Sub 单击[*]按钮运行程序,并按要求保存。

解析
转载请注明原文地址:https://jikaoti.com/ti/aJg0FFFM
0

最新回复(0)