2. 计算机
  3. 阅读以下应用说明以及用Visual Basic语言编写的程序代码，将应填入(n)处的字句写在答题纸的对应栏内。 【应用4.1】 设应用程序的运行窗口内有一个文字标签(Label)以及一个框架，其中有三个复选框(chk1，chk2，chk3)，各个复选

阅读以下应用说明以及用Visual Basic语言编写的程序代码，将应填入(n)处的字句写在答题纸的对应栏内。 【应用4.1】 设应用程序的运行窗口内有一个文字标签(Label)以及一个框架，其中有三个复选框(chk1，chk2，chk3)，各个复选

admin2012-12-10  38
问题 阅读以下应用说明以及用Visual Basic语言编写的程序代码，将应填入(n)处的字句写在答题纸的对应栏内。
【应用4.1】
   设应用程序的运行窗口内有一个文字标签(Label)以及一个框架，其中有三个复选框(chk1，chk2，chk3)，各个复选框单击事件过程的程序代码如下：
   Private Sub chkl_Click()
     Label.fontBold=chkl.Value
   End Sub
   Private Sub chk2_Click()
     Label.fontltalic=chk2.Value
   End Sub
   Private Sub chk3_Click()
     Label.fontUnderLine=chk3.Value
   End Sub
   三个复选框chkl、chk2、chk3的功能分别是：(1)。
【应用4.2】
   设应用程序的运行窗口内有两个文本框Txt1和Txt2，其初始内容为空。在Txt1文本框中输入一个数值，当光标离开此文本框(例如进入文本框Txt2)时，执行的程序代码如下：
   Private Sub Txt1_LostFocus()
   dim x aS double
   x=Val(Txtl．Text)
   工f x＜0 Or x＞100 Then
   Txtl.Text =""
   MsgBox$("请重新输入!")
   Txtl.SetFocus
   Else
   Txt2.Text=Txt1.Text
   End If
   End Sub
   该程序代码的功能是：若在文本框Txtl中输入的数值小于0或大于100，当光标离开此文本框时，(2)；否则，将其值复制到文本框Txt2中。
【应用4.3】
   在下面的应用中，当窗口内发生C1ick事件时，窗口内将显示如图2-4所示的杨辉三角(每一行都是二项式展开的系数)。请完善程序代码。
   
   Private Sub Form Click()
   Dim  i，j，c As  Integer，StrTemp  AS  String
   Dim a(9)As Integer
   a(0)=0=a(1)=l：StrTemp=Str(a(1))+Space(3)
   CurrentX=(ScaleWidth-TextWidth(StrTemp))/2
   Print StrTemp
   For j=2 TO  9
   a(j)=1
   For C=j-1 TO 2 Step-1
         a(c) =(3)  
      Next
          (4)=""
       For c = 1 To j
          StrTemp = StrTemp & Str((5))  & Space(5 - Len(Str(a(c))))
      Next
      CurrentX = (ScaleWidth - TextWidth(StrTemp))  / 2
       Print StrTemp
   Next End Sub
选项
答案(1)对文字标签中的文字，分别控制其粗体、斜体和下划线设置；或含义相同的文字描述 (2)将该文本框清空：弹出对话框，提示重新输入：光标定位于该文本框中；或含义相同的文字描述 (3)a(c)+a(c-1) (4)StrTemp (5) a?
解析 本题考查Visual Basic中常用控件的属性设置及事件处理。
   对于同一框架中的一组单选按钮，只能有一个被选中，用户选中一个时，另一个就自动呈现取消选中状态。这种效果是系统自动赋予的，无须编程。对于复选框，则可以同时选中多个，每个复选框是独立选择的，单击复选框就是改变该复选框的选中状态。因此，复选框的Click事件的程序代码中，还需要判断是选中还是取消选中。
   单选钮的属性为Value，其值为True表示选中，为False表示未选中(默认)。
   复选框的属性为Value，其值为0表示未选中(默认)，1表示选中，2表示禁用。
   fontBold、fontltalic和fontUnderLine分别表示文字的粗体属性、斜体属性和下划线属性，因此应用4.1中，复选框chk1、chk2、chk3分别控制文字标签中文字的粗体、斜体和下划线设置。
   应用4.2程序代码的功能是：若在文本框Txt1中输入的数值小于0或大于100，当光标离开此文本框时，将该文本框清空，弹出对话框并提示重新输入，光标定位于该文本框中；否则，将其值复制到文本框Txt2中。
   应用4.3在窗体中显示杨辉三角(每一行都是二项式展开的系数)，观察元素的值可知，值不等于1的元素由其左上角和右上角的元素相加得到。例如，若已经计算出第四行的所有元素，如下所示，然后需求出第五行的所有元素，每行的元素存储在一维数组a中。
   a(1)    a(2)    a(3)    a(4)
   第四行：1    3    3    1
   第五行上的元素自左至右表示为a(1)、a(2)、a(3)、a(4)、a(5)，如下所示。
   a(1)  a(2)  a(3)  a(4)
   第四行：    1    3    3    1
   第五行：1    4    6    4    1
   a(1)  a(2)  a(3)  a(4)  a(5)
   先设置最后一个元素a(5)等于1，再根据第四行上的a(4)和a(3)求出第五行上的a(4)，
根据第四行的a(3)和a(2)求出第五行上的a(3)，依此类推，可求出第五行的每个元素(每行的第一个元素等于1，无需另外计算)。
   推广至其他行，可计算出杨辉三角中的每个数并以串的方式输出，对应的程序代码如下：
   For j=2 To 9    ’计算出第2行到第9行的每个数并输出
     a(j)=1    ’每行的最后一个数为1
     For c=j-1 To 2 Step-1
      a(c)=a(c)+a(c-1)    ’计算出值不等于1的元素
     Next
     StrTemp=""    ’字符串初始化，每行所有数串接成一个字符串输出
     For C=1 To j
       StrTemp=StrTemp  &  Str(a(c))  &  Space(5-Len(Str(a(C))))
     Next
     CurrentX=(ScaleWidth-TextWidth(StrTemp))/2
     Print StrTemp
   Next
转载请注明原文地址:https://jikaoti.com/ti/mbW7FFFM
本试题收录于： 程序员下午应用技术考试题库软考初级分类
0

程序员下午应用技术考试

软考初级

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