软题库 移动APP 扫码下载APP 随时随地移动学习 培训课程
当前位置:信管网 >> 在线考试中心 >> 信息系统项目管理师题库 >> 试题查看
试卷名称 2006年下半年程序员考试下午真题试题(案例分析)
考试中心《2006年下半年程序员考试下午真题试题(案例分析)》在线考试
试卷年份2006年下半年
试题题型【分析简答题】
试题内容

    阅读以下应用说明以及用Visual Basic编写的程序代码,将应填入(n)处的字句写在答题纸的对应栏内。
【应用4.1】
    设应用程序的运行窗口内有一个文字标签(Label)以及一个框架,其中有三个复选框(chkl,chk2,chk3 ),各个复选框单击事件过程的程序代码如下:
  Private Sub chkl Click()
    Label.fontBold = chkl.Value
  End Sub
  Private Sub chk2 Click()
    Label.fontItalic = chk2.Value
  End Sub
  Private Sub chk3 Click()
    Label.fontUnderLine = chk3.Value
  End Sub
    三个复选框chkl、chk2、chk3的功能分别是:(l )
【应用4.2】
    设应用程序的运行窗口内有两个文本框Txt 1和Txt2,其初始内容为空。在Txt 1文本框中输入一个数值,当光标离开此文本框(例如进入文本框Txt2 )时,执行的程序代码如下:
  Private Sub Txtl_LostFocus()
  dim x as double
  x = Val(Txtl.Text)
  If x<0 Or x>100 Then
    Txtl.Text = “ ”
    MsgBox$(“请重新输入!”)
    Txtl.SetFocus
  Else
    Txt2.Text = Txtl.Text
  End If
    End Sub
    该程序代码的功能是:若在文本框Txt1中输入的数值小于0或大于100,当光标离开此文本框时,(2) ;否则,将其值复制到文本框Txt2中。
【应用4.3】
在下面的应用中,当窗口内发生Click事件时,窗口内将显示如图4-1所示的杨辉三角形(每一行都是三项式展开的系数)。请完善程序代码。
 
Private Sub Form Click()
    Dim i , j , c  As Integer , StrTemp As String
    Dim a(9) As Integer
    a(0) = 0 : a(1) = 1 : 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


相关试题

推荐文章
合作网站内容