2. 计算机
  3. (1)在考生文件夹中有一个工程文件sj3．vbp，相应的窗体文件为sj3．frm。在名为Form1的窗体上有一个命令按钮，其名称为Commandl，标题为“添加”；有一个文本框，名为Textl，初始内容为空白；此外还有一个列表框，其名称为Listl。程序运

(1)在考生文件夹中有一个工程文件sj3．vbp，相应的窗体文件为sj3．frm。在名为Form1的窗体上有一个命令按钮，其名称为Commandl，标题为“添加”；有一个文本框，名为Textl，初始内容为空白；此外还有一个列表框，其名称为Listl。程序运

admin2009-03-26  71
问题 (1)在考生文件夹中有一个工程文件sj3．vbp，相应的窗体文件为sj3．frm。在名为Form1的窗体上有一个命令按钮，其名称为Commandl，标题为“添加”；有一个文本框，名为Textl，初始内容为空白；此外还有一个列表框，其名称为Listl。程序运行后，如果在文本框中输入一个英文句子(由多个单词组成，各单词之间用一个空格分开)，然后单击命令按钮，程序将把该英文句子作为一个项目添加到列表框中，如图4l一4所示。

    该程序不完整，请补充完整。   
    注意：去掉程序中的注释符“’”，把程序中的问号“?”改为正确的内容，使其能正确运行，但不得修改程序的其他部分最后，按原文件名并在原文件夹中保存修改后的文件。
    (2)在考生文件夹中有工程文件sj4．vbp及窗体文件sj4．frm。在名为Forml的窗体上有2个框架、7个标签和7个文本框，所有控件已经画好。判断输入的条件是否为三角形，若是三角形，则在Textl中显示“是三角形”；在Text2中显示是何种三角形。单击“重新输入”按钮可以清空所有显示框，且按钮本身变为无效状态。当单击“判断并计算”按钮之后重新恢复为可用状态。程序运行情况如图41—5所示。该程序的功能是：根据给定的图形的三边的边长来判断图形的类型。若为三角形则同时计算出为何种三角形及三角形的周长和面积。

    注意：本程序不完整，请补充完整，并能正确运行。三角形存在的条件为任一边不为O且任两边之和大于第三边。若一边具有a2+b2=c2，则为直角三角形；若所有边具有a2+b2>c2，则为锐角三角形；若一边具有a2+b22，则为钝角三角形。去掉程序中的注释符“’”，把程序中的问号“?”改为正确的内容，使其实现上述功能，但不得修改的其他部分。最后，按原文件名并在原文件夹中保存修改后的文件。
选项
答案(1)Len()函数用于返回指定字符串的长度。使用Mid函数取出字符串中的字符。Mid函数的格式为：Mid(字符串，P，n)。Mid函数从第P个字符开始，向后截取n个字符，P和n都是算术表达式。Mid函数的第三个变量可以省略，这样将第P个字符开始先后截取到字符串的结尾。根据题意，双击Commandl命令按钮进入代码窗口，补充后的代码如下： Private Sub Commandl Click() Dim sl As String，s2 As String Dim 11 As Integer s1=Textl I1=1 Do Do While Mid(sl，11，1)<>""And 11<≥=Len(s1) s2=s2&Mid(sl，I1，1) I1=I1+1 Loop Listl．Addltem s2 s2="" I1=I1+1 Loop While I1<=Len(s1) End Sub 单击[*]按钮运行程序，并按要求保存。 (2)该题用到两个函数和一个公式，Val()是将其内容转变为数字类型的函数，Sqr()是求数值的平方根函数，而求解三 角形的面积的时候用到海伦公式即S=Sqr(L*(L-a)*(L-b)*(L-c))，其中a、b、C是三角形的三条边，L=(a+b+c)／2。根据题意，双击Commandl命令按钮进入代码窗口，补充后的代码如下： Option Explicit Dim a AS Single Dim b As Single Dim C As Single Dim S AS Double Dim L As Single Private Sub Commandl Click() a=Val(Text5．Text) b=Val(Text6．Text) c=Val(Text7．Text) If a◇0 And b◇0 And c◇0 And a+b>c And a+c>b And b+c>a Then Textl．Text="是三角形" 1f a^2+b^2=c^2 Or a^2+c^2=b^2 Orb^2+c^2=a^2 Then Text2．Text="是直角三角形" Else If a^2+b^2>c^2 And a^2+c^2>b^2 And b^2+c^2>a^2 Then Text2．Text="是锐角三角形" Else：Text2．Text="是钝角三角形" End If End If Text3．Text=a+b+C ’计算三角形的周长 L=(a+b+c)／2 Text4．Text=Sqr(L*(L-a)*(L-b)*(L-c)) ’计算三角形的面积 Else：Textl．Text="非三角形" Text2．Text="" Text3．Text="" Text4．Text="" End If Command2．Enabled=True End Sub Private Sub Command2_Click() ’此处需要设置，以实现清空所有文本框和使“重新输入”按钮无效的功能 Textl．Text="" Text2．Text="" Text3．Text="" Text4．Text="" Text5．Text="" Text6．Text="" Text7．Text="" Command2．Enabled=False End Sub Private Sub Command3_Click() End End Sub Private Sub Form Load() Textl．Enabled=False Text2．Enabled=False Text3．Enabled=False Text4．Enabled=False Command2．Enabled=False End Sub 单击[*]按钮运行程序，并按要求保存。
解析
转载请注明原文地址:https://kaotiyun.com/show/XV1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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