(1)在考生文件夹下有工程文件sj3.vbp及窗体文件sj3.frm,该程序是不完整的。在名称为Forml的窗体上有两个名称分别为Labell和Label2的标签,两个名称分别为Textl和Text2的文本框控件和两个名称分别为Commandl和Comma

admin2009-03-26  27

问题 (1)在考生文件夹下有工程文件sj3.vbp及窗体文件sj3.frm,该程序是不完整的。在名称为Forml的窗体上有两个名称分别为Labell和Label2的标签,两个名称分别为Textl和Text2的文本框控件和两个名称分别为Commandl和Command2的命令按钮。该程序的主要功能是求从1到用户输入的任意自然数n的偶数的累加和。本题要求刚启动工程时,“计算”和“清空”按钮均为灰色,可以在Textl文本框内输入任意自然数(n值太大时,运算时间将很长,建议不超过9位)。在输入数的同时“计算”变为可用;当计算完成后.“计算”变为不可用;当输人为非数值时,累加结果为0。单击“计算”可以在Text2中显示累加和,且该框内的文字不可修改;同时“计算”变灰。“清空”变为可用。单击“清空”,输入框和显示框均被清空,同时“计算”和“清空”变为不可用。如图56—3所示。   
    注意:请在有“?”号的地方填入正确内容,然后删除“?”及代码前的所有注释符(即“’”号),但不能修改其他部分。存盘时不得改变文件名和文件夹。
    (2)在考生文件夹中有文件sj4.vbp及其窗体文件sj4.frm,窗体已经设计好,要求考生用If语句编写程序,使得程序运行。窗体上有两个复选框,名称分别为Checkl和Check2。标题分别为“ItelTll”和“Itern2”;两个单选按钮,名称分别为Optionl和Option2。标题分别为“选择”和“其他”;一个名称为Labell、Caption属性为空的标签;一个名称为Commandl、标题为“显示”的命令按钮,一个名称为Textl的文本框,Text属性为空。要求程序运行后,对选中Optionl时checkl和Check2可用,Textl也可用,当选中Option2的时候,Textl可用,Checkl和claeck2不可用,然后单击显示按钮.可在窗体上显示相应的信息,如选中Optionl,则显示选中复选框的信息,选择Option2则显示Textl中的信息。程序运行时的界面如图56—4所示。

    注意:不得使用任何变量。存盘时不得改变文件夹和文件名。

选项

答案 (1)根据题意,将一个Label控件、两个Text控件和两个Command控件添加到窗体上,Label的Caption属性为“求1到用户输入数之间的所有偶数之和,并将结果显示出来。”,Text的名称分别为Textl和Text2、Text属性分别为空和Text2,Text2的Enable属性为False,Command的名称分别为Commandl和Command2、Caption属性分别为“计算”和“清空”。双击Commandl命令按钮,编写如下代码: Private Sub Commandl_Click() Dim a As Integer Dim total As Long Dim i As Integer a=Val(Textl.Text) ’将Textl中的数据读入,放到a中 total=0 For i=1 To a’利用For循环逐个判断 If i Mod 2=0 Then’当判断是偶数时 total=total+i’则相加 End If Next i Text2.Text=total’将结果写入Text2中 Commandl.Enabled=False ’Commandl不可用 End Sub Private Sub Command2一Click() Textl.Text="" ’Textl清空 Text2.Text="" ’Text2清空 Commandl.Enabl ed=False ’Commandl不可用 Command2.Enabled=False ’Command2不可用 End Sub Priyate Sub Text1_Change() Commandl.Enabled=True’Commandl可用 Command2.Enabled=True ’Command2可用 End Sub 单击[*]按钮运行程序,并按要求保存。 (2)按要求设计好窗体后,双击Commandl命令按钮打开代码窗口,补充完整后的代码如下: Private Sub Commandl_Click() Dim str As String str="" If Optionl.Value=True Then’如果选择的是Optionl If Checkl.Value=1 Then’则判断选中的复选按钮 str=str+Checkl.Caption’如果选中Checkl,则显示Iteml End If If Check2.Value=1 Then’如果选中Check2 str=str+Check2.Caption ’则显示Item2 End If C1s Print str’在窗体上打印出来 Else,’如果选择的是Option2 Cls Print Textl.Text’则显示Textl的内容 End If End Sub Private Sub Optionl_Click() ’单击Optionl Textl.Enabled=False’Textl不可用 Checkl.Enabled=True’Checkl可用 Check2.Enabled=True ’Check2可用 End Sub Private Sub Option2_Click() Textl.Enabled=True Checkl.Enabled=False Check2.Ena bled=False End Sub 单击[*]按钮运行程序,并按要求保存。

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

最新回复(0)